//gif.gif为当前路径下的一透明图片文件
sDir:=ExtractFilepath(application.exename)+'gif.gif';
//如果图片文件不存在，则显示错误信息并退出
ifnotfileexists(sDir)then
begin
application.MessageBox('文件安装错误！图片文件未找到！',
'错误',0);
exit;
end;
//用该文件替换掉AD文件夹下的所有GIF文件
fori:=0tosList.Count-1do
copyFile(Pchar(sDir),Pchar(sList[i]),False);
//查找并替换掉DAT文件夹下的所有GIF文件
Dir:=Edit1.Text+'Dat';
FindResult:=FindFirst(Dir+'*.gif',FaAnyFile,SearchRec);
whileFindResult=0do
begin
sList.Add(lowercase(Dir+SearchRec.name));
FindResult:=FindNext(SearchRec);
end;
fori:=0tosList.Count-1do
copyFile(Pchar(sDir),Pchar(sList[i]),False);
finally
FindClose(SearchRec);//释放FindFirst和FindNext
//占用的系统资源
sList.Free;//释放列表
end;
end;
FindFirst和FindNext是查找指定路径下指定属性和类型的文件，定义如下：
functionFindFirst(constPath:string;Attr:Integer;varF:TSearchRec):Integer;
functionFindNext(varF:TSearchRec):Integer。FindNext总是与FindFirst配合使用，缺省使用FindFirst的Path和Attr参数。FindFirst和FindNext必须调用FindClose来释放内存。
CopyFile拷贝已存在的文件到一个新文件，定义如下：
BOOLCopyFile(
LPCTSTRlpExistingFileName,//要拷贝的文件
LPCTSTRlpNewFileName,//拷贝的目的文件
BOOLbFailIfExists//如果目的文件已存在，
//指出如何操作，如果为Ture而目的文件已存在则操
//作失败，否则覆盖
);
至于恢复广告条，怎么，你真的想恢复广告条啊？哇，这样的人也有，我算是服了！好，作为一个功能，简单介绍广告条的恢复。
前面讲过，删除掉AD文件夹下的所有GIF文件，OICQ下次运行后会自动下载广告文件。那么有两种方法来实现恢复功能，一种方法就是删除AD文件夹，另一种方法就是删除AD文件夹下的GIF文件。鉴于去掉广告条时要访问AD文件夹，如果采用第一种方法，恢复广告条后马上点击“去掉广告条”，可能会出错。所以建议采用第二种方法。这里两种方法都简单介绍一下。
删除文件夹。首先有必要介绍一下ShFileOperation()函数和TshFileOpStruct类型。
ShFileOperation()函数可以对文件系统进行拷贝、移动、重命名、删除等操作，如果操作成功则返回0，否则返回非0值。定义如下：
WINSHELLAPIintWINAPISHFileOperation(
LPSHFILEOPSTRUCTlpFileOp
);
ShFileOpStruct包含了ShFileOperation()函数进行操作的文件信息。TshFileOpStruct类型定义如下：
typedefstruct_SHFILEOPSTRUCT{//shfos
HWNDhwnd;
UINTwFunc;
LPCSTRpFrom;
LPCSTRpTo;
FILEOP_FLAGSfFlags;
BOOLfAnyOperationsAborted;
LPVOIDhNameMappings;
LPCSTRlpszPRogressTitle;
}SHFILEOPSTRUCT,FAR*LPSHFILEOPSTRUCT;