Mercurial > pub > dyncall > bindings
view 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 |
line wrap: on
line source
# Package: rdyncall # File: demo/Win32PlaySound.R # Description: Win32 Demo, playing a wav file (dynbind demo) if (.Platform$OS.type == "windows") { dynbind("winmm", "PlaySoundA(Zii)v;", callmode="stdcall") tada <- paste( Sys.getenv("SystemRoot"), "\\Media\\tada.wav", sep="" ) PlaySoundA(tada,0,0) } else { cat("This demo is runnable on windows only.") }