Програмное выключение клавиатуры и мыши
Програмное выключение клавиатуры и мыши
winexec(Pchar('rundll32 keyboard,disable' ) ,sw_Show); Клава OFF
winexec(Pchar('rundll32 mouse,disable' ) ,sw_Show); Маус OFF
кстати а вот так клава врубается
Отрубить
Asm
in al,21h
or al,00000010b
out 21h,al
End;
Врубить
Asm
in al,21h
mov al,0
out 21h,al
End;
Автор ответа: RAdmin
Взято с Vingrad.ru
BlockInput(), живёт в user32.dll
Автор ответа: Song
Взято с Vingrad.ru
Как скрыть курсор мышки
Поместите в событие OnClick в button1 и button2 следующие коды.Если курсор мышки скрыт, то выбрать button2 можно клавишей Tab.
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowCursor(False);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ShowCursor(True);
end;
Взято с Исходников.ru
