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

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

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

Как определить какой язык (Русский/Английский) выбран в данный момет в 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?

Код

SendKeys('{^Shift}')

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

@VERMIN · 23.09.2008, 11:04

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

@Steigan · 23.09.2008, 14:25

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

Код

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

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

@VERMIN 0 / 0 / 1 Регистрация: 05.09.2008 Сообщений: 97
	22.09.2008, 16:53	2
	переключай эмулированием нажатия кнопок : 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 [ТС]	3
	Спасибо, использую 0

@palva 4240 / 2937 / 687 Регистрация: 08.06.2007 Сообщений: 9,816 Записей в блоге: 4
	23.09.2008, 00:13	4
	2VERMIN Я что-то не врубился, как же переключить язык из VBScript, если для этого нужно нажать клавиши Ctrl-Shift? Код SendKeys('{^Shift}') не проходит - Недопустимый вызов или аргумент процедуры. 0

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

	23.09.2008, 14:25

Опции темы