Работа с API функциями (GetKeyboardLayoutList)

[Aleksander]

Привет

Вопрос косается использования АПИ функций.
Есть функция, которая возвращает список текущих раскладок для клавиатуры.
Private Declare Function GetKeyboardLayoutList& Lib "user32" (ByVal nBuff As Long, lpList As Long)

nBuff - входной параметр
lpList - выходной - содержит указатель на буфер, в котором будет требуемый список

Как прочитать содержимое полученного буфера ? Вернее даже как в принципе работать с указателями в VB ?.

[Vi]

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

Private Declare Function GetKeyboardLayoutList Lib "user32" _
  (ByVal nBuff As Long, ByRef lpList As Long) As Long

Private Sub Form_Load()
  Dim keyList() As Long, nkeyList As Long, i As Long
 
  nkeyList = GetKeyboardLayoutList(0, 0)
 
  ReDim keyList(nkeyList)
  Call GetKeyboardLayoutList(nkeyList, keyList(0))
 
  For i = 0 To nkeyList - 1
    Debug.Print Hex(keyList(i))
  Next
End Sub


[Aleksander]

Привет

Ок, спасибо, все прекрасно работает.

Александр.