Mercurial > pub > dyncall > bindings

view R/rdc/demo/w32PlaySound.R @ 55:2e8a56976bf8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fixed missing () making branch always be entered
author Tassilo Philipp
date Tue, 02 Feb 2021 20:56:54 +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)