Inno Setup怎么自动选择从注册表获取软件目录所在盘

Share

1. [Setup]
   
2. AppName=My Program
   
3. AppVersion=1.5
   
4. ;从代码中获取原程序的安装目录，好处是如果获取的目录为空，可以定义一个默认的
   
5. DefaultDirName={code:MyConst}\My Program
   
6. DefaultGroupName=My Program
   
7. UninstallDisplayIcon={app}\MyProg.exe
   
8. Compression=lzma2
   
9. SolidCompression=yes
   
10. OutputDir=userdocs:Inno Setup Examples Output
    
11. ; "ArchitecturesAllowed=x64" specifies that Setup cannot run on
    
12. ; anything but x64.
    
13. ArchitecturesAllowed=x64
    
14. ; "ArchitecturesInstallIn64BitMode=x64" requests that the install be
    
15. ; done in "64-bit mode" on x64, meaning it should use the native
    
16. ; 64-bit Program Files directory and the 64-bit view of the registry.
    
17. ArchitecturesInstallIn64BitMode=x64
    
18. 
    
19. [Files]
    
20. Source: "MyProg-x64.exe"; DestDir: "{app}"; DestName: "MyProg.exe"
    
21. Source: "MyProg.chm"; DestDir: "{app}"
    
22. Source: "Readme.txt"; DestDir: "{app}"; Flags: isreadme
    
23. 
    
24. [Icons]
    
25. Name: "{group}\My Program"; Filename: "{app}\MyProg.exe"
    
26. 
    
27. [Code]
    
28. Function MyConst(Path: String): String;
    
29. begin
    
30.   Result := ExpandConstant('{pf}');  //预定义一个安装根目录
    
31.   RegQueryStringValue(HKLM,'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Microsoft Security Client','InstallLocation',Path);
    
32.   if Path <> '' then
    
33.      Result := ExtractFileDrive(Path);   //提取根目录
    
34. end;
    

复制代码