设为首页收藏本站

切换到窄版

紫水晶编程技术论坛 - 努力打造成全国最好的编程论坛»论坛广场 › 各种编程语言和开发工具 › Delphi › 检测是否重复运行

返回列表发新帖

查看: 5686|回复: 1

[开源] 检测是否重复运行

1214 主题	352 回帖	11 精华

菜鸟

积分: 93755

发表于 2012-3-11 10:37:15 | 显示全部楼层 |阅读模式

procedure Tfrmmain.FormCreate(Sender: TObject);
var FileName: string;
errNO: integer;
hMutex: HWND;
begin
hMutex := CreateMutex(nil, False, pchar(Application.title));
errNO := GetLastError;
if errNO = ERROR_ALREADY_EXISTS then begin //检测是否重复运行
Application.MessageBox('软件已经在运行', '重复运行', MB_OK);
Application.Terminate;
end
else
//...
end;

复制代码

【VB】QQ群：1422505加的请打上VB好友
【易语言】QQ群：9531809 或 177048
【FOXPRO】QQ群：6580324 或 33659603
【C/C++/VC】QQ群：3777552
【NiceBasic】QQ群:3703755

回复

30 主题	693 回帖	0 精华

积分: 2815

发表于 2015-3-25 10:38:37 | 显示全部楼层

呵呵互斥体检测也不错

回复 

返回列表发新帖

快速回复 返回顶部 返回列表