Verhindern das die gleich Exe gestartet wird

[meisteralex]

Delphi-Quellcode:

unit mulex; 

interface 

implementation 

uses windows,Dialogs,sysutils; 

var mHandle: THandle;   

Initialization 
  mHandle := CreateMutex(nil,True,paramstr(0)); 
  // 'xxxxx' Der Anwendungsname ist hier einzutragen 
  if GetLastError = ERROR_ALREADY_EXISTS then begin    
    // Anwendung läuft bereits 
    showMessage('Anwendung läuft bereits!!!!!');   
   
    Halt; 
  end; 

finalization  
  if mHandle <> 0 then 
    CloseHandle(mHandle) 
end. {Dieter Hirt}

So das ist mein Code und trotzdem lässt sich eine EXE in meinem falle ist das (C:\hey.exe) 2x starten, bziehungsweise beliebig oft starten