Текущий архив: 2003.11.13;
Скачать: CL | DM;

Вниз

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

← →
Olfi   (2003-09-11 23:43) [0]

Как узнать активную раскладку клавиатуры?

---

← →
jack128 ©   (2003-09-12 02:25) [1]

GetKeyboardLayout по всей видимости

---

← →
savva ©   (2003-09-12 10:06) [2]

http://delphibase.endimus.com/?action=viewfunc&topic=sysparams&id=10256

---

← →
Olfi   (2003-09-12 23:13) [3]

Благодарю :-).
Всё работает... Вот готовый вариант:

function GetActiveKLayout: string;
var
hWindow,idProcess : THandle;
begin
hWindow := GetForegroundWindow;//получаем handle активного окна чужой программы
idProcess := GetWindowThreadProcessId(hWindow,nil);//Получаем идентификатор чужого процесса
case (GetKeyboardLayout(idProcess) shr $10) of //Получаем текущую раскладку в чужой программе
1033 : result := "EN";
1058 : result := "UK";
1049 : result := "RU";
end;
end;

---

← →
Anatoly Podgoretsky ©   (2003-09-12 23:30) [4]

Может тебе еще пригодится и GetKeyboardLayoutName

---

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

Текущий архив: 2003.11.13;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.06 c