Artikel ini memperkenalkan cara menghapus iklan dan memblokir Tencent Browser melalui operasi file DELPHI.
Mengambil OICQ2000b BUILD 0110 sebagai contoh, setelah menganalisis dengan cermat prinsip kerja OICQ, kita dapat menemukan bahwa iklan di jendela "Kirim Pesan" OICQ semuanya disimpan di folder AD di bawah direktori instalasi OICQ, dan semuanya berupa gambar dalam format GIF. Jika file di folder AD tidak ada, OICQ memanggil gambar GIF di folder DAT, lalu mendownload gambar iklan dan menyimpannya di folder AD untuk dipanggil. Sedangkan untuk browser Tencent, Anda dapat menggantinya dengan browser Microsoft (dengan asumsi browser saat ini adalah browser IE milik Microsoft).
Setelah memahami hal ini, Anda dapat menggunakan operasi file DELPHI untuk menghapus iklan dan memblokir Tencent Browser.
Seperti yang ditunjukkan pada gambar, mulai DELPHI, buat proyek baru, dan tempatkan kontrol berikut pada FORM:
Mengenai penghapusan banner iklan, idenya adalah membaca terlebih dahulu semua file berformat GIF di folder AD, kemudian menggantinya dengan gambar GIF transparan kecil, dan sekaligus mengganti file GIF di folder DAT. Program ini dilaksanakan sebagai berikut:
Prosedur TForm1.Del_adClick(Pengirim: TObject);
var
PencarianRec : TsearchRec;
Daftar S: Daftar Tstring;
Dir, SDir :string;
i, Hasil Temukan : bilangan bulat;
mulai
Dir := edit1.Text; //jalur instalasi OICQ
SList := Tstringlist.Create; //Digunakan untuk menyimpan daftar file
//Tentukan apakah jalur instalasi OICQ sudah benar
jika tidak ada file (edit1.text + 'oicq.exe') maka
mulai
application.MessageBox('Jalurnya salah, silakan pilih lagi!',
'Silahkan pilih ulang',0);
KELUAR;
akhir;
//Tentukan apakah karakter akhir dari string jalur adalah "", jika tidak, tambahkan ""
jika Dir[panjang(dir)] <> '' maka
Dir := Dir + '';
Dir := Dir + 'AD';
//Temukan file GIF pertama di folder, dan simpan nama file di SearchRec.
//Hasil yang dikembalikan disimpan di FindResult
Hasil Temukan := TemukanPertama(Dir + '*.gif',FaAnyFile,SearchRec);
mencoba
sementara FindResult = 0 lakukan //Temukan berhasil
mulai
//Tambahkan nama file ke daftar
sList.Add(huruf kecil(Dir + SearchRec.nama));
//Lanjutkan untuk mencari file berikutnya yang memenuhi ketentuan
TemukanHasil := TemukanBerikutnya(SearchRec);
akhir;