Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.08.04;
Скачать: CL | DM;

Вниз

Определение раскладки   Найти похожие ветки 

 
Disa ©   (2003-05-22 07:49) [0]

Как мне определить включенную в данный момент раскладку клавиатуры?


 
Anatoly Podgoretsky ©   (2003-05-22 08:06) [1]

GetKeyboardLayout


 
MMF ©   (2003-05-22 10:48) [2]

То же самое, только чуть подробнее
var
buf: array[0..8] of char;
I: Integer;
begin
GetKeyboardLayoutName(buf);
I := StrToInt(buf);
Case i of
409: CurKbd:="En";
419: CurKbd:="Ru";
422: CurKbd:="Uk";
else
CurKbd:="??"
end;
end;



Страницы: 1 вся ветка

Текущий архив: 2003.08.04;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.019 c
11-10148
tamerlan311
2002-11-14 15:23
2003.08.04
KOL_HHC_Unit


1-10269
zolotov
2003-07-21 15:57
2003.08.04
Проблема с копированием и вырезанием данных в F1Book


6-10333
alt7
2003-05-29 15:15
2003.08.04
Глюкавый TIdTelnetServer


7-10487
yurikon
2003-05-23 09:11
2003.08.04
Ошибка Win2000


3-10138
Иванов Сергей
2003-07-14 17:43
2003.08.04
IB подвисает