防止再次运行同一个应用程序

      防止同时打开多个应用程序的实例，也就是同时只有一个程序在运行，再运行同一个程序时，会自动关闭，以下代码放在项目的.dpr(项目文件)中的Application.Initialize;上面。

      代码如下

var
    hMutex: DWORD;
    Ret: Integer;
    end;

      以上代码没有任何问题，但在运行第二个程序关闭时，也就是Application.Terminate; 会有屏闪，如果改成Exit;好像没有问题。