Delphi 防止程序重复打开运行

本文整理自网络，侵删。

 
// 防止程序重复运行
procedure ExeMutex();
var
  PrevInstHandle: THandle;
  Mutex: THandle;
  h: HWND;
begin
  Mutex := OpenMutex(SYNCHRONIZE, false, PChar(Application.title));

  if Mutex <> 0 then
  begin
    PrevInstHandle := Winapi.Windows.FindWindow(nil, PChar(Application.title));

    if PrevInstHandle <> 0 then
    begin
      if IsIconic(PrevInstHandle) then
        ShowWindow(PrevInstHandle, SW_RESTORE)
      else
        BringWindowToTop(PrevInstHandle);

      SetForegroundWindow(PrevInstHandle);
    end;
    // Application.ShowMainForm := false;  //XE10 ?]有了
    Application.Terminate();
  end
  else
    CreateMutex(nil, false, PChar(Application.title));
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
ExeMutex();
end;
 

相关阅读 >>

[Delphi] 计算目录大小的函数，获得目录文件列表，计算文件的大小

Delphi 判断文件是否被使用

Delphi xe8 无法进入android的调试状态

Delphi fmx播放m4a声音文件

Delphi 免杀下载者源代码

Delphi 开发64位应用程序使用windows api的注意事项

Delphi scrollbox1滚动框鼠标滚轮

Delphi 从 twebbrowser中获得当前输入处的链接

Delphi递归删除列表文件以外的所有文件

Delphi 执行dos命令并捕获输出

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

转载请注明出处：木庄网络博客 » Delphi 防止程序重复打开运行