紧急求助：关于网址过滤

Question

比如一个网址库，然后禁止ie访问网址库里的网页，谁能给点思路，给点源码
感谢！

Answer 1

function EnumChildProc(
  hwnd:HWND;
  IParam:LPARAM
  ):bool;stdcall;
  var buf:array[0..250] of char;
  rsize:integer;
begin
  result:=true;
  Getclassname(hwnd,buf,sizeof(buf));
  if strpas(buf)='Edit' then
   begin
     rsize:=sendmessage(hwnd,WM_GETTEXT,sizeof(buf),integer(@buf));
     if rsize>0 then
      if strpas(buf)<>Form1.newurl.Text then
      if filter(buf) then
       begin
        sendmessage(hwnd,WM_SETTEXT,0,integer(Form1.newurl.Text));
        postmessage(hwnd,WM_KEYDOWN,$D,$1c0001);
        postmessage(hwnd,WM_KEYUP,$d,$c01c0001);
       end;
   result:=false;
   end;
   end;procedure TForm1.Timer1Timer(Sender: TObject);
var
 fwnd:thandle;
 buf2,buf:array[0..250] of char;
begin
  fwnd:=GetForegroundWindow;
  Getclassname(fwnd,buf,sizeof(buf));
  Getwindowtext(fwnd,buf2,sizeof(buf2));
  if (strpas(buf)='CabinetWClass') or (strpas(buf)='IEFrame') or (pos('Netscape',strpas(buf2))>0) or (pos('Opera',strpas(buf2))>0) or (pos('Tencent',strpas(buf2))>0) or (pos('浏览',strpas(buf2))>0) then
    EnumChildWindows(fwnd,@enumchildproc,0);
 end;

Answer 2

你去这里下载完整的例子程序：http://www.delphibox.com/article.asp?articleid=1030