当前位置: 开源爱好者 » 编程教程 » Delphi教程 » 正文

Delphi 判断程序是否只运行一个程序实例

  • 时间:2018-02-02
  • 简述:副本

Delphi 判断程序是否只允许运行一个程序实例,判断是否有程序副本存在,基本思路是:在工程单元中引用windows单元,定义一个变量,类型为hMutex:THandle.

设置:hMutex := CreateMutex(nil, False, 'TheStandard');然后编写如下代码:

if  GetLastError = ERROR_ALREADY_EXISTS  then
  begin
    CloseHandle(hMutex);
    ShowMessage('本软件的另一个副本已经在运行中');(引用Dialogs单元)
    application.Terminate;
end
   else
   begin
     Application.CreateForm(TForm1,Form1);
     Application.Run;
end;

CopyRight 2015© 开源爱好者 All Rights Reserved 豫ICP备16030607号 隐私声明 网站地图