//gif.gif adalah file gambar transparan di bawah jalur saat ini
sDir:=ExtractFilepath(application.exename)+'gif.gif';
//Jika file gambar tidak ada, tampilkan pesan kesalahan dan keluar
ifnotfileexists(sDir)maka
mulai
application.MessageBox('Kesalahan instalasi file! File gambar tidak ditemukan!',
'Kesalahan',0);
KELUAR;
akhir;
//Ganti semua file GIF di folder AD dengan file ini
fori:=0tosList.Count-1do
copyFile(Pchar(sDir),Pchar(sList[i]),False);
//Temukan dan ganti semua file GIF di folder DAT
Dir:=Edit1.Teks+'Tanggal';
TemukanHasil:=TemukanPertama(Dir+'*.gif',FaAnyFile,SearchRec);
whileFindResult=0lakukan
mulai
sList.Add(huruf kecil(Dir+SearchRec.nama));
TemukanHasil:=TemukanBerikutnya(SearchRec);
akhir;
fori:=0tosList.Count-1do
copyFile(Pchar(sDir),Pchar(sList[i]),False);
Akhirnya
TemukanTutup(SearchRec);//Lepaskan TemukanPertama dan TemukanBerikutnya
//Sumber daya sistem terisi
sList.Free;//Rilis daftarnya
akhir;
akhir;
FindFirst dan FindNext adalah untuk menemukan file dengan atribut dan tipe tertentu di bawah jalur yang ditentukan, dan didefinisikan sebagai berikut:
functionFindFirst(constPath:string;Attr:Integer;varF:TSearchRec):Integer;
functionFindNext(varF:TSearchRec):Integer. FindNext selalu digunakan bersama dengan FindFirst, dan parameter Path serta Attr dari FindFirst digunakan secara default. FindFirst dan FindNext harus memanggil FindClose untuk melepaskan memori.
CopyFile menyalin file yang ada ke file baru, yang didefinisikan sebagai berikut:
BOOLSalinFile(
LPCTSTRlpExistingFileName,//File yang akan disalin
LPCTSTRlpNewFileName, // File tujuan untuk disalin
BOOLbFailIfExists//Jika file tujuan sudah ada,
//Tunjukkan cara pengoperasiannya, jika file tujuan Ture sudah ada, operasikan
//Gagal melakukannya, jika tidak, timpa
);
Kalau untuk restorasi banner iklan, apa sih sebenarnya ingin mengembalikan banner iklan tersebut? Wah, ada orang seperti ini, saya yakin! Oke, sebagai fungsinya, saya akan memperkenalkan secara singkat pemulihan spanduk iklan.
Seperti disebutkan sebelumnya, hapus semua file GIF di folder AD, dan OICQ akan secara otomatis mendownload file iklan saat dijalankan lagi. Lalu ada dua metode untuk mencapai fungsi pemulihan. Salah satu metode adalah dengan menghapus folder AD, dan metode lainnya adalah dengan menghapus file GIF di bawah folder AD. Karena Anda perlu mengakses folder AD saat menghapus spanduk iklan, jika Anda menggunakan metode pertama dan mengklik "Hapus Spanduk Iklan" segera setelah memulihkan spanduk iklan, kesalahan mungkin terjadi. Oleh karena itu, disarankan untuk menggunakan cara kedua. Kedua metode tersebut diperkenalkan secara singkat di sini.
Hapus foldernya. Pertama, perlu memperkenalkan fungsi ShFileOperation() dan tipe TshFileOpStruct.
Fungsi ShFileOperation() dapat menyalin, memindahkan, mengganti nama, menghapus, dan operasi lain pada sistem file. Jika operasi berhasil, ia akan mengembalikan 0, jika tidak, ia akan mengembalikan nilai bukan nol. Definisinya adalah sebagai berikut:
WINSHELLAPIintWINAPISHOperasi File(
LPSHFILEOPSTRUCTlpFileOp
);
ShFileOpStruct berisi informasi file yang dioperasikan oleh fungsi ShFileOperation(). Tipe TshFileOpStruct didefinisikan sebagai berikut:
typedefstruct_SHFILEOPSTRUCT{//shfos
HWNDhwnd;
Fungsi UINTw;
LPCSTRpDari;
LPCSTRpTo;
FILEOP_FLAGSfBendera;
BOOLfAnyOperationsDibatalkan;
Pemetaan Nama LPVOIDh;
LPCSTRlpszPRogressJudul;
}SHFILEOPSTRUCT,JAUH*LPSHFILEOPSTRUCT;