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。