InnoSetup自动检测并安装.Net Framework
InnoSetup可在在脚本中插入[Code]代码段,其中的代码可以通过事件驱动,支持的主要事件如下:
function InitializeSetup(): Boolean; ——安装程序初始化,返回值决定安装程序是否继续执行。
function NextButtonClick(CurPageID: Integer): Boolean; ——点击下一步按钮,返回值决定安装程序是否继续执行。
function BackButtonClick(CurPageID: Integer): Boolean; ——点击上一步按钮,返回值决定安装程序是否继续执行。
function InitializeUninstall(): Boolean; ——卸载程序初始化,返回值决定卸载程序是否继续执行。
...
从这些事件我们可以看到InitializeSetup()满足我们的要求,我们可以在这个时候去检查注册表或者是系统文件来判断客户机器上是否安装了.Net Framework,从而进行自动安装或者下载安装的操作。
[Code] function InitializeSetup: Boolean; var Path,tmppath:string ; ResultCode: Integer; dotNetV2RegPath:string; dotNetV2DownUrl:string; dotNetV2PackFile:string; begin dotNetV2RegPath:='SOFTWARE\Microsoft\.NETFramework\Policy\v4.0'; dotNetV2DownUrl:='http://dl1sw.baidu.com/soft/9b/15910/Microsoft.NET.exe?version=585709662'; dotNetV2PackFile:='{src}\dotNetFx40_Full_x86_x64.exe'; //先在注册表查找.net4.0是否存在 if RegKeyExists(HKLM, dotNetV2RegPath) then begin Result := true; end //如果注册表里面没有发现.net4.0 else begin if MsgBox('系统检测到您没有安装.Net Framework4.0运行环境,是否立即安装?', mbConfirmation, MB_YESNO) = idYes then begin //和setup同级目录下的donet安装包 Path := ExpandConstant(dotNetV2PackFile); //先抽取到临时目录 tmppath := ExpandConstant('{tmp}\dotNetFx40_Full_x86_x64.exe'); ExtractTemporaryFile('dotNetFx40_Full_x86_x64.exe'); msgbox(tmppath, mbConfirmation, MB_YESNO); Exec(tmppath, '', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode); if(FileOrDirExists(tmppath)) then begin Exec(tmppath, '/q', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode); if RegKeyExists(HKLM, dotNetV2RegPath) then begin Result := true; end else begin MsgBox('未能成功安装.Net Framework4.0运行环境,系统将无法运行,本安装程序即将退出!',mbInformation,MB_OK); end end else begin if MsgBox('软件安装目录中没有包含.Net Framework4.0的安装程序,是否立即下载后安装?', mbConfirmation, MB_YESNO) = idYes then begin Path := ExpandConstant('{pf}/Internet Explorer/iexplore.exe'); Exec(Path, dotNetV2DownUrl , '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode); MsgBox('请安装好.Net Framework4.0环境后,再运行本安装包程序!',mbInformation,MB_OK); Result := false; end else begin MsgBox('不下载安装.Net Framework4.0运行环境,系统将无法运行,本安装程序即将退出!',mbInformation,MB_OK); Result := false; end end end else begin MsgBox('没有安装.Net Framework2.0运行环境,系统将无法运行,本安装程序即将退出!',mbInformation,MB_OK); Result := false; end; end; end;
参考链接1:http://blog.csdn.net/hualei/article/details/2628312
参考链接2:http://zhoufoxcn.blog.51cto.com/792419/279243/
比你优秀的人不可怕,可怕的是比你优秀的人比你更努力