首页    新闻    下载    文档    论坛     最新漏洞    黑客教程    数据库    搜索    小榕软件实验室怀旧版    星际争霸WEB版    最新IP准确查询   
名称: 密码:      忘记密码  马上注册
安全知识 :: 黑客教程

用Delphi编制可自动升级程序


http://www.gipsky.com/
在编制了一个应用程序后的维护阶段,我们会面临给应用程序升级的工作.无疑,手工升级的工作是十分繁琐的,你可能会需要到用户的机器上去更新文件.可是,假如能编一个自动升级程序,放在网络上,让用户下载,只需执行一下就完成升级工作,不是很方便吗?其实,用Delphi可以很方便地编制出这样一个的程序.



以下是我们的例子,设我们已经有一个应用程序This.exe,要对它升级,用来升级的程序为Upgrade.exe.



1.This的工程文件框架



program THIS;



uses



SysUtils,



Windows,



Forms,



...;



我们将它写入代码中,因为这在Delphi的工程文件中是没有自动生成的.“…”部分是你创建的窗体部分



Var



Fn : String;



TSI : TStartupInfo;



TPI : TProcessInformation;



{$R *.RES}



begin



“升级程序”使用FileAge来检查原来应用程序的建立时间,假如检测到的是旧版本,则提示升级:



IF FileAge(‘SomeServerSomeDirthis.exe‘) 〉 FileAge(ParamStr(0)) THEN



IF Application.MessageBox(‘这是一个更新版本的THIS.EXE.‘ #13‘你要得到新版本的升级文件吗?‘, ‘Upgrade Time!‘,1) = 1 THEN



Begin



运行升级程序时,升级程序应与原主程序this.exe在同一目录下.假如当它启动时,这个版本主程序应该退出,但要保证它不会删除任何文件,因为此时Application.Initialize还没有被调用.代码如下:



Fn:= ExtractFilePath(ParamStr(0)) ‘UpgradeThis.exe‘;



FillChar(TSI, SizeOf(TSI), 0);



TSI.CB := SizeOf(TSI);



IF CreateProcess (PChar(Fn), NIL, NIL, NIL, False,



DETACHED_PROCESS, NIL, NIL, TSI, TPI)



THEN Exit



但是,假如“升级程序”由于某些原因没有运行,我们此时应该告诉用户,他能通过其他方法得到一个更新的程序版本,这时我们依然退出主程序以便用户升级.假如必要的话,也可以继续装入并运行旧版本.



ELSE



Begin



messagebeep(0);



Application.MessageBox(‘不能完成文件拷贝.‘ ‘ ‘ 请手工拷贝!.‘, ‘Copy Error!‘,1);



Exit;



End;



End;



Application.Initialize;



Application.Title := ‘This‘;



Application.HelpFile := ‘This.hlp‘;



{autocreate forms, etc.}



Application.Run;



end.



假如自动升级程序是一个控制台程序,那么一定要保证正确的控制台程序连接选项设置.



program UpgradeThis;



uses



Forms,



SysUtils,



Windows;



Var



Fn : String;



TSI : TStartupInfo;



TPI : TProcessInformation;



{$R *.RES}



begin



用CopyFile来拷贝新版本的文件,同FileAge一样,它不考虑标准命名格式的路径和文件名.



IF CopyFile(‘SomeServerSomeDirthis.exe‘,



PChar(ExtractFilePath(ParamStr(0)) ‘this.exe‘),False) THEN



Begin



一旦这些新版本的文件被拷贝到系统中,它就应该能够运行了,而且也没有理由不运行.所以,这里基本上不需要加入出错检测的代码.



那么,例子中使它运行并简单处理错误的代码如下:



Fn := ExtractFilePath(ParamStr(0)) ‘this.exe‘;



FillChar(TSI, SizeOf(TSI), 0);



TSI.CB := SizeOf(TSI);



CreateProcess(PChar(Fn), NIL, NIL, NIL, False, DETACHED?PROCESS, NIL, NIL, TSI, TPI);



End



ELSE



Application.MessageBox(‘不能拷贝文件THIS.EXE‘, ‘Error!‘, mb_OK);



end.



需要注重的是,在这些用来升级程序的代码中,并没有用到任何Application.Initialize和Application.Run.这些方法同样可以被引用来作检查新版本的帮助文件(用GetWindowsDir或GetWindowsDirectory并把“Help”加入到用来升级的程序中)或用来检测“升级程序”是否是新的版本.



上面只是从文件的更新角度说明了编制“升级程序”的方法,但在很多情况中升级一个程序甚至要修改<b><a href=http://www.baidu.com/s?tn=piglet&ct=&lm=&z=&rn=&word=注册表 target="_blank"><font color=red>注册表</font></a></b>或各种INI的文件,这些在Delphi中是比较轻易实现的,有爱好的朋友可以参照一些资料来加入实现这些功能的代码.
<< 实战恶性病毒 江民KV2009公测版测试手记 Delphi编译错误中文手册 >>
评分
10987654321
API:
gipsky.com& 安信网络
网友个人意见,不代表本站立场。对于发言内容,由发表者自负责任。

系统导航

 

Copyright © 2001-2010 安信网络. All Rights Reserved
京ICP备05056747号