1. Re: Q
- Posted by Wolf <wolfritz at KING.IGS.NET> Feb 26, 2002
- 378 views
ZERO warranty, works on my keyboard without warning include win32lib.ew constant win=create(Window,"",0,0,0,200,100,0), out=create(LText,"",win,5,5,190,25,0) procedure check(atom event,atom wParam,atom lParam) if event=WM_KEYDOWN and and_bits(#FF,floor(lParam/power(2,16))) = 16 then setText(out,"q key") elsif event=WM_KEYDOWN and and_bits(#FF,floor(lParam/power(2,16))) = 60 then setText(out,"F2 key") end if end procedure onEvent[win]=routine_id("check") WinMain(win,Normal)