| Вопрос: GetKeyboardLayout | Добавлено: 14.03.05 13:49 |
Автор вопроса:  Sur | Web-сайт: sur.hotbox.ru/ | ICQ: 1249088 |
|
Это стандартная попытка определить раскладку клавиатуры чужих (активных) окон.
Пусть это заработает и для _консольных_ приложений типа cmd, far... Помогите пожалуста! Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long Private Declare Function GetWindowThreadProcessId& Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) Private Declare Function GetForegroundWindow& Lib "user32" () Private Sub Form_Load() Timer1.Interval = 500 Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Form1.Cls Form1.Print GetKeyboardLayout(GetWindowThreadProcessId&(GetForegroundWindow&, 0&)) End Sub |
| Ответы | Всего ответов: 0 |
Страница: