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运行时的问题，cannot focus a disabled or invisible window！

Delphi 获取安卓手机wifi信息(xe8)

secsperday：一天共有多少秒

Delphi md5单元文件

Delphi 10.x ide界面

Delphi中的sha256算法

Delphi获取网卡mac地址

Delphi 时间到就触发事件

Delphi判断线程是否正在运行

Delphi中使用 twebbrowser 编辑网页

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

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