|
Каким кодом отключить мышь
|
|
| zaruta | Дата: Среда, 30.10.2013, 21:48 | Сообщение # 1 |
Был не раз
Зарегистрирован: 25.12.2012
Группа: Пользователи
Сообщений: 10
Статус: Offline
| Уважаемые профессионалы! Подскажите каким кодом отключить мышь?
За ранее спасибо.
|
| |
| |
| Neo | Дата: Четверг, 31.10.2013, 06:49 | Сообщение # 2 |
Модератор
Зарегистрирован: 04.05.2010
Группа: Модераторы
Сообщений: 317
Статус: Offline
| Да вот так можно(простейший способ)
Код WinExec('RUNDLL32 mouse,disable',0); |
| |
| |
| zaruta | Дата: Суббота, 02.11.2013, 12:08 | Сообщение # 3 |
|
Был не раз
Зарегистрирован: 25.12.2012
Группа: Пользователи
Сообщений: 10
Статус: Offline
| Я использую этот код, он отключает и клаву и мышь (мышь как бы двигается но ничего ей сделать нельзя, а вот по клавиатуре не блокируются некоторые сочетания
клавишь, например win+r и пуск, но в сочетании с блокировкой мыши выполнение каких либо действий всё равно блокируется!
Код
var
Dummy: integer = 0;
OldKbHook: HHook = 0;
implementation
function KbHook(code: Integer; wparam: Word; lparam: LongInt):
LongInt; stdcall;
begin
if code < 0 then
Result := CallNextHookEx(oldKbHook, code, wparam, lparam)
else
Result := 1;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
SystemParametersInfo(SPI_SETFASTTASKSWITCH, 1, @Dummy, 0);
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @Dummy, 0);
OldKbHook := SetWindowsHookEx(WH_KEYBOARD, @KbHook, HInstance, 0);
OldKbHook := SetWindowsHookEx(WH_MOUSE, @KbHook, HInstance, 0);
end
В связи с этим вопрос:
- Каким кодом отключить отдельно кнопку ПУСК;
- Каким кодом отключить сочетание win+r и отдельно win;
- Каким кодом отключить безопасный режим.
Сообщение отредактировал zaruta - Суббота, 02.11.2013, 12:10 |
| |
| |
| XSPY | Дата: Суббота, 02.11.2013, 15:47 | Сообщение # 4 |
Продвинутый
Зарегистрирован: 28.01.2010
Группа: Пользователи
Сообщений: 263
Статус: Offline
| ожидаем во всех прогах страны новый приватный блокиратор Вендоус... 
Я не крекер,а программист!
Я не преступник-я свободный человек!
Лучше один раз накодить,чем сто раз качать билды!
|
| |
| |
| Born | Дата: Суббота, 02.11.2013, 17:34 | Сообщение # 5 |
Частый гость
Зарегистрирован: 01.10.2012
Группа: Пользователи
Сообщений: 49
Статус: Offline
| А причём тут безопасный режим то?
|
| |
| |
| Волк-1024 | Дата: Среда, 06.11.2013, 19:28 | Сообщение # 6 |
Авторитетный
Зарегистрирован: 24.07.2011
Группа: Модераторы
Сообщений: 469
Статус: Offline
| Код procedure BlockInput(fBlockIt : Boolean); stdcall; external 'user32.dll';
Отрубит и клаву и мышь.
Pascal, C\C++, Assembler, Python
Сообщение отредактировал Волк-1024 - Среда, 06.11.2013, 19:29 |
| |
| |
| Anton93 | Дата: Пятница, 08.11.2013, 16:08 | Сообщение # 7 |
Продвинутый
Зарегистрирован: 06.01.2010
Группа: Модераторы
Сообщений: 320
Статус: Offline
| Волк-1024, сколько жил не знал что так просто можно сделать
по жизни хук ставил
 ICQ: 41896
|
| |
| |
| dolphin | Дата: Вторник, 12.11.2013, 22:47 | Сообщение # 8 |
Администратор
Сообщений: 906
Статус: Offline
| Волк-1024, лечится с помощью ctrl-alt-del
Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
| |
| |
