AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) Oberstes Fenster einer Applikation ermitteln
Thema durchsuchen
Ansicht
Themen-Optionen

Oberstes Fenster einer Applikation ermitteln

Ein Thema von DeddyH · begonnen am 16. Sep 2011
Antwort Antwort
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
 
Delphi 12 Athens
 
#1

Oberstes Fenster einer Applikation ermitteln

  Alt 16. Sep 2011, 12:11
Ich möchte ermitteln, welches Fenster eines bestimmten Programms in der Z-Order zuoberst steht, und zwar unabhängig vom Typ. Das Handle des Hauptfensters habe ich, weiterhin das eines modalen Dialogs, und möchte nun wissen, ob dieser Dialog evtl. von einem anderen Fenster derselben Applikation verborgen wird. Alle meine Versuche mit GetWindow oder GetTopWindow waren bislang nicht von Erfolg gekrönt, da diese "typabhängig" arbeiten.
Zitat:
GW_HWNDFIRST

The retrieved handle identifies the window of the same type that is highest in the Z order.

If the specified window is a topmost window, the handle identifies a topmost window. If the specified window is a top-level window, the handle identifies a top-level window. If the specified window is a child window, the handle identifies a sibling window.
Was übersehe ich da bloß?

[edit] So scheint es zu funktionieren:
Delphi-Quellcode:
function IsAppTopWindow(aWnd: HWnd; aThreadID: DWORD): Boolean;
var
  NextWnd: HWnd;
  NextThreadID: DWORD;
begin
  Result := true;
  NextWnd := GetWindow(aWnd, GW_HWNDPREV);
  while Result and (NextWnd <> 0) do
    begin
      NextThreadID := GetWindowThreadProcessID(NextWnd);
      if (NextThreadID = aThreadID) and IsWindowVisible(NextWnd) then
        Result := false
      else
        NextWnd := GetWindow(NextWnd, GW_HWNDPREV);
    end;
end;
Wer will, kann die ThreadID des übergebenen Fensters auch innerhalb der Funktion ermitteln, ich hatte das bereits erledigt. [/edit]
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen

Geändert von DeddyH (16. Sep 2011 um 17:36 Uhr)
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:07 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