Добавил Direct Input примеры:
Mouse, Keyboard, Joystick
http://sp.zdt.ru/sp_pb.php
FUNCTION WndProc (BYVAL hWin AS LONG, BYVAL uMsg AS LONG, BYVAL wParam AS LONG, BYVAL lParam AS LONG) AS LONG
SELECT CASE uMsg
CASE %WM_KEYDOWN
IF wParam = %VK_ESCAPE THEN
' ! call OnDestroy
PostQuitMessage 0&
FUNCTION = 0&
EXIT FUNCTION
END IF
CASE %WM_DESTROY
! call OnDestroy
PostQuitMessage 0&
FUNCTION = 0&
EXIT FUNCTION
END SELECT
FUNCTION = DefWindowProc(hWin, uMsg, wParam, lParam)
END FUNCTION
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 54