Disable System Hotkey in Windows

disable.bas

#include "windows.bi"


Dim shared as HANDLE hook
function LowLevelKeyboardProc(byval nCode as long, byval wParam as WPARAM, byval lParam as LPARAM) as LRESULT
    if nCode < 0 then
        return CallNextHookEx(NULL, nCode, wParam, lParam)
    end if

    var s = cptr(LPKBDLLHOOKSTRUCT, lParam)

    select case s->flags 
    case LLKHF_ALTDOWN
        print "ALT"
        Deallocate s
        return 1
    end select 

    if wParam = WM_KEYDOWN then
        select case s->vkCode
            case VK_RWIN, VK_LWIN, VK_LCONTROL, VK_RCONTROL, VK_APPS, VK_SLEEP, VK_MENU
                print "SPECIAL PRESS"
                Deallocate s
                return 1
        end select
    end if

    return CallNextHookEx(NULL, nCode, wParam, lParam)
end Function


hook = SetWindowsHookEx(WH_KEYBOARD_LL,ProcPtr(LowLevelKeyboardProc),GetModuleHandle(NULL),0)

if hook <> NULL then
    print "hook true"
else
    print "hook false"
end if
Dim as MSG wMsg
While( GetMessage( @wMsg, Null, 0, 0 ) <> False )   
    TranslateMessage( @wMsg )
    DispatchMessage( @wMsg )
Wend

if  UnhookWindowsHookEx(hook) then
    print "unhook true"
else
    print "unhook false"
end if