Как узнать версию MS Word?
Материал из DRKB
{ ... }
MsWord := CreateOleObject('Word.Basic');
try
{ Return Application Info. This call is the same for English and French Microsoft Word.}
Lang := MsWord.AppInfo(Integer(16));
except
try
{ For German Microsoft Word the procedure name is translated }
Lang := MsWord.AnwInfo(Integer(16));
except
try
{ For Swedish Microsoft Word the procedure name is translated }
Lang := MsWord.PrgmInfo(Integer(16));
except
try
{ For Dutch Microsoft Word the procedure name is translated }
Lang := MsWord.ToepasInfo(Integer(16));
except
{ If this procedure does not exist there is a different translation of Microsoft Word }
ShowMessage('Microsoft Word version is not German, French, Dutch, Swedish or English.');
Exit;
end;
end;
end;
end;
ShowMessage(Lang);
{ ... }
Source: Взято с Delphi Knowledge Base: http://www.baltsoft.com/
ID: 04422