如何获得IE状态栏中的内容？？？

Question

如何获得IE状态栏中的内容？？？
得到当前IE窗体的状态栏内容

Answer 1

uses
  SHDocVw,...;var
  ShellWindow: IShellwindows;
  i: integer;
  web: IWebBrowser2;
  URL: string;
begin
  shellwindow := CoShellWindows.Create;
  for i := 0 to shellwindow.Count - 1 do
  begin
    Web := shellwindow.Item(i) as IWebbrowser2;
    //这里就得到了一个IWebBrowser2的接口，就可以调用他的方法了
    //然后根据HANDLE判断是否当前IE
    if Web.HWND = IE_Handle then
    begin
      URL := Web.LocationURL;
      Break;
    end;
  end;
end;

Answer 2

IE_Handle 就是当前的IE窗口的HANDLE

Answer 3

http://www.cryer.co.uk/brian/delphi/twebbrowser/twebbrowser_events.htm#OnStatusTextChange

Answer 4

我是想取得IE的状态栏内容，不是DELPHI中的那个浏览器控件的

Answer 5

>>我是想取得IE的状态栏内容，不是DELPHI中的那个浏览器控件的
有看我給你的鏈接嗎??? 
還不是你要的??奇怪!!!

Answer 6

handle DWebBrowserEvents2::StatusTextChange Event  
or get it by IWebBrowser2::StatusTextcall the createRange of the selection.code in JScript
if (document.selection.type == "Control"){ 
    var oControlRange = document.selection.createRange();
    for (i = 0; i < oControlRange.length; i++)
      if (oControlRange(i).tagName != "IMG")
//       oControlRange(i).style.fontFamily=event.srcElement.style.fontFamily;
  }
convert it to HTML interface calls.

Answer 7

楼主没有看到?饭桶不是已经答了吗?uses
  SHDocVw,...;var
  ShellWindow: IShellwindows;
  i: integer;
  web: IWebBrowser2;
  URL: string;
begin
  shellwindow := CoShellWindows.Create;
  for i := 0 to shellwindow.Count - 1 do
  begin
    Web := shellwindow.Item(i) as IWebbrowser2;
    //这里就得到了一个IWebBrowser2的接口，就可以调用他的方法了
    //然后根据HANDLE判断是否当前IE
    if Web.HWND = IE_Handle then
    begin
      URL := Web.LocationURL; //就改这一句为   URL := Web.StatusText;
      Break;
    end;
  end;
end;