Mutex und Programm nicht doppelt starten

[hsg]

schickt ihr eine Message und rufe vom Message-Handler dann deine Funktion auf, also in etwa so:

Delphi-Quellcode:

h := 0;
repeat
  h  := FindWindowEx(0,h,'TApplication',PCHar(Application.Title));
until h <> Application.Handle;
if h <> 0 then begin
  Windows.SendMessage(h,SW_USER+4711,0,0);
end;

Achtung: so ins unreine getippt, also Fehler nicht ausgeschlossen