用DELPHI给OICQ动手术(二)

核心提示：// gif.gif为当前路径下的一透明图片文件 sDir := ExtractFilepath(application.exename)+ 'gif.gif'; //如果图片文件不存在，则显示错误信息并退出 if not fileexists(sDir) then begin application.

// gif.gif为当前路径下的一透明图片文件

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

　　 //如果图片文件不存在，则显示错误信息并退出

　　 if not fileexists(sDir) then

　　 begin

　　 application.MessageBox('文件安装错误！图片文件未找到！',

　　 '错误',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

　　 //占用的系统资源

　　 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参数。FindFirst和FindNext必须调用FindClose来释放内存。

　　 CopyFile拷贝已存在的文件到一个新文件，定义如下：

　　 BOOL CopyFile(

　　 LPCTSTR lpExistingFileName, // 要拷贝的文件

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

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

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

　　 //作失败，否则覆盖

　　 );

　　 至于恢复广告条，怎么，你真的想恢复广告条啊？哇，这样的人也有，我算是服了！好，作为一个功能，简单介绍广告条的恢复。

　　 前面讲过，删除掉AD文件夹下的所有GIF文件，OICQ下次运行后会自动下载广告文件。那么有两种方法来实现恢复功能，一种方法就是删除AD文件夹，另一种方法就是删除AD文件夹下的GIF文件。鉴于去掉广告条时要访问AD文件夹，如果采用第一种方法，恢复广告条后马上点击“去掉广告条”，可能会出错。所以建议采用第二种方法。这里两种方法都简单介绍一下。

　　 删除文件夹。首先有必要介绍一下ShFileOperation()函数和TshFileOpStruct类型。

　　 ShFileOperation()函数可以对文件系统进行拷贝、移动、重命名、删除等操作，如果操作成功则返回0，否则返回非0值。定义如下：

　　 WINSHELLAPI int WINAPI SHFileOperation(

　　 LPSHFILEOPSTRUCT lpFileOp

　　 );

　　 ShFileOpStruct包含了ShFileOperation()函数进行操作的文件信息。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;