Последовательное переключение раскладки клавиатуры. [D3, D6, Win95/98, WinME, NT4, Win2k, WinXP]
((Alexis)) © (2002-10-30 15:53:00)
Привет. Помогите организовать последовательное переключение
расскладки клавиатуры. Мой код работает, если загружены три языка,
а если одного нет - не работает. Помогите.
procedure TForm1.Button1Click(Sender: TObject);
var
Layout: array[0.. KL_NAMELENGTH] of char;
begin
GetKeyboardLayoutName(Layout); //Текущая расскладка
if Layout = "00000409" then
LoadKeyboardLayout(StrCopy(Layout,"00000419"),KLF_ACTIVATE)
//русский
else
if Layout = "00000419" then
LoadKeyboardLayout(StrCopy(Layout,"00000422"),KLF_ACTIVATE)
//украинский
else
if Layout = "00000422" then
LoadKeyboardLayout(StrCopy(Layout,"00000409"),KLF_ACTIVATE);
//английский
end;
Внук (2002-10-30 15:59:00) [1]
ActivateKeyboardLayout с параметром HKL_NEXT не
подойдет?
Наверх 
ЧАТ |
Орешник |
|
