Форум: "Система";
Текущий архив: 2003.08.04;
Скачать: [xml.tar.bz2];

Вниз

Определение раскладки   Найти похожие ветки 

← →
Disa   (2003-05-22 07:49) [0]

Как мне определить включенную в данный момент раскладку клавиатуры?

---

← →
Anatoly Podgoretsky   (2003-05-22 08:06) [1]

GetKeyboardLayout

---

← →
MMF   (2003-05-22 10:48) [2]

То же самое, только чуть подробнее
var
buf: array[0..8] of char;
I: Integer;
begin
GetKeyboardLayoutName(buf);
I := StrToInt(buf);
Case i of
409: CurKbd:="En";
419: CurKbd:="Ru";
422: CurKbd:="Uk";
else
CurKbd:="??"
end;
end;

---

Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2003.08.04;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c