|
#1
|
||||
|
||||
Язык ввода
Как узнать язык ввода? И вывести его в StatusBar. Помогите плз
|
#2
|
|||
|
|||
StatusBar1.SimpleText:= inttostr(GetKeyBoardLayout(0));
|
Этот пользователь сказал Спасибо m1sclick за это полезное сообщение: | ||
sariman (08.01.2012)
|
#3
|
||||
|
||||
хм..появляются какие-то цифры и все
вот например: 68748313 |
#4
|
|||
|
|||
Ну правильно....
Теперь в интернете ищем коды и сравниваем. У тебя русская стоит. |
Этот пользователь сказал Спасибо m1sclick за это полезное сообщение: | ||
sariman (08.01.2012)
|
#5
|
||||
|
||||
GetKeyboardLayout function
Language Identifiers Language Identifier Constants and Strings Код:
var hForegroundWindow: THandle; idProcess: DWORD; hKeyboardLayout: HKL; sTip: String; sIcon: String; begin hForegroundWindow:=GetForegroundWindow; idProcess:=GetWindowThreadProcessId(hForegroundWindow); hKeyboardLayout:=LOWORD(GetKeyboardLayout(idProcess)); case hKeyboardLayout of $0409: begin sTip:='Английский'; sIcon:='ENICON'; end; $0419: begin sTip:='Русский'; sIcon:='RUICON'; end; else begin sTip:='KeyboardLayout'; sIcon:='UNKICON'; end; end; end; Пишу программы за еду. __________________ Последний раз редактировалось NumLock, 08.01.2012 в 15:41. |
Этот пользователь сказал Спасибо NumLock за это полезное сообщение: | ||
sariman (08.01.2012)
|
#6
|
||||
|
||||
спасибо огромное!!!!)))))))))
|
#7
|
|||
|
|||
Цитата:
Код:
GetLocaleInfo( LangID, Locale_SLanguage, LangName, Size); |
Этот пользователь сказал Спасибо AlexSku за это полезное сообщение: | ||
sariman (09.01.2012)
|
#8
|
|||
|
|||
а как изменить?
изменить язык ввода на английский (если поддерживается) напиштье функцию, а я дальше погооглю |
#9
|
||||
|
||||
Код:
LoadKeyboardLayout(PChar('00000419'), KLF_ACTIVATE); { русский } LoadKeyboardLayout(PChar('00000409'), KLF_ACTIVATE); Пишу программы за еду. __________________ |