Форум: "WinAPI";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];
ВнизЛюбители хуков и клавиатурных шпионов ! Найти похожие ветки
← →
AlexRush (2002-02-05 13:56) [3]{
Вот тебе пример рабочего кода, который блокирыет ввод с клавы и мышы. Это текст .DPR файла
}
program InputLocker;
USES Windows;
function KeybProc(nCode:integer;
key:DWORD;
state:DWORD):LRESULT;stdcall;
begin
result:=128500;{ Любое НЕнулувое значение - запрет на использование сообщения }
end;
TYPE PMOUSEHOOKSTRUCT = ^MOUSEHOOKSTRUCT;
function MouseProc(nCode:integer;
WM_Mmsg:DWORD;
ptrMHS:PMOUSEHOOKSTRUCT):LRESULT;stdcall;
begin
result:=128500;
end;
VAR hKeybHook,
hMouseHook:DWORD;
msg:tagMSG;
BEGIN
hKeybHook:=SetWindowsHookExA(WH_KEYBOARD,@KeybProc,HINSTANCE,0);
hMouseHook:=SetWindowsHookExA(WH_MOUSE,@MouseProc,HINSTANCE,0);
while GetMessage(msg,0,0,0) do ;
UnhookWindowsHookEx(hKeybHook);
UnhookWindowsHookEx(hMouseHook);
END.
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c