根据网上前辈的判断。net版本更改为windows版本。测试通过了！

；脚本由Inno设置脚本向导生成！；有关创建Inno设置脚本文件的详细信息，请参考帮助文档！

[代码] //。net framework安装检查-确定指定的。已安装. NET Framework版本和service pack。//函数参数描述://Parameter 1:版本—指定的版本。要判断的. NET框架[对应关系如下表]://‘v1.1 & # 8217。NET Framework 1.1//‘v2.0 & # 8217。NET Framework 2.0//‘v3.0 & # 8217。NET Framework 3.0//‘v3.5 & # 8217。NET Framework 3.5//‘v4 \客户端’。NET Framework 4.0客户端配置文件//‘v4 \ Full & # 8217。NET Framework 4.0完整安装//‘4.5版’。NET Framework 4.5//‘4.5.1版’。NET框架4 . 5 . 1//‘4.5.2版’。NET框架4 . 5 . 2//‘4.6版’。NET Framework 4.6//‘4.6.1版’。NET框架4 . 6 . 1//‘4.6.2版’。NET框架4 . 6 . 2//‘4.7版’。NET Framework 4.7//‘4.7.1版’。NET框架4 . 7 . 1//‘4.7.2版’。net framework 4 . 7 . 2//` v 4.8 `. net framework 4.8///参数2:服务—指定要判断的服务包版本://0不需要服务包//1，2等。服务包1、2等。必需的函数isdotnetdetected(版本:字符串；service: cardinal):布尔型；var key，version key:string；安装、发布、服务计数、版本发布:基数；成功:布尔型；begin versionKey :=版本；version release:= 0；// .如果version = ‘NET 1.1和2.0在版本密钥中嵌入版本号；v1.1 & # 8217然后开始version key:= ‘v 1 . 1 . 4322 ’；如果版本= ‘则结束elsev2.0 & # 8217然后开始version key:= ‘v 2 . 0 . 50727 ’；end //。将. NET 4.5和更高版本安装为对的更新。NET 4.0全else if Pos(‘v4。’，version) = 1然后开始version key:= ‘v4 \ Full ’案例版‘4.5版’:version release:= 378389；‘4.5.1版’:version release:= 378675；//378758 Windows 8及更早版本‘4.5.2版’:version release:= 379893；‘4.6版’:version release:= 393295；//393297 Windows 8.1及更早版本‘4.6.1版’:version release:= 394254；//394271 win 10 11月更新前‘4.6.2版’:version release:= 394802；//394806 win 10周年更新前‘4.7版’:version release:= 460798；//460805 win 10创作者更新前‘4.7.1版’:version release:= 461308；//461310 win 10秋季创作者更新前‘4.7.2版’:version release:= 461808；//461814 win 10之前2018年4月更新‘4.8版’:version release:= 528040；结束；结束；//所有的安装密钥组。NET版本密钥:= ‘软件\Microsoft\NET Framework安装程序\ NDP \ ’+version key；// .如果Pos(‘v3.0 & # 8217，version) = 1然后开始成功:= regquerydwodvalue(HKLM，key+‘\设置’, ‘InstallSuccess & # 8217，安装)；end else begin success:= regquerydwodvalue(HKLM，key，‘安装’，安装)；结束；// .NET 4.0及更新版本使用值服务而不是SP if Pos(‘v4 & # 8217，version) = 1然后开始成功:=成功和regquerydwodvalue(HKLM，key，‘服务’，service count)；end else begin success:= success and regquerydwodvalue(HKLM，key，‘SP & # 8217，service count)；结束；// .NET 4.5和更新版本使用附加价值版本。0然后开始成功:= success和regquerydwodvalue(HKLM，key，‘发布’，发布)；success:= success and(release >= version release)；结束；结果:= success and(install = 1)and(service count >=服务)；结束；//判断windows版本function mygetwindowsversion:string；//获取Windows版本varVersion:TWindowsVersion；beginGetWindowsVersionEx(版本)；// Windows7if(版本。Major = 6)和(版本。minor = 0)thenbeginResult:= ‘VISTA ’退出；结束；// Windows7if(版本。Major = 6)和(版本。minor = 1)thenbeginResult:= ‘WIN7 ’退出；结束；// Windows XP if(版本。Major = 5)和(版本。Minor & gt= 1)thenbeginResult:= ‘WINXP ’；退出；结束；// Windows 8 if(版本。Major = 6)和(版本。Minor & gt1)thenbeginResult:= ‘WIN8 ’退出；结束；// Windows 10if(版本。***jor = 10)thenbeginResult:= ‘WIN10 ′退出；结束；结束；//根据不同的windows版本，判断所需。netframework版本函数initialize setup:boolean；var路径:字符串；ResultCode:整数；版本:TWindowsVersionbegin GetWindowsVersionEx(版本)；if(MyGetWindowsVersion = ’XP & # 8217)然后//或(version.***jor = 5)开始if isdotnetdetected(‘v4 & # 8217，0)然后开始结果:= trueEnd Else如果MsgBox(‘系统检测到您没有的版本。已安装. Net Framework 4。您想现在下载并安装吗？’，mbConfir***tion，MB _ YESNO)= idYes then begin Path:= expand constant(‘{ pf }/Internet Explorer/ie xplore . exe ’);Exec(路径，‘
http://download . Microsoft . com/download/1/B/E/1 be 39 E 79-7e 39-46 a3-96FF-047 f 95396215/dotnetfx 40 _ Full _ setup . exe ’, ”、SW_SHOWNORMAL、ewWaitUntilTerminated、result code)；MsgBox(‘请安装。Net Framework环境(4.0client-4.0Full)下运行此安装程序！’，mbInfor***tion，MB _ OK)；结果:=假；退出；end Else begin MsgBox(‘的。没有安装. Net Framework环境，所以程序无法运行。此安装程序将很快退出！’，mbInfor***tion，MB _ OK)；结果:=假；退出；结束；结束；end else begin Result:= true；结束；if(MyGetWindowsVersion = ’WIN7 & # 8242)或(MyGetWindowsVersion = & # 8217VISTA & # 8217)或(MyGetWindowsVersion = & # 8217WIN8 & # 8242)然后//或(version.***jor = 6)开始if isdotnetdetected(‘4.5版’，0)或IsDotNetDetected(‘4.5.1版’，0)或IsDotNetDetected(‘4.5.2版’，0)或IsDotNetDetected(‘4.6版’，0)或IsDotNetDetected(‘4.6.1版’，0)或IsDotNetDetected(‘4.6.2版’，0)或IsDotNetDetected(‘4.7版’，0)或IsDotNetDetected(‘4.7.1版’，0)或IsDotNetDetected(‘4.7.2版’，0)然后开始结果:= trueEnd Else如果MsgBox(‘系统检测到您没有的版本4.5-4.7.2。已安装. NET Framework。您想现在下载并安装吗？’，mbConfir***tion，MB _ YESNO)= idYes then begin Path:= expand constant(‘{ pf }/Internet Explorer/ie xplore . exe ’);//4.5.2 Exec(路径，‘http://download . Microsoft . com/download/B/4/1/B 4119 c 11-0423-477 B-80EE-7a 474314 B 347/NDP 452-kb 2901954-web . exe ’, ”、SW_SHOWNORMAL、ewWaitUntilTerminated、result code)；MsgBox(‘请安装。Net框架环境(4.5-4.7.2)再运行这个安装程序！’，mbInfor***tion，MB _ OK)；结果:=假；退出；end Else begin MsgBox(‘的。没有安装. Net Framework环境，所以程序无法运行。此安装程序将很快退出！’，mbInfor***tion，MB _ OK)；结果:=假；退出；结束；结束；end else begin Result:= true；结束；if(MyGetWindowsVersion = ’10’)然后//或(version.***jor = 10)开始，如果isdotnetdetected(‘4.6.1版’，0)或IsDotNetDetected(‘4.6.2版’，0)或IsDotNetDetected(‘4.7版’，0)或IsDotNetDetected(‘4.7.1版’，0)或IsDotNetDetected(‘4.7.2版’，0)然后开始结果:= trueEnd Else如果MsgBox(‘系统检测到您没有的版本4.6.1-4.8。已安装. NET Framework。您想现在下载并安装吗？’，mbConfir***tion，MB _ YESNO)= idYes then begin Path:= expand constant(‘{ pf }/Internet Explorer/ie xplore . exe ’);//4.6.2 Exec(路径，‘http://download . Microsoft . com/download/D/5/C/D 5c 98 ab 0-35CC-45d 9-9ba 5-b 18256 ba 2 AE 6/NDP 462-kb 3151802-web . exe ’, ”、SW_SHOWNORMAL、ewWaitUntilTerminated、result code)；MsgBox(‘请安装。Net框架环境(4.6.1-4.8)再运行这个安装程序！’，mbInfor***tion，MB _ OK)；结果:=假；退出；end Else begin MsgBox(‘的。没有安装. Net Framework环境，所以程序无法运行。此安装程序将很快退出！’，mbInfor***tion，MB _ OK)；结果:=假；退出；结束；结束；end else begin Result:= true；结束；结束；