本文由 发布,转载请注明出处,如有问题请联系我们! 发布时间: 2021-08-01net framework 3.0怎么安装-缺少netframework运行环境解决方法

加载中

依据在网上老前辈的分辨。net版本号已更改成Windows版本号。完成检测!

;脚本制作由Inno安裝脚本制作指导转化成!;相关建立Inno安裝脚本文件的详细资料,请参照帮助文件!

[编码] //。. NET Framework安裝查验-明确特定的。. NET Framework版本号和服务项目包已安裝//函数调用表明://主要参数1:版本号-特定。net framework版本号未确定[对应关系如下所示所列]:// 'v1.1 '。. NET Framework 1.1// 'v2.0 '。. NET Framework 2.0//“v 3.0”。. NET Framework 3.0// 'v3.5 '。. NET Framework 3.5// 'v4\手机客户端'。. NET Framework 4.0手机客户端环境变量/“v4 \详细”。. NET Framework 4.0完全按照// 'v4.5 '。. NET Framework 4.5// 'v4.5.1 '。. NET Framework 4.5.1// 'v4.5.2 '。. NET Framework 4.5.2// 'v4.6 '。. NET Framework 4.6// 'v4.6.1 '。. NET Framework 4.6.1// 'v4.6.2 '。. NET Framework 4.6.2// 'v4.7 '。. NET Framework 4.7//“v 4 . 7 . 1”。net framework 4.7.1//'v4.7.2 '。net framework 4 . 7 . 2/` v 4.8`。net framework 4.8////主要参数2:服务项目-特定要分辨的功能包版本号:// 0不用服务项目包// 1.2等。服务项目包1.2等。required function IsdotnetDetected(版本号:字符串数组;服务项目:数量):布尔运算;var键,versionKey:字符串数组;安裝.公布.服务项目记数.版本更新:数量;取得成功:布尔型;begin version key:= version;version release:= 0;// .NET 1.1和2.0在版本号密匙中置入版本信息假如版本号= 'v1.1 ',则逐渐version key:= ' v 1 . 1 . 4322 ';end else假如版本号= 'v2.0 ',则逐渐version key:= ' v 2 . 0 . 50727 ';end //。. NET 4.5及高些版本号做为升级安裝到。. NET 4.0详细的不然假如部位(' v4 ',版本号)= 1,随后逐渐版本号键:= ' v4 \ Full' v4.5 '的英文大小写版本号:version release:= 378389;v 4 . 5 . 1 ':version release:= 378675;// 378758在Windows 8及更早版本号' v4.5.2 '上:version release:= 379893;v 4.6 ':version release:= 393295;Windows 8.1及更早版本号' v4.6.1 '上的393297:version release:= 394254;Win10月升级' v4.6.2 '以前的394271:version release:= 394802;Win10周年纪念升级' v4.7 '以前的394806:version release:= 460798;//win 10 Creators Update ' v 4 . 7 . 1 '以前的460805:version release:= 461308;Win10秋天原创者升级' v4.7.2 '以前的461310:version release:= 461808;//461814 win 10 2018年4月以前升级' v 4.8 ':version release:= 528040;完毕;完毕;//全部安裝密匙组。净版本号密匙:= '手机软件\微软公司\净架构安裝\NDP\' 版本号密匙;// .. NET 3.0在子项目安裝中应用值InstallSuccess假如Pos('v3.0 ',版本号)= 1,则逐渐取得成功:= regquerydworvalue(HKLM,键 '\Setup ',' InstallSuccess ',install);end else begin success:= regqueryword value(HKLM,键,' Install ',Install);完毕;// .NET 4.0及高些版本号应用值service代替SP假如Pos('v4 ',版本号)= 1则逐渐取得成功:= success和regqueryword value(HKLM,键,' service ',service count);end else begin success := success和regqueryword value(HKLM,key,' SP ',service count);完毕;// .NET 4.5及高些版本号应用增加值Release假如versionRelease > 0,则逐渐取得成功:= success和regqueryword value(HKLM,键,“Release”,Release);取得成功:=取得成功和(公布> =版本更新);完毕;結果:=取得成功和(安裝= 1)和(服务项目记数> =服务项目);完毕;//分辨windows版本号涵数mygetwindowsversversion:string;//获得Windows版本号varVersion:twindowsversversion;beginGetWindowsVersionEx(版本号);//对话框7if(版本号。技术专业= 6)和(版本号。minor = 0)ThEnbeginresult:= ' VISTA ';撤出;完毕;//对话框7if(版本号。技术专业= 6)和(版本号。minor = 1)ThEnbeginresult:= ' WIN7 ';撤出;完毕;// Windows XP if(版本号。技术专业= 5)和(版本号。小曲> =1)随后逐渐結果:= ' WINXP ';撤出;完毕;// Windows 8 if(版本号。技术专业= 6)和(版本号。minor > 1)ThEnbeginresult:= ' WIN8 ';撤出;完毕;// Windows 10if(版本号。major = 10)ThEnbeginresult:= ' Win10 ';撤出;完毕;完毕;//依据不一样的windows版本号,明确需要的版本号。netframework涵数复位设定:布尔值;var途径:字符串数组;結果编码:整数金额;版本号:TWindowsVersion逐渐GetWindowsVersionEx(版本号);if(my getwindowsversversion = ' XP ')随后//或(version。major = 5)假如isdotnetdetected(v4,0)则逐渐,随后逐渐結果:= true假如msgbox('网络检测到您并未安裝版本号4的,则完毕别的实际操作逐渐。net framework,要如今安装下载吗?,mbConfirmation,MB _ YESNO)= idys随后逐渐Path:= ExpandConstant(' { pf }/Internet Explorer/iexplore . exe ');Exec(途径,',http://download . Microsoft . com/download/1/B/E/1be 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)!”,mbInformation,MB _ OK);結果:=假;撤出;End else begin msgbox ('the。'未安裝. Net Framework自然环境,程序流程没法运作,此程序安装将要撤出!',mbInformation,MB _ OK);結果:=假;撤出;完毕;完毕;end else begin Result:= true;完毕;假如(mygetwindowsversion = ' win7 ')或(mygetwindowsversion = ' vista ')或(mygetwindowsversion = ' win8 ')则//或(version。学校专业= 6)。假如IsDotNetDetected('v4.5 ',0)或IsDotNetDetected('v4.5.1 ',0)或IsDotNetDetected('v4.5.2 ',0)或IsDotNetDetected('v4.6 ',0)或IsDotNetDetected('v4.6.2 ',0)或IsDotNetDetected('v4.7 ',0)或IsDotNetDetected('v4.7.1 ',0)或IsDotNetDetected(' v 4 . 7 . 7)则逐渐。假如msgbox('网络检测到您沒有安裝4.5-4.7.2版的。' net framework,您想如今安装下载它吗?',mbConfirmation,MB _ YESNO)= idys随后逐渐Path:= ExpandConstant(' { pf }/Internet Explorer/iexplore . exe ');//4.5.2 Exec(途径,',http://download . Microsoft . com/download/B/4/1/B 4119 c11-0423-477 B- 80EE-7a 44314 B 347/NDP 452-kb 2901954-web . exe ',",SW_SHOWNORMAL,ewWaitUntilTerminated,result code);Msgbox('请安裝。运作此安装文件以前的. Net Framework自然环境(4.5-4.7.2)!”,mbInformation,MB _ OK);結果:=假;撤出;End else begin msgbox ('the。'未安裝. Net Framework自然环境,程序流程没法运作,此程序安装将要撤出!',mbInformation,MB _ OK);結果:=假;撤出;完毕;完毕;end else begin Result:= true;完毕;假如(mygetwindowsversion = ' 10 ')则//或(version。major = 10)逐渐假如isdotnetdetected ('v4.6.1 ',0)或isdotnetdetected ('v4.6.2 ',0)或IsDotNetDetected('v4.7 ',0)或IsDotNetDetected('v4.7.1 ',0)或IsDotNetDetected('v4.7.2 ',0),则逐渐結果:= true假如msgbox('网络检测到您沒有安裝4.6.1-4.8版本号的。' net framework,您想如今安装下载它吗?',mbConfirmation,MB _ YESNO)= idys随后逐渐Path:= ExpandConstant(' { pf }/Internet Explorer/iexplore . exe ');//4.6.2 Exec(途径,' http://download . Microsoft . com/download/D/5/C/d5c 98 ab 0-35CC-45d 9-9ba 5-b 18256 ba 2 ae6/NDP 462-kb 3151802-web . exe ',",SW_SHOWNORMAL,ewWaitUntilTerminated,result code);Msgbox('请安裝。运作此安装文件以前的. Net Framework自然环境(4.6.1-4.8)!”,mbInformation,MB _ OK);結果:=假;撤出;End else begin msgbox ('the。'未安裝. Net Framework自然环境,程序流程没法运作,此程序安装将要撤出!',mbInformation,MB _ OK);結果:=假;撤出;完毕;完毕;end else begin Result:= true;完毕;完毕;

评论(0条)

刀客源码 游客评论