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 Problem mit Handles (https://www.delphipraxis.net/45873-problem-mit-handles.html)

Lord_Stifterl 13. Mai 2005 12:19


Problem mit Handles
 
Hallo alle miteinander,

ich habe einige Themen zu meinem Problem gefunden, leider steh ich trotzdem auf der Leitung und komm nicht weiter. Es geht darum, bei einer Message herauszufinden, welcher Text angezeigt wird. Leider weiß ich nicht, ob es sich hierbei um eine Messagebox oder um eine ShowMessage handelt. Ich habs nun anhand der div. Beispiele in den unterschiedlich Threads geschafft, das Handle des Fensters herauszufinden und auch den Text in der Titelleiste auszulesen. Mein Problem ist aber, dass ich es nicht schaffe, das Handle eines Buttons oder des StaticTexts in einer MessageBox herauszufinden. Ich hab mich auch schon in der MSDN umgesehen, aber irgendwie kann ich dem ganzen nicht mehr folgen.

Wenn jemand von euch die Güte hätte mir einen Denkanstoss zu geben, wäre ich euch sehr dankbar.


LG

shmia 13. Mai 2005 12:36

Re: Problem mit Handles
 
Zitat:

Zitat von Lord_Stifterl
Es geht darum, bei einer Message herauszufinden, welcher Text angezeigt wird. Leider weiß ich nicht, ob es sich hierbei um eine Messagebox oder um eine ShowMessage handelt. Ich habs nun anhand der div. Beispiele in den unterschiedlich Threads geschafft, das Handle des Fensters herauszufinden und auch den Text in der Titelleiste auszulesen. Mein Problem ist aber, dass ich es nicht schaffe, das Handle eines Buttons oder des StaticTexts in einer MessageBox herauszufinden. Ich hab mich auch schon in der MSDN umgesehen, aber irgendwie kann ich dem ganzen nicht mehr folgen.

Die Handles der Buttons sind Child-Windows. Du brauchst dazu die API-Funktion EnumChildWindows.
Bevor du dir aber zuviel Mühe machst, empfehle ich dir die Unit EnumWindowUtil.
http://www.delphipraxis.net/internal...ct.php?t=30883
Damit wird es ganz einfach:
Delphi-Quellcode:
var
   windowlist : TWindowList;
   i : integer;
begin
   windowlist := TWindowList.Create;
   windowlist.EnumChildWindows(deinMessageBoxHandle);
   for i:= 0 to windowlist.Count-1 do
   begin
      ShowMessage(windowlist.strings[i]+ ' ---- '+windowlist.ClassNames[i]);
      childhandle := windowlist.Handles[i]; // <- da sind die Handles drin
   end;
end;


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:26 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