[_ls_]

Здравстуйте.
Как можно перехватить LVM_INSERTITEM у syslistview32?
Что нужно указывать в SetWindowsHookEx?
пробовал

Код:

HookHandle := SetWindowsHookEx(WH_CALLWNDPROCRET, @KeyHook, HInstance,ThreadID);

Структура

Код:

  CWPRETSTRUCT = packed record
    lResult : LRESULT;
    lParam: LPARAM;
    wParam: WPARAM;
    message: UINT;
    hwnd: HWND;
  end;

В хуке

Код:

if TCWPSTRUCT(Pointer(lParam)^).message = LVM_INSERTITEM then begin

Но ничего не перехватывается. Подскажите, как правильно сделать перехват, если можно с примером.