Hallo Christian danke für die schnelle Hilfe. Leider weis ich nicht genau wie ich das mit GetClassName umsetzen soll. Eigentlich befinde ich mich ja in der Funktion GETTXT schon im richtigen Fenster
Delphi-Quellcode:
// globale Variablen
searchNr : Integer;
gewuenschteNr : Integer;
iWindow : THandle;
function GETTXT(
Handle: THandle; RichEdit: TRichEdit): Boolean;
stdcall;
begin
if Assigned(RichEdit)
and (searchNr = gewuenschteNr)
then
begin
SendMessage(
Handle, WM_GETTEXT, 0, integer(PChar(RichEdit.Text)));
Result := false;
end
else
begin
Result := true;
Inc(searchNr);
end;
end;
ich muss denk ich mal nur mit
EnumChildWindows(iWindow, @GETTXT,//hier weis ich nicht weiter den Inhalt in ein Memo oder Richedit schreiben
MFG: DelphiUser