Запрет на переключение раскладки

20.06.2006, 00:46. **Показов** 3748. **Ответов** 16

Студворк — интернет-сервис помощи студентам

Нужно в програме запретить переключение раскладки

Нашел такой пример

Блокировка переключения раскладки клавиатуры в приложении реализуется достаточно просто - необходимо перехватить сообщение WM_INPUTLANGCHANGEREQUEST. Это реализовано в примере:

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.FormCreate(Sender: TObject);
begin
 Application.OnMessage := MsgHandler;
end;
 
procedure TForm1.MsgHandler(var Msg: TMsg; var Handled: Boolean);
begin
 if Msg.message = WM_INPUTLANGCHANGEREQUEST then 
  if CheckBox1.checked then 
   Handled := true;
end;

В данном случае при включении переключателя CheckBox1 переключение раскладки клавиатуры в приложении блокируется (но в других приложениях оно будет работать)

но как его в бейсик переделать?

я сделал следующее:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Public Const GWL_WNDPROC = (-4)
Public Const WM_INPUTLANGCHANGEREQUEST = &H50
Public Const WM_INPUTLANGCHANGE = &H51
Public lpPrevWndProc As Long
 
Declare Function CallWindowProc Lib "USER32" Alias _
         "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As _
         Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As _
         Long) As Long
 
Public Declare Function SetWindowLong Lib "USER32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
 
Public Sub Hook()
  lpPrevWndProc = SetWindowLong(frmMain.hWnd, GWL_WNDPROC, AddressOf WindowProc)
  Debug.Print lpPrevWndProc
End Sub
 
Public Sub Unhook()
  Dim temp As Long
  temp = SetWindowLong(frmMain.hWnd, GWL_WNDPROC, lpPrevWndProc)
End Sub
 
Function WindowProc(ByVal hw As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  Select Case uMsg
  Case WM_INPUTLANGCHANGEREQUEST
    MsgBox "Êëàâà."
  Case WM_INPUTLANGCHANGE
    MsgBox "Êëàâà!"
  Case 307
    WindowProc = CallWindowProc(lpPrevWndProc, hw, uMsg, wParam, lParam)
  Case Else
    frmMain.rtf(1).text = frmMain.rtf(1).text & uMsg
    WindowProc = CallWindowProc(lpPrevWndProc, hw, uMsg, wParam, lParam)
  End Select
End Function

но 1 - программа вылетает при унхуке

и 2 - не перехватываются сообщения

где дал штангу?

@VladConn · 20.06.2006, 02:29

Irokez,
Ona i dolzhno sletat' na Unhook - v IDE. Eto OK. Ti skompiliruj - ona kak bi rabotaet togda: vidaet "??????" v russkom i rabotaet v English.
VladConn

20.06.2006, 02:56

VladConn (19.06.2006)
Irokez,

Ona i dolzhno sletat' na Unhook - v IDE. Eto OK. Ti skompiliruj - ona kak bi rabotaet togda: vidaet "??????" v russkom i rabotaet v English.

VladConn

это я знаю. компилировал. ошибка все-равно есть (правда не всегда)

а сообщение не перехватывается всеравно.

20.06.2006, 04:50

Эврика!!!

Как оказалось сообщения WM_INPUTLANGCHANGEREQUEST = &H50

и WM_INPUTLANGCHANGE = &H51 посылаются не окну формы, а окну текстового поля (ну или ртф...) вообще то это странно на мой взгяд, но раз есть, то есть.

В принцыпе решение есть, правда не совсем оно удобное, но...
хук нужно ставить не на окно, а на все текстовые поля.

если кому интересно, вот решение:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Function WindowProc(ByVal hw As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  Dim flg As Boolean
  flg = True
  Select Case uMsg
  Case WM_INPUTLANGCHANGEREQUEST
    flg = GlobalSetAllowChangeLayout
  Case WM_INPUTLANGCHANGE
    flg = GlobalSetAllowChangeLayout
    If flag Then frmMain.Toolbar1.Buttons("Lang").Image = "l" & CStr(lParam)
  End Select
  If flag Then WindowProc = CallWindowProc(lpPrevWndProc, hw, uMsg, wParam, lParam)
End Function

@VladConn · 20.06.2006, 19:40

Irokez,
Mne bilo interesno. Chto takoe GlobalSetAllowChangeLayout?
VladConn

20.06.2006, 20:42

)))))))))

примерный перевод такой

Глобальная Настройка Допустимы Переключения Клавиатуры

просто глобальная булевая переменная

@VladConn · 20.06.2006, 21:06

Irokez,
A togda kakuyu rol' v blokirovke vvoda yazika igraet eta stroka?

Visual Basic
1
If flag Then frmMain.Toolbar1.Buttons("Lang").Image = "l" & CStr(lParam)

Ya sprashivayu ne iz prazdnogo lubopitstva. Ya ee ubral, ctobi ne lepit' toolbar, i ne rabotaet.
VladConn

21.06.2006, 17:11

Ну это вообще просто. На кнопке блокировки языка меняется изображение флага (русский, украинский и английский)

Естественно, если в системе будет установлен язык, флага которого нет в имажлисте, то программа в этом месте вылетит, но эту не проблемма в моем случае. Тем более, что вставить проверку не сложно )))

Смысл такой: на кнопке панели инструментов изображен флаг, соответствующий выбранному языку. Когда кнопка нажата (а ее свойство стиль = чекбокс), то изображение меняется на замочек и переключение раскладки горячими клавишами блокируется.

@VladConn · 21.06.2006, 19:28

Irokez,
Ya tak ponyal, chto igri s kartinkami na toolbare kak takovie ne vliyayut na rabotu? Chego-to ya ne dogonyau. Gde u vas vxod v programmu? I chto takoe flag?
VladConn

@Letter_D · 22.06.2006, 18:28

А почему программа должна вылетать при унхуке в IDE?

Не понял.

Если его отработать перед закрытием ничего не вылетает.

У меня никогда не вылетает, если, конечно, случайно по IDE-шному "стопу" не жмакнешь

)

@vbman · 24.06.2006, 19:54

Могу еще предлоожить поставить на систему ловушку WH_KEYBOARD_LL - мощная вещь, скажу я Вам.

26.06.2006, 16:51

vbman (24.06.2006)
Могу еще предлоожить поставить на систему ловушку WH_KEYBOARD_LL - мощная вещь, скажу я Вам.

Предложи заодно драйвер клавиатуры поменять - а то фигли он такой стандартный? )
Глупо это... Сначала фильтровать клавиши, потом определять целевое приложение, потом определять системные настройки на предмет горячей клавиши переключения раскладки...
А если пользователь сменит язык ввода мышкой? Или на нее MOUSE_LL ставить и проверять, а не кликнул ли он по значку языковой панели (тем более, в разных виндах он по-разному реализован), не выбрал ли чего из выпадающей менюхи (причем, как с помощью мыши, так и с помощью клавиатуры), какое окно было активно в тот момент...

27.06.2006, 20:06

>Ya tak ponyal, chto igri s kartinkami na toolbare kak takovie ne vliyayut na

>rabotu? Chego-to ya ne dogonyau. Gde u vas vxod v programmu? I chto

>takoe flag?

да, картинки на работу не влияют.

вход в программу или sub Main() или form_load() стартующей формы

это, вроде, как все знают. или я чего-то не понял. только какое это имеет отношение к теме вопроса?

флаг - просто булевая переменная.

27.06.2006, 20:16

>А почему программа должна вылетать при унхуке в IDE?

>Не понял.

>Если его отработать перед закрытием ничего не вылетает.

>У меня никогда не вылетает, если, конечно, случайно по IDE-шному

>"стопу" не жмакнешь

)

нашел ошибку. хотел вставить сюда кусок кода и нашел. перед вызовом функции унхука енд стоял )))

вот так. огромное спасибо, что написали. я все время думал, что это нормальное положение дел )))

@vbman · 01.07.2006, 19:53

для Messir:
Не согласен насчет глупостей. Оно понятно, что напрягаться не всякому охота, но определить приложение, которому принадлежит раскладка не такая уж накладная проблема.
Есть такая программка RusLat называется (выставляет флаг языка раскладки в трее (Русский - Российский флаг, Украинский - Уркаинский флаг и т. д.)). Так они вообще раз в 100 мс. проверяют раскладку и если она поменялась, то выводят флажок, соответствующий языку. И это писано на С. В принципе, тоже вариант...
Тут надо ЗАХОТЕТЬ сделать - а остальное приложится.
А насчет драйвера клавиатуры - так это кому как. Если есть охота думать - пусть заменяют своим, а нету - то пусть так и будет!

05.07.2006, 03:35

vbman (01.07.2006)
Не согласен насчет глупостей. Оно понятно, что напрягаться не всякому охота, но определить приложение, которому принадлежит раскладка не такая уж накладная проблема.

Вопрос не в том, сложно это или не сложно. Вопрос в том, насколько это целесообразно и ресурсоемко.

vbman (01.07.2006)
Есть такая программка RusLat называется (выставляет флаг языка раскладки в трее (Русский - Российский флаг, Украинский - Уркаинский флаг и т. д.)). Так они вообще раз в 100 мс. проверяют раскладку и если она поменялась, то выводят флажок, соответствующий языку. И это писано на С. В принципе, тоже вариант...

Ага, да... *побежал вырезать весь код, использующий сообщения и хуки, и заменять его на таймеры*

vbman (01.07.2006)
Тут надо ЗАХОТЕТЬ сделать - а остальное приложится.

Тут воспользоваться коркой серого вещества иногда полезно бывает... А то можно захотеть на лыжах по асфальту покататься, а потом спрашивать на многочисленных форумах о причинах вероятной неудачи...

vbman (01.07.2006)
А насчет драйвера клавиатуры - так это кому как. Если есть охота думать - пусть заменяют своим, а нету - то пусть так и будет!

Кому есть охота думать - те не занимаются глупостями. И трезво оценивают затраты на реализацию того или иного подхода.
Я, например, весьма подробно описал, какие трудности ожидают желающих блокировать переключение раскладки low-level хуком на клавиатуру. И ни одного контраргумента получено так и не было.

@vbman · 15.07.2006, 18:58

Messir (04.07.2006)