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

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

      代码如下

var
    hMutex: DWORD;
    Ret: Integer;
{以上代码要放在begin..end上}

hMutex := 0;
    try
        hMutex := CreateMutex(nil, False, 'eShapeOfClient'); //TRUE 标明该进程拥有此 Mutex 对象eShapeOfClient为自己的程序文件名或自己定义的任意名称
        Ret := GetLastError;
        if (Ret = ERROR_ALREADY_EXISTS) then //Mutex 对象是否存在
        begin
            ReleaseMutex(hMutex);
            Application.Terminate; //退出程序
        end
        else if hMutex = ERROR_INVALID_HANDLE then
        begin
            InfoDlg('此程序正在运行,关闭后请重新再试！');  //InfoDlg函数是自己定义的，通常用MessgeBox来代替
            Application.Terminate;;
        end;
    finally
        ReleaseMutex(hMutex);
    end;

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