annotate R/rdyncall/demo/Win32PlaySound.R @ 2:a27ef6fdc275
- assume dyncall dir is next to maintainers'
author |
cslag |
date |
Thu, 31 Dec 2015 20:20:18 +0100 |
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
|