Hallo Leute,

habe mich jetzt stundenlang daran versucht von einem TEdit(Siehe anhang, das Programm dass ich zum dafür verwendet habe um die handles rauszufinden, zeigt auch den text an den ich haben möchte(hannes,... ).

Es geht um eine Telefonsoftware von der ich ein Anzeigefenster bei einem Anruf bekomme dass informationen über den Anrufer anzeigt.
Nun sollte auf einem seperaten computer auf dem die applikation auch läuft der name auch angezeigt werden, den kann ich über dieses Fenster auslesen.


Also

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  WindowW, childc: HWND;
  WindowText: array[0..255] of char;
begin
  WindowW := FindWindowByTitle('LDAP');
  childc := FindWindowEx(WindowW,0,'TEdit',nil);
 // Form1.Text := IntToStr(WindowW) + ' ' + IntToStr(childc);
  GetWindowText(childc,WindowText,255);
  label2.Caption := windowText;
end;

WindowW bekommt ein Handle(das richtige, kann form caption von dem handle auslesen, das passt).
Allerdings childc hat immer einen wert von 0, habe alle möglichem methoden ausprobiert(von torry FindControlByNumber und hab probiert das edit zu bekommen). Nichts davon klappt. habs auch über wm_get text probiert.

Irgendeine Idee oder Hilfestellung?

vielen lieben Dank


Nico

Das Tool kann Dir den entsprechenden Code doch automatisch generieren

Vielen Dank!

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

Danke für die schnelle Antwort.

lg Nico

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.

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

Hab ich da einen Denkfehler?

zusammenfalten · markieren

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!

Ist denn wndChild <> 0?

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.

Danke an alle!

Problem war dass ich ein TPanel zuviel hatte, hatte beim codegenerator anscheinend eine andere Komponente ausgewählt, könnte auf Unkonzentriertheit dem gestrigen Arbeitsende hin zurückzuführen sein

Danke!

lg Nico

Das wäre doch vermutlich aufgefallen, wenn man auch die Zwischenergebnisse (wndChild) auswerten würde?

Wieso, wenn ein gültiges Handle drinsteht, aber eben nicht das des gesuchten Controls? Ich hatte diesbezüglich ja auch bereits nachgefragt.