Делаем скользящий курсор!

HHOOK hHook;
MOUSEHOOKSTRUCT* psMouseHook;
TPoint lp;   // Координаты последнего положения курсора
 
LRESULT CALLBACK LLMouseProc(int nCode, WPARAM wParam, LPARAM lParam)
{
    if (nCode == HC_ACTION) {
        if(wParam==WM_MOUSEMOVE || wParam==WM_NCMOUSEMOVE)
        {
            // Тут считаем вектор и двигаем курсор
            // Сохранили координаты
            lp.x = psMouseHook->pt.x;
            lp.y = psMouseHook->pt.y;
        }
    }
    return CallNextHookEx(hHook,nCode,wParam,lParam);
}

LRESULT CALLBACK LLMouseProc(int nCode, WPARAM wParam, LPARAM lParam)
{
#define X psMouseHook->pt.x
#define Y psMouseHook->pt.y
    if(wParam==WM_MOUSEMOVE || wParam==WM_NCMOUSEMOVE)
    {
        return 1; // Первый (выполняется всегда)
        double Diff = (double)GetTickCount() - last;
        MainForm->Label2->Caption = FloatToStr(Diff);
        last = (double)GetTickCount();
 
        if (Diff > 30) {
            return 1;      // Второй (выполняется через раз(примерно))
            for(int i=0; i < 100; ++i) {
                MainForm->Label1->Caption = "Moving " + IntToStr(i); 
                                // Выходит только "Moving 0"
                SetCursorPos(X - (lp.x-X+5), Y-(lp.y-Y+5));
                return 1;  // Третий
            }
            MainForm->Label1->Caption = ++count;
        }
        lp.x = X; // Сохраняем координаты, чтоб в следующий раз двигать курсор относительно них
        lp.y = Y;
        return 1; (вообще не выполняется)
    }
    return CallNextHookEx(hHook,nCode,wParam,lParam);
}