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

防止同时打开多个应用程序的实例，也就是同时只有一个程序在运行，再运行同一个程序时，会自动关闭，以下代码放在项目的.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;好像没有问题。

 

var
  MyHandle: THandle;

begin
  //-----------------------------
  {判断是否已经在运行了一个程序}
  MyHandle := CreateMutex(nil,True,'MySmsTask');//创建互斥句柄
  if GetLastError = ERROR_ALREADY_EXISTS then
  begin
    CloseHandle(MyHandle);//关闭互斥句柄
    Application.Terminate;{终止程序}
    Exit;{退出,如果不加这行会造成程序闪一下再消失}
  end;