如何得到当前活动的ie地址栏的url(30分)

  • 主题发起人 主题发起人 ie
  • 开始时间 开始时间
I

ie

Unregistered / Unconfirmed
GUEST, unregistred user!
http://www.delphibbs.com/delphibbs/dispq.asp?lid=634244
可以得到所有的ie地址栏的url,但要如何得到当前活动的ie的地址栏?
或者有没有其他的方法?
 
在ASP 中可以用request.ServerVariables
 
我做过这种软件现在告诉你:
第一:你先枚举窗口(用EnumWindows),找到类名为IEFRAME的,IE的类名;
第二:再枚举子窗口(用EnumChildWindows),找到类名为EDIT的,地址栏的类名;
第三:用消息SenMessage发送消息给EDIT句柄,得到他的内容就是要找的地址了!
至于各个函数的详细用法,你在这个论坛中搜索一下就可以找到了!
-----------------------------------------------------------
如果还不明白mail to me:tufeiping@sina.com
 
楼上说得不错,但可以先用spy winsight32 之类的跟踪一下。
但估计还有其它办法,因为我昨天得到了对Word 菜单条的控制。
 
有很多方法来实现你的目的的,你可以用定时器组件配合GetForegroundWindow函数。只要
你启动了IE,那它必定要在前台(或总有在前台的那么一个时间被定时器捕捉到)。
下面是简单的实现代码:
procedure Timer1.timer (sender:tobject);
var x,y:Thandle;z:array[0..224]of char;
begin
x:=GetForegroundWindow();//得到当前窗口的句柄
GetClassName(x,z,225);//得到当前窗口的类名
if trim(z)='IEFRAME' then
//如果是IE的类
begin
//这里用EnumChildWindows枚举x中的子窗口,调用lpEnumFunc回调函数进行自己的处理
end;
end;
要详细代码告诉我地址!
 
iedelphi@hotmail.com
谢谢!
 
已经发送给你了,注意接收
 
晶晶:能不能给我一份,谢谢
tomol@163.com
 
tomol:发给你了
 
非常感谢,不过好象是d6下写的吧,我要安装一下d6的:)
 
没有用到D6中什么特殊的技术,你只要将代码直接在D5中编译一遍就可以使用了,使用的
技术都是系统提供的API,只是在程序装载时会有点问题。你仔细看看使用的组件,并将相
应组件加到窗体中,代码复制后编译就OK啦!
 
晶晶:多谢
 
后退
顶部