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