用DELPHI给OICQ动手术(二)

王朝delphi·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

用DELPHI给OICQ动手术(二)

http://www.tongyi.net 作者:ChinaByte 出处:胡飞 点击:3945

// 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;

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航