Text von TEdit von einem Fenster auslesen

[DeddyH]

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;