|
Каким кодом отключить мышь
|
|
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
|
Администратор
Сообщений: 904
Статус: Offline
|
Волк-1024, лечится с помощью ctrl-alt-del
Система: Windows 10 x64, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
| |
|
|
|
