Text aus TMessageForm

[Computerbabalulu]

Hi :hi:

Delphi-Quellcode:

procedure TForm1.EventTimer(Sender: TObject);
var
         wnd  : HWND;
   
begin
  wnd :=  FindWindow('TMessageForm', 'xxx');
  if wnd <> 0 then
  begin
   .............

Ich prüfe mit oben stehendem Code ob ein Programm eine Fehlermeldung ausgegeben hat.
Das Funktioniert auch soweit. Wie komme ich jetzt an den Fehler Text :gruebel:
Jemand ne Idee? Sthe wohl etwas auf der Leitung....


Gruß Frank

[Ultimator]

Ich fürchte gar nicht, denn die Fehlermeldung ist vermutlich ein normales Label und hat somit kein Windows-Handle :pale:

[Dax]

Ein Label ist vom Windows-Typ STATIC und wird mit CreateWindow oder CreateWindowEx erstellt, hat also ein Windows-Handle. Du musst nur die ID des Labels herausfinden, mit EnumChildWindows durch das Zielfenster gehen und dir mit GetWindowText den Text des "Fensters" mit der entsprechenden ID holen.. Klingt kompliziert, ist aber ganz einfach ;)

[Computerbabalulu]

Hi

Danke für die Antworten...!

@Dax...> Hast du vielleicht ein kleines Beispiel für mich :oops:

Gruß Frank

[Dax]

Am besten siehst du dir mal Luckies und Assarbads Tutorials an, die sind da besser geeignet als ich. ;)

[Computerbabalulu]

Danke, werde ich mir ansehen!!

Gruß Frank

[Computerbabalulu]

:gruebel:

Mh.. das hat mir nicht wirklich geholfen.
Kann mir das bitte einer mal genauer erklären :oops:

Gruß Frank

[d3g]

Du wolltest ein Beispiel: EnumChildWindows