Mehrfaches ausführen von Konsolenanwendung verhindern /Mutex

[lockbox]

Hallo DP,

Ich verwende seit einer Weile folgenden Code um mehrfaches ausführen meiner Programme zu verhindern.

Delphi-Quellcode:

Initialization
   mHandle := CreateMutex(nil, True, '979246B5-A7CA-7E5F-A01C-8034E778B70C');
     if GetLastError = ERROR_ALREADY_EXISTS then
     begin
       Halt;
end;
finalization
   if mHandle <> 0 then
     CloseHandle(mHandle);
end.

Jetzt möchte ich eines dieser Programme als Konsolenanwendung umsetzten. Und dieses sollte auch nicht mehrfach ausführbar sein.
Wie mach ich das nun am besten o.O initialization und finalization fallen ja weg