Очистка буфера клавиатуры.

[Mikle]

В программе опрашиваю клаву асинхронно через API. По определенным причинам нельзя довольно длительные промежутки времени позволять происходить событиям. За это время буфер клавиатуры успевает переполниться и комп начинает щелкать спикером, что неприятно. Подскажите, как этому препятствовать, повторюсь, давать событиям происходить нельзя.

[GSerg]

BlockInput?

[Mikle]

Если можно по-подробнее. Но, судя по названию, оно просто блокирует клаву, а она должна работать, я ее опрашиваю асинхронно без событий.

[GSerg]

Честно говоря, не понял вопроса
Ты сам опрашиваешь? И сам события генеришь? Так почему бы просто не генерить их?

[kazah_]

Честно говоря, не понял вопроса
Ты сам опрашиваешь? И сам события генеришь? Так почему бы просто не генерить их?

КОРОЧЕ КЛАВА ДОЛЖНА РАБОТАТЬ ТОГДА, КОГДА ЕЁ ОБ ЭТОМ ПРОСЯТ! а БУФЕР ОБМЕНА ЗАПОЛНЯЕТСЯ НЕ НАЖАТИЕМ НА КЛАВУ А ПРОГРАММНО!

В ТАКО СЛУЧАЕ МОГУ ПРЕДПОЛОЖИТЬ, ЧТО ЧЕЛОВЕК ХОЧЕТ УВЕЛИЦИТЬ ОБЪЕМ БУФЕРА ПАМЯТИ. ЭТО НЕВОЗМОЖНО.
а ВОТ УБРАТЬ ПРОЦЕЕСЫ КОТОРЫЕ ЗАПОЛНЯЮТ КЛАВУ МОЖНО!

[Mikle]

Ты сам опрашиваешь? И сам события генеришь?

Поясню примером. Создадим проект Standart EXE, на форму кинем два произвольных Shape с именами Shape1 и Shape2 и один TextBox. Вот код формы:

Код: Выделить всё

Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Function Pressed(k As Long) As Boolean
  If GetAsyncKeyState(k) < 0 Then Pressed = True Else Pressed = False
End Function

Private Sub Form_Load()
  Me.Show
  Me.Refresh
  Do
    If Pressed(37) Then
      If Shape1.Visible Then Shape1.Visible = False: Me.Refresh
    Else
      If Not Shape1.Visible Then Shape1.Visible = True: Me.Refresh
    End If
   
    If Pressed(39) Then
      If Shape2.Visible Then Shape2.Visible = False: Me.Refresh
    Else
      If Not Shape2.Visible Then Shape2.Visible = True: Me.Refresh
    End If
   
    If Pressed(27) Then Exit Do
  Loop
End Sub


Я не генерирую никаких событий. Кроме того не позволяю им происходить - попытка ввода текста в TextBox кончается неудачей. Но программа работает (по-нажимайте стрелки вправо\влево). По нажатию на Esc цикл завершается и все содержимое буфера клавы вываливается в текст.
Переполнение буфера вызывает щелчки, а нажатие "несовместимых" клавиш (на моей клаве это, к примеру, "вверх+влево+Z".) писк спикера и тормоза. Нужно избавиться хотя бы от этого. Я пишу игру, а там нажатия "несовместимых" клавиш идут постоянно.

[GSerg]

Тогда:
насчёт переполнения буфера ничего не могу сказать;
начсёт несовместимых клавиш сказать могу: в ридми к играм пишут постоянно, что ежели у вас клава пищит от нажатия таких-то клавиш сразу, то это у вас такая клава, и никуда вы от неё не денетесь.