Delphi-Quellcode:
var
WindowID: integer;
WindowText: array[0..255] of Char;
begin
WindowID := FindWindow(nil, nil);
while WindowID <> 0 do begin
If IsWindowVisible(WindowID) and (GetWindow(WindowID, GW_OWNER) = 0) then begin
GetWindowText(WindowID, @WindowText, SizeOf(WindowText));
ShowMessage(WindowText);
end;
end;
end;
Da werden dir alle
sichtbaren Fenster angezeigt und du kannst dann über die WindowID das Fenster "fokusieren" und dann eine Zeichenfolge über SendMessage in das Editfeld schreiben lassen.
Mit freundlichen Grüßen
p0w3r5tr34m3r
P.S.: in der Code Library müsste der Code eigentlich auch stehen
