Guten Tag und frohe Ostern,
Hab mal wieder eine kleine Frage, nur leider wees ich nicht ganz wie ich sie formulieren soll. Ich habe ein Programm eben mehrmals auf dem Rechner laufen kann und besitzt auch immer ein anderen Namen. Also schätze ich mal das findwindow dann rausfällt.
Zum testen habsch folgenden Code bis jetzt
Delphi-Quellcode:
procedure TForm1.Label1Click(Sender: TObject);
var
handle1,handle2: HWND;
x,y: String;
begin
handle1 := FindWindow('wxWindowClassNR', '[123]WheresMyChar');
handle1 := FindWindowEx(handle1, 0, 'wxWindowClassNR', 'ID_PANEL1');
handle1 := FindWindowEx(handle1, 0, 'wxWindowClassNR', 'ID_PANEL2');
handle1 := GetDlgItem(handle1, 532);
handle2 := FindWindow('wxWindowClassNR', '[123]WhersMyChar');
handle2 := FindWindowEx(handle2, 0, 'wxWindowClassNR', 'ID_PANEL1');
handle2 := FindWindowEx(handle2, 0, 'wxWindowClassNR', 'ID_PANEL2');
handle2 := GetDlgItem(handle2, 534);
if handle1 and handle2 <> 0 then
begin
x := PCHar('x: ' + GetWinText(handle1));
y := PCHar(' y: ' + GetWinText(handle2));
//Hier wird Code später weitergeführt zur auflistung der Daten
end;
end;
Dieser Test lief wunderbar. Nun möchte ich mir aber das HWND nicht anhand des Textes holen sondern anhand des Prozesses (Beschreibung) Weil dieser immer gleich ist und der Inhalt von [ und ] immer anders sein kann und er soll es solange wiederholen bis eben alle gefunden wurden.
Hoffe ihr konntet mich verstehen, was mein Vorhaben ist!