Erkennen, falls Programm bereits aktiv

[Sharky]

Hai Hansa,

ich habe das einfach über einen Mutex gelöst:

Code:

var
 mHandle            : THandle;

begin
 mHandle := CreateMutex(nil, True, '{13971189-D133-4D62-9510-AF8EACD8E366}');
 if GetLastError = ERROR_ALREADY_EXISTS then
  begin
   ShowMessage('Die Anwendung wird bereits ausgeführt!');
   if mHandle <> 0 then
    CloseHandle(mHandle)
  end
 else
  begin
   Application.Initialize;
  end;
end.