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

Вниз

Раскладка клавы   Найти похожие ветки 

 
The Vizit0r!   (2003-12-12 14:21) [0]

Народ, ЗДОРОВО ВСЕМ!
Уважаемые, дамы и господа! Кто-нибдь знает как узнать(извиняюсь за тOFFтологию:) текущую раскладку клавиатуры(в смысле русская или Заморская)? Можт подскажите, а? ОЧЕНЬ НАДО.


 
Romkin ©   (2003-12-12 14:32) [1]

GetThreadLocale + Languages в модуле SysUtils


 
ALEIIIKA ©   (2003-12-18 14:35) [2]


var
russian, latin : HKL;

procedure TForm1.FormCreate(Sender: TObject);
begin
russian := LoadKeyboardLayout("00000419", 0);
latin := LoadKeyboardLayout("00000409", 0);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
ActivateKeyboardLayout(russian,Fl);
ActivateKeyboardLayout(latin,Fl);
end;


 
ALEIIIKA ©   (2003-12-18 14:37) [3]

Забыл добавить (жми F1):

Fl : UINT;


 
savva ©   (2003-12-18 14:56) [4]

http://delphibase.endimus.com/?action=viewfunc&topic=sysparams&id=10256



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

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

Наверх




Память: 0.47 MB
Время: 0.009 c
3-12243
Splinter
2004-02-09 15:50
2004.03.05
Объединение полей в Базе Данных


14-12488
4i
2004-02-13 16:43
2004.03.05
Алгоритмы


14-12490
тихий вовочка
2004-02-13 08:10
2004.03.05
компонент для отображения круговых диаграмм


14-12521
nv-vetal
2004-02-12 15:57
2004.03.05
Как вытянуть из dpk файлы pas програмно?


4-12581
brat
2003-12-30 21:49
2004.03.05
В трей запихал , а как вытащить обратно?