! Copyright (C) 2013 Doug Coleman.
-! See http://factorcode.org/license.txt for BSD license.
+! See https://factorcode.org/license.txt for BSD license.
USING: alien.c-types alien.syntax byte-arrays formatting kernel
math windows.types ;
IN: windows.winmm
LPTSTR lpszReturnString,
UINT cchReturn,
HANDLE hwndCallback
-) ;
+)
ALIAS: mciSendString mciSendStringW
: open-command ( path -- )
"open \"%s\" type mpegvideo alias MediaFile" sprintf f 0 f
mciSendString check-mci-error ;
-
+
: play-command ( -- )
"play MediaFile" f 0 f mciSendString check-mci-error ;
: close-command ( -- )
- "close MediaFile" f 0 f mciSendString check-mci-error ;
\ No newline at end of file
+ "close MediaFile" f 0 f mciSendString check-mci-error ;