gelöst Text aus Fenster einen andren Anwendugn auslegen

[bitsetter]

Hallo,

kann es sein, dass es in dem Fenster mehrere Felder gibt? Dann könnte es sein, dass das falsche Fenster ausgelesen wird.
Eventuell könntest du es mal mit EnumChildWindows versuchen:

Delphi-Quellcode:

function EnumChildProc(wnd: HWND; Lines: TStrings): BOOL; stdcall;
var
  WindowText: array[0..255] of char;
begin
  Result := True;
  windows.GetWindowText(wnd, WindowText, 255);
  Lines.Add(WindowText);
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  wnd: HWND;
begin
  wnd := Findwindow('#32770', 'Test - gut');
  if wnd > 0 then
    EnumChildWindows(wnd, @EnumChildProc, Integer(memo1.Lines));
end;