Delphi - база знаний


Програмное выключение клавиатуры и мыши


Програмное выключение клавиатуры и мыши



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



Начало  Назад  Вперед