如何获取当前激活的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;
...全文
27 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
UltraBejing 2008-05-01
有点难度哦
回复
有问题请先GOOGLE,BAIDU
回复
相关推荐
发帖
网络通信/分布式开发
创建于2007-08-02

1573

社区成员

Delphi 网络通信/分布式开发
申请成为版主
帖子事件
创建了帖子
2008-04-01 10:11
社区公告
暂无公告