Многоязычие, локализация и перекодировка

В Дельфи есть предопределенные переменные языковых установок и форматов:

Подробнее: Регионарные стандарты Добавить комментарий
Подробности
Родительская категория: Шрифты, языки, кодировки, регионарные стандарты
Категория: Многоязычие, локализация и перекодировка

 

Code:

procedure GetKLList(List: TStrings);

var

  AList : array [0..9] of Hkl;

  AklName: array [0..255] of Char;

  i: Longint;

begin

  List.Clear;

  for i := 0 to GetKeyboardLayoutList(SizeOf(AList), AList) - 1 do

    begin

      GetLocaleInfo(LoWord(AList[i]), LOCALE_SLANGUAGE, AklName, SizeOf(AklName));

      List.AddObject(AklName, Pointer(AList[i]));

    end;

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

  GetKLList(ListBox1.Items);

end;

 

procedure TForm1.ListBox1Click(Sender: TObject);

begin

  with Sender as TListBox do

    ActivateKeyboardLayout(Hkl(Items.Objects[ItemIndex]), 0);

end;
Добавить комментарий
Подробности
Родительская категория: Шрифты, языки, кодировки, регионарные стандарты
Категория: Многоязычие, локализация и перекодировка

Узнать текущую раскладку клавиатуры в любом активном окне

 возвращает числовое значение соответственно установленной раскладке

 

Зависимости: windows

Подробнее: Узнать текущую... Добавить комментарий
Подробности
Родительская категория: Шрифты, языки, кодировки, регионарные стандарты
Категория: Многоязычие, локализация и перекодировка

Например, молоко - moloko. И всё.

 

Вот пример функции, которая транслирует из русских слов в английские.

Пригодилась, когда нужно было файлы в mp3-плеер перегонять - он русский не понимает.

Подробнее: Транслитерация Добавить комментарий
Подробности
Родительская категория: Шрифты, языки, кодировки, регионарные стандарты
Категория: Многоязычие, локализация и перекодировка