ClassName von Edit

[KodeZwerg]

Ändert sich auch die Caption andauernd?
Wenn beides dynamisch ist, würde ich über PID ein Handle ermitteln.

Ist Control-ID auch dynamisch muss man sich durch alle Childs durchiterieren.

[Ykcim]

Das Problem ist, dass das Edit kein Caption hat...

Was meinst Du mit PID?

[KodeZwerg]

Ich meinte Caption vom Ziel-Fenster.
PID = ProcessID

[KodeZwerg]

Andersrum, wenn ich was Fernsteuern mag, schau ich mir mit WinSpy ö.ä. erstmal das Ziel an.

Wenn ich darüber eine feste Control-Id bekomme für das Edit ist die halbe Miete schon im Sack.

Dann nurnoch eine Möglichkeit finden mich mit dem Ziel zu verbinden.

Also per FindWindow() ein Handle holen. Vom Fenster, nicht vom Edit!
Wenn das nicht möglich ist halt über die ProcessID.

Dann zum Beispiel sowas machen

Code:

SendMessage(GetDlgItem(dasHandle, dieControlID), WM_SETTEXT, 0, Integer(PChar('neuer Text')));

Um text zu ändern.

[Ykcim]

Am Ende ist das mein Problem: Der ClassName ändert sich...

Ich hatte folgendes probiert, aber damit komme ich nicht weiter:

Delphi-Quellcode:

   fwnd :=  FindWindow(nil, 'WmD_VersandLabel');
   GetClassName(fWND, CName, 256);

   wnd :=  FindWindowEx(wnd, 0, CName, nil);
   wnd :=  FindWindowEx(wnd, 0, CName, nil);
   wnd :=  FindWindowEx(wnd, 0, CName, nil);
   wnd :=  FindWindowEx(wnd, 0, CName, 'Empfänger');

   for I := 0 to 50 do begin
      wnd_edit:= GetDlgItem(wnd, I);
   end;

Ich wollte einfach mal sehen, welche ID's er findet - leider immer 0.

Ich habe mal den Tree in den Anhang gestellt, vielleicht gibt das ja Aufschluss...

An die Edits von Empfänger möchte ich ran...

Vielen Dank
Patrick

[KodeZwerg]

Zitat von Ykcim:

Delphi-Quellcode:

   fwnd :=  FindWindow(nil, 'WmD_VersandLabel');
   GetClassName(fWND, CName, 256);

   wnd :=  FindWindowEx(wnd, 0, CName, nil);

ersetze mal im findwindowex() wnd mit fwnd. Vielleicht hilft es?

Wenn du meinen vorschlag von oben folgst, ist classname oder handle dank GetDlgItem() überflüssig.

[KodeZwerg]

Zitat von Ykcim:

Ich wollte einfach mal sehen, welche ID's er findet - leider immer 0.

Dir ist schon bewusst das Control-Ids in die Zehntausende gehen können?
Ein 0 bis 50 durchiterieren bringt da nichts.

[Ykcim]

Zitat:

Dir ist schon bewusst das Control-Ids in die Zehntausende gehen können?

Ja, aber ich wollte wissen, ob er irgendwann etwas anderes als 0 zurückliefert...

Ich habe es jetzt so versucht:

Delphi-Quellcode:

 fwnd: THandle;
  wnd: HWND;
  wnd_edit: HWND;
  CName: array [0..255] of Char;
  I: integer;
begin
   fwnd :=  FindWindow(nil, 'WmD_VersandLabel');
   GetClassName(fWND, CName, 256);

   wnd :=  FindWindowEx(fwnd, 0, CName, nil);
   wnd :=  FindWindowEx(wnd, 0, CName, nil);
   wnd :=  FindWindowEx(wnd, 0, CName, 'Empfänger');

   SendMessage(GetDlgItem(fwnd, 5), WM_SETTEXT, 0, Integer(PChar(Edit_Strasse_E.Text)));

wnd hat dann des Wert von Empfänger (263610)
Dort liegen auf die Felder an die ich möchte. Aber leider ändert sich ja dann der ClassName von WindowsForms10.Window.8.app.0.141b42a_r6_ad1 nach WindowsForms10.EDIT.app.0.141b42a_r6_ad1

Ich habe mal geguckt, was er mit GetDlgItem(fwnd, 5) zurückliefert - leider immer nur eine 0.

Irgendwie habe ich es noch nicht geblickt...