以编程方式重启Delphi应用程序

Question

不应该运行我的应用程序的多个实例.因此项目源包含:

CreateMutex (nil, False, PChar (ID));
if (GetLastError = ERROR_ALREADY_EXISTS) then
  Halt;

现在我想以编程方式重新启动我的应用程序.通常的方式是:

AppName := PChar(Application.ExeName) ;
ShellExecute(Handle,'open', AppName, nil, nil, SW_SHOWNORMAL) ;
Application.Terminate;

但是由于互斥锁,这在我的情况下不起作用.即使我在启动第二个instace之前释放互斥锁也无法工作,因为shutdown需要一些时间并且两个实例不能并行运行(因为常见的资源和其他影响).

有没有办法重新启动具有这些特征的应用程序？(如果没有额外的可执行文件可能)

提前致谢.

Answer 1

也许你应该跳出框框思考.您可以简单地创建另一个可执行文件,等待您的应用程序关闭然后再次启动它,而不是使用互斥锁/实例逻辑.作为一个额外的好处,您可以稍后使用此机制,例如,更新您的一些主应用程序的二进制文件.它也更容易运行升级而不是在同一个应用程序内维护不同的完整性级别等.