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...

1 Response

  1. Anchep Anchep说道:

    程序名称一定要和自己软件的名字一样。

发表评论