Text aus Drittprogramm auslesen

[th_bone]

Hi,

ja Getparent war die Lösung - DANKE - aber das Handle von Findwindow bei jedem neustart komplett anderst (ich hab mal einen screenshot von dem Prog angehängt) - vielleicht liegts ja daran das der
text den ich auslese in einer groupbox ist ?! das einzige was ich als konstante festgestellt
habe war die controlid

Hier nochmal der Code der letztlich zum Ziel führt (falls jemand ein ähnliches Problem hat)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 hwnd, handle, parenthandle: thandle;
 text: dword;
 buffer: array[0..1024] of Char;
begin
  hWnd := FindWindow(nil, 'Globalserver - Desktop Edition by Omega Research');
  handle := handlefromid(hwnd,5191);
  parenthandle:=getparent(handle) ;
  handle:=getdlgitem(parenthandle,5191);     // parenthandle, controlid
  sendmessage(handle,WM_gettext,sizeof(buffer),Integer(@buffer));

  label1.Caption:='Status: '+string(buffer);
end;

Nochmals danke

Tschüss

Ralf