LOCALE.SDECIMAL = 14
Locale = 2048
LCType = LOCALE.SDECIMAL
result$ = GetLocaleInfo$(Locale, LCType)
print result$ : end
'=============================================================================================================
function GetLocaleInfo$(Locale, LCType)
lpLCData$ = space$(1024) + chr$(0)
cchData = len(lpLCData$)
calldll #kernel32, "GetLocaleInfoA", _
Locale as long, _
LCType as long, _
lpLCData$ as ptr, _
cchData as long, _
GetLocaleInfo as long
if GetLocaleInfo <> 0 then GetLocaleInfo$ = left$(lpLCData$, GetLocaleInfo - 1)
end function