この記事では、DELPHI ファイル操作を通じて広告を削除し、Tencent ブラウザをブロックする方法を紹介します。
OICQ2000b BUILD 0110 を例にとると、OICQ の動作原理を注意深く分析した結果、OICQ の「メッセージ送信」ウィンドウ内の広告はすべて OICQ インストール ディレクトリの下の AD フォルダに保存されており、それらはすべて画像であることがわかります。 GIF形式で。 AD フォルダー内のファイルが存在しない場合、OICQ は DAT フォルダー内の GIF 画像を呼び出し、広告画像をダウンロードして呼び出し用に AD フォルダーに保存します。 Tencent ブラウザについては、Microsoft ブラウザに置き換えることができます (現在のブラウザが Microsoft の IE ブラウザであると仮定します)。
これを理解した後、DELPHI のファイル操作を使用して広告を削除し、Tencent ブラウザをブロックできます。
図に示すように、DELPHI を起動し、新しいプロジェクトを作成し、次のコントロールを FORM に配置します。
広告バナーの削除については、まず AD フォルダー内のすべての GIF 形式ファイルを読み取り、それを小さな透明な GIF 画像に置き換え、同時に DAT フォルダー内の GIF ファイルを置き換えます。プログラムは次のように実装されます。
手順 TForm1.Del_adClick(送信者: TObject);
変数
SearchRec : TsearchRec;
SList: 文字列リスト;
ディレクトリ、SDir :文字列;
i、FindResult : 整数;
始める
Dir := edit1.Text //OICQ インストール パス;
SList := Tstringlist.Create //ファイルリストの保存に使用されます。
//OICQ のインストール パスが正しいかどうかを確認します
ファイルが存在しない場合(edit1.text + 'oicq.exe')
始める
application.MessageBox('パスが間違っています。もう一度選択してください!',
'再選択してください',0);
出口;
終わり;
//パス文字列の終了文字が「」であるかどうかを判断し、そうでない場合は「」を追加します
if Dir[length(dir)] <> '' then
ディレクトリ := ディレクトリ + '';
ディレクトリ := ディレクトリ + 'AD';
// フォルダー内の最初の GIF ファイルを検索し、そのファイル名を SearchRec に保存します。
//返された結果は FindResult に保存されます
FindResult := FindFirst(Dir + '*.gif',FaAnyFile,SearchRec);
試す
while FindResult = 0 do // 正常に検索されました
始める
//ファイル名をリストに追加します
sList.Add(小文字(Dir + SearchRec.name));
//条件を満たす次のファイルを探し続けます
FindResult := FindNext(SearchRec);
終わり;