Delphi 防止程序多开

在项目的源码中加入一个搜索标题的判断

uses
Winapi.Windows

var
Hwnd:THandle;

var
Hwnd:THandle;
begin
Hwnd := FindWindow('TFrmMain','软件标题');
if Hwnd = 0 then
  begin
  Application.Initialize;   //原始代码
  Application.MainFormOnTaskbar := True;   //原始代码
  Application.CreateForm(TFrmMain, FrmMain);   //原始代码
  Application.CreateForm(TFrmHelp, FrmHelp);   //原始代码
  Application.Run;   //原始代码
  end
  else
  begin
Application.MessageBox('程序已运行,请勿重复打开。' + #13#10#13#10 +
  '若已关闭,请稍等再试,程序正在退出线程。', '程序已运行', MB_OK + MB_ICONSTOP);


  end;

end.

You may also like...

发表评论

电子邮件地址不会被公开。 必填项已用*标注

此站点使用Akismet来减少垃圾评论。了解我们如何处理您的评论数据

网站搬迁至国外服务器,访问稍慢,请耐心等待! 忽略