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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Объявление в газету в разделе трудоустройство. Для ухода за пожилым программистом требуется приятная женщина, говорящая на 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);

{/codecitation}

Добавить комментарий