[CB] Mutex 를 이용한 실행중복 방지

[2013-07-01] 최근 버전에서는 TMutex 를 이용하여 간단하게 할 수 있다.

#include <System.SyncObjs.hpp>

SECURITY_ATTRIBUTES SecAttr;

char SecDesc[[SECURITY_DESCRIPTOR_MIN_LENGTH];

SecAttr.nLength = sizeof(SecAttr);

SecAttr.bInheritHandle = FALSE;

SecAttr.lpSecurityDescriptor = &SecDesc;

::InitializaSecurityDescriptor(SecAttr.lpSecurityDescriptor, SECURITY_DESCRIPTOR_REVISION);

::SetSecurityDescriptorDacl(SecAttr.lpSecurityDescriptor, TRUE, 0, FALSE);

try {

    TMutex *pMutex = new TMutex(&SecAttr, true, AMutexName, false);

} catch (...) {

    return 0;
}

if (pMutex->WaitFor(100) != wrSignaled)

    return 0;

// TODO: Something

pMutex->Release();

delete pMutex;

_uMutex.h

_uMutex.cpp

[2013-06-11] 사용상의 편의 문제로 코드를 수정

프로젝트 소스코드를 수정합니다.

앞 부분 추가

#include "Mutex.h" const TCHAR MutexName[] = __TEXT("뮤텍스이름"); const TCHAR ClassNames[][MAX_CLASS_NAME] = {     __TEXT("기타폼클래스명"),     __TEXT("메인폼클래스명"), };

WinMain 적용

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) {         MUTEX_EXISTS(sMutexName)          // 추가             Mutex::SetActiveWindows(sClassNames, sizeof(sClassNames) / sizeof(sClassNames[0]));          // 추가         MUTEX_FAILED(sMutexName)          // 추가             ::MessageBox(::GetDesktopWindow(), "리소스 부족", "Error", MB_ICONERROR | MB_OK);          // 추가         MUTEX_PROCESS          // 추가     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_END          // 추가

    return 0;
}