inno setup执行ngen.exe 命令

最新推荐文章于 2022-07-19 16:24:09 发布

原创最新推荐文章于 2022-07-19 16:24:09 发布 · 1.0k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#ngen.exe #inno

wpf 专栏收录该内容

22 篇文章

订阅专栏

本文介绍了一种方法，用于检测本地是否已安装.NET 4.0环境，并在安装过程中调用ngen.exe命令来优化应用程序的性能。通过注册表查询，可以获取.NET环境的状态和ngen.exe的确切路径。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1.获取本地是否有.net环境

2.安装结束的时候调用ngen.exe 命令。

3.获取ngen.exe的路径。

4.获取可执行程序的安装路径。

5.执行命令

另：因为安装路径可能存在空格，所以路径要加上引号。


 function IsDotNET40Detected(): boolean;
var
    success: boolean;
    install: cardinal;
begin
    success := RegQueryDWordValue(HKLM, 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\Full', 'install', install);
    Result :=  success and (install = 1);
end;
  
 
 procedure CurStepChanged(CurStep:TSetupStep);
 var 
           success:boolean;  
           netpath:String;  
           ngenpath:String;
           exePath:String;
           ResultCode: Integer;
           path:String;

 begin                      
  if CurStep=ssPostinstall then           
   begin           
      if (IsDotNET40Detected = true) then  
        begin
         
           begin
           if RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\Full', 'InstallPath', netpath) then 
           begin
              ngenpath:=netpath+'\ngen.exe';
              path := ExpandConstant('{app}');
              exePath:= ' install "'+path+'\{#MyAppExeName}"';    
              Exec( ngenpath, exePath, '', SW_SHOW,
     ewWaitUntilTerminated, ResultCode);
           end
        end
            end                     
   end 
 end;