Forum: Programmieren allgemein
by Ykcim,
5. Mär 2021
Ullala, dass ich noch nicht mein Thema!
Erst einmal vielen Dank und auch für das Beispiel! Das habe ich wirklich gebraucht... :oops:
Ich habe jetzt die ersten Aktionen hinbekommen und sie laufen auch auf einem anderen Rechner...
Ich habe es jetzt erst einmal so gelöst - mit Sicherheit noch nicht der Weisheit letzter Schluss...
function EnumChildProc(AHandle: THandle; Rows: TRows):...
Forum: Programmieren allgemein
by Ykcim,
4. Mär 2021
Wie kann ich die Childs eines Handels abrufen?
GetNextWindow(hWnd, GW_HWNDNEXT) bringt mich leider nicht weiter?
Forum: Programmieren allgemein
by Ykcim,
4. Mär 2021
Guten Morgen Zusammen,
@himitsu: ich werde später mal gucken, ob ist so weiterkomme. Ich komme zwar zu dem Parent-Fenster, muss jetzt noch gucken, wie ich die darauf befindlichen auslesen kann...
@KodeZwerg: Leider ist das kein öffentlichen Programm, daher kann ich es nicht teilen.
Ich werde später berichten
Einen guten Tag
Patrick
Forum: Programmieren allgemein
by Ykcim,
3. Mär 2021
Mit diesem Code funktioniert das wunderbar:
procedure TTMSForm2.AdvGlowButton1Click(Sender: TObject);
var
wnd: HWND;
wnd_edit: HWND;
begin
wnd := FindWindow('WindowsForms10.Window.8.app.0.141b42a_r6_ad1', 'AndereAppName');
wnd := FindWindowEx(wnd, 0, 'WindowsForms10.Window.8.app.0.141b42a_r6_ad1', nil);
wnd := FindWindowEx(wnd, 0,...
Forum: Programmieren allgemein
by Ykcim,
3. Mär 2021
Ja, aber ich wollte wissen, ob er irgendwann etwas anderes als 0 zurückliefert...
Ich habe es jetzt so versucht:
fwnd: THandle;
wnd: HWND;
wnd_edit: HWND;
CName: array of Char;
I: integer;
begin
fwnd := FindWindow(nil, 'WmD_VersandLabel');
Forum: Programmieren allgemein
by Ykcim,
3. Mär 2021
Am Ende ist das mein Problem: Der ClassName ändert sich...
Ich hatte folgendes probiert, aber damit komme ich nicht weiter:
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);
Forum: Programmieren allgemein
by Ykcim,
3. Mär 2021
Das Problem ist, dass das Edit kein Caption hat...
Was meinst Du mit PID?
Forum: Programmieren allgemein
by Ykcim,
3. Mär 2021
Hallo Zusammen,
ich versuche gerade auf ein anderes Programm zuzugreifen und habe da meine Schwierigkeiten...
var
fwnd: THandle;
wnd: HWND;
wnd_edit: HWND;
CName: array of Char;
begin