Inno setup 基于联机文件设置Inno安装程序版本

Inno setup 基于联机文件设置Inno安装程序版本,inno-setup,pascalscript,Inno Setup,Pascalscript,在Inno安装项目中,我从服务器下载了所有文件,还下载了一个具有版本号的文件。现在我想从文件中读取版本并将其分配到code部分AppVersion中的[Setup]部分。我的问题是,可以在code部分设置应用程序版本吗?结合这两个问题: [设置] AppVersion={code:GetAppVersion} [守则] 变量 版本:字符串; 函数GetAppVersion(参数:string):string; 变量 WinHttpReq:变体; 开始 如果版本='',则 开始 WinHt

在Inno安装项目中,我从服务器下载了所有文件,还下载了一个具有版本号的文件。现在我想从文件中读取版本并将其分配到
code
部分
AppVersion
中的
[Setup]
部分。我的问题是,可以在
code
部分设置应用程序版本吗?

结合这两个问题:

[设置]
AppVersion={code:GetAppVersion}
[守则]
变量
版本:字符串;
函数GetAppVersion(参数:string):string;
变量
WinHttpReq:变体;
开始
如果版本='',则
开始
WinHttpRequest:=CreateOleObject('WinHttp.WinHttpRequest.5.1');
WinHttpReq.Open('GET','https://www.example.com/version.txt",假),;
WinHttpReq.Send(“”);
如果WinHttpReq.状态为200,则
开始
日志('HTTP错误:'+IntToStr(WinHttpReq.Status)+'+WinHttpReq.StatusText);
MsgBox('无法获取版本',mbError,MB_OK);
中止();
结束
其他的
开始
版本:=修剪(WinHttpReq.ResponseText);
日志('版本:'+版本);
//您可能希望验证该值在此处是否有意义
结束;
结束;
结果:=版本;
结束;