[DUG] How can I tell what version of MSOffice is installed?

[Steven Knight]

Thanks Guys

This will meet our immediate needs:

==================================================
var
  wordIs2003: boolean;

procedure TfMenu.sbGetVersionOfWordClick(Sender: TObject);
var
  Registry: TRegistry;
  S: string;
begin
  Registry:=TRegistry.Create;
  wordIs2003 := false;   //set a global flag
  try
    Registry.RootKey := HKEY_CLASSES_ROOT;
    if Registry.OpenKey('\Word.Application\CurVer', False) then
    begin
      if Registry.ReadString('') = 'Word.Application.11' Then wordIs2003 := true;
      Registry.CloseKey;
    end;
  finally
    Registry.Free;
  end;
end;
===================================================
_______________________________________________
Delphi mailing list
Delphi at ns3.123.co.nz
http://ns3.123.co.nz/mailman/listinfo/delphi

**********************************************************************
This email and any files transmitted with it are confidential and
intended solely for the use of the individual or entity to whom they
are addressed. If you have received this email in error please notify
the system manager.

This footnote also confirms that this email message has been swept by
MIMEsweeper for the presence of computer viruses.

www.ecan.govt.nz
**********************************************************************