避免unigui服务端程序重复启动

最新推荐文章于 2023-10-20 08:01:19 发布

原创最新推荐文章于 2023-10-20 08:01:19 发布 · 482 阅读

4 ·

CC 4.0 BY-SA版权

文章标签：

#unigui #delphi

unigui 专栏收录该内容

15 篇文章

订阅专栏

该段代码在服务模块初始化前创建了一个互斥体（Mutex），用于确保只有一个实例运行。如果互斥体已经存在（即错误代码ERROR_ALREADY_EXISTS），则通过ExitProcess终止进程，防止多个实例同时运行。

在服务模块中加入以下代码

procedure TUniServerModule.UniGUIServerModuleBeforeInit(Sender: TObject);
begin
  CreateMutex(nil, FALSE, 'Project1');   //uses Winapi.Windows
  if GetLastError = ERROR_ALREADY_EXISTS then
  begin
    //Application.Terminate;
    ExitProcess(0); //新版本有效
  end;
end;