Text von TEdit von einem Fenster auslesen

[Nicodius]

Vielen Dank!

Hatte noch eine sehr alte version von vor ein paar jahren Wunderbares update!

Danke für die schnelle Antwort.

lg Nico

[DeddyH]

Keine Ursache. Übrigens wirst Du mit GetWindowText nicht weit kommen:

Zitat:

To retrieve the text of a control in another process, send a WM_GETTEXT message directly instead of calling GetWindowText.

[Nicodius]

Leider, es wird wieder kein text ausgelesen(weder mit get window text noch mit sendmessage, wmgettext

Hab ich da einen Denkfehler?

Delphi-Quellcode:

function FindWindowEx2(hParent: HWND; ChildClassName: string; ChildNr: Word): HWND;
var
  i: Word;
  hChild: HWND;
begin
  hChild := 0;
  Result := 0;
  Dec(ChildNr);
  for i := 0 to ChildNr do
  begin
    hChild := FindWindowEx(hParent, hChild, PChar(ChildClassName), nil);
    if hChild = 0 then
      Break;
    Result := hChild;
  end;
end;

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);
    len := Sendmessage(wndChild, WM_GETTEXTLENGTH, 0, 0);
    SetLength(S, len);
    if wndChild <> 0 then
         SendMessage(wndChild, WM_GETTEXT, len+1, lparam(@S[1]));
    Label2.Caption := S;
    end;
  end;

Vielen Dank!

[DeddyH]

Ist denn wndChild <> 0?

[Nicodius]

Ja. also er geht ins if rein, und handle hat eine anständige nummer. Also ich glaub generell sollt es jetzt passen, aber der Text wird nicht ausgelesen.

[DeddyH]

Dann weiß ich es auch nicht. Möglicherweise hat die Fremdsoftware etwas gegen das Auslesen und fängt daher WM_GETTEXT(LENGTH) ab. Das ist allerdings reine Spekulation.

[Nicodius]

Aber Toms Programm Winspy, schafft es auch den Text auszulesen, daher überhaupt die Frage, hätte es dieses Programm nicht anzeigen können hätte ich es gleich aufgegeben.

Danke aufjedenfall für deine Mühe! Vielleicht meldet sich noch wer.

lg

[DeddyH]

Achso, wenn WinSpy das kann, dann solltest Du es auch können. Ich habe natürlich das Programm, um das es geht, nicht hier, daher kann ich nicht viel dazu sagen, aber bekommst Du denn gültige Werte, nicht nur das Handle, sondern auch den Rückgabewert von WM_GETTEXTLENGTH betreffend?