Delphi----怎样保证程序只运行一个实例

在project启动文件编辑以下内容，可保证程序只运行一个实例。

var

  mymutex: THandle;
begin
  mymutex := CreateMutex(nil, True, '营收数据自检系统');
  if GetLastError <> ERROR_ALREADY_EXISTS then
  begin
    Application.Initialize;
    Application.Title := '营收数据自检系统';
    Application.CreateForm(TfrmDM, frmDM);
    Application.CreateForm(TfrmLogin, frmLogin);
    Application.CreateForm(TfrmBaseMainInfo, frmBaseMainInfo);
    Application.CreateForm(TfrmEmailUser, frmEmailUser);
    if (frmLogin.Login) or (frmLogin.ShowModal = mrok) then
    begin
      FreeAndNil(frmLogin);
      Application.CreateForm(TfrmMain, frmMain);
      //frmMain.Hide;
    end;
    Application.Run;
  end
  else
  begin
    com.ShowmsgWar('程序已在运行中.', '营收数据自检系统');
  end;
end.

最后

以上就是眼睛大河马为你收集整理的Delphi----怎样保证程序只运行一个实例的全部内容，希望文章能够帮你解决Delphi----怎样保证程序只运行一个实例所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。