http://download.microsoft.com/download/1/B/E/1BE39E79-7E39-46A3-96FF-047F95396215/dotNetFx40_Full_setup.exe’, ”, SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode); MsgBox(‘请安装好.Net Framework环境后(4.0client-4.0Full),再运行本安装包程序!’,mbInformation,MB_OK); Result := false; Exit; End Else begin MsgBox(‘没有安装.Net Framework环境,无法运行程序,本安装程序即将退出!’,mbInformation,MB_OK); Result := false; Exit; end; end; end else begin Result := true; End; if (MyGetWindowsVersion=’WIN7′ ) OR (MyGetWindowsVersion=’VISTA’ ) OR (MyGetWindowsVersion=’WIN8′ ) then //或者 (Version.Major = 6) begin if IsDotNetDetected(‘v4.5’, 0) or IsDotNetDetected(‘v4.5.1’, 0) or IsDotNetDetected(‘v4.5.2’, 0) or IsDotNetDetected(‘v4.6’, 0) or IsDotNetDetected(‘v4.6.1’, 0) or IsDotNetDetected(‘v4.6.2’, 0) or IsDotNetDetected(‘v4.7’, 0) or IsDotNetDetected(‘v4.7.1’, 0) or IsDotNetDetected(‘v4.7.2’, 0) then begin Result := true; End Else begin if MsgBox(‘系统检测到您没有安装.Net Framework 4.5-4.7.2版本,是否立刻下载并安装?’, mbConfirmation, MB_YESNO) = idYes then begin Path := ExpandConstant(‘{pf}/Internet Explorer/iexplore.exe’); //4.5.2 Exec(Path, ‘http://download.microsoft.com/download/B/4/1/B4119C11-0423-477B-80EE-7A474314B347/NDP452-KB2901954-Web.exe’, ”, SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode); MsgBox(‘请安装好.Net Framework环境后(4.5-4.7.2),再运行本安装包程序!’,mbInformation,MB_OK); Result := false; Exit; End Else begin MsgBox(‘没有安装.Net Framework环境,无法运行程序,本安装程序即将退出!’,mbInformation,MB_OK); Result := false; Exit; end; end; end else begin Result := true; End; if (MyGetWindowsVersion=’10’ ) then //或者 (Version.Major = 10) begin if IsDotNetDetected(‘v4.6.1’, 0) or IsDotNetDetected(‘v4.6.2’, 0) or IsDotNetDetected(‘v4.7’, 0) or IsDotNetDetected(‘v4.7.1’, 0) or IsDotNetDetected(‘v4.7.2’, 0) then begin Result := true; End Else begin if MsgBox(‘系统检测到您没有安装.Net Framework 4.6.1-4.8版本,是否立刻下载并安装?’, mbConfirmation, MB_YESNO) = idYes then begin Path := ExpandConstant(‘{pf}/Internet Explorer/iexplore.exe’); //4.6.2 Exec(Path, ‘http://download.microsoft.com/download/D/5/C/D5C98AB0-35CC-45D9-9BA5-B18256BA2AE6/NDP462-KB3151802-Web.exe’, ”, SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode); MsgBox(‘请安装好.Net Framework环境后(4.6.1-4.8),再运行本安装包程序!’,mbInformation,MB_OK); Result := false; Exit; End Else begin MsgBox(‘没有安装.Net Framework环境,无法运行程序,本安装程序即将退出!’,mbInformation,MB_OK); Result := false; Exit; end; end; end else begin Result := true; End; end;
推荐阅读
- android项目实例源码 android源码怎么运行
- 让xp老电脑运行流畅方法 xp系统优化常用方法
- 怎么打开运行 windows7如何打开运行?
- 质量效应传奇版文件缺少怎么办 质量效应传奇版文件缺少解决
- 喋血复仇缺少可执行文件怎么办 喋血复仇缺少可执行文件
- 装机模拟器缺少电缆BUG解决方法介绍 缺少电缆怎么办_网
- 命运2pc画面优化好吗 命运2pc平台运行效果图文测试
- 毁灭战士永恒无法运行怎么办 毁灭战士永恒无法启动解决方法
- 英雄联盟手游账号缺少权限怎么解决 lol手游账号缺少权限解决方法
- 《孤岛惊魂:原始杀戮》游戏无法运行解决指南