InnoSetup打包检测.netFramework的问题

[code]function InitializeSetup: Boolean;

 

var Path: string  ;

 

      ResultCode: Integer;

 

      dotNetV4RegPath: string ;

 

      dotNetV4DownUrl: string ;

 

      dotNetV4PackFile: string ;

 

      wic: string ;

 

begin

 

 

dotNetV4RegPath:= 'SOFTWARE\Microsoft\.NETFramework\policy\v4.0' ;

 

dotNetV4DownUrl:= 'http://download.microsoft.com/download/9/5/A/95A9616B-7A37-4AF6-BC36-D6EA96C8DAAE/dotNetFx40_Full_x86_x64.exe' ;

 

dotNetV4PackFile:= '{src}\update\dotNetFx40_Full_x86_x64.exe' ;

 

wic:= '{src}\update\wic_x86_chs.exe' ;

 

    if  RegKeyExists(HKLM, dotNetV4RegPath) then

 

    begin

 

      Result :=  true ;

 

    end

 

    else

 

    begin

 

      Exec(ExpandConstant(wic),  '/q /norestart' ,  '' , SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode);

 

      if  MsgBox( '系统检测到您没有安装.Net Framework4.0运行环境，是否立即安装？' , mbConfirmation, MB_YESNO) = idYes then

 

      begin

 

 

 

        Path := ExpandConstant(dotNetV4PackFile);

 

        if (FileOrDirExists(Path)) then

 

        begin

 

          Exec(Path,  '/q /norestart' ,  '' , SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode);

 

          if  RegKeyExists(HKLM, dotNetV4RegPath) then

 

          begin

 

             Result :=  true ;

 

          end

 

          else

 

          begin

 

             MsgBox( '未能成功安装.Net Framework4.0运行环境，系统将无法运行，本安装程序即将退出！' ,mbInformation,MB_OK);

 

          end

 

        end

 

        else

 

        begin

 

          if  MsgBox( '软件安装目录中没有包含.Net Framework的安装程序，是否立即下载后安装？' , mbConfirmation, MB_YESNO) = idYes then

 

          begin

 

            Path := ExpandConstant( '{pf}\Internet Explorer\iexplore.exe' );

 

            Exec(Path, dotNetV4DownUrl ,  '' , 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 Framework4.0运行环境，系统将无法运行，本安装程序即将退出！' ,mbInformation,MB_OK);

 

        Result :=  false ;

 

      end;

 

    end;

 

end;