下面是調用方法：
MESUpdate:=TAutoUpgrade.Create(Application);
SetAutoUpgrade(MESUpdate);
procedure TmessageHandlerForm.SetAutoUpgrade(Upgrade:TAutoUpgrade);
var
iniUpgrade:Tinifile;
begin
iniUpgrade:=TiniFile.Create(ExtractFilePath(Application.ExeName)+'\ini\AutoUpgrade.ini');
Upgrade.HttpURL:=iniUpgrade.ReadString('AutoUpgrade','HttpURL','');
Upgrade.ForceUpgrade:=StrToBoolDef(iniUpgrade.ReadString('AutoUpgrade','ForceUpgrade','False'),False);
Upgrade.TimeInterval:=iniUpgrade.ReadInteger('AutoUpgrade','TimeInterval',3600000);
iniUpgrade.Free;
end;
INI文件是這樣設置的：
[AutoUpgrade]
HttpURL=http://127.0.0.1/MESUpdate/MES/
ForceUpgrade=False
TimeInterval=3600000
原來的UpdateReStart屬性沒有了，
應用程式在升級的時候會偵測到要不要重啟應用程式．
原來的ExecuteDo屬性也沒有了，代替的屬性是Enabled
Enabled默認為True,
程式在啟動的時候會馬上去檢查升級，
以後就按照TimeInterval屬性定時去檢查升級的．
Enabled為False時則不檢查升級,
HttpURL默認為空，HttpURL為空時也不進行升級．
QuietUpgrade:升級時是否提示
ForceUpgrade:是否強制升級
autoupgrade
需积分: 10 88 浏览量
2008-11-01
16:46:09
上传
评论
收藏 26KB RAR 举报
AutoUpgrade.rar （15个子文件） 
AutoUpgrade 
AutoUpgrade.dcu 18KB Update.ini 409B AutoUpgrade.~pas 16KB AutoUpgrade.dcr 2KB AutoUprade.res 2KB __history AutoUprade.dpk.~1~ 585B AutoUprade.dproj.local 62B AutoUprade.dcu 6KB AutoUprade.dproj.2007 5KB AutoUprade.dpk 587B AutoUprade.cfg 390B AutoUprade.dof 2KB AutoUprade.dproj 5KB
新版VCL使用方法.txt 1KB AutoUpgrade.pas 16KB资源评论
