//判断本机office软件最新版本
下面的是通过注册表里得到offiice版本
function GetOfficeVer(ASoftName: string = 'Excel'): string;
var
ARegistry: TRegistry;
begin
Result := '';
ARegistry := TRegistry.Create;
try
with ARegistry do
begin
RootKey := HKEY_LOCAL_MACHINE;
if OpenKey('Software\Microsoft\Office\12.0\' + ASoftName, False) then
Result := '2007'
全部代码可以到
http://www.xszlo.com/article/2012-12-11/7625.html
查看
下面的是通过注册表里得到offiice版本
function GetOfficeVer(ASoftName: string = 'Excel'): string;
var
ARegistry: TRegistry;
begin
Result := '';
ARegistry := TRegistry.Create;
try
with ARegistry do
begin
RootKey := HKEY_LOCAL_MACHINE;
if OpenKey('Software\Microsoft\Office\12.0\' + ASoftName, False) then
Result := '2007'
全部代码可以到
http://www.xszlo.com/article/2012-12-11/7625.html
查看