HANDLE hMutex = CreateMutex(NULL, false, "Process");
         if (GetLastError() == ERROR_ALREADY_EXISTS)
         {
            CloseHandle(hMutex);
            MessageBox(Application->Handle, "程序已經(jīng)在運(yùn)行中，不能重復(fù)啟動(dòng)！", "提示", MB_OK +MB_ICONWARNING);
            Application->Terminate();
            return 0;
         }
         Application->CreateForm(__classid(TForm1), &Form1);

void *handle = FindWindow(NULL, WindowName.c_str()); 
if (handle!=NULL)
    return 0; 

進(jìn)程的互斥運(yùn)行

　　正常情況下，一個(gè)進(jìn)程的運(yùn)行一般是不會(huì)影響到其他正在運(yùn)行的進(jìn)程的。但是對(duì)于某些有特殊要求的如以獨(dú)占方式使用串行口等硬件設(shè)備的程序就要求在其進(jìn)程運(yùn)行期間不允許其他試圖使用此端口設(shè)備的程序運(yùn)行的，而且此類程序通常也不允許運(yùn)行同一個(gè)程序的多個(gè)實(shí)例。這就引出了進(jìn)程互斥的問題。

　　實(shí)現(xiàn)進(jìn)程互斥的核心思想比較簡(jiǎn)單：進(jìn)程在啟動(dòng)時(shí)首先檢查當(dāng)前系統(tǒng)是否已經(jīng)存在有此進(jìn)程的實(shí)例，如果沒有，進(jìn)程將成功創(chuàng)建并設(shè)置標(biāo)識(shí)實(shí)例已經(jīng)存在的標(biāo)記。此后再創(chuàng)建進(jìn)程時(shí)將會(huì)通過該標(biāo)記而知曉其實(shí)例已經(jīng)存在，從而保證進(jìn)程在系統(tǒng)中只能存在一個(gè)實(shí)例。具體可以采取內(nèi)存映射文件、有名事件量、有名互斥量以及全局共享變量等多種方法來實(shí)現(xiàn)。下面就分別對(duì)其中具有代表性的有名互斥量和全局共享變量這兩種方法進(jìn)行介紹：

// 創(chuàng)建互斥量
HANDLE m_hMutex = CreateMutex(NULL, FALSE, "Sample07");
// 檢查錯(cuò)誤代碼
if (GetLastError() == ERROR_ALREADY_EXISTS) {
　// 如果已有互斥量存在則釋放句柄并復(fù)位互斥量
　CloseHandle(m_hMutex);
　m_hMutex = NULL;
　// 程序退出
　return FALSE;
}

上面這段代碼演示了有名互斥量在進(jìn)程互斥中的用法。代碼的核心是CreateMutex（）對(duì)有名互斥量的創(chuàng)建。CreateMutex（）函數(shù)可用來創(chuàng)建一個(gè)有名或無名的互斥量對(duì)象，其函數(shù)原型為：

HANDLE CreateMutex(
　LPSECURITY_ATTRIBUTES lpMutexAttributes, // 指向安全屬性的指針
　BOOL bInitialOwner, // 初始化互斥對(duì)象的所有者
　LPCTSTR lpName // 指向互斥對(duì)象名的指針
);

如果函數(shù)成功執(zhí)行，將返回一個(gè)互斥量對(duì)象的句柄。如果在CreateMutex（）執(zhí)行前已經(jīng)存在有相同名字的互斥量，函數(shù)將返回這個(gè)已經(jīng)存在互斥量的句柄，并且可以通過GetLastError（）得到錯(cuò)誤代碼ERROR_ALREADY_EXIST。可見，通過對(duì)錯(cuò)誤代碼ERROR_ALREADY_EXIST的檢測(cè)可以實(shí)現(xiàn)CreateMutex（）對(duì)進(jìn)程的互斥。

        建立互斥體，用來同步。如果一個(gè)線程獲取了互斥體，則要獲取該互斥體的第二個(gè)線程將被掛起，直到第一個(gè)線程釋放該互斥體。

參數(shù)
lpMutexAttributes
指向一個(gè)SECURITY_ATTRIBUTES結(jié)構(gòu)的指針，這個(gè)結(jié)構(gòu)決定互斥體句柄是否被子進(jìn)程繼承。    
bInitialOwner
布爾類型，決定互斥體的創(chuàng)建者是否為擁有者
lpName
指向互斥體名字字符串的指針。互斥體可以有名字。
互斥體的好處是可以在進(jìn)程間共享

心得體會(huì)：
    CreateMutex() 用于有獨(dú)占要求的程序 (在其進(jìn)程運(yùn)行期間不允許其他使用此端口設(shè)備的程序運(yùn)行，或不允許同名程序運(yùn)行)。如有同名程序運(yùn)行，則通過 GetLastError（）得到錯(cuò)誤代碼 ERROR_ALREADY_EXIST。

剛才又執(zhí)行了下得出的結(jié)果（程序名samp）
       一般情況下：一進(jìn)入調(diào)試階段，進(jìn)程管理器中就出現(xiàn)了samp進(jìn)程，執(zhí)行到CreateMutex時(shí)返回進(jìn)程句柄，執(zhí)行到if(GetLastError() == ERROR_ALREADY_EXISTS ) 進(jìn)行判斷時(shí)，跳過不執(zhí)行if中的內(nèi)容，所以表示沒有互斥。
       調(diào)試之前先運(yùn)行debug中的samp.exe再調(diào)試：一進(jìn)入調(diào)試階段，進(jìn)程管理器中就出現(xiàn)了兩個(gè)samp進(jìn)程，執(zhí)行到CreateMutex時(shí)返回進(jìn)程句柄，執(zhí)行到if(GetLastError() == ERROR_ALREADY_EXISTS ) 進(jìn)行判斷時(shí)，執(zhí)行if中的內(nèi)容，表示有互斥。