Внешний вид сайта:

Определения языка операционной системы

Код ниже использует модуль SysUtils, чтобы очень просто определить какой язык по умолчанию используется операционной системой.
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  i:= Languages.IndexOf(SysLocale.DefaultLCID);
  ShowMessage(Languages.Name[i]);
end;

Класс TLanguages также содержит другую информацию в свойствах:

    • Count - количество поддерживаемых системой локалей

    • Ext - стандартное трехбуквенное обозначение для локали. Например, код Ext[IndexOf($0409)] вернет строковое значение ENU. Свойство - массив, начинающийся с нуля.

  • Name - стандартное для Windows имя локали. Например, код Name[IndexOf($0409)] вернет строковое значение English (United States). Свойство - массив, начинающийся с нуля.

Комментарии

Нет комментариев. Ваш будет первым!