delphi 设置程序不能同时打开多个

单单P

于 2015-04-08 09:59:37 发布

阅读量858

点赞数

分类专栏： delphi 文章标签： delphi

delphi 专栏收录该内容

27 篇文章

订阅专栏

本文介绍了一种确保应用程序仅能启动一个实例的方法。通过使用Windows API函数CreateMutex和GetLastError来实现这一目标，并展示了如何在登录窗体的OnCreate事件中进行检查。如果程序已经运行，则会显示提示消息并终止新实例的启动。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Interface 
Uses： Windows, Forms

//登录Form OnCreate事件
  if AppRunning = True then
  begin
    Application.MessageBox('对不起，程序已运行！',
      '提示', MB_OK +
      MB_ICONINFORMATION);
    Application.Terminate;
  end;


function AppRunning: Boolean;
var
  hMutex: HWND;
  ret: Integer;
begin
  hMutex := CreateMutex(nil, False, PChar(Application.Title));
  ret := GetLastError;
  Result := ret = ERROR_ALREADY_EXISTS;
  ReleaseMutex(hMutex);
end;