如何查找到特定的IE窗口，然后获得它的接口控制IE中的网页

Question

如题。
已经实现查找IE窗口，那么如何才能得到接口来控制IE中的网页呢？

Answer 1

能否说下具体功能，控制网页干什么？？
Webbrowser应该有相关功能吧

Answer 2

to:gyk120
Webbrowser是有很多控制的功能，但是，我查找到的是IE窗口，不是自己做的Form窗口的。
例如：如何得到一个IE窗口当前打开的网页地址？如何得到其中的连接地址？如何得到图片等等
to:redlegend_126_com
FindWindow我已经实现了，而且也能够区分是否是IE窗口了，现在问题是如何得到IE中打开的网页，如何控制网页？

Answer 3

得到打开的网页我这倒有个办法，用IShellWindows接口可以完成

Answer 4

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, shellapi, ddeman, shdocvw,registry;type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    Button2: TButton;
    procedure ListBox1DblClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    IEXPLORE:string;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
  WinExec(PChar(IEXPLORE+' "'+listbox1.items[listbox1.itemindex]+'"'),SW_NORMAL);
end;procedure TForm1.Button1Click(Sender: TObject);
const
  maxx = 30;
var
  ShellWindow: IShellWindows;
  nCount: integer;
  spDisp: IDispatch;
  i: integer;
  vi: OleVariant;
  IE1: IWebBrowser2;
begin
  listbox1.clear;
  ShellWindow := CoShellWindows.Create;
  nCount := ShellWindow.Count;
  for i := 0 to nCount - 1 do
  begin
    vi := i;
    try
      spDisp := ShellWindow.Item(vi);
    except
      exit
    end;
    if (spDisp <> nil) then
    begin
      try
        spDisp.QueryInterface(iWebBrowser2, IE1);
      except
        on EAccessViolation do
        begin
          exit
        end;
      end;
      if (IE1 <> nil) then
      begin
        listbox1.items.add(IE1.Get_LocationURL());
      end;
    end;
  end;
  deletefile(extractfilepath(paramstr(0)) + 'Address.d' + inttostr(maxx));
  for i := maxx - 1 downto 0 do
    renamefile(extractfilepath(paramstr(0)) + 'Address.d' + format('%.2d', [i]), 'Address.d' + format('%.2d', [i + 1]));
  listbox1.items.savetofile(extractfilepath(paramstr(0)) + 'Address.d00');
end;procedure TForm1.Button2Click(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to listbox1.items.count - 1 do
  begin
    WinExec(PChar(IEXPLORE+' "'+listbox1.items[i]+'"'),SW_NORMAL);
  end;
end;procedure TForm1.FormShow(Sender: TObject);
var
  s: string;
  reg:TRegistry;
begin
  s := extractfilepath(paramstr(0)) + 'Address.d00';
  if fileexists(s) then
    listbox1.items.loadfromfile(s);
  reg:=TRegistry.create;
  reg.rootkey:=HKEY_LOCAL_MACHINE;
  reg.openkey('Software\Microsoft\Windows\CurrentVersion\App Paths\IEXPLORE.EXE',true);
  IEXPLORE:=reg.ReadString('');
  reg.closekey;
  reg.free;
end;end.

Answer 5

这种方法比用web控件更麻烦一点，似乎要向IE发送网页控件的消息。这种方法需要使用VC.net可以实现，似乎哈！