Програмное выключение клавиатуры и мыши |
Previous Top Next |
Code: |
winexec(Pchar('rundll32 keyboard,disable' ) ,sw_Show); Клава OFF winexec(Pchar('rundll32 mouse,disable' ) ,sw_Show); Маус OFF |
кстати а вот так клава врубается
Отрубить
Code: |
Asm in al,21h or al,00000010b out 21h,al End; |
Врубить
Code: |
Asm in al,21h mov al,0 out 21h,al End; |
©Drkb::01608
Автор: Radmin
Взято с Vingrad.ru http://forum.vingrad.ru
BlockInput(), живёт в user32.dll
©Drkb::01609
Автор: Song
Взято с Vingrad.ru http://forum.vingrad.ru
Как скрыть курсор мышки
Поместите в событие OnClick в button1 и button2 следующие коды.Если курсор мышки скрыт, то выбрать button2 можно клавишей Tab.
Code: |
procedure TForm1.Button1Click(Sender: TObject); begin ShowCursor(False); end;
procedure TForm1.Button2Click(Sender: TObject); begin ShowCursor(True); end; |
©Drkb::01610
Взято из http://forum.sources.ru
Code: |
//Выключение курсора procedure TForm1.Button1Click(Sender: TObject); var CState: Integer; begin CState := ShowCursor(True); while Cstate >= 0 do Cstate := ShowCursor(False); end;
//Включение курсора procedure TForm1.Button2Click(Sender: TObject); var Cstate: Integer; begin Cstate := ShowCursor(True); while CState < 0 do CState := ShowCursor(True); end; |
©Drkb::01611
Взято с http://delphiworld.narod.ru