получить html код страницы браузера (Мозила, хром)

Здравствуйте, как получить html код страницы браузера (Мозила, хром)

Для ИЕ есть отличный код, можно ли его как то переделать под Гугл хром и т.д.

PHP:

 uses
 SHDocVw,
 MSHTML;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
ShellWindow: IShellWindows;
WB: IWebbrowser2;
spDisp: IDispatch;
IDoc1: IHTMLDocument2;
k: Integer;
begin
ShellWindow := CoShellWindows.Create;
for k := 0 to ShellWindow.Count do
begin
  spDisp := ShellWindow.Item(k);
  if spDisp = nil then Continue;
  spDisp.QueryInterface(iWebBrowser2, WB);
  if WB <> nil then
  begin
    WB.Document.QueryInterface(IHTMLDocument2, iDoc1);
    if iDoc1 <> nil then
    begin
      WB := ShellWindow.Item(k) as IWebbrowser2;
      begin
        Memo1.Lines.Add('****************************************');
        Memo1.Lines.Add(WB.LocationURL);
        Memo1.Lines.Add('****************************************');
        Memo1.Lines.Add((WB.Document as IHTMLDocument2).body.outerHTML);
      end;
    end;
  end;
end;
end;

Зарание спасибо

 

Щито?
Ctrl + U

 

Не могу понять что Вы этим имели ввиду

 

Он имеет этим ввиду, что находясь на странице в браузере, при нажатии комбинации клавиш ctrl+u ты получишь исходный код страницы в новом окне.