程序只运行一次的方法

一、通过创建互斥量来判断： 
WINAPI   WinMain(HINSTANCE,   HINSTANCE,   LPSTR,   int) 
{ 
        try 
        { 
                Application-> Initialize(); 
                HANDLE   hMutex   =   CreateMutex(NULL,   TRUE,   "MyAppMutex "); 
                if(NULL   ==   hMutex) 
                { 
                            MessageBox(NULL,   "创建Mutex失败! ", 
                                            Application-> Title.c_str(),   MB_OK   |   MB_SYSTEMMODAL); 
                            return   0; 
                } 
                if(GetLastError()   ==   ERROR_ALREADY_EXISTS) 
                { 
                        ::MessageBox(NULL,   "已经运行了一个实例! ", 
                                        Application-> Title.c_str(),   MB_OK   |   MB_SYSTEMMODAL); 
                        ReleaseMutex(hnd); 
                        return   0; 
                } 
                Application-> CreateForm(__classid(TForm1),   &Form1); 
                Application-> Run(); 
        } 
        catch   (Exception   &exception) 
        { 
                Application-> ShowException(&exception); 
        } 
        return   0; 
} 
二、用系统原子 
WINAPI   WinMain(HINSTANCE,   HINSTANCE,   LPSTR,   int) 
{ 
        const   char   *Atom   =   "SingleApp "; 
        try 
        { 
                  if   (GlobalFindAtom(Atom)   !=   0)   //   在系统原子表中找原子 
                  { 
                          ::MessageBox(NULL,   "已经运行了一个实例! ", 
                                  Application-> Title.c_str(),   MB_OK   |   MB_SYSTEMMODAL); 
                          return   0; 
                  } 
                  GlobalAddAtom(Atom);   //   增加原子 
                  Application-> Initialize(); 
                  Application-> CreateForm(__classid(TForm1),   &Form1); 
                  Application-> Run(); 
        } 
        catch   (Exception   &exception) 
        { 
                  Application-> ShowException(&exception); 
        } 
        GlobalDeleteAtom(GlobalFindAtom(Atom));   //   删除原子 
        return   0; 
} 
三、通过FindWindow函数来判断： 
WINAPI   WinMain(HINSTANCE,   HINSTANCE,   LPSTR,   int) 
{ 
        try 
        { 
                HWND   hForm   =   FindWindow( "TForm1 ",   "Form1 "); 
                if(NULL   !=   hForm) 
                { 
                        ::MessageBox(NULL,   "已经运行了一个实例! ", 
                                        Application-> Title.c_str(),   MB_OK   |   MB_SYSTEMMODAL); 
                        return   0; 
                } 
                Application-> Initialize(); 
                Application-> CreateForm(__classid(TForm1),   &Form1); 
                Application-> Run(); 
        } 
        catch   (Exception   &exception) 
        { 
                  Application-> ShowException(&exception); 
        } 
        return   0; 
} 
四、通过内存映射来还原窗口： 
PHANDLE   lpMainWin; 
HANDLE   hMap; 
bool   bExist; 

WINAPI   WinMain(HINSTANCE,   HINSTANCE,   LPSTR,   int) 
{ 
        hMap   =   CreateFileMapping( 
                (HANDLE)0xFFFFFFFF,   //   要映射的文件名，使用0xFFFFFFFF是说明不使用真实文件，而是在页面文件上创建内存 
                NULL,   //   安全属性 
                PAGE_READWRITE,   //   访问权限，读写都要 
                0,   //   最大内存的高位 
                4,   //   最大内存的低位，最大内存有4字节就够了，只需要放一个窗体的句柄 
                "MyProjectFlag "   //   映射名字，这个应该是本程序独有的，和其他程序不冲突，由调用者传进来 
                ); 
        bExist   =   GetLastError()   ==   ERROR_ALREADY_EXISTS; 
        //   创建一个文件映射的访问 
        lpMainWin   =   (PHANDLE)MapViewOfFile( 
                hMap,   //   文件映射的句柄 
                FILE_MAP_ALL_ACCESS,   //   访问权限，读写都要，这个要和文件映射的权限兼容 
                0,   //   偏移量的高位 
                0,   //   偏移量的低位 
                4   //   要映射的字节数 
                ); 
        if(lpMainWin   ==   NULL) 
                bExist   =   false; 
        if(bExist) 
        { 
                if(!IsWindowVisible(*lpMainWin)) 
                        //   如果最小化状态就将窗体恢复 
                        PostMessage(*lpMainWin,   WM_SYSCOMMAND,   SC_RESTORE,   0); 
                //   窗体置前 
                SetForegroundWindow(*lpMainWin); 
                BringWindowToTop(*lpMainWin); 
                UnmapViewOfFile(lpMainWin); 
                return   0; 
        } 

        try 
        { 
                  Application-> Initialize(); 
                  Application-> CreateForm(__classid(TForm1),   &Form1); 
                  *lpMainWin   =   Application-> MainForm-> Handle; 
                  Application-> Run(); 
        } 
        catch   (Exception   &exception) 
        { 
                  Application-> ShowException(&exception); 
        } 
        catch   (...) 
        { 
                  try 
                  { 
                          throw   Exception( " "); 
                  } 
                  catch   (Exception   &exception) 
                  { 
                          Application-> ShowException(&exception); 
                  } 
        } 
        //   关闭映射的访问 
        UnmapViewOfFile(lpMainWin); 
        return   0; 
}