Как программно определить текущую раскладку клавиатуры?

SetSystemCursor_(LoadCursor_(GetModuleHandle_(0), 200), #OCR_IBEAM) 
SetSystemCursor_(LoadCursor_(GetModuleHandle_(0), 100), #OCR_IBEAM)

ScrollLock(1)

ScrollLock(0)

Structure PSP_DEVICE_INTERFACE_DETAIL_DATA
  cbSize.l
  CompilerIf #PB_Compiler_Processor = #PB_Processor_x64
    DevicePath.l
  CompilerElse 
    DevicePath.c
  CompilerEndIf
EndStructure
 
Structure KEYBOARD_INDICATOR_PARAMETERS
  UnitId.u
  LedFlags.u
EndStructure
 
#KEYBOARD_CAPS_LOCK_ON    = 4
#KEYBOARD_NUM_LOCK_ON     = 2
#KEYBOARD_SCROLL_LOCK_ON  = 1
 
#IOCTL_KEYBOARD_SET_INDICATORS = $000B0008
 
EnableExplicit
 
Procedure Open_Key_Device()
  Protected HidGuid.Guid
  Protected devInfoData.SP_DEVICE_INTERFACE_DATA
  Protected *detailData.PSP_DEVICE_INTERFACE_DETAIL_DATA
  Protected Length.l, CurrentIndex.w, hDevInfo
  Protected i, Result, DevicePath.s
  Protected Required, hDevice=0, FlagsAndAttributes = 0
  
  devInfoData\cbSize = SizeOf(SP_DEVICE_INTERFACE_DATA)
  
  CopyMemory(?KeyGuid, @HidGuid, SizeOf(HidGuid))
  
  hDevInfo=SetupDiGetClassDevs_(@HidGuid,0,0, #DIGCF_PRESENT|#DIGCF_DEVICEINTERFACE)
  If hDevInfo=0
    ProcedureReturn 0
  EndIf
    
  For i=0 To 255
    
    Result=SetupDiEnumDeviceInterfaces_(hDevInfo, 0, @HidGuid, i, @devInfoData)
    If Result
      Result = SetupDiGetDeviceInterfaceDetail_(hDevInfo, @devInfoData, 0, 0,@Length, 0)
      *detailData=AllocateMemory(Length)
      *detailData\cbSize=SizeOf(PSP_DEVICE_INTERFACE_DETAIL_DATA)
      Result = SetupDiGetDeviceInterfaceDetail_(hDevInfo, @devInfoData, *detailData, Length+1, @Required, 0)
      
      DevicePath.s=PeekS(@*detailData\DevicePath)
      FreeMemory(*detailData)
      
      If FindString(DevicePath, "rdp_kbd", 1, #PB_String_NoCase)>0
        Continue
      EndIf
      
      hDevice=CreateFile_(@DevicePath, #GENERIC_WRITE, #FILE_SHARE_READ|#FILE_SHARE_WRITE,
                          0, #OPEN_EXISTING, 0, 0)
      
      If hDevice<>#INVALID_HANDLE_VALUE
        SetupDiDestroyDeviceInfoList_(hDevInfo)
        ProcedureReturn hDevice
      EndIf
    Else
      Break 
    EndIf
  Next i
  
  SetupDiDestroyDeviceInfoList_(hDevInfo)
  ProcedureReturn 0
  
  DataSection
    KeyGuid:
    Data.l $884B96C3
    Data.u $56EF, $11D1
    Data.a $BC, $8C, $00, $A0, $C9, $14, $05, $DD
  EndDataSection
EndProcedure
 
Procedure SetLedState(hDev, State)
  Protected Param.KEYBOARD_INDICATOR_PARAMETERS
  Protected nBytes.l
  
  Param\UnitId = 0
  Param\LedFlags = State
  
  DeviceIoControl_(hDev, #IOCTL_KEYBOARD_SET_INDICATORS, @Param, SizeOf(Param), 0, 0, @nBytes, 0)
  
EndProcedure
 
Define hDev=Open_Key_Device()
 
If hDev
  SetLedState(hDev, #KEYBOARD_CAPS_LOCK_ON | #KEYBOARD_NUM_LOCK_ON)
EndIf