delphi – 如何确保我的应用程序的单个实例运行?

在Delphi XE VCL中是否支持确保只有一个应用程序的实例正在运行?

在过去,我已经使用库代码来控制一个似乎很复杂的Mutex。当我在Delphi XE开始一个新项目时,我想知道我是否需要挖掘那个旧的代码,或者是否已经在XE中内置了支持?还是有另一个容易应用的代码是好的和现代的?

我使用JCL来做到这一点:

program MyProgram;

uses
  JclAppInst;

begin
  JclAppInstances.CheckSingleInstance; // Added instance checking
  Application.Initialize;
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
end.

这个文件和通知方案是the JCL Wiki

翻译自:https://stackoverflow.com/questions/5390412/how-to-ensure-only-a-single-instance-of-my-application-runs

转载注明原文:delphi – 如何确保我的应用程序的单个实例运行?