求教(API)如何取得系统的所有输入法,及如何指定一个TEXT控件所使用的输入法

Question

已知道TEXT的hwnd,如何用API来实现指定输入法??????
系统的所有输入法用什么API能够得到?

Answer 1

从下面几个里找：
Private Declare Function GetKeyboardLayoutList Lib "user32" _
        (ByVal nBuff As Long, lpList As Long) As Long
Private Declare Function ImmGetDescription Lib "imm32.dll"  _
        Alias "ImmGetDescriptionA" (ByVal HKL As Long, _
        ByVal lpsz As String, ByVal uBufLen As Long) As Long
Private Declare Function ImmIsIME Lib "imm32.dll" (ByVal HKL As Long) As Long
Private Declare Function ActivateKeyboardLayout Lib "user32" _
        (ByVal HKL As Long, ByVal flags As Long) As Long
Private Declare Function GetKeyboardLayout Lib "user32" _
        (ByVal dwLayout As Long) As Long

Answer 2

http://www.china-askpro.com/msg13/qa61.shtml

Answer 3

'取得目前所有的输入法，窗体上一个Combobox
Private Declare Function GetKeyboardLayoutList Lib "user32" _
(ByVal nBuff As Long, lpList As Long) As Long
Private Declare Function ImmGetDescription Lib "imm32.dll" _
Alias "ImmGetDescriptionA" (ByVal HKL As Long, _
ByVal lpsz As String, ByVal uBufLen As Long) As Long
Private Declare Function ImmIsIME Lib "imm32.dll" (ByVal HKL As Long) As Long
Private Declare Function ActivateKeyboardLayout Lib "user32" _
(ByVal HKL As Long, ByVal flags As Long) As Long
Private Declare Function GetKeyboardLayout Lib "user32" _
(ByVal dwLayout As Long) As Long
Private Sub Form_Load()
    Dim NoOfKBDLayout As Long, i As Long, j As Long
    Dim hKB(24) As Long, BuffLen As Long
    Dim Buff As String
    Dim RetStr As String
    Dim RetCount As Long
    
    Buff = String(255, 0)
    hCurKBDLayout = GetKeyboardLayout(0) '取得目前keyboard layout
    NoOfKBDLayout = GetKeyboardLayoutList(25, hKB(0)) '取得所有输入法的hkeys
    For i = 1 To NoOfKBDLayout
        If ImmIsIME(hKB(i - 1)) = 1 Then '中文输入法
            BuffLen = 255
            RetCount = ImmGetDescription(hKB(i - 1), Buff, BuffLen)
            RetStr = Left(Buff, RetCount)
            Combo1.AddItem RetStr
        Else
            RetStr = "English (American)" '假设我们的win95非Ime 者只有English
            Combo1.AddItem RetStr '若有其他者，要去取得keyboardLayout
        End If ' Name再去Registry中找其对应的名称
        If hKB(i - 1) = hCurKBDLayout Then
            Combo1.Text = RetStr
        End If
    Next
    ActivateKeyboardLayout hCurKBDLayout, 0 '回复原来的键盘布局
    End Sub