INNO 读取可变注册表路径的问题

admin

;问题：
;我想自动为 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 下的内容呢?

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

复制代码