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 清空dbgrd和stringgrid

Delphi 给label1字加边的又一个算法

Delphi 动态库里查询是否联接数据库

Delphi 中 findwindow 和 findwindowex 的语法和用法

Delphi idhttp读取网页重定向

Delphi idftp 错误：socket error 10054 �c connection reset by peer -连接被重置

Delphi中的布尔类型

Delphi tadoquery的用法

Delphi 提取字符串左侧内容

Delphi 控制n个字符间距空格

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

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