N'avoir qu'une seule instance d'un programme

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
    {
    HANDLE hMutex;
    try
        {
        // Vérifie si instance précédente existe déjà
        hMutex = CreateMutex (NULL,FALSE,'NomLogiciel');

        if ( (hMutex == NULL) || (GetLastError() == ERROR_ALREADY_EXISTS) )
            {
            CloseHandle(hMutex);  //--- Fermeture du Mutex
            ShowMessage('Une instance du logiciel existe déjà !');
            return 0;
            }

        Application->Initialize();
        Application->Run();
        }

    catch (Exception &exception)
        {
        Application->ShowException(&exception);
        }
    }