Programm in den Hintergrund setzen bzw. defokusieren

[Tim.exe]

Hallo,

das FormStyle meines Programmes ist standardmäßig auf fsStayOnTop gesetzt.

Klickt man ein Item in einer ListBox an, wird der Text dieses Items in die Zwischenablage kopiert.
Ist dies geschehen, soll das Programm "deaktiviert" bzw. das zuvor aktive Programm soll automatisch den Fokus erhalten.

Mein Programm soll zwar sichtbar bleiben (was ja wegen dem FormStyle auch so ist), aber es soll wenn mindestens ein anderes Programm gerade läuft deaktiviert bzw. dieses andere Programm soll autom. den Focus erhalten.

Im Endeffekt so als wie wenn man ein Item in der ListBox anklickt, man "ALT+Tab" drückt und das zuvor
aktive Programmfenster wieder fokusiert wird.

Jetzt ist die Frage wie der Status des Aktivierens/Deaktivierens heisst.

Form1.Activate bzw. Application.Activate oder Form1.Deactivate bzw. Application.Deactivate geht nicht, da man diesen Status nur lesen und nicht schreiben kann.

Weiss jemand Rat, wie ich nach diesem Doppelklick auf ein ListBox Item den Fokus an ein anderes Programm übergeben kann?

Viele Grüße
Tim

[Tim.exe]

Was ich vergessen hatte, dieses "andere Programm" ist nicht unbekannt, der Name ist bekannt und immer gleichbleibend.

NachDoppelklick auf ein ListBox Item (oder Button, das ist egal) soll also einfach nur das Programm "Beispiel.exe" aktiviert/in den Vordergrund geschoben werden...

Viele Grüsse Tim

[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)