ich versuche gerade meine eigene anwendung zum test bei einem 2. start zu beenden. dazu suche ich das
handle meiner anwendung BEVOR es gestartet wird.
wurde das fenster gefunden bedeutet das, dass meine anwendung bereits offen ist. also sende ich eine message mit SC_CLOSE.
Delphi-Quellcode:
begin
hExisting := FindWindow('TMeinTestForm', nil);
if hExisting <> 0 then
begin
SetForegroundWindow(hExisting);
SendMessage(hExisting, WM_SYSCOMMAND, SC_CLOSE, 0);
Halt(1);
end;
Application.Initialize;
// ...
auf meiner form ist ein TApplicationEvent und dort steht im OnMessage-Event:
Delphi-Quellcode:
if Msg.message = WM_SYSCOMMAND then
if Msg.wParam = SC_CLOSE then
showmessage('X');
sollte ich bei einem zweiten start meines programms nicht ein "X" zu sehen bekommen?