Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.620 Beiträge
Delphi 12 Athens
|
AW: Text von TEdit von einem Fenster auslesen
15. Sep 2011, 08:28
Wie ist es so (testhalber)?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
S: String;
len : Integer;
wndMain, wndChild: HWND;
begin
wndMain := FindWindow('TEditWindow','Findcall.pas');
if wndMain <> 0 then
begin
wndChild := FindWindowEx(wndMain, 0, 'TPanel', nil);
wndChild := FindWindowEx2(wndChild,'TPanel', 2);
wndChild := FindWindowEx(wndChild, 0, 'TPanel', nil);
wndChild := FindWindowEx(wndChild, 0, 'TPanel', nil);
wndChild := FindWindowEx(wndChild, 0, 'TEditControl', nil);
if wndChild <> 0 then
begin
len := 50000; //Sendmessage(wndChild, WM_GETTEXTLENGTH, 0, 0);
SetLength(S, len);
SetLength(S, SendMessage(wndChild, WM_GETTEXT, len+1, lparam(PChar(S))));
end;
Label2.Caption := S;
end;
end;
Detlef "Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|
|
Zitat
|