Delphi XE让应用程序同时只运行一个的方法

如果想让DELPHI应用程序在一台电脑上只运行一次，最便捷的方法就是建立互斥变量。

在工程文件中加入一下代码进行改造就可以。

{$R *.res}
var
    hAppMutex: THandle;       //声明互斥变量
begin
   hAppMutex := CreateMutex(nil, false,'SeiFusionDataServer'); //创建互斥对象projectname工程名称
   if((hAppMutex <> 0) and (GetLastError() = ERROR_ALREADY_EXISTS)) then
   begin   // hAppMutex <> 0 说明互斥对象创建成功
      Application.MessageBox('程序已经运行, 按确定关闭此窗口!','提示!', MB_OK);
   end
   else
   begin
      Application.Initialize;
      Application.MainFormOnTaskbar := True;
      TStyleManager.TrySetStyle('Slate Classico');
      Application.Title := 'SeiFusion融合通信数据中心系统';
      Application.CreateForm(TDataMdl, DataMdl);
      Application.CreateForm(TFrmMain, FrmMain);
      Application.CreateForm(TfrmSplash, frmSplash);
      frmSplash.Show;
      frmSplash.Update;
      while frmSplash.AlphaBlendValue > 10 do
      begin
         frmSplash.AlphaBlendValue := frmSplash.AlphaBlendValue - 3;
         Sleep(15);
      end;
      frmSplash.Free;
      Application.Run;
   end;
end.

最后

以上就是朴素钥匙为你收集整理的Delphi XE让应用程序同时只运行一个的方法的全部内容，希望文章能够帮你解决Delphi XE让应用程序同时只运行一个的方法所遇到的程序开发问题。

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