Четверг, 05.12.2024, 22:59 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Волк-1024, Anton93, xXxSh@dowxXx  
Каким кодом отключить мышь
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
ожидаем во всех прогах страны новый приватный блокиратор Вендоус... biggrin

Я не крекер,а программист!
Я не преступник-я свободный человек!
Лучше один раз накодить,чем сто раз качать билды!
 
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';

Код
BlockInput(True);

Отрубит и клаву и мышь.


Pascal, C\C++, Assembler, Python

Сообщение отредактировал Волк-1024 - Среда, 06.11.2013, 19:29
 
Anton93Дата: Пятница, 08.11.2013, 16:08 | Сообщение # 7
Продвинутый
Зарегистрирован: 06.01.2010
Группа: Модераторы
Сообщений: 320
Статус: Offline
Волк-1024, сколько жил не знал что так просто можно сделать biggrin
по жизни хук ставил


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

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
 
  • Страница 1 из 1
  • 1
Поиск:

delphicode.ru © 2008 - 2024 Хостинг от uCoz