Otsikko kertonee kaiken, eli millä funktiolla saan selville, mitä mciSendStringin "play" soittaa parhaillaan?
MSDN:ää on tutkittu tuloksetta.
Lähettämällä info komennon mciSendString-käskyllä.
http://msdn.microsoft.com/en-us/library/ms709162(VS.85).aspx
Dim err As Long ' Mahdollinen virhekoodi
Dim ret As String * 255 ' Paluuviesti (max 255 merkkiä pitkä)
' lähetettävä komento muotoa "info [Device] file", jossa Device on
' waveaudio, jos soitettavan tiedoston tyyppi on WAV,
' sequencer, jos MID, tai MPEGVideo, jos MP3.
' esim: kertoo mitä wav tiedostoa soitetaan parhaillaan
err = mciSendString("info waveaudio file", ret, 255, 0)
MsgBox ret ' vastaus tulee paluuarvoja ret muuttujaanEn ole ihan varma koodin toimivuudesta! Tein tämän vain MSDN:n ja Googlen perusteella.
Muita komentoja on listattuna täällä: http://msdn.microsoft.com/en-us/library/ms712587(VS.85).aspx
Aihe on jo aika vanha, joten et voi enää vastata siihen.