Fensterinhalt eines anderen Programm übernehmen

[wallwriht]

Delphi-Quellcode:

procedure Tform1.findit;

 var
  wndMain, wndChild: HWND;
begin
  wndMain := FindWindow('ThunderRT6FormDC','ICQ Status Checker v.1.7.3');
  if wndMain <> 0 then
  begin
    wndChild := FindWindowEx(wndMain, 0, 'ThunderRT6Frame', nil);
    wndChild := FindWindowEx(wndChild, 0, 'ThunderRT6PictureBoxDC', nil);
    wndChild := FindWindowEx(wndChild, 0, 'ThunderRT6Frame', nil);
    wndChild := FindWindowEx(wndChild, 0, 'ThunderRT6PictureBoxDC', nil);
    if wndChild <> 0 then
    begin
      ShowMessage('Window Handle: ' + IntToStr(wndChild));
     // FlashControl(wndChild); // internal function
    end;
  end;

  Memo1.Text:=gettext(wndchild);
end;