XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Tastaturabfrage, wenn Eingabezeile den Focus hat
Ab Profan 8.0
DEF SetWindowsHookEx(4) !USER32,SetWindowsHookExA
DEF UnhookWindowsHookEx(1) !USER32,UnhookWindowsHookEx
DEF GetCurrentThreadId(0) !KERNEL32,GetCurrentThreadId
DEF CallNextHookEx(4) !USER32,CallNextHookEx
declare hHook&

proc KeyboardProc

    parameters code&,wparam&,lparam&

    if TestBit(lParam&,30)

        print UP:,wparam&

    else

        print DOWN:,wParam&

    endif

    return CallNextHookEx(hHook&,code&,wparam&,lparam&)

endproc

WindowStyle 520
Cls
SetWindowsHookEx(2,ProcAddr(KeyboardProc,3),0,GetCurrentThreadId())
2 = WH_KEYBOARD
--- Zum Testen:
CreateButton(%hwnd,Test 1,400,20,100,30)
CreateEdit(%hwnd,Test 2,400,70,100,30)

WhileNot @equ(%key,2)

    WaitKey

Wend

UnhookWindowsHookEx(hHook&)
End