第一部用DDE获取网址 Function TForm1.geturl:string; var Cliente_DDE: TDDEClientConv; temp:PChar; begin Cliente_DDE:= TDDEClientConv.Create( nil ); with Cliente_DDE do begin SetLink( 'Iexplore','WWW_GetWindowInfo'); temp := RequestData('0xFFFFFFFF'); Result := StrPas(temp); StrDispose(temp); CloseLink; end; Cliente_DDE.Free; end; 第二部用timer监控 procedure TForm1.Timer1Timer(Sender: TObject); var hwnd:thandle; begin hwnd:=findwindow('IEframe',nil); if hwnd<>0 then begin if pos('要监控的网址',geturl) then begin 你要干的事情。。 end; end; end;
Function TForm1.geturl:string;
var
Cliente_DDE: TDDEClientConv;
temp:PChar;
begin
Cliente_DDE:= TDDEClientConv.Create( nil );
with Cliente_DDE do
begin
SetLink( 'Iexplore','WWW_GetWindowInfo');
temp := RequestData('0xFFFFFFFF');
Result := StrPas(temp);
StrDispose(temp);
CloseLink;
end;
Cliente_DDE.Free;
end;
第二部用timer监控
procedure TForm1.Timer1Timer(Sender: TObject);
var
hwnd:thandle;
begin
hwnd:=findwindow('IEframe',nil);
if hwnd<>0 then
begin
if pos('要监控的网址',geturl) then
begin
你要干的事情。。
end;
end;
end;