Anwendung durch Prozess-ID killen

[devnull]

HI,

Delphi-Quellcode:

Initialization
  mHandle := CreateMutex(nil,True,'QuickStart2003');
  if GetLastError = ERROR_ALREADY_EXISTS then begin
     //Hier prozedur einfügen, die vorhandene anwendung mit EINDEUTIGER KENNNUMMER 'QuickStart2003'
     //beendet .
     halt;
  end;
finalization
  if mHandle<>0 then CloseHandle(mHandle)

Ich hab nichts gefunden, um das Fenster zu schließen !!!

devnull