annotate R/rdyncall/demo/Win32PlaySound.R @ 62:4a9f6c7c09c1
- fix inccorect overflow errors for int (and long on LLP64 systems)
author |
Tassilo Philipp |
date |
Sat, 18 May 2024 15:33:54 +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
|