正式会员享受无限制浏览网站功能和高速网盘下载,赶快加入本站吧!
您需要 登录 才可以下载或查看,没有账号?立即注册
x
- function GetPath(Param: String): String; // 读取 MS Office 安装路径
- var
- i: Integer;
- strPath: String;
- subkeynames1: TArrayOfString;
- begin
- strPath:=ExpandConstant('LH-U');
- if RegGetSubkeyNames(HKLM32, 'SOFTWARE\Microsoft\Office', subkeynames1) then
- for i:= 0 to GetArrayLength(subkeynames1)-1 do
- if RegKeyExists(HKLM32, 'SOFTWARE\Microsoft\Office\'+subkeynames1[i]+'\common\InstallRoot') then
- if RegQueryStringValue(HKLM32, 'SOFTWARE\Microsoft\Office\'+subkeynames1[i]++'\common\InstallRoot', 'Path', strPath) then
- strPath:=strPath;
- if RegGetSubkeyNames(HKLM64, 'SOFTWARE\Microsoft\Office', subkeynames1) then
- for i:= 0 to GetArrayLength(subkeynames1)-1 do
- if RegKeyExists(HKLM64, 'SOFTWARE\Microsoft\Office\'+subkeynames1[i]+'\common\InstallRoot') then
- if RegQueryStringValue(HKLM64, 'SOFTWARE\Microsoft\Office\'+subkeynames1[i]++'\common\InstallRoot', 'Path', strPath) then
- strPath:=strPath;
- Result:= strPath;
- end;
- function Getversion(Param: String): String; //读取 MS Office 主版本号
- var
- i: Integer;
- oversion: String;
- subkeynames1: TArrayOfString;
- begin
- oversion := ExpandConstant('LH-U');
- if RegKeyExists(HKLM32, 'SOFTWARE\Microsoft\Office') then
- begin
- if RegGetSubkeyNames(HKLM32, 'SOFTWARE\Microsoft\Office', subkeynames1) then
- for i:= 0 to GetArrayLength(subkeynames1)-1 do
- if RegKeyExists(HKLM32, 'SOFTWARE\Microsoft\Office\'+subkeynames1[i]+'\common\ProductVersion') then
- if RegQueryStringValue(HKLM32, 'SOFTWARE\Microsoft\Office\'+subkeynames1[i]+'\common\ProductVersion', 'LastProduct', oversion) then
- oversion:=copy(oversion,1,pos('.', oversion)-1);
- end;
- if RegKeyExists(HKLM64, 'SOFTWARE\Microsoft\Office') then
- begin
- if RegGetSubkeyNames(HKLM64, 'SOFTWARE\Microsoft\Office', subkeynames1) then
- for i:= 0 to GetArrayLength(subkeynames1)-1 do
- if RegKeyExists(HKLM64, 'SOFTWARE\Microsoft\Office\'+subkeynames1[i]+'\common\ProductVersion') then
- if RegQueryStringValue(HKLM64, 'SOFTWARE\Microsoft\Office\'+subkeynames1[i]+'\common\ProductVersion', 'LastProduct', oversion) then
- oversion:=copy(oversion,1,pos('.', oversion)-1);
- end;
- Result:= oversion;
- end;
- function GetPathII(Param: String): String; //读取 WPS Office 安装路径
- var
- i: Integer;
- strPath: String;
- subkeynames1: TArrayOfString;
- begin
- strPath:=ExpandConstant('LH-U');
- if RegGetSubkeyNames(HKLM32, 'SOFTWARE\Kingsoft\Office', subkeynames1) then
- for i:= 0 to GetArrayLength(subkeynames1)-1 do
- if RegKeyExists(HKLM32, 'SOFTWARE\Microsoft\Office\'+subkeynames1[i]+'\common') then
- if RegQueryStringValue(HKLM32, 'SOFTWARE\Kingsoft\Office\'+subkeynames1[i]+'\common', 'InstallRoot', strPath) then
- strPath:=strPath;
- if RegGetSubkeyNames(HKLM64, 'SOFTWARE\Kingsoft\Office', subkeynames1) then
- for i:= 0 to GetArrayLength(subkeynames1)-1 do
- if RegKeyExists(HKLM64, 'SOFTWARE\Kingsoft\Office\'+subkeynames1[i]+'\common') then
- if RegQueryStringValue(HKLM64, 'SOFTWARE\Kingsoft\Office\'+subkeynames1[i]+'\common', 'InstallRoot', strPath) then
- strPath:=strPath;
- Result:= strPath;
- end;
- function GetversionII(Param: String): String; //读取 WPS Office 主版本号
- var
- i: Integer;
- oversion: String;
- subkeynames1: TArrayOfString;
- begin
- oversion:=ExpandConstant('LH-U');
- if RegGetSubkeyNames(HKLM32, 'SOFTWARE\Kingsoft\Office', subkeynames1) then
- for i:= 0 to GetArrayLength(subkeynames1)-1 do
- if RegKeyExists(HKLM32, 'SOFTWARE\Kingsoft\Office\'+subkeynames1[i]+'\common') then
- if RegQueryStringValue(HKLM32, 'SOFTWARE\Kingsoft\Office\'+subkeynames1[i]+'\common', 'Version', oversion) then
- oversion:=copy(oversion,1,pos('.', oversion)-1);
- if RegGetSubkeyNames(HKLM64, 'SOFTWARE\Kingsoft\Office', subkeynames1) then
- for i:= 0 to GetArrayLength(subkeynames1)-1 do
- if RegKeyExists(HKLM64, 'SOFTWARE\Kingsoft\Office\'+subkeynames1[i]+'\common') then
- if RegQueryStringValue(HKLM64, 'SOFTWARE\Kingsoft\Office\'+subkeynames1[i]+'\common', 'Version', oversion) then
- oversion:=copy(oversion,1,pos('.', oversion)-1);
- Result:= oversion;
- end;
复制代码
|