给你一个大概的例子!
用Timer检测尽量把时间间隔设置小一点!
USE DDEman;
function Get_URL(Servivio:string):string;
var
Cliente_DDE:TDDEClientConv;
temp
Char;
begin
Result:='';
Cliente_DDE:=TDDEClientConv.Create(nil);
with Client_DDE do
begin
SetLink(Servicio,'www_GetWindowInfo');
temp:=RequestData('0XFFFFFFF');
Result:=StrPas(temp);
StrDispose(temp);//主要是避免内存泄漏!
CloseLink;
end;
Cliente_DDE.Free;
end;
Procedure TForm1.Timer1Click(Sender:TOBject);
begin
ShowMessage(Get_URL('NetScape'));
ShowMessage(Get_URL('IExplore'));
ShowMessage(Get_URL('Opera'));
end;
其他的浏览器也是一样!当前浏览器中的URL得到了
将其与前一时刻的得到的URL比较!不同的话则,记录该URL和当前URL的开始时间
记录上URL的结束时间
不过只是当前URL有效!