AutoHotkey Community

HKCR = 0x80000000
HKCU = 0x80000001
HKLM = 0x80000002
HKU  = 0x80000003

RegKeyRoot := HKLM
RegKey = SYSTEM\CurrentControlSet\Control\Keyboard Layouts\00000409
RegValue = Layout Display Name

KEY_QUERY_VALUE = 0x0001

; Get a handle to the registry key containing the value.
DllCall("Advapi32\RegOpenKeyExA","uint",RegKeyRoot,"str",RegKey
                    ,"uint",0,"uint",KEY_QUERY_VALUE,"uint*",hKey)

; Convert RegValue to a Unicode string.
cch := VarSetCapacity(wRegValue,StrLen(RegValue)*2+2)//2
DllCall("MultiByteToWideChar","uint",0,"uint",0
            ,"str",RegValue,"int",-1
            ,"uint",&wRegValue,"int",cch)

; Determine buffer size required to retrieve the string.
DllCall("Advapi32\RegLoadMUIStringW"
    ,"uint",hKey        ; handle to registry key
    ,"uint",&wRegValue  ; name of registry value
    ,"uint",0
    ,"uint",0
    ,"uint*",StringSize ; out: required buffer size
    ,"uint",0
    ,"uint",0)

VarSetCapacity(wStr, StringSize)
; Retrieve the string.
DllCall("Advapi32\RegLoadMUIStringW"
    ,"uint",hKey
    ,"uint",&wRegValue
    ,"uint",&wStr       ; output buffer
    ,"uint",StringSize  ; size of output buffer
    ,"uint*",StringSize ; out: number of bytes copied
    ,"uint",0
    ,"uint",0)

; Convert the result from Unicode to ANSI.
VarSetCapacity(Str, StringSize//2)
DllCall("WideCharToMultiByte","uint",0,"uint",0
            ,"uint",&wStr,"int",StringSize//2
            ,"str",Str,"int",StringSize//2
            ,"uint",0,"uint",0)

MsgBox %Str%