Текущий архив: 2002.03.11;
Скачать: CL | DM;
Вниз
Раскладка клавиатуры! Найти похожие ветки
← →
ЛамерОК (2002-01-10 23:29) [0]Мне надо на Label вывести язык, который сейчас используется. Я нашел что-то в справке, но не пойму какое значение вписать:
GetKeyboardLayoutName(); Если нужна другая ф-ция подскажите! Помогите мне, я ламер!!!
← →
Igor_thief © (2002-01-11 12:50) [1]Пиши короче вот так:
LoadKeyboardLayout("00000409", KLF_ACTIVATE); // английский
LoadKeyboardLayout("00000419", KLF_ACTIVATE); // русский
а изминение языка, надо ловить WM_INPUTLANGCHANGEREQUEST
← →
Вадим © (2002-01-11 21:40) [2]function GetLanguage: string;
var
p: PChar;
begin
GetMem(p, KL_NAMELENGTH);
try
GetKeyboardLayoutName(p);
Result := p;
finally
FreeMem(p, KL_NAMELENGTH);
end;
end;
Страницы: 1 вся ветка
Текущий архив: 2002.03.11;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.007 c
