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

[mjustin]

Einfachste Lösung:

Delphi-Quellcode:

program ProjectMutex;

{$APPTYPE CONSOLE}

uses
  Windows;

var
  mHandle: THandle;
begin
  mHandle := CreateMutex(nil, True, '979246B5-A7CA-7E5F-A01C-8034E778B70C');
  if GetLastError = ERROR_ALREADY_EXISTS then
  begin
    Halt;
  end;

   // machwas
   ReadLn;

   if mHandle <> 0 then
     CloseHandle(mHandle);

end.

Andere Lösung: eine Unit schreiben, die man im Projekt möglichst weit oben in der uses-Liste angibt. Darin wie bisher mit initialization und finalization arbeiten.

[lockbox]

Wuii mjustin danke für die schnelle Antwort Wobei.. da hätte ich auch als Anfänger selbst drauf kommen müssen. Gruß.

[SirThornberry]

fallen initialization und finalization in Konsolenanwendungen wirklich weg?

[mjustin]

Zitat von SirThornberry:

fallen initialization und finalization in Konsolenanwendungen wirklich weg?

In der dpr Datei kann man sie nicht verwenden ... aber in einer verwendeten Unit natürlich schon