Форум: "Система";
Текущий архив: 2004.03.05;
Скачать: [xml.tar.bz2];
ВнизРаскладка клавы Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.084 c