以O(shè)ICQ2000b BUILD 0110為例，仔細(xì)分析OICQ的工作原理，可以發(fā)現(xiàn)，OICQ的“發(fā)送消息”窗口中的廣告都保存在OICQ安裝目錄下的AD文件夾中，均為GIF格式的圖片。當(dāng)AD文件夾中的文件不存在時(shí)，OICQ調(diào)用DAT文件夾中的GIF圖片，然后下載廣告圖片并保存在AD文件夾中，以備調(diào)用。至于騰訊瀏覽器，可以用微軟瀏覽器替換回來（假定當(dāng)前瀏覽器為微軟的IE瀏覽器）。

　　 明白了這些以后，就可以自己動(dòng)手利用DELPHI的文件操作，來去掉廣告、屏蔽騰訊瀏覽器了。

　　

　　 如圖，啟動(dòng)DELPHI，新建工程，在FORM上放置如下控件：

　　 關(guān)于去掉廣告條，設(shè)想是先讀取AD文件夾下所有GIF格式的文件，然后用一透明的小GIF圖片替換，同時(shí)替換掉DAT文件夾下的GIF文件。程序?qū)崿F(xiàn)如下：

　　 PRocedure TForm1.Del_adClick(Sender: TObject);

　　 var

　　 SearchRec : TsearchRec;

　　 SList: Tstringlist;

　　 Dir, SDir :string;

　　 i, FindResult : integer;

　　 begin

　　 Dir := edit1.Text; //OICQ的安裝路徑

　　 SList := Tstringlist.Create; //用于保存文件列表

　　 //判斷OICQ安裝路徑是否正確

　　 if not fileexists(edit1.text + 'oicq.exe') then

　　 begin

　　 application.MessageBox('路徑不正確，請重新選擇！',

　　 '請重新選擇',0);

　　 exit;

　　 end;

　　 //判斷路徑字符串的結(jié)束符是否為“”，不是就加上“”

　　 if Dir[length(dir)] <> '' then

　　 Dir := Dir + '';

　　 Dir := Dir + 'AD';

　　 //查找該文件夾下第一個(gè)GIF文件，文件名保存在SearchRec，

　　 //返回結(jié)果保存在FindResult中

　　 FindResult := FindFirst(Dir + '*.gif',FaAnyFile,SearchRec);

　　 try

　　 while FindResult = 0 do //查找成功

　　 begin

　　 //在列表中加入文件名

　　 sList.Add(lowercase(Dir + SearchRec.name));

　　 //繼續(xù)查找下一個(gè)符合條件的文件

　　 FindResult := FindNext(SearchRec);

　　 end;