自己用delphi7参考网上资料写的一个在线升级程序

    为了给自己的程序实现自动升级的功能，这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);