HTML aus InternetExplorer auslesen

[Siegl]

Hallo,

damit ich kontrollieren kann, welcher Inhalt gerade in den IE geladen ist, bräuchte ich den Zugriff auf den angezeigten HTML-Text des IE.
Dazu habe ich mir über Spywin die Handles ermittelt und es mit folgendem Code versucht:

Delphi-Quellcode:

procedure TAppForm.Button1Click(Sender: TObject);
var
  wndMain, wndChild: HWND; Size: Integer; PText: PChar;
begin
  wndMain := FindWindow('IEFrame','Google - Microsoft Internet Explorer');
  if wndMain <> 0 then
  begin
    wndChild := FindWindowEx(wndMain, 0, 'Shell DocObject View', nil);
    wndChild := FindWindowEx(wndChild, 0, 'Internet Explorer_Server', nil);
    if wndChild <> 0 then
    begin
      Size := SendMessage(wndChild,WM_GETTEXTLENGTH,0,0)+1;
      PText := AllocMem(Size);
      try
        if SendMessage(wndChild,WM_GETTEXT,wParam(Size),lParam(PText)) > 0 then
        begin
          ShowMessage(PText);
        end;
      finally
        FreeMem(PText,Size);
      end;
    end;
  end;
end;

Leider bringt mit schon die SendMessage(wndChild,WM_GETTEXTLENGTH,0,0)-Funktion den Wert "0" (Size also "1") zurück. Ich denke, dass es mit "WM_GETTEXTLENGTH" und "WM_GETTEXT" nicht geht, habe aber keine Ahnung wie sonst. Ich bin leider in der Programmierung mit direkten Windowsfunktionen unerfahren.