DELPHI/Часто задаваемые вопросы и ответы на них/ОС и железо

Как из программы переключать языки

Объявление в газету в разделе трудоустройство. Для ухода за пожилым программистом требуется приятная женщина, говорящая на FORTRAN, BASIC и С++.

procedure SetRU;
var
  Layout: array [0.. KL_NAMELENGTH] of char;
begin
  LoadKeyboardLayout(StrCopy(Layout, '00000419'), KLF_ACTIVATE);
end;

procedure SetEN;
var
  Layout: array [0.. KL_NAMELENGTH] of char;
begin
  LoadKeyboardLayout(StrCopy(Layout, '00000409'), KLF_ACTIVATE);
end;

или

var
  rus, lat: HKL;

rus := LoadKeyboardLayout('00000419', 0);
lat := LoadKeyboardLayout('00000409', 0);

SetActiveKeyboardLayout(rus);

Источник получения информации: http://www.delphiworld.narod.ru