Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: osmor сделайте свой индикатор
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
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.