Text aus Drittprogramm auslesen

[th_bone]

Hi,

so wie es aussieht brauche ich noch das parenthandle - wenn ich den wert manuell einsetze
dann funktioniert es - aber wie kann ich ihn automatisch ermitteln

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 hwnd, handle, parenthandle: thandle;
 buffer: array[0..1024] of Char;
begin
  hWnd := FindWindow(nil, 'Globalserver - Desktop Edition by Omega Research');
  handle := handlefromid(hwnd,5191);
  
  parenthandle:= {??? wie ermittle ich dieses ?};

  handle:=getdlgitem(parenthandle,5191); // parenthandle, controlid
  sendmessage(handle,WM_gettext,sizeof(buffer),Integer(@buffer));

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

Danke für die Hilfe

Ralf