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

Материал из DRKB

Програмное выключение клавиатуры и мыши[править | править код]

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;


Author: Radmin
Source: Взято с Vingrad.ru http://forum.vingrad.ru
ID: 01608



BlockInput(), живёт в user32.dll


Author: Song
Source: Взято с Vingrad.ru http://forum.vingrad.ru
ID: 01609


Как скрыть курсор мышки Поместите в событие OnClick в button1 и button2 следующие коды.Если курсор мышки скрыт, то выбрать button2 можно клавишей Tab.


procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowCursor(False);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowCursor(True);
end;


Source: Взято из http://forum.sources.ru
ID: 01610



// Выключение курсора
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;


Source: Взято с http://delphiworld.narod.ru
ID: 01611