防止程序重复运行

来源：互联网发布：数据库读写分离的原理编辑：程序博客网时间：2024/04/30 01:19

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("Unit1.cpp", Form1);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
//*******改动******
HWND hMutex;
try{
//尝试打开此程序特有的Mutex识别对象
hMutex = OpenMutex(MUTEX_ALL_ACCESS,0,"防止程序重复运行");
//若成功,则表示已有此程序正在执行中
//将此程序获得焦点或提到最前面即可
if (hMutex)
{ //寻找程序名称,返回handle
    HWND han = FindWindow(NULL,"Form1");
    if (han)
    { //提示已经重复打开此程序
      ShowMessage("此程序重复打开!");
      //取得显示在桌面的Form1窗口的handle,并提到最前面
      HWND TophWnd = GetTopWindow(han);
      if (TophWnd)
        ::SetForegroundWindow(TophWnd);
      else
        ::SetForegroundWindow(han);
    }
    return 1;
}
//若此程序无特有的Mutex识别对象,则建立一新识别对象
else
    CreateMutex(0,0,"防止程序重复运行");
//*****************
        try
        {
                 Application->Initialize();
                 Application->CreateForm(__classid(TForm1), &Form1);
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        catch (...)
        {
                 try
                 {
                         throw Exception("");
                 }
                 catch (Exception &exception)
                 {
                         Application->ShowException(&exception);
                 }
        }
//******改动******
}
//程序结束时,释放Mutex识别对象
__finally
{
::ReleaseMutex(hMutex);
}
//****************
        return 0;
}
//---------------------------------------------------------------------------
//*************附加:FindWindowEx函数******************
// HWND FindWindowEx( HWND hwndParent, //父窗体句柄
//                     HWND hwndChildAfter, //子窗体或控件句柄
//                     LPCTSTR lpszClass, //查找窗体的类名
//                     LPCTSTR lpszWindow //查找窗体的标题
//                    );
//*****************************************************