Программное отключение мыши

HHOOK hMouseHook = 0;
 
// ---------------------------------------------------------------------------
int __stdcall MouseProc(int nCode, DWORD wParam, DWORD lParam) // Блокировка мыши
{
    return 777;
}
 
//---------------------------------------------------------------------------
void __fastcall TForm2::FormCreate(TObject *Sender) {
    hMouseHook = SetWindowsHookEx(WH_MOUSE_LL, (HOOKPROC) & MouseProc, GetModuleHandle(NULL), 0);
    if (hMouseHook) {
        this->Caption = "Mouse hook installed";
    }
}
 
//---------------------------------------------------------------------------
void __fastcall TForm2::FormDestroy(TObject *Sender) {
    if (hMouseHook && UnhookWindowsHookEx(hMouseHook)) {
        // Log("Mouse hook was successfully removed!");
    }
    else {
        // Log("Can not release mouse hook!");
    }
}

//---------------------------------------------------------------------------
void __fastcall TForm2::Timer1Timer(TObject *Sender) {
    static int iTest = 100, iTest2 = 100;
    SetCursorPos(iTest++, iTest2++);
}