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

ie · 2002-08-19

http://www.delphibbs.com/delphibbs/dispq.asp?lid=634244
可以得到所有的ie地址栏的url,但要如何得到当前活动的ie的地址栏？
或者有没有其他的方法？

liaojianwei · 2002-08-19

在ASP 中可以用request.ServerVariables

ie · 2002-08-19

不是asp

晶晶 · 2002-08-20

我做过这种软件现在告诉你：
第一：你先枚举窗口（用EnumWindows），找到类名为IEFRAME的，IE的类名；
第二：再枚举子窗口（用EnumChildWindows），找到类名为EDIT的，地址栏的类名；
第三：用消息SenMessage发送消息给EDIT句柄，得到他的内容就是要找的地址了！
至于各个函数的详细用法，你在这个论坛中搜索一下就可以找到了！
-----------------------------------------------------------
如果还不明白mail to me:tufeiping@sina.com

jsxjd · 2002-08-20

楼上说得不错，但可以先用spy winsight32 之类的跟踪一下。
但估计还有其它办法，因为我昨天得到了对Word 菜单条的控制。

晶晶 · 2002-08-22

有很多方法来实现你的目的的，你可以用定时器组件配合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;
要详细代码告诉我地址！

ie · 2002-08-22

iedelphi@hotmail.com
谢谢！

晶晶 · 2002-08-22

已经发送给你了，注意接收

tomol · 2002-08-22

晶晶：能不能给我一份，谢谢
tomol@163.com

晶晶 · 2002-08-22

tomol：发给你了

ie · 2002-08-24

非常感谢，不过好象是d6下写的吧，我要安装一下d6的

晶晶 · 2002-08-24

没有用到D6中什么特殊的技术，你只要将代码直接在D5中编译一遍就可以使用了，使用的
技术都是系统提供的API，只是在程序装载时会有点问题。你仔细看看使用的组件，并将相
应组件加到窗体中，代码复制后编译就OK啦！

tomol · 2002-08-26

晶晶：多谢

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

ie

Unregistered / Unconfirmed

liaojianwei

Unregistered / Unconfirmed

ie

Unregistered / Unconfirmed

晶晶

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

晶晶

Unregistered / Unconfirmed

ie

Unregistered / Unconfirmed

晶晶

Unregistered / Unconfirmed

tomol

Unregistered / Unconfirmed

晶晶

Unregistered / Unconfirmed

ie

Unregistered / Unconfirmed

晶晶

Unregistered / Unconfirmed

tomol

Unregistered / Unconfirmed

Similar threads