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/)
-   -   Delphi Frage zu SetWindowLong (https://www.delphipraxis.net/145732-frage-zu-setwindowlong.html)

mw19 7. Jan 2010 10:23


Frage zu SetWindowLong
 
Hallo Forum,

ich habe hier ein kleines Problem und verstehe gerade die Welt nicht mehr.

Ich möchte mit meinem Programm ein anderes Programm maximieren und später wieder minimieren. Das Problem bei der Sache ist, dass die fremde Anwender bei der Maximierung nicht in den Vordergrund geholt werden darf. Zudem soll das fremde Programm nicht den Focus bekommen. Der Anwender soll also durch das automatische Maximieren nicht irritiert werden bzw. er soll während dieser Aktion normal weiter arbeiten können, ohne das "seine" Anwendung den Focus verliert.

Ich habe hierzu bereits etwas in der MSDN gesucht, werde daraus jedoch nicht nicht schlau.

Ich habe es mit:
Delphi-Quellcode:
WStyle := GetWindowLong(hTaskbar, GWL_STYLE);

SetWindowLong(hTaskBar, GWL_EXSTYLE, WS_EX_NOACTIVATE);
ShowWindow(hTaskBar, SW_SHOWNOACTIVATE);
versucht für das Maximieren und für das Minimieren verwende ich:
Delphi-Quellcode:
ShowWindow(hTaskBar, SW_SHOWMINNOACTIVE);
SetWindowLong(hTaskBar, GWL_STYLE, WStyle);
WStyle ist vom Typ Integer.
hTaskBar ist das Handle der fremden Anwendung.
Das ganze wird Timergesteuert alle paar Sekunden durchlaufen.

Soweit funktioniert es fast, bei jeder zweiten Maximierung wird das fremde Fenster jedoch im Vordergrund maximiert und nicht im Hintergrund. Ich kann mir derzeit nicht erklären, warum er nicht bei jedem Durchlauf das Fenster im Hintergrund maximiert.

Hat von euch jemand eine Ahnung was ich falsch mache bzw. vergesse ich hier irgend etwas?

Vielen Dank für jeden Hinweis!

Gruß,
Michael

sx2008 7. Jan 2010 13:07

Re: Frage zu SetWindowLong
 
Wenn du ein Bit im Windows Style setzen möchtest, dann sollten die anderen Bits ja nicht verändert werden.
Deshalb müssen die bestehenden Bits "verodert" werden:
Delphi-Quellcode:
WStyle := GetWindowLong(hTaskbar, GWL_STYLE);
SetWindowLong(hTaskBar, GWL_EXSTYLE, WStyle or WS_EX_NOACTIVATE);
Das Rücksetzen sieht dann so aus:
Delphi-Quellcode:
WStyle := GetWindowLong(hTaskbar, GWL_STYLE);
SetWindowLong(hTaskBar, GWL_EXSTYLE, WStyle and not WS_EX_NOACTIVATE);
PS: ich sehe gerade, dass da einmal GWL_STYLE beim Lesen und GWL_EXSTYLE beim Schreiben steht.
Das passt so nicht zusammen.
Beim Lesen müsste auch GWL_EXSTYLE verwendet werden.

mw19 7. Jan 2010 14:12

Re: Frage zu SetWindowLong
 
Danke sx2008 für den Hinweis mit dem "verodert"!

Dein Tipp klappt zwar nicht, aber ich bin damit trotzdem weiter gekommen. Leider aber noch nicht ganz am Ziel.

Maximieren der Fremdanwendung:
Delphi-Quellcode:
WStyle := GetWindowLong(hTaskbar, GWL_EXSTYLE);
SetWindowPos(hTaskBar, HWND_BOTTOM,0,0,0,0, SWP_NOACTIVATE
                                         or SWP_NOMOVE
                                         or SWP_NOSIZE
                                         or SWP_NOZORDER
                                         or SWP_HIDEWINDOW);
ShowWindow(hTaskBar, SW_SHOWNOACTIVATE);
Minimieren der Fremdanwendung:
Delphi-Quellcode:
SetWindowLong(hTaskBar, GWL_EXSTYLE, WStyle);
ShowWindow(hTaskBar, SW_SHOWMINNOACTIVE);
Rein von der Funktionalität her klappt alles wie gewünscht, allerdings bekomme ich jetzt ein unschönes "Flackern" der Fremdanwendung innerhalb der Taskleiste. Anstatt das Programm innerhalb der Taskleiste einfach zu "irgnorieren" scheint Windows es jetzt aus- und direkt wieder einzublenden. Durch das SWP_NOACTIVATE dachte ich dies verhindern zu können. Ausgeblendet wird es wohl durch SWP_HIDEWINDOW. Auf SWP_HIDEWINDOW kann ich aber nicht verzichten, weil die Fremdanwendung sonst bei jedem zweiten Maximieren nicht im Hintergrund, sondern im Vordergrund geöffnet wird und hierdurch auch der Focus auf die Fremdanwendung gesetzt wird.

Hat noch jemand eine Idee wie das "Flacken" in der Taskleiste unterbunden werden kann?

Vielen Dank!


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

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