Wie gesagt möchte ja das Fenster auslesen und in ein Memo übertragen also hab ich die Funktion verändert
Delphi-Quellcode:
/----------------------
function GETTXT(
Handle: THandle; Memo: TMemo): Boolean;
stdcall;
begin
if Assigned(Memo)
and (searchNr = gewuenschteNr)
then
begin
SendMessage(
Handle, WM_GETTEXT, 0, Integer(PChar(Memo.Text)));
Result := false;
end
else
begin
Result := true;
Inc(searchNr);
end;
end;
//-----------------------
procedure TForm1.GetTextBtnClick(Sender: TObject);
begin
// Fenster suchen.
iWindow := FindWindow(
nil, PChar('
entsprechende Fensterbezeichnung');
searchNr := 0;
gewuenschteNr := 5;
// jetzt möchte ich aber Auslesen und in Memo1 schreiben
EnumChildWindows(iWindow, @EnumWindowsProc, LongWord(Memo1.Text));
SendMessage(iWindow,WM_KEYDOWN,VK_RETURN, 0);
SendMessage(iWindow,WM_KEYUP,VK_RETURN, 0);
end;
Bin ich den jetzt überhaupt auf dem richtigen Wege
