Шега номер 2

Виц # 2 - деактивиране на бутоните на мишката

Втората шега ще бъде по-радикална: използвайки куки за функции, деактивирайте бутоните на мишката - нито левият, нито десният, нито средният бутон няма да извършват никакви действия. За да направите това, напишете следната функция в раздела за внедряване:

функция KbHook (код: Integer; wparam: Word; lparam: LongInt): LongInt; stdcall;

започнете

Резултат: = CallNextHookEx (oldKbHook, код, wparam, lparam)

друго

Резултат: = 1;

край;

След това напишете кода за втората шега:

SystemParametersInfo (SPI_SETFASTTASKSWITCH, 1, @ Dummy, 0);

SystemParametersInfo (SPI_SCREENSAVERRUNNING, 1, @Dummy, 0);

OldKbHook: = SetWindowsHookEx (WH_mouse, @KbHook, HInstance, 0);

След това нито един от бутоните на мишката няма да функционира.

Подобни глави от други книги

СТАЯ 13: Лоша шега за свободна Русия

Изключете подсказките за бутоните за минимизиране, увеличаване и затваряне

Деактивирайте подсказките за бутони за минимизиране, максимизиране и затваряне В Windows 2000/XP се показва контекстна помощ, когато курсорът на мишката се постави върху бутоните Минимизиране, Увеличаване и Затваряне. За да изключите тези подкани, отворете раздела HKCUControl PanelDesktop и заменете първата цифра

Регистриране на кликвания с мишката

Регистриране на кликвания върху мишката Трябва да се подчертае, че събитието MouseUp (като MouseDown) се изпраща при щракване върху който и да е бутон на мишката. Ако трябва да разберете кой бутон на мишката е щракнат (ляв, десен или среден), трябва да анализирате стойността на свойството Button на класа

Шега # 1 - ограничаване на обхвата на движение на мишката