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)
