arupdata_.pas

这是一款简单易用的自动升级及更新软件

unit arUpdata_;

interface

uses
  Classes;

type
  arUpdata = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

implementation
uses update;


procedure arUpdata.Execute;
begin
  UpdataFrm.ReadUpdateMessage(Updatafrm.inifile,
  Updatafrm.Updatefiles,Updatafrm.ProgressStatus);
  UpdataFrm.ShlExecute(Updatafrm.inifile);
end;

end.