Тут по идее вроде только в 95 непойдёт(если не говорить о предыдуших которыми некто непользуеться почти).
Если что нетак поправте.


Это сообщение отредактировал(а) Ak47black - 4.7.2007, 18:25

9x это вообще другая линейка, это ведь даже на приведённом тобою рисунке видно

W4FhLF, ага понятно.
А кстати через dll везде пойдёт?

минимальные требования каждого хука написаны в мсдн. "через dll" или не "через dll" - не важно.

О! А раз так, есть ли вообще возможность заблокировать клаву в системах 95/98 ? Ведь для установки хука я пока встречал только SetWindowsHookEx, а ей нужно NT.

не уловил я связи между твоим вопросом и тем, что минимальные требования не зависят от размещения кода хука.


буквы читать умеем? - следуем по ссылке, мотаем в конец и читаем буквы.

Здравствуйте, помогите решить задачу.

Установил  глобальный hook = SetWindowsHookEx(WH_CALLWNDPROCRET, @HookProc, HInstance, 0);
Необходимо поймать сообщение WM_SETCURSOR. 
После запуска программы вылетает "Ошибка чтения памяти и её адрес"
Однако если использовать hook WH_JOURNALRECORD то программа запускается и такие сообщения как: 
WM_MOUSEMOVE, WM_LBUTTONDOWN,  WM_LBUTTONUP, WM_RBUTTONDOWN, WM_RBUTTONUP,  WM_KEYUP, WM_KEYDOWN
ловятся.
А вот WM_SETCURSOR Нет.
Может я что-то не указываю? Или это сообщение нужно обрабатывать как-то?

Спасибо.

Листинг :

var
  HookHandle: hHook;

function HookProc(Code: integer; WParam: word; LParam: Longint): Longint; stdcall;
var
  msg: PEVENTMSG;
begin
  if Code >= 0 then begin
    result := 0;
    msg := Pointer(LParam);
    with Form1 do
      case msg.message of

      WM_SETCURSOR : Label1.Caption:='Сообщение получено.';

      end;
  end else
    result := CallNextHookEx(HookHandle, code, WParam, LParam);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  HookHandle := SetWindowsHookEx(WH_CALLWNDPROCRET, @HookProc, HInstance, 0);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  if HookHandle <> 0 then
    UnhookWindowsHookEx(HookHandle);
end;

Это сообщение отредактировал(а) hub00 - 2.6.2008, 15:52