判断本机office软件最新版本

//判断本机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
查看