- Код: Выделить всё
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
' в теле таймера
For i = 0 To 255
If GetAsyncKeyState(i) < 0 Then
'тра та та
End If
Next i
Проблема!
Необходимо, что бы при работе с DOS програмой можно была нажимать клавиши и перехватывать нажатия этих клавиш.
Я воспользовался приведенным на 500 сайтах способом, изложенным выше.
Все отлично работает в Win XP. А вот в Милениуме не хочет.
Что делать???
Хелп!!! Оч нужно по работе!
