Главная страница
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.01 c
14-12531
Nikolay M.
2004-02-12 11:06
2004.03.05
Опять про лицензирование софта, его продажу и тп.


4-12571
fishca
2003-12-30 11:01
2004.03.05
Удаление файла


3-12258
EugenePichugin
2004-02-09 10:15
2004.03.05
Исключение при выходе их программы.


1-12366
Demon_mhm
2004-02-25 12:07
2004.03.05
Есть ли такой компонент? TreeView + кнопки


14-12526
Nous Mellon
2004-02-11 19:22
2004.03.05
Как вы относитесь к творчеству Бориса Акунина?