| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Раскладка клавиатуры! [D5, Win95/98]
ЛамерОК © (2002-01-10 23:29:00)Мне надо на Label вывести язык, который сейчас используется. Я нашел что-то в справке, но не пойму какое значение вписать:
GetKeyboardLayoutName(); Если нужна другая ф-ция подскажите! Помогите мне, я ламер!!!
Вадим (2002-01-11 21:40:00) [1]function GetLanguage: string;
var
p: PChar;
begin
GetMem(p, KL_NAMELENGTH);
try
GetKeyboardLayoutName(p);
Result := p;
finally
FreeMem(p, KL_NAMELENGTH);
end;
end;
Igor_thief (2002-01-11 12:50:00) [2]Пиши короче вот так:
LoadKeyboardLayout("00000409", KLF_ACTIVATE); // английский
LoadKeyboardLayout("00000419", KLF_ACTIVATE); // русский
а изминение языка, надо ловить WM_INPUTLANGCHANGEREQUEST
| |
