Tested with Windows 10
Code:
kbd$ = Space(12)
OpenWindow(0,0,0,100,100,"test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
StringGadget(0,0,0,0,0,"") ;Dummy Gadget
ButtonGadget(1,10,60,120,20,"Get Active Language")
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Quit = 1
Case #PB_Event_Gadget
Select EventGadget()
Case 0
Select EventType()
Case #PB_EventType_Focus
GetKeyboardLayoutName_(@kbd$)
Debug kbd$
EndSelect
Case 1
SetFocus_(GadgetID(0))
EndSelect
EndSelect
Until Quit = 1
End
Code:
kbd$ = Space(12)
OpenWindow(0,0,0,120,24,"test", #PB_Window_BorderLess | #PB_Window_ScreenCentered)
StringGadget(0,0,0,0,0,"") ;Dummy Gadget
ButtonGadget(1,0,0,120,24,"Get Active Language")
Repeat
Select WaitWindowEvent()
Case #WM_CHAR
Quit = EventwParam()
Case #PB_Event_Gadget
Select EventGadget()
Case 0
Select EventType()
Case #PB_EventType_Focus
GetKeyboardLayoutName_(@kbd$)
SetActiveGadget(-1)
MessageRequester("Info","Active Keboard : "+kbd$,#MB_OK|#MB_ICONINFORMATION)
EndSelect
Case 1
SetFocus_(GadgetID(0))
EndSelect
EndSelect
Until Quit = 27
End