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