Focus nicht abgeben

[Berni68]

Hallo zusammen,

hat jemand eine Idee, wie man folgendes Problem einfach lösen kann:

Mit

Delphi-Quellcode:

ShellExecute(0, 'open', PChar('rundll32.exe'), PChar('shimgvw.dll,ImageView_Fullscreen ' + h), '', SW_SHOWMAXIMIZED);

kann man die Windows Bild- und Faxanzeige gut starten. (h ist der Dateiname eines .jpg)
Allerding hat nun die Windows Bild- und Faxanzeige den Eingabefocus.
Das aktive Programm soll allerdings das aufrufende Delphiprogramm bleiben.

Vielen Dank schon mal.

[mkinzler]

Hole dir den Focus anschliessend zurück.

[Apollonius]

SW_SHOWMAXIMIZED bedeutet, dass das Programm sich in den Vordergrund schieben soll. Du kannst es mal mit SW_MAXIMIZE probieren.

[Berni68]

Das mit SW_MAXIMIZE geht nicht, hab ich alles schon ausprobiert.

Auf die Idee mit dem Focus zurückholen bin ich auch schon gekommen,
aber wenn ich wüsste wie das geht, hätte ich die Frage denke ich nicht gestellt.

Rein intuitiv fällt mir dazu ein:
Application.SetFocus, oder Self.SetFocus

Leider gibt es diese Procedures nicht;

ABER WIE GEHT DANN???

[mkinzler]

Delphi-Quellcode:

Application.BringToFront;

[Berni68]

Vom Prinzip her gute Idee, bloß es geht nicht!

Liegt wohl daran, daß das aufgerufene Programm den Befehl BringToFront 'etwas' später sendet.
Man könnte zwar mit Wait eine Notlösung basteln, aber...

Ich wüsste gerne wie man das richtig macht.