Раскладка клавиатуры

[Пепел Феникса]

если нужен русский так поставьте русский по умолчанию

[Serge_Bliznykov]

1) приложение на МатКаде - там язык не VBA часом ли?
попробуйте такой код:

Автор: Troitsky, Отправлено:10:28 04-11-2006

Переключение раскладки на русскую если в данный момент раскладка английская средствами WinAPI:

Private Declare Function GetKeyboardLayoutName Lib "user32" _ 
Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long 

Private Declare Function ActivateKeyboardLayout Lib "user32" _ 
(ByVal HKL As Long, ByVal flags As Long) As Long 


Sub ChangeKeyboardLayout() 
Dim KeybLayoutName As String 
KeybLayoutName = String(9, 0) 
GetKeyboardLayoutName KeybLayoutName 
'409 - английская, 
'419 - русская 
'Переключение раскладки на русскую если в данный момент раскладка английская 
If Val(CStr(CLng(Left$(KeybLayoutName, InStr(1, KeybLayoutName, Chr(0)) - 1)))) = 409 Then 
ActivateKeyboardLayout 0, 0 
End If 
End Sub

2) Вы, вероятно, запускаете своё приложение из командного файла?..
попробуйте запускать перед этим приложенную консольную программку (исходник прилагается).
это программа переключает язык ввода на русский язык.
хотя, шансы, что это Вам поможет всего 50% на 50%...
ну попробуйте.
Вы же ровным счётом ничего не теряете!