Програмное выключение клавиатуры и мыши
Материал из 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