为了给自己的程序实现自动升级的功能,这2天查了点资料,写了这个程序。就算是原创吧,当然也参考了网上的资料。呵呵。当然,还不完美,目前只是将就实现了基本的功能,下载大文件窗体假死的问题还是没有解决,还有,进度条的问题也处理不好,还有很多要完善的地方。希望需要的朋友自己去完善。
我开始也在网上找了相关的代码,但都不完整,不是缺这个就是少那个,很少有能拿来就用的。估计是作者只提供了部分的代码吧。以下是我的全部源代码,没有删除任何内容,保证大家复制之后,添加完相应的控件就可以运行。使用了Tlhelp323,这个文件的代码,在:http://blog.csdn.net/leoruby/archive/2010/11/01/5979545.aspx
以下是我的配置文件的格式,这个大家可以根据自己的需要再更改,本程序就是通过比较这2个文件,来进行更新的。
本地version.ine文件格式:
[update]
version=1.0
远程update.ini文件格式:
[update]
version=2.1
[updatelist]
up1=1.exe
up2=2.dll
up3=3.txt
......
//
unit MainFrm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, FileCtrl, ShellApi, IniFiles, Tlhelp323,
IdAntiFreezeBase, IdAntiFreeze, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdHTTP, StdCtrls;
type
TMainForm = class(TForm)
ProgressBar1: TProgressBar;
IdHTTP1: TIdHTTP;
IdAntiFreeze1: TIdAntiFreeze;
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure CheckVersion();
procedure UpdateStart();
procedure Deletedir(str:string);
自己用delphi7参考网上资料写的一个在线升级程序
最新推荐文章于 2020-10-28 01:57:29 发布
![](https://img-home.csdnimg.cn/images/20240711042549.png)