Функция SetLocaleInfo

Declare Function SetLocaleInfo Lib "kernel32" Alias SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Boolean
SetLocaleInfo устанавливает новые параметры пользовательского локального контекста, но не позволяет менять параметры системного локального контекста
Locale
Идентификатор локального контекста
LCType
Тип изменяемого параметра. Может принимать следующие значения
LOCALE_ICALENDARTYPE
LOCALE_ICURRDIGITS
LOCALE_ICURRENCY
LOCALE_IDIGITS
LOCALE_IFIRSTDAYOFWEEK
LOCALE_IFIRSTWEEKOFYEAR
LOCALE_ILZERO
LOCALE_IMEASURE
LOCALE_INEGCURR
LOCALE_INEGNUMBER
LOCALE_IPAPERSIZE
LOCALE_ITIME
LOCALE_S1159
LOCALE_S2359
LOCALE_SCURRENCY
LOCALE_SDATE
LOCALE_SDECIMAL
LOCALE_SGROUPING
LOCALE_SLIST
LOCALE_SLONGDATE
LOCALE_SMONDECIMALSEP
LOCALE_SMONGROUPING
LOCALE_SMONTHOUSANDSEP
LOCALE_SNEGATIVESIGN
LOCALE_SPOSITIVESIGN
LOCALE_SSHORTDATE
LOCALE_STHOUSAND
LOCALE_STIME
LOCALE_STIMEFORMAT
LOCALE_SYEARMONTH
lpLCData
Новое значение изменяемого параметра

Пример

' Меняем формат даты для компьютера
Dim dwLCID As Long

dwLCID = GetSystemDefaultLCID()
If SetLocaleInfo(dwLCID, LOCALE_SSHORTDATE, "dd-MMM-yy") _
            = False Then
   MsgBox "Ошибка"
   Exit Sub
End If

PostMessage HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0
' Теперь откройте апплет Панели управления Язык и стандарты
' и перейдите на вкладку Даты, чтобы увидеть изменения

Смотри также

GetLocaleInfo

Категория

Поддержка национальных языков