双响炮-如何获得IE当前窗口的URL及如何拖IE中的HTML文本到我的程序(200分)

两个问题
1.如何获得IE当前窗口的URL
2.如何拖IE中的HTML文本到我的程序
每个100,两个300
不希用DRAGDROP控件

谢谢

你是要做NETANT??FlashGet???是这个意思吗？

如果是网页中的控件，可以用JavaScript：document.write(window.location);把URL传给OCX
怎么得到HTML我也特别急迫想知道。如果你有答案能告诉我吗。

DOM不行？（小心地说）

1.如何获得IE当前窗口的URL
uses SHDocVw,MSHTML;
procedure GetIEUrl(w:longint):String;
var i:integer;
ShellWindow: IShellWindows;
IE:IWebBrowser2;
IDoc:IHTMLDocument2;
spDisp:IDispatch;
v:OLEVariant;
begin
ShellWindow:=CoShellWindows.Create;
for i:=0 to ShellWindow.Count-1 do
begin
v:=i;
spDisp:=ShellWindow.Item(v);
spDisp.QueryInterface(IWEBBROWSER2,IE);
if IE=nil then continue;
if IE.Get_HWND<>w then continue;
IDoc:=IE.Document as IHTMLDocument2;
if iDoc=nil then continue;
Result:=iDoc.url;
break;
end;
end;

w:为当前IE窗口的句柄。

上面例子中的Idoc有很多属性，基本上可以解决你第二个问题，我一时没有写出代码，
你自己研究吧。

接受答案了.