Mercurial > pub > dyncall > bindings

view R/rdc/demo/w32PlaySound.R @ 57:80b11152c659

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
make pydc tests display failed ones
author Tassilo Philipp
date Mon, 08 Feb 2021 09:58:25 +0100
parents 0cfcc391201f
children
line wrap: on
line source

# example: play sound

lib.winmm <- dyn.load("\\windows\\system32\\winmm.dll")
PlaySoundA <- lib.winmm$PlaySoundA
playsound <- function(path) rdcCall(PlaySoundA$address,"pii)v",path,0,0)
sample <- "c:\\windows\\Media\\tada.wav"
playsound(sample)