Delphi获取所有打开的IE窗口的网页源码

procedure  TForm1.Button1Click(Sender: TObject);
var
  ShellWindow: IShellWindows;
  i: Integer;
  spDisp: IDispatch;
  IE1: IWebBrowser2;
begin
  ShellWindow := CoShellWindows.Create;
  for i:=0 to ShellWindow.Count - 1 do
  begin
    spDisp := ShellWindow.Item(i);
    if spDisp <> nil then
    begin
      spDisp.QueryInterface(iWebBrowser2,IE1);
      if IE1 <> nil then
      begin
        if Pos('http://',LowerCase(IE1.LocationURL)) = 1 then
        begin
          Memo1.Lines.Add(IE1.LocationURL);  //获取网址
          Memo1.Lines.Add((IE1.Document as IHtmlDocument2).body.outerHTML);  //获取源码
        end;
      end;
    end;
  end;
end;