// gif.gif為當(dāng)前路徑下的一透明圖片文件

　　 sDir := ExtractFilepath(application.exename)+ 'gif.gif';

　　 //如果圖片文件不存在，則顯示錯(cuò)誤信息并退出

　　 if not fileexists(sDir) then

　　 begin

　　 application.MessageBox('文件安裝錯(cuò)誤！圖片文件未找到！',

　　 '錯(cuò)誤',0);

　　 exit;

　　 end;

　　 //用該文件替換掉AD文件夾下的所有GIF文件

　　 for i := 0 to sList.Count - 1 do

　　 copyFile(Pchar(sDir) ,Pchar(sList[i]),False);

　　 //查找并替換掉DAT文件夾下的所有GIF文件

　　 Dir := Edit1.Text + 'Dat';

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

　　 while FindResult = 0 do

　　 begin

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

　　 FindResult := FindNext(SearchRec);

　　 end;

　　 for i := 0 to sList.Count - 1 do

　　 copyFile(Pchar(sDir) ,Pchar(sList[i]),False);

　　 finally

　　 FindClose(SearchRec); //釋放FindFirst和FindNext

　　 //占用的系統(tǒng)資源

　　 sList.Free; //釋放列表

　　 end;

　　 end;

　　 FindFirst和FindNext是查找指定路徑下指定屬性和類型的文件，定義如下：

　　 function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer;

　　 function FindNext(var F: TSearchRec): Integer。FindNext總是與FindFirst配合使用，缺省使用FindFirst的Path和Attr參數(shù)。FindFirst和FindNext必須調(diào)用FindClose來(lái)釋放內(nèi)存。

　　 CopyFile拷貝已存在的文件到一個(gè)新文件，定義如下：

　　 BOOL CopyFile(

　　 LPCTSTR lpExistingFileName, // 要拷貝的文件

　　 LPCTSTR lpNewFileName, // 拷貝的目的文件

　　 BOOL bFailIfExists // 如果目的文件已存在，

　　 // 指出如何操作，如果為Ture而目的文件已存在則操

　　 //作失敗，否則覆蓋

　　 );

　　 至于恢復(fù)廣告條，怎么，你真的想恢復(fù)廣告條啊？哇，這樣的人也有，我算是服了！好，作為一個(gè)功能，簡(jiǎn)單介紹廣告條的恢復(fù)。

　　 前面講過(guò)，刪除掉AD文件夾下的所有GIF文件，OICQ下次運(yùn)行后會(huì)自動(dòng)下載廣告文件。那么有兩種方法來(lái)實(shí)現(xiàn)恢復(fù)功能，一種方法就是刪除AD文件夾，另一種方法就是刪除AD文件夾下的GIF文件。鑒于去掉廣告條時(shí)要訪問(wèn)AD文件夾，如果采用第一種方法，恢復(fù)廣告條后馬上點(diǎn)擊“去掉廣告條”，可能會(huì)出錯(cuò)。所以建議采用第二種方法。這里兩種方法都簡(jiǎn)單介紹一下。

　　 刪除文件夾。首先有必要介紹一下ShFileOperation()函數(shù)和TshFileOpStruct類型。

　　 ShFileOperation()函數(shù)可以對(duì)文件系統(tǒng)進(jìn)行拷貝、移動(dòng)、重命名、刪除等操作，如果操作成功則返回0，否則返回非0值。定義如下：

　　 WINSHELLAPI int WINAPI SHFileOperation(

　　 LPSHFILEOPSTRUCT lpFileOp

　　 );

　　 ShFileOpStruct包含了ShFileOperation()函數(shù)進(jìn)行操作的文件信息。TshFileOpStruct類型定義如下：

　　 typedef struct _SHFILEOPSTRUCT { // shfos

　　 HWND hwnd;

　　 UINT wFunc;

　　 LPCSTR pFrom;

　　 LPCSTR pTo;

　　 FILEOP_FLAGS fFlags;

　　 BOOL fAnyOperationsAborted;

　　 LPVOID hNameMappings;

　　 LPCSTR lpszPRogressTitle;

　　 } SHFILEOPSTRUCT, FAR *LPSHFILEOPSTRUCT;