如何得到IE地址栏输入的网址呢？？

Question

你用spy++看看，能够找到地址栏的。一路findwindow下去看看？？

Answer 1

var wnd:hwnd;
    URL:string;
begin
wnd:=findwindow('CabinetWClass',nil);
wnd:=findwindowex(wnd,0,'Worker',nil);
wnd:=findwindowex(wnd,0,'ReBarWindow32',nil);
wnd:=findwindowex(wnd,0,'ComboBoxEx32',nil);
wnd:=findwindowex(wnd,0,'ComboBox',nil);
wnd:=findwindowex(wnd,0,'Edit',nil);if wnd<>0 then
begin
  URL:='http://www.gislab.ecnu.edu.cn/delphibbs';
  sendmessage(wnd, WM_SETTEXT, length(URL), longint(pchar(URL)));
end;