Inno Setup 读取可变注册表路径

admin

1. ;问题：
   
2. ;我想自动为 FireFox 安装上 Real 的 Mozilla 插件~但是它的路径存放在"HKEY_CURRENT_USER\Software\Mozilla\Mozilla Firefox\1.5 (zh-CN)\Main" Install Directory 下~中间的 1.5 (zh-CN) 会随版本和语言不同而变化怎么样才能忽略中间的 1.5 (Zh-cn) 直接读取下级子键 Main 下的内容呢?<!--QuoteEnd--><!--QuoteEEnd-->
   
3. 
   
4. ;答案：
   
5. ;请参考以下示例。
   
6. 
   
7. [Setup]
   
8. AppName=我的程序
   
9. AppVerName=我的程序 版本 1.5
   
10. DefaultDirName={pf}\我的程序
    
11. DefaultGroupName=我的程序
    
12. 
    
13. [Files]
    
14. ;Source: MyProg.exe; DestDir: {app}
    
15. ;Source: MyProg.hlp; DestDir: {code:getAFolder}
    
16. ;Source: Readme.txt; DestDir: {app}
    
17. 
    
18. [Languages]
    
19. Name: en; MessagesFile: "compiler:Default.isl"
    
20. Name: nl; MessagesFile: "compiler:Languages\Dutch.isl"
    
21. Name: de; MessagesFile: "compiler:Languages\German.isl"
    
22. 
    
23. [CustomMessages]
    
24. en.MyDescription=My description
    
25. en.MyAppName=My Program
    
26. en.MyAppVerName=My Program %1
    
27. en.ProgramFailed=本程序的%1版本已经安装，请卸载后再安装本程序. 安装程序将关闭.
    
28. 
    
29. 
    
30. nl.MyDescription=Mijn omschrijving
    
31. nl.MyAppName=Mijn programma
    
32. nl.MyAppVerName=Mijn programma %1
    
33. nl.ProgramFailed=本程序的%1版本已经安装，请卸载后再安装本程序. 安装程序将关闭.
    
34. 
    
35. de.MyAppName=Meine Anwendung
    
36. de.MyDescription=Meine Beschreibung
    
37. de.MyAppVerName=Meine Anwendung %1
    
38. de.ProgramFailed=本程序的%1版本已经安装，请卸载后再安装本程序. 安装程序将关闭.
    
39. 
    
40. 
    
41. [Code]
    
42. // Code added by gnatix
    
43. var
    
44. FirefoxInstallDir: string;
    
45. 
    
46. function getAFolder(default: String): String;
    
47. begin
    
48. if FirefoxInstallDir <> '' then            // if found
    
49. Result := FirefoxInstallDir
    
50. else
    
51. Result := ExpandConstant('{app}');       // if not found
    
52. end;
    
53. 
    
54. function GetInstalledVersion(): String;
    
55. var
    
56. InstalledVersion: String;
    
57. begin
    
58. InstalledVersion :='';
    
59. RegQueryStringValue(HKLM, 'Software\BlueStacks', 'Version', InstalledVersion);
    
60. Result := InstalledVersion;
    
61. end;
    
62. 
    
63. function InitializeSetup(): Boolean;
    
64. var
    
65. PrevVer: String;
    
66. S: String;
    
67. begin
    
68. PrevVer := GetInstalledVersion();
    
69. result := true;
    
70. if length(PrevVer) > 0 then begin
    
71. 
    
72. S := CustomMessage('ProgramFailed');
    
73. StringChange(S, '%1', PrevVer);
    
74. 
    
75. //如果发现程序已经安装过了
    
76. MsgBox (S, mbError, MB_OK);
    
77. result := false;
    
78. end;
    
79. end;
    
80. 
    
81. //procedure InitializeWizard();
    
82. //;var ;
    
83. //;SubKeyNames: TArrayOfString;
    
84. //i: Integer;
    
85. //begin
    
86. //FirefoxInstallDir:= '';
    
87. //if RegGetSubkeyNames(HKEY_CURRENT_USER, 'Software\Mozilla\Firefox', SubKeyNames) then
    
88. //for i := 0 to GetArrayLength(SubKeyNames)-1 do
    
89.    //RegQueryStringValue(HKEY_CURRENT_USER, 'Software\Mozilla\Firefox\' + SubKeyNames[i] +'\Main', 'Install Directory', FirefoxInstallDir);
    
90. //end;
    

复制代码