Mercurial > pub > dyncall > bindings
comparison R/rdyncall/demo/Win32PlaySound.R @ 0:0cfcc391201f
initial from svn dyncall-1745
| author | Daniel Adler |
|---|---|
| date | Thu, 19 Mar 2015 22:26:28 +0100 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| -1:000000000000 | 0:0cfcc391201f |
|---|---|
| 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 |