Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];




Вниз

Раскладка клавиатуры! 


ЛамерОК   (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;




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.047 c
14-32564          fliz                  2002-01-25 12:05  2002.03.11  
С днем СТУДЕНТА, господа! Предлагаю сделать перекличку - кто студент, пусть в этой ветки отметится.


1-32497           APTEMKA               2002-02-25 04:40  2002.03.11  
Как передвинуть и кликнуть мышкой на рабочем столе


6-32534           Yuri Btr              2001-12-24 17:08  2002.03.11  
Net send


6-32524           Delphimun             2001-12-24 11:03  2002.03.11  
Поиск файлов в локальной сети


1-32509           Igor_                 2002-02-25 12:50  2002.03.11  
Как определить сколько дней в заданном месяце