Delphi 只运行一个实例

最新推荐文章于 2023-11-22 12:55:25 发布

转载最新推荐文章于 2023-11-22 12:55:25 发布 · 727 阅读

文章标签：

#delphi

Delphi 专栏收录该内容

66 篇文章

订阅专栏

本文介绍了一种使用互斥对象确保应用程序仅能运行一个实例的方法。通过创建互斥对象并在成功创建时初始化应用程序来实现该功能。

begin
  CreateMutex(nil, True, '互斥对象');
  if GetLastError <> ERROR_ALREADY_EXISTS then
  begin
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end
  else begin
    ShowMessage('只能运行一个实例');
  end;
end.