Inno Setup 从注册表获取安装路径、版本号

Share

1. function GetPath(Param: String): String;        // 读取 MS Office 安装路径
   
2. var
   
3.   i: Integer;
   
4.   strPath: String;
   
5.   subkeynames1: TArrayOfString;
   
6. begin
   
7.   strPath:=ExpandConstant('LH-U');
   
8.   if RegGetSubkeyNames(HKLM32, 'SOFTWARE\Microsoft\Office', subkeynames1) then
   
9.     for i:= 0 to GetArrayLength(subkeynames1)-1 do
   
10.       if RegKeyExists(HKLM32, 'SOFTWARE\Microsoft\Office\'+subkeynames1[i]+'\common\InstallRoot') then
    
11.         if RegQueryStringValue(HKLM32, 'SOFTWARE\Microsoft\Office\'+subkeynames1[i]++'\common\InstallRoot', 'Path', strPath) then
    
12.           strPath:=strPath;
    
13.   if RegGetSubkeyNames(HKLM64, 'SOFTWARE\Microsoft\Office', subkeynames1) then
    
14.     for i:= 0 to GetArrayLength(subkeynames1)-1 do
    
15.       if RegKeyExists(HKLM64, 'SOFTWARE\Microsoft\Office\'+subkeynames1[i]+'\common\InstallRoot') then
    
16.         if RegQueryStringValue(HKLM64, 'SOFTWARE\Microsoft\Office\'+subkeynames1[i]++'\common\InstallRoot', 'Path', strPath) then
    
17.           strPath:=strPath;
    
18.   Result:= strPath;
    
19. end;
    
20. 
    
21. function Getversion(Param: String): String;   //读取 MS Office 主版本号
    
22. var
    
23.   i: Integer;
    
24.   oversion: String;
    
25.   subkeynames1: TArrayOfString;
    
26. begin
    
27.   oversion := ExpandConstant('LH-U');
    
28.   if RegKeyExists(HKLM32, 'SOFTWARE\Microsoft\Office') then
    
29.     begin
    
30.       if RegGetSubkeyNames(HKLM32, 'SOFTWARE\Microsoft\Office', subkeynames1) then
    
31.         for i:= 0 to GetArrayLength(subkeynames1)-1 do
    
32.           if RegKeyExists(HKLM32, 'SOFTWARE\Microsoft\Office\'+subkeynames1[i]+'\common\ProductVersion') then
    
33.             if RegQueryStringValue(HKLM32, 'SOFTWARE\Microsoft\Office\'+subkeynames1[i]+'\common\ProductVersion', 'LastProduct', oversion) then
    
34.               oversion:=copy(oversion,1,pos('.', oversion)-1);
    
35.     end;
    
36.   if RegKeyExists(HKLM64, 'SOFTWARE\Microsoft\Office') then
    
37.     begin
    
38.       if RegGetSubkeyNames(HKLM64, 'SOFTWARE\Microsoft\Office', subkeynames1) then
    
39.         for i:= 0 to GetArrayLength(subkeynames1)-1 do
    
40.           if RegKeyExists(HKLM64, 'SOFTWARE\Microsoft\Office\'+subkeynames1[i]+'\common\ProductVersion') then
    
41.             if RegQueryStringValue(HKLM64, 'SOFTWARE\Microsoft\Office\'+subkeynames1[i]+'\common\ProductVersion', 'LastProduct', oversion) then
    
42.               oversion:=copy(oversion,1,pos('.', oversion)-1);
    
43.     end;
    
44.   Result:= oversion;
    
45. end;
    
46. 
    
47. function GetPathII(Param: String): String;       //读取 WPS Office 安装路径
    
48. var
    
49.   i: Integer;
    
50.   strPath: String;
    
51.   subkeynames1: TArrayOfString;
    
52. begin
    
53.   strPath:=ExpandConstant('LH-U');
    
54.   if RegGetSubkeyNames(HKLM32, 'SOFTWARE\Kingsoft\Office', subkeynames1) then
    
55.     for i:= 0 to GetArrayLength(subkeynames1)-1 do
    
56.       if RegKeyExists(HKLM32, 'SOFTWARE\Microsoft\Office\'+subkeynames1[i]+'\common') then
    
57.         if RegQueryStringValue(HKLM32, 'SOFTWARE\Kingsoft\Office\'+subkeynames1[i]+'\common', 'InstallRoot', strPath) then
    
58.             strPath:=strPath;
    
59.   if RegGetSubkeyNames(HKLM64, 'SOFTWARE\Kingsoft\Office', subkeynames1) then
    
60.     for i:= 0 to GetArrayLength(subkeynames1)-1 do
    
61.       if RegKeyExists(HKLM64, 'SOFTWARE\Kingsoft\Office\'+subkeynames1[i]+'\common') then
    
62.         if RegQueryStringValue(HKLM64, 'SOFTWARE\Kingsoft\Office\'+subkeynames1[i]+'\common', 'InstallRoot', strPath) then
    
63.             strPath:=strPath;
    
64.   Result:= strPath;
    
65. end;
    
66. 
    
67. function GetversionII(Param: String): String;       //读取 WPS Office 主版本号
    
68. var
    
69.   i: Integer;
    
70.   oversion: String;
    
71.   subkeynames1: TArrayOfString;
    
72. begin
    
73.   oversion:=ExpandConstant('LH-U');
    
74.   if RegGetSubkeyNames(HKLM32, 'SOFTWARE\Kingsoft\Office', subkeynames1) then
    
75.     for i:= 0 to GetArrayLength(subkeynames1)-1 do
    
76.       if RegKeyExists(HKLM32, 'SOFTWARE\Kingsoft\Office\'+subkeynames1[i]+'\common') then
    
77.         if RegQueryStringValue(HKLM32, 'SOFTWARE\Kingsoft\Office\'+subkeynames1[i]+'\common', 'Version', oversion) then
    
78.             oversion:=copy(oversion,1,pos('.', oversion)-1);
    
79.   if RegGetSubkeyNames(HKLM64, 'SOFTWARE\Kingsoft\Office', subkeynames1) then
    
80.     for i:= 0 to GetArrayLength(subkeynames1)-1 do
    
81.       if RegKeyExists(HKLM64, 'SOFTWARE\Kingsoft\Office\'+subkeynames1[i]+'\common') then
    
82.         if RegQueryStringValue(HKLM64, 'SOFTWARE\Kingsoft\Office\'+subkeynames1[i]+'\common', 'Version', oversion) then
    
83.             oversion:=copy(oversion,1,pos('.', oversion)-1);
    
84.   Result:= oversion;
    
85. end;

复制代码