“冰河”启示录Delphi7.0.doc

“冰河”启示录(Delphi7.0经典文章介绍) 攀枝花市第三高级中学 廖 裕 前言：我经常在杂志和报刊上看到此类标题的文章，但大多是骗稿费的，没有任何技术含量。于是一气之下写了这编东西。本人声明如下：(一)本人对冰河及其作者没有任何不满，相反，作者肯帮助初学者的态度是我们每一个人都应该学习的。(二)本文的目的在于交流编程经验，没有任何其它不良企图。(三)在一些领域，我们理应宁可自制力让我们的预见力保持寂寞，也不要去做一个打开潘多拉盒子的先知。所以一些更厉害的方法我们现在不会提，以后也不会。 第一部分技术介绍 “冰河”是有名的用C++Builder编写的国产远程管理软件，其自我的功能保护很强，下面就以Delphi为例谈一谈它的原理，希望对大家有一些启发。 一、程序安装 此类程序一般会把自己隐藏起来运行，通常不外乎以下几种方法：自我拷贝法、资源文件法、网页方式安装、类病毒捆绑法(如YAI)。自我拷贝法适用于本身就一个文件，资源文件法可以同时安装好几个文件，网页方式安装要先向M$交钱换安全签证，类病毒捆绑法利用了病毒的原理。本文只介绍自我拷贝法，其它方法请到我的个人主页去看。http：// 1、自我拷贝法 这种方法的原理是程序运行时先查看自己是不是在特定目录下，如果是就继续运行，如果不是就把自己拷贝到特定目录下，然后运行新程序，再退出旧程序。 打开Delphi，新建一个工程，在窗口的Create事件中写代码： procedure TForm1.FormCreate(Sender： TObject); var myname： string; begin myname ：= ExtractFilename(Application。Exename); //获得文件名 if application.Exename GetWindir + myname then //如果文件不是在Windows\System\那么.. begin copyfile(pchar(application.Exename)， pchar(GetWindir + myname)， False);{将自己拷贝到Windows\System\下} Winexec(pchar(GetWindir + myname)， sw_hide);//运行Windows\System\下的新文件 application.Terminate;//退出 end; end; 其中GetWinDir是自定义函数，起功能是找出Windows\System\的路径。 function GetWinDir： String; var Buf： array[0..MAX_PATH] of char; begin GetSystemDirectory(Buf， MAX_PATH); Result ：= Buf; if Result[Length(Result)]\ then Result ：= Result + \; end; 另外，为了避免同时运行多个程序的副本(节约系统资源也)，程序一般会弄成每次只能运行一个。这又有几种方法： 一种方法是程序运行时先查找有没有相同的运行了，如果有，就立刻退出程序。 修改dpr项目文件，修改begin和end之间的代码如下： begin Application.Initialize; if FindWindow(TForm1，Form1)=0 then begin //当没有找到Form1时执行下面代码 Application.ShowMainForm：=False; //不显示主窗口 Application.CreateForm(TForm1， Form1); Application.Run; end; end. 另一种方法是启动时会先通过窗口名来确定是否已经在运行，如果是则关闭原先的再启动。“冰河”就是用这种方法的。 这样做的好处在于方便升级。它会自动用新版本覆盖旧版本。 方法如下：修改dpr项目文件 uses Forms，windows，messages， Unit1 in Unit1.pas {Form1}; 为了程序能在Windows每次启动时自动运行，可以通过六种途径来实现。“冰河”用注册表的方式。 加入Registry单元，改写上面的窗口Create事件，改写后的程序如下： procedure TForm1。FormCreate(Sender： TObject); const K = \Software\Microsoft\Windows\CurrentVersion\RunServices; var myname： string; begin {Write by Lovejingtao，http：//L，Lovejingtao@21} m