Изменение раскладки

[Etc]

Если я посылаю сендкейсы на английском, то отображаются символы в русской раскладке. Как сменить раскладку на английскую

[Ennor]

Поиск по форуму по слову ActivateKeyboardLayout ...

[xolod]

Ну и от себя замечу, что ActivateKeyboardLayout изменит раскладку только для вызывающего треда текущего процесса, а чтобы сменить раскладку для всей системы, следует заюзать LoadKeyboardLayout

[tyomitch]

xolod, путаешь - LoadKeyboardLayout делает раскладку доступной для активации, но не активирует. Сменить раскладку для всей системы сразу - невозможно.

[GSerg]

Придётся юзать SendInput. Там есть флаг посылания в юникоде...

[xolod]

to tyomitch
Если я пошлю вторым параметром LoadKeyboardLayout константу KLF_ACTIVATE, то она еще и активируется. Причем для все системы
Так что не путаю

[tyomitch]

Да что ты говоришь?

KLF_ACTIVATE If the specified input locale identifier is not already loaded, the function loads and activates the input locale identifier for the current thread.

[xolod]

Ну тогда ведь можно послать KLF_SETFORPROCESS вместе с KLF_ACTIVATE, а потом пробежаться по всем окнам в системе и послать каждому сообщение WM_INPUTLANGCHANGE.. Тогда точно смениться для всей системы
И тебе

[tyomitch]

Ну тогда можно вообще забить на LoadKeyboardLayout и просто разослать всем окнам WM_INPUTLANGCHANGE. Так что ты всё равно не в теме

[xolod]

Да ну тебя ! Лучше в топике "Господа... " помоги мне с портированием программы с Дельфи на ВБ

[tyomitch]

Согласен, ну меня
А с портированием не помогу, ибо с директиксом никогда не работал. Только дельфийский синтаксис могу объяснить, но вряд ли это сколько-нибудь поможет там.

[Etc]

Ok насчет мзменения раскладки понятно, а как определить тип раскладки в другой программе

[Ennor]

Ok насчет мзменения раскладки понятно, а как определить тип раскладки в другой программе

А зачем, пардон, это может понадобиться? Клавиатурного шпиона пишешь?

[DragonTriste]

пардон, это может это уже параноя

[Андрей Васюта]

Взято из журнала VB - Forever! выпуск №1

' Функция для переключения раскладок клавиатуры
Private Declare Function ActivateKeyboardLayout Lib "user32" _
(ByVal HKL As Long, ByVal flags As Long) As Long
'Константы
Const kb_lay_ru As Long = 68748313 ' русский
Const kb_lay_en As Long = 67699721 ' английский

' Переключить на русский язык
ActivateKeyboardLayout kb_lay_ru, 0

' Переключить на английский язык
ActivateKeyboardLayout kb_lay_en, 0

[xolod]

to Андрей Васюта
Ты не в кассу отписался

[Etc]

пардон, это может это уже параноя

Не просто нужна прога которая автоматически вводит код(на англ. яз.) при входе. А если шлю сендкейсы то они отображаются в русской раскладке. Может посоветуте как проще это сделать

[GSerg]

Я ж говорю, SendInput...

[Etc]

Я ж говорю, SendInput...

А можно поподробнее

[Amed]

Код: Выделить всё

Const VK_H = 72
Const VK_E = 69
Const VK_L = 76
Const VK_O = 79
Const KEYEVENTF_KEYUP = &H2
Const INPUT_MOUSE = 0
Const INPUT_KEYBOARD = 1
Const INPUT_HARDWARE = 2
Private Type MOUSEINPUT
  dx As Long
  dy As Long
  mouseData As Long
  dwFlags As Long
  time As Long
  dwExtraInfo As Long
End Type
Private Type KEYBDINPUT
  wVk As Integer
  wScan As Integer
  dwFlags As Long
  time As Long
  dwExtraInfo As Long
End Type
Private Type HARDWAREINPUT
  uMsg As Long
  wParamL As Integer
  wParamH As Integer
End Type
Private Type GENERALINPUT
  dwType As Long
  xi(0 To 23) As Byte
End Type
Private Declare Function SendInput Lib "user32.dll" (ByVal nInputs As Long, pInputs As GENERALINPUT, ByVal cbSize As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
Private Sub Form_KeyPress(KeyAscii As Integer)
    'Print the key on the form
    Me.Print Chr$(KeyAscii);
End Sub
Private Sub Form_Paint()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    'Clear the form
    Me.Cls
    'call the SendKey-function
    SendKey VK_H
    SendKey VK_E
    SendKey VK_L
    SendKey VK_L
    SendKey VK_O
End Sub
Private Sub SendKey(bKey As Byte)
    Dim GInput(0 To 1) As GENERALINPUT
    Dim KInput As KEYBDINPUT
    KInput.wVk = bKey  'the key we're going to press
    KInput.dwFlags = 0 'press the key
    'copy the structure into the input array's buffer.
    GInput(0).dwType = INPUT_KEYBOARD   ' keyboard input
    CopyMemory GInput(0).xi(0), KInput, Len(KInput)
    'do the same as above, but for releasing the key
    KInput.wVk = bKey  ' the key we're going to realease
    KInput.dwFlags = KEYEVENTF_KEYUP  ' release the key
    GInput(1).dwType = INPUT_KEYBOARD  ' keyboard input
    CopyMemory GInput(1).xi(0), KInput, Len(KInput)
    'send the input now
    Call SendInput(2, GInput(0), Len(GInput(0)))
End Sub


Ну товарищи! Пользуйтесь же API-Guide, наконец!