Текущий архив: 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.016 c