Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Програмное выключение клавиатуры и мыши 
:(
    Опции темы
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


--------------------
Написать можно все - главное четко представлять, что ты хочешь получить в конце. 
PM Skype   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.

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


 




[ Время генерации скрипта: 0.0532 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.