用DELPHI给OICQ动手术(二)

原创 2001年08月10日 00:01:00
用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;

用DELPHI给OICQ动手术(二)

  • zgqtxwd
  • zgqtxwd
  • 2008年04月30日 23:36
  • 191

用DELPHI给OICQ动手术(一)

  • zgqtxwd
  • zgqtxwd
  • 2008年04月30日 17:55
  • 87

公开OICQ所有通讯协议

公开OICQ所有通讯协议 作者:腾讯发布日期:2002-3-2上传日期:2002-3-10来源:OICQ服务器 OICQ服务器系统通讯协议 协议说明: 协议由报文头(T)+发送者(T)+接收者(T)+...
  • benlee
  • benlee
  • 2004年09月20日 08:48
  • 771

【以太网数据包】OICQ数据包(QQ)

【以太网数据结构】系列文章链接 http://blog.csdn.net/u012819339/article/category/5849175OICQ数据包格式协议字段解释: 标识:固定为0x...
  • u012819339
  • u012819339
  • 2015年12月21日 20:22
  • 2663

QQ协议分析及还原

最初,QQ通信协议并没有加密,而是直接采取明文的方式进行传输,到了后来才使用了加密传输,加密算法一直没有变过,使用的是blowfish算法,但是密钥的交换协议变得比较频繁。其实TX也是被逼的,现在的互...
  • qinggebuyao
  • qinggebuyao
  • 2012年07月31日 15:24
  • 49294

qq项目

QQ项目 1.1MVC设计模式 1.1.1什么是设计模式 设计模式(Design pattern)是一套被反复使用、多数人知晓的、经过分类编目的、代码设计经验的总结。简单来说设计模式...
  • Bonnie_fan
  • Bonnie_fan
  • 2015年05月25日 21:02
  • 174

GDI+ 在Delphi程序的应用 -- 图像二值化

    图像的二值化,无论是理论,还是方法都很多,网上搜索一大堆,本人水平有限,没法完全搞清楚,只在这里针对GDI+在Delphi中如何做一般二值化处理,写一个简单例子。    其实,这个例子在昨天本...
  • maozefa
  • maozefa
  • 2007年01月30日 23:27
  • 4174

Delphi 的RTTI机制浅探2

本文上篇基本上是 RTTI 入门介绍,续篇介绍了所有 TypInfo.pas 中的函数,附加了 Classes.pas、Graphics.pas、Con...
  • simb
  • simb
  • 2006年09月15日 09:35
  • 1750

Delphi数学常用操作函数二

1. Inc procedure Inc(var X [ ; N: Longint ] );:整数自加N。其中,X为变量;N为要增加的长度。例如: [delphi] view ...
  • wozengcong
  • wozengcong
  • 2013年12月27日 22:20
  • 624

(转载)Delphi TStringList的用法

 http://www.cnblogs.com/angelbd/p/3373134.html      (转载)Delphi TStringList的用法 Del...
  • hewusheng10
  • hewusheng10
  • 2016年12月02日 15:30
  • 259
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用DELPHI给OICQ动手术(二)
举报原因:
原因补充:

(最多只允许输入30个字)