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

Alex

Дата 4.11.2004, 22:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 6
Всего: 162

Код


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

--------------------------------------------------------------------------------

BlockInput(), живёт в user32.dll
Автор ответа: Song

--------------------------------------------------------------------------------

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

Код


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

procedure TForm1.Button2Click(Sender: TObject); 
begin 
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

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »