Главная страница
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.015 c
14-12532
strannik_
2004-02-12 12:00
2004.03.05
snif


4-12579
INQ
2003-12-26 22:27
2004.03.05
Передача имени процесса из dll в программу-монитор


1-12422
Вованчик
2004-02-24 15:52
2004.03.05
Рекурсивная функция


3-12297
diw
2004-02-06 17:21
2004.03.05
как сжать MDF-файл?


1-12394
Insert
2004-02-24 19:27
2004.03.05
Список файлов?