EnableExplicit Structure KBDLLHOOKSTRUCT vkCode.l scanCode.l flags.l time.l dwExtraInfo.l EndStructure Procedure.l KeyboardHook(nCode, wParam, *p.KBDLLHOOKSTRUCT) If wParam = #WM_KEYDOWN Or wParam = #WM_SYSKEYDOWN Or wParam = #WM_KEYUP Or wParam = #WM_SYSKEYUP If *p\vkCode = 65 ProcedureReturn 1 EndIf EndIf ProcedureReturn CallNextHookEx_(0, nCode, wParam, *p) EndProcedure If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) TextGadget(1,10,10,200,20,"Taste ''A'' wird gesperrt.",0) StringGadget(2,10,30,200,20,"",0) SetWindowsHookEx_(#WH_KEYBOARD_LL,@KeyboardHook(),GetModuleHandle_(0),0) Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow EndIf