Programm in den Hintergrund setzen bzw. defokusieren

[Sunlight7]

Start->Ausführen: Tim.exe

Damit sollte Dein Problem gelöst sein:

Delphi-Quellcode:

// Anmerkung: Ist das in Current übergebene Handle ein Top-Level Fenster
//            wird nach Top-Levels gesucht andernfalls nach normalen Fenstern.

procedure GetPreviousApp(Current:THandle);
   var Wnd:THandle;
begin
   Wnd:=GetNextWindow(Current, GW_HWNDNEXT);
   Wnd:=GetNextWindow(Wnd, GW_HWNDNEXT);
   BringWindowToTop(Wnd);
end;

Menü->Schließen (Tim.exe)