как узнать есть ли данный язык не переключая раскладки?

← →
Novichek (2002-11-11 20:00) [0]

есть способ узнать это переключив раскладку к примеру так:
if LoadKeyboardLayout("00000419",KLF_ACTIVATE)=0 then ShowMessage("Русский язык не установлен");
а как узнать не переключая ее?

← →
Феу (2002-11-11 20:19) [1]

Можт быть GetKeyboardLayoutList? - Не знаю, не пробовал, врать не буду.

← →
Novichek (2002-11-11 20:32) [2]

и еще вопрос: как узнать какая раскладка в данном окне сейчас включена?

← →
Jeer (2002-11-11 20:33) [3]

Registry проверяй
HKCU\Control Panel\International
Locale
и
KeyBoard Layout

← →
Novichek (2002-11-11 20:36) [4]

Jeer ©
а через WinAPI?

← →
Jeer (2002-11-11 20:59) [5]

Интересно и откуда ОНА по твоему узнает об инсталляции того или иного языка ?

← →
Novichek (2002-11-11 21:00) [6]

в общем делаю так:
var arr:array[0..5] of HKL; q:integer; begin GetKeyboardLayoutList(6,Arr); for q:=0 to 5 do listbox1.Items.Add(inttostr(arr[q])); end;
первые цифры это установленные языки, а как отсеять все остальное не нужное?

← →
Jeer (2002-11-11 21:01) [7]

GetLocaleInfo(..)

Как думаешь, откуда для нее инфа береться ? :))

← →
Novichek (2002-11-11 21:04) [8]

Jeer © (11.11.02 21:01)
а через GetKeyboardLayoutList?

← →
Novichek (2002-11-11 21:13) [9]

все, уже нашел. остался второй вопрос:
как узнать какая раскладка в данном окне сейчас включена?

← →
Jeer (2002-11-11 21:21) [10]

Разберешься, надеюсь.

function ChangeLayout_(LANG: Integer): Boolean;
var
Layouts: array [0..16] of HKL;
i, Count: Integer;
begin
Result:=False;
Count:=GetKeyboardLayoutList(High(Layouts)+1, Layouts)-1;
for i:=0 to Count do if (LoWord(Layouts[i]) and $FF) = LANG then
Result:=ActivateKeyboardLayout(Layouts[i], 0)<>0;
end;

← →
Jeer (2002-11-11 21:27) [11]

GetKeyboardLayout

← →
Novichek (2002-11-12 18:41) [12]

еще вопрос: а как зная HKL вытащить буквенное обозначение раскладки, например En, Ru.

как узнать есть ли данный язык не переключая раскладки? Найти похожие ветки