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