| |
|
|
| |
to: lashkevi4
(04.12.2009 в 00:39)
|
| | сделайте свой индикатор
Private Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" _
(ByVal pwszKLID As String) As Long
function GetLang() as string
Dim strName As String
strName = String(9, 0)
GetKeyboardLayoutName strName
select case
Case "00000409"
GetLang = "Engl"
Case "00000419"
GetLang = "Rus"
Case Else
GetLang = "ХЗ"
end select
end function
|
| |
| |
|
