FAQ VCL
Клавиатура и мышь\Общие вопросы

:: Меню ::
:: На главную ::
:: FAQ ::
:: Заметки ::
:: Практика ::
:: Win API ::
:: Проекты ::
:: Скачать ::
:: Секреты ::
:: Ссылки ::

:: Сервис ::
:: Написать ::

:: MVP ::

:: RSS ::

Яндекс.Метрика

Как заблокировать/разблокировать клавиатуру и мышь?
procedure BlockInput(ABlockInput : boolean); stdcall; external 'USER32.DLL' name 'BlockInput';
 
implementation
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   BlockInput( true );
   Sleep( 5000 );
   BlockInput( false );
end;

При использовании материала - ссылка на сайт обязательна