delphi 获取IE7 IE8 IE9 地址栏网址

procedure TForm1.Button1Click(Sender: TObject);
var
IE_URL: Array[0..1000] Of char;   //得到的字符串
IE_Hwnd:thandle;
i:integer;
Const
CtlNames:array[0..3] of string=(
        'WorkerW',        //获得IE窗口的工作区的句柄
        'ReBarWindow32', //获得IE窗口的菜单栏的句柄
        'Address Band Root',   //获得IE窗口的下拉菜单的句柄
        'Edit'            //获得编辑框句柄 www.delphitop.com
      );
begin

try
IE_Hwnd:=findwindow(pwidechar('IEFrame'),nil);
if IE_Hwnd<=0 then exit;
for i:=0 to length(ctlnames)-1 do
begin
IE_Hwnd:=FindWindowEx(IE_Hwnd,0,PChar(CtlNames[i]),nil);
//showmessage(CtlNames[i]);
end;
except
end;

if IE_Hwnd<=0 then exit;
SendMessage(IE_Hwnd, WM_GetTEXT, 256,integer(@IE_URL[0])); //取值
Memo1.Lines.Add(IE_URL);

end;