如何获取当前激活的IE（非所有的）的网址和标题

finesky 2008-04-01 10:11:23

以下代码我在xp+ie7下面只可以获取标题，但无法获取网址
========================================
获取IE窗口的标题及网址

作者：未知文章来源：网络点击数：更新时间：2005-11-14

function getieaddress(a:thandle):string;
var
myiestr:array[0..1023] of char;
myWorkerW,myReBarWindow32,myieaddress:thandle;
begin
myWorkerW:=FindWindowEx(a,0,'WorkerW',nil);
if myWorkerW=0 then
begin
result:='';
exit;
end;
myReBarWindow32:=FindWindowEx(myWorkerW,0,'ReBarWindow32',nil);
if myReBarWindow32=0 then
begin
result:='';
exit;
end;
myieaddress:=FindWindowEx(myReBarWindow32,0,'ComboBoxEx32',nil);
if myieaddress=0 then
begin
result:='';
exit;
end;
SendMessage(myieaddress,WM_GetText,1023,Integer(@myiestr[0]));
if myiestr<>'' then result:='网页地址：'+myiestr
else result:='';
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
myForewindow:integer;
lpszClassName,lpszWindowText:array[0..254] of char;
begin
myForewindow:=GetForegroundwindow;
GetWindowText(myForewindow,lpszWindowText,254); //得到窗口标题
GetClassName(myForewindow,lpszClassName,254); //得到窗口类名。
if lpszClassName='IEFrame' then
begin
memo1.Lines.Add(datetimetostr(now)+#13+#10+'当前正在工作的IE窗口标题是：'+lpszWindowText);
memo1.Lines.Add(getieaddress(myForewindow));
end;
end;

...全文