// 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;
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18