Mercurial > pub > dyncall > bindings
annotate R/rdyncall/demo/Win32PlaySound.R @ 24:681db37a300c
- prep 1.0 release
author | Tassilo Philipp |
---|---|
date | Thu, 19 Apr 2018 18:54:47 +0200 |
parents | 0cfcc391201f |
children |
rev | line source |
---|---|
0 | 1 # Package: rdyncall |
2 # File: demo/Win32PlaySound.R | |
3 # Description: Win32 Demo, playing a wav file (dynbind demo) | |
4 | |
5 if (.Platform$OS.type == "windows") { | |
6 | |
7 dynbind("winmm", "PlaySoundA(Zii)v;", callmode="stdcall") | |
8 tada <- paste( Sys.getenv("SystemRoot"), "\\Media\\tada.wav", sep="" ) | |
9 PlaySoundA(tada,0,0) | |
10 | |
11 } else { | |
12 cat("This demo is runnable on windows only.") | |
13 } | |
14 |