| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как определить раскладку клавиатуры?
Term © (2004-03-12 12:29:00)Собственно сабж :)))
Term (2004-03-12 12:53:00) [1]спасибо :)))
MU (2004-03-12 12:52:00) [2]TKeyBoardLayout = (klLatin = $409, klCyrillic = $419, klNoChange = 0);
function KbdLayout(KL : TKeyBoardLayout = klNoChange) : TKeyBoardLayout;
implementation
function KbdLayout(KL : TKeyBoardLayout) : TKeyBoardLayout;
begin
Result := TKeyBoardLayout(GetKeyBoardLayout(0));
if (KL <> Result) and (KL <> klNoChange) then
ActivateKeyboardLayout(HKL(KL), 0)
end;
begin
if KbdLayout <> klCyrrilic then
KbdLayout(klCyrrilic);
end;
Term (2004-03-12 12:43:00) [3]а примерчик можно...
MU (2004-03-12 12:35:00) [4]HKL GetKeyboardLayout(
DWORD dwLayout // thread identifier
);
| |
