Как определить какой язык выбран в данный момент в Windows?

@natter · Регистрация: 23.08.2008

Студворк — интернет-сервис помощи студентам

Как определить какой язык (Русский/Английский) выбран в данный момет в Winde и как програмно его переключать.

@VERMIN · 22.09.2008, 16:53

переключай эмулированием нажатия кнопок : SendKeys '{Home}'

'0 = Language Neutral
'1024 = Process Default Language
'1030 = Danish
'1031 = German (Standard)
'1032 = Greek
'1033 = English (United States)
'2057 = English (United Kingdom)
'3081 = English (Australian)
'4105 = English (Canadian)
'5129 = English (New Zealand)
'6153 = English (Ireland)
'7177 = English (South Africa)
'8201 = English (Jamaica)
'9225 = English (Caribbean)
'10249 = English (Belize)
'11273 = English (Trinidad)
'1034 = Spanish (Traditional Sort)
'3082 = Spanish (Modern Sort)
'1035 = Finnish
'1036 = French (Standard)
'1040 = Italian (Standard)
'1043 = Dutch (Standard)
'2067 = Dutch (Belgian)
'1044 = Norwegian (Bokmal)
'2068 = Norwegian (Nynorsk)
'1045 = Polish
'2070 = Portuguese (Standard)
'1049 = Russian
Private Declare Function VerLanguageName Lib 'kernel32' Alias 'VerLanguageNameA' (ByVal wLang As Long, ByVal szLang As String, ByVal nSize As Long) As Long
Private Sub Form_Paint()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@allapi.net
Dim Buffer As String
Buffer = String(255, 0)
VerLanguageName 2067, Buffer, Len(Buffer)
Buffer = Left$(Buffer, InStr(1, Buffer, Chr$(0)) - 1)
MsgBox Buffer
End Sub

@natter · 22.09.2008, 18:43 **[ТС]**

Спасибо, использую

@palva · 23.09.2008, 00:13

2VERMIN
Я что-то не врубился, как же переключить язык из VBScript, если для этого нужно нажать клавиши Ctrl-Shift?

Code
1
SendKeys('{^Shift}')

не проходит - Недопустимый вызов или аргумент процедуры.

@VERMIN · 23.09.2008, 11:04

на VBScript не писал ,но вроде эмуляция нажатия клавиш как в VB...
проверь синтаксис команды Sendkeys

@Steigan · 23.09.2008, 14:25

Переключение англ / рус:

Code
1
2
3
4
5
6
7
8
9
Private Const KLF_ACTIVATE = &H1
Private Declare Function LoadKeyboardLayout Lib 'user32' _
  Alias 'LoadKeyboardLayoutA' (ByVal pwszKLID As String, _
  ByVal flags As Long) As Long
 
Public Sub SetKeyboardLayout(bRus As Boolean)
  LoadKeyboardLayout '00000' & IIf(bRus, '419', '409') & _
    vbNullChar, KLF_ACTIVATE
End Sub

Новые блоги и статьи Все статьи Все блоги /
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

@natter 0 / 0 / 0 Регистрация: 23.08.2008 Сообщений: 41

	Как определить какой язык выбран в данный момент в Windows? 22.09.2008, 14:57. Показов 2510. Ответов 5 Метки нет (Все метки) Как определить какой язык (Русский/Английский) выбран в данный момет в Winde и как програмно его переключать. 0

@VERMIN 0 / 0 / 1 Регистрация: 05.09.2008 Сообщений: 97
	22.09.2008, 16:53
	переключай эмулированием нажатия кнопок : SendKeys '{Home}' '0 = Language Neutral '1024 = Process Default Language '1030 = Danish '1031 = German (Standard) '1032 = Greek '1033 = English (United States) '2057 = English (United Kingdom) '3081 = English (Australian) '4105 = English (Canadian) '5129 = English (New Zealand) '6153 = English (Ireland) '7177 = English (South Africa) '8201 = English (Jamaica) '9225 = English (Caribbean) '10249 = English (Belize) '11273 = English (Trinidad) '1034 = Spanish (Traditional Sort) '3082 = Spanish (Modern Sort) '1035 = Finnish '1036 = French (Standard) '1040 = Italian (Standard) '1043 = Dutch (Standard) '2067 = Dutch (Belgian) '1044 = Norwegian (Bokmal) '2068 = Norwegian (Nynorsk) '1045 = Polish '2070 = Portuguese (Standard) '1049 = Russian Private Declare Function VerLanguageName Lib 'kernel32' Alias 'VerLanguageNameA' (ByVal wLang As Long, ByVal szLang As String, ByVal nSize As Long) As Long Private Sub Form_Paint() 'KPD-Team 2000 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@allapi.net Dim Buffer As String Buffer = String(255, 0) VerLanguageName 2067, Buffer, Len(Buffer) Buffer = Left$(Buffer, InStr(1, Buffer, Chr$(0)) - 1) MsgBox Buffer End Sub 0

@natter 0 / 0 / 0 Регистрация: 23.08.2008 Сообщений: 41
	22.09.2008, 18:43 [ТС]
	Спасибо, использую 0

@VERMIN 0 / 0 / 1 Регистрация: 05.09.2008 Сообщений: 97
	23.09.2008, 11:04
	на VBScript не писал ,но вроде эмуляция нажатия клавиш как в VB... проверь синтаксис команды Sendkeys 0