Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Fremdes Fenster in den Vordergrund bringen in Windows 10 (https://www.delphipraxis.net/193498-fremdes-fenster-den-vordergrund-bringen-windows-10-a.html)

Markus Effenberger 7. Aug 2017 08:23

Fremdes Fenster in den Vordergrund bringen in Windows 10
 
Guten Morgen zusammen!

Komme gerade bei einem kleinen "Phänomen" nicht weiter ;) Vielleicht weiß ja jemand von Euch eine Lösung? In diesem Fall wird leider noch Delphi 7 benutzt.

Und zwar soll ein Fenster einer Fremdanwendung (in meinem Fall ein Browser-Tab) in den Vordergrund gebracht werden. Dafür gab's ursprünglich den Befehl SetForegroundWindow. Dieser funktionierte ab Windows 7 nicht mehr. Deshalb gab es dann eine "Überarbeitung", mit der es für Windows 7 wieder funktionierte. Nun ist mir aufgefallen, dass dieser Code aber ab Windows 10 wieder nicht funktioniert.

Frage: Weiß jemand, was man abändern muss, damit der Code ein Fremdfenster (z.B. ein Browsertab) unter Windows 10 in den Vordergrund bringen kann? :?:

Delphi-Quellcode:
procedure SetForegroundWindowEx(Wnd: HWND);
var
       Attached: Boolean;
       ThreadId: DWORD;
       FgWindow: HWND;
       AttachTo: DWORD;
begin                  
    Attached := False;
    ThreadId := GetCurrentThreadId;
    FgWindow := GetForegroundWindow();
    AttachTo := GetWindowThreadProcessId(FgWindow, nil);
   if (AttachTo <> 0) and (AttachTo <> ThreadId) then
    if AttachThreadInput(ThreadId, AttachTo, True) then
       begin
         Attached := Windows.SetFocus(Wnd) <> 0;
         AttachThreadInput(ThreadId, AttachTo, False);
       end;
   if not Attached then
      begin
          SetForegroundWindow(Wnd);
          SetFocus(Wnd);
      end;
end;  // von setforegroundWindowEx

//Aufruf mit:
SetForegroundWindowEx(Handle);
Als Handle übergebe ich in diesem Fall immer das Handle des Browser-Tabs. Das führt dann dazu, dass man zwischen Tabs "hin- und herspringen" kann, um dem Benutzer z.B. etwas vorzuführen, wobei man verschiedene Tabs braucht. - Unter Windows 10 funktioniert der Code leider nicht mehr :cry:


Markus

jaenicke 7. Aug 2017 09:06

AW: Fremdes Fenster in den Vordergrund bringen in Windows 10
 
Guten Morgen Markus,

in der Doku zu SetForegroundWindow findest du die Restriktionen, die dort gelten:
https://msdn.microsoft.com/de-de/lib.../ms633539.aspx

Diese Restriktionen gibt es auch aus gutem Grund. Der Benutzer soll nicht bei seiner Arbeit gestört werden.

Du hast von "vorführen" gesprochen. Muss es denn ein externer Browser sein? Ich meine es gibt ja auch die Möglichkeit z.B. Chromium in die eigene Anwendung einzubetten und die Webinhalte direkt gesteuert anzuzeigen.

Der schöne Günther 7. Aug 2017 09:23

AW: Fremdes Fenster in den Vordergrund bringen in Windows 10
 
Ich denke deshalb der Hack mit dem AttachThreadInput - Hätte der Browser den letzten Benutzer-Input bekommen würde seine Anwendung mit zur gleichen Thread-Input-Queue zählen und hätte auch das Recht, das Vordergrund-Fenster zu ändern. Zumindest denke ich dass das die Motivation ist, gesehen habe ich das auch noch nie.

Deshalb hilft das wahrscheinlich auch nur zufällig wenn gerade das Browser-Tab an das man sich gekettet hat den letzten Input bekommen hat.

himitsu 7. Aug 2017 10:48

AW: Fremdes Fenster in den Vordergrund bringen in Windows 10
 
Dein Programm hat gerade den Eingabefokus?
Dann solltes es auch so "irgendein" Fenster in den Fordergrund bringen dürfen.

Aber weil in den erwähnten Restriktionen was von "Modern Application" zu lesen war ...
Es gibt zwei mehrere Versionen des Windows-Browsers.
32 und 64 Bit und vorallem als "normale" Anwendung (Win32-API) und dann nochmal als "Modern Application" (WinRT).


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:09 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz