11 lines
236 B
Racket
11 lines
236 B
Racket
|
#lang at-exp racket
|
||
|
|
|
||
|
|
(require ffi/unsafe)
|
||
|
|
|
||
|
|
(define mouse-event
|
||
|
|
(get-ffi-obj "mouse_event" (ffi-lib "user32")
|
||
|
|
(_fun _int32 _int32 _int32 _int32 _pointer -> _void)))
|
||
|
|
|
||
|
|
(mouse-event #x2 0 0 0 #f)
|
||
|
|
(mouse-event #x4 0 0 0 #f)
|