VPF::Сокращенные (RU, ENG) названия раскладок клавиатур

OlafShadow

Дата 25.6.2006, 20:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 21.6.2006
Где: Архангельская обл

Репутация: нет
Всего: нет

Здравствуйте, подскажите, как программно получить сокращенные (RU, ENG) названия загруженных раскладок клавиатуры. Спасибо.

bems

Дата 25.6.2006, 23:16 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 21
Всего: 88

Код


program GetLayouts;
{$APPTYPE CONSOLE}
uses windows,SysUtils;
var layouts:array of HKL;i:integer;SaveLayout:HKL;
    sLangID,LayoutName:string;dwLangID:DWORD;
begin
SetLength(layouts,1);
SetLength(layouts,GetKeyboardLayoutList(0,layouts[0]));
GetKeyboardLayoutList(length(layouts),layouts[0]);
SaveLayout:=GetKeyboardLayout(0);
SetLength(LayoutName,3);
for i:=0 to high(layouts) do
 begin
 ActivateKeyboardLayout(layouts[i],0);
 SetLength(sLangID,KL_NAMELENGTH-1);
 GetKeyboardLayoutName(PChar(sLangID));
 dwLangID:=StrToInt('$'+sLangID);
 GetLocaleInfo(dwLangID,LOCALE_SABBREVLANGNAME,PChar(LayoutName),4);
 writeln(copy(LayoutName,1,2));
 end;
ActivateKeyboardLayout(SaveLayout,0);
readln
end.

--------------------

Обижено школьников: 8

Poseidon

Дата 27.6.2006, 03:13 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 10
Всего: 133

Код

var 
LAYOUT: String;
RA: Array[0..$FFF] of Char;
begin
GetKeyboardLayoutName(RA) ;
Layout := StrPas(RA);
if Layout = '00000419' then ShowMessage('RU');
if Layout = '00000409' then ShowMessage('EN');
end;

Для других раскладок нужно, разумееся, сравнивать Layout с другими значениями

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »