Програмное выключение клавиатуры и мыши
Falk0ner, вс, 06/07/2008 - 15:34.
winexec(Pchar('rundll32 keyboard,disable' ) ,sw_Show); Клава OFF
winexec(Pchar('rundll32 mouse,disable' ) ,sw_Show); Маус OFF
кстати а вот так клава врубается
Отрубить
winexec(Pchar('rundll32 mouse,disable' ) ,sw_Show); Маус OFF
Asm
in al,21h
or al,00000010b
out 21h,al
End;
Врубить
in al,21h
or al,00000010b
out 21h,al
End;
Asm
in al,21h
mov al,0
out 21h,al
End;
in al,21h
mov al,0
out 21h,al
End;
Автор: Radmin
Взято с Vingrad.ru http://forum.vingrad.ru
BlockInput(), живёт в user32.dll
Автор: Song
Взято с Vingrad.ru http://forum.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;
begin
ShowCursor(False);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ShowCursor(True);
end;
Взято из http://forum.sources.ru
//Выключение курсора
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;
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;
Взято с http://delphiworld.narod.ru
Отправить комментарий