раскладка клавиатуры

← →
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;

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

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