(bind-func get_cursor_pos:[<float,float>]* (let ((p:LPPOINT (alloc))) (lambda () (GetCursorPos p) (tuple (convert (tref p 0) float) (convert (tref p 1) float)))))