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;
以上关于本文的内容,仅作参考!温馨提示:如遇健康、疾病相关的问题,请您及时就医或请专业人士给予相关指导!
「四川龙网」www.sichuanlong.com小编还为您精选了以下内容,希望对您有所帮助:- java程序运行步骤 java写文件路径
- jsp学生信息管理系统简介 jsp系统怎么运行的
- idea无法启动运行的原因 idea无法启动项目
- java源代码运行操作方法 java源代码怎么运行
- cad打开图纸缺少shx文件 cad缺少shx文件怎么办
- iis运行php慢解决方法 iis运行php久了非常慢
- python代码运行方式 python代码怎么运行
- lingo程序运行方法 lingo程序怎么运行
- 婚姻中最不能缺少的是什么 婚姻中最重要的是什么
- 电脑缺少nvidia驱动解决措施 电脑没有nvidia显卡怎么办