Получить язык MS Word

Delphi , ОС и Железо , Язык

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

// Question: 
// How can I read the default language of installed MS Word application? 

// Answer: 
// You may initialize Word.Application instance and read a CountryID: 

var
   word: OLEVariant;
 begin
   word := CreateOLEObject('Word.Application');
   CountryID := word.System.Country;
   word.Quit;
   word := UnAssigned;
 end;

 // After that check this CountryID with next values: 
  wdUS = $00000001;
   wdCanada = $00000002;
   wdLatinAmerica = $00000003;
   wdNetherlands = $0000001F;
   wdFrance = $00000021;
   wdSpain = $00000022;
   wdItaly = $00000027;
   wdUK = $0000002C;
   wdDenmark = $0000002D;
   wdSweden = $0000002E;
   wdNorway = $0000002F;
   wdGermany = $00000031;
   wdPeru = $00000033;
   wdMexico = $00000034;
   wdArgentina = $00000036;
   wdBrazil = $00000037;
   wdChile = $00000038;
   wdVenezuela = $0000003A;
   wdJapan = $00000051;
   wdTaiwan = $00000376;
   wdChina = $00000056;
   wdKorea = $00000052;
   wdFinland = $00000166;
   wdIceland = $00000162;

Программный код на языке Pascal, который пытается прочитать язык по умолчанию для установленной приложения Microsoft Word с помощью Delphi.

1. Создает экземпляр объекта Word.Application с помощью функции CreateOLEObject.
2. Получает идентификатор страны из приложения Word с помощью свойства System.Country и присваивает его переменной CountryID.
3. Заканчивает работу приложения Word с помощью метода Quit.
4. Освобождает память, используемую экземпляром объекта Word, с помощью процедуры UnAssigned.

Затем код проверяет значение CountryID против серии константных значений, которые, вероятно, являются кодами языков, определенных Microsoft Word. Эти константы включают в себя идентификаторы стран для различных языков, таких как английский (США), французский, испанский, итальянский, немецкий, японский, китайский, корейский и другие.

Альтернативное решение использует более современный подход:

Используя компонент TWordApplication из единицы VCL.Forms, можно создать экземпляр приложения Word и получить настройки языка с помощью свойства LanguageSettings. Вот пример:

uses
  VCL.Forms,
  Word;

var
  wordApp: TWordApplication;
begin
  wordApp := TWordApplication.Create(nil);
  try
    wordApp.Launch; // Запускает приложение Word
    writeln(wordApp.LanguageSettings.Language); // Выводит код языка
  finally
    wordApp.Terminate; // Заканчивает работу приложения Word
  end;
end.

Код создает экземпляр компонента TWordApplication, запускает приложение Word, и выводит код языка с помощью свойства LanguageSettings. Обратите внимание, что вам нужно добавить единицу VCL.Forms в ваш список использованных единиц и импортировать единицу Word, чтобы использовать этот подход.

Обратите внимание, что это только примерный код и может не работать без изменений или дополнительных зависимостей.

Получить язык MS Word можно, инициализируя объект Word.Application и считая значение свойства CountryID.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Язык ::