Datasnap - 阻止用户运行其他实例

Question

如果Datasnap服务器的一个实例正在运行，尝试打开另一个实例会崩溃第二个实例。如何防止用户打开多个datasnap服务器实例？

创建服务器应用程序时：

Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TServerContainer1, ServerContainer1);
  Application.Run;

我尝试将LMDOneInstance放在Form1上，但服务器仍然保持打开另一个实例（在Windows任务管理器中可见）。它不会使新创建的实例崩溃，但它只会创建另一个进程。

Answer 1

将JvAppInstance放在数据模块上，它将处理剩下的工作。