如何得到 WebBrowser当前url ？

Question

如何得到 WebBrowser当前url ？
根据不同的url 去执行不同程序。

Answer 1

当前的?
你是说设为首页的主页?那么去regedit里找.
要是正在打开的主页,使用api函数,GetForegroundwindow 返回打开窗口的handle
  你就可以继续操作了.

Answer 2

uses
    MSHTML
==========
procedure TForm1.Button1Click(Sender: TObject);
var
    Doc : IHTMLDocument2;
begin
    Doc := WebBrowser1.Document as IHTMLDocument2;
    if Doc<> nil then
    ShowMessage(Doc.url);
end;