Fensterinhalt eines anderen Programm übernehmen

[wallwriht]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
textlength: Integer;
wnd:hwnd;
pcwintext:pchar;
begin
wnd:=  Findwindow(nil,'was auch immer');


Memo1.Text:=gettext(wnd);


end;






function Tform1.GetText(Wnd: HWND): string;
var
textlength: Integer;
Text: PChar;
begin
textlength := SendMessage(Wnd, WM_GETTEXTLENGTH, 0, 0);
if textlength = 0 then Result := ''
else
begin
GetMem(Text, textlength + 1);
SendMessage(Wnd, WM_GETTEXT, textlength + 1, Integer(Text));
Result := Text;
FreeMem(Text);
end;
end;

das hab ich jtztmal klappt aber nicht in dem Sinne in dem ich es Will.
Wenn ich zB ICQ bei findwindow reinschreib kommt im Memo ICQ raus aber da soll ja der Fensterinhalt rauskommen... wie mache ich das?

[DeddyH]

Lad Dir WinSpy herunter und lass Dir davon den Code zum Ermitteln des richtigen Handles generieren.

[wallwriht]

Zitat von DeddyH:

Lad Dir WinSpy herunter und lass Dir davon den Code zum Ermitteln des richtigen Handles generieren.

Vielen dank schonmal klappt auch, ich bekomme dann eine Nummer für das Handle, wie muss ich damit weitermachen?

[DeddyH]

Die Nummer ist (hoffentlich) das Handle, welches Du für WM_GETTEXT verwenden kannst.

[wallwriht]

Zitat von DeddyH:

Die Nummer ist (hoffentlich) das Handle, welches Du für WM_GETTEXT verwenden kannst.

Gut danke....

Delphi-Quellcode:

function Tform1.GetText(Wnd: HWND): string;
var
textlength: Integer;
Text: PChar;
begin
textlength := SendMessage(Wnd, WM_GETTEXTLENGTH, 0, 0);
if textlength = 0 then Result := ''
else
begin
GetMem(Text, textlength + 1);
SendMessage(Wnd, WM_GETTEXT, textlength + 1, Integer(Text));
Result := Text;
FreeMem(Text);
end;
end;

Das ist die Funktion mit der ich das gettext benutzen will. das Ergebnis ist aber '';
also leer.

[DeddyH]

Und Du hast auch ganz sicher das richtige Handle? Bist Du einmal durchgesteppt und hast Dir die aktuellen Werte angeschaut?

[Luckie]

Mit FindWindow findest du nur das Toplevelfenster eine Memo ist aber kein Toplevelfenster. Wenn du das Handle hast, musst du mit FindWindowEx das Handle des Childwindows finden und dieses dann für SendMessage verwenden.