Delphi中根据程序名称判断是否多开

本文整理自网络，侵删。

 
procedure TForm1.FormCreate(Sender: TObject);  
var  
errno:integer;  
hmutex:hwnd;  
begin  
hmutex:=createmutex(nil,false,pchar(application.Title));  
errno:=getlasterror;  
if errno=error_already_exists then  
begin  
ShowMessage(‘程序已经在运行了’);  
Application.Terminate;  
end;  
end;  
 

相关阅读 >>

Delphi 实现延时自动关闭对话框

Delphi 判断文件是否正在被使用

Delphi android windows ios通用获取程序版本

Delphi record，两种声明方式

Delphi 压缩图片(bmp、jpg、png)

Delphi 如何从url提取文件名？

Delphi case选择语句练习代码简化

Delphi中webbrowser自动登录路由器网页

Delphi xe android platform uses-permission[1] 权限列表

Delphi建立文件的快捷方式

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi中根据程序名称判断是否多开