| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
раскладка клавиатуры [D5, Win95/98, WinME, NT4, Win2k, WinXP]
Olfi © (2003-09-11 23:43:00)
Как узнать активную раскладку клавиатуры?
Anatoly Podgoretsky (2003-09-12 23:30:00) [1]
Может тебе еще пригодится и GetKeyboardLayoutName
Olfi (2003-09-12 23:13:00) [2]
Благодарю :-).
Всё работает... Вот готовый вариант:
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;
savva (2003-09-12 10:06:00) [3]http://delphibase.endimus.com/?action=viewfunc&topic=sysparams&id=10256
jack128 (2003-09-12 02:25:00) [4]
GetKeyboardLayout по всей видимости
| |
