Code: Select all
Repeat
Delay(100)
Until (GetAsyncKeyState_(#VK_ESCAPE) & 32768) = 32768
End 1

Code: Select all
Repeat
Delay(100)
Until (GetAsyncKeyState_(#VK_ESCAPE) & 32768) = 32768
End 1
Code: Select all
Global gkey
Procedure KeyPressedCallback(*widget,*event.GdkEventKey,*udata );
gkey = *event\keyval & $FF
Debug PeekS(*event\string) + " " + Str(gkey)
EndProcedure
OpenWindow(0,0,0,200,100,"keyPress")
g_signal_connect_(WindowID(0),"key_press_event",@KeyPressedCallback(),0);
Repeat
ev = WaitWindowEvent()
Until gkey = #PB_Key_Escape


PB IDE wrote:Line: 6 - Invalid memory access