annotate R/rdyncall/demo/Win32PlaySound.R @ 28:edbbd467f50a
python binding:
- update to dyncall 1.1
- Python 3 support (supports both, Python 2 and 3)
- using the Capsule API over PyCObject, when available
- support for python unicode strings (for both, Python 2 and 3)
- doc cleanup
ruby binding:
- doc cleanup
author |
Tassilo Philipp |
date |
Tue, 07 Apr 2020 21:16:37 +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
|