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
[email protected]
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
**********************************************************************
_______________________________________________
Delphi mailing list
[email protected]
http://ns3.123.co.nz/mailman/listinfo/delphi
