Главная страница
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
1-12401
}|{yk
2004-02-24 17:54
2004.03.05
Свойство с ограниченным диапазоном


14-12513
VEG
2004-02-06 21:01
2004.03.05
Вопрос по синтаксису С++ - конветирование


3-12281
Мыш
2004-02-06 20:41
2004.03.05
удаление? записей из запроса


3-12231
Splinter
2004-02-10 06:43
2004.03.05
Объединение полей БД в Delphi


14-12484
vidiv
2004-02-12 09:03
2004.03.05
может ли PHP с OLE объектами работать?