|
Платные хостинги
Раскрутка сайта
Книги по программированию
Как блокировать мышку
- Подскажите, плиз, как программно блокировать мышку...Есть вот такой кусок кодаvar HookMouse: THandle; {Переменная для хранения старого обработчика мыши}{Новый обработчик мыши}function mouseHook(code: integer; wParam: word; lParam: longint):longint; stdcall;begin result:=1;end;{Установка нового обработчика}procedure TForm1.Button5Click(Sender: TObject);begin HookMouse:=SetWindowsHookEx(WH_MOUSE, @mouseHook, HInstance, 0);end;{Возврат старого обработчика мыши}procedure TForm1.Button6Click(Sender: TObject);begin UnhookWindowsHookEx(HookMouse);end;Всё вроде работает, но блокируются только нажатия кнопок на мышке, а мне надо ещё блокировать и перемещения мыши... Помогите, если кто знает...
- ClipCursor().
- BlockInput(TRUE)Не спрашивай как разблокировать.Вообще должен разблокироваться как BlockInput(FALSE), но ещё и AltCtrldel нажать надо.Ещё и клавиатура блокируется.Или запустить rundll с параметром mouse,disabled
- >BlockInput(TRUE)>rundll с параметром mouse,disabledПо-моему, это работает только до Win2000
- rundll с параметром mouse,disabled действительно. А вот BlockInput() работает отменно. Не работает только в NT 4.0
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
