I have some mid and wav's I like to have embeded in my exe. As I know It's no way to use this type of files in a resource-file (*.res) in VB6. And if I don't know how to play them.
So I did try using the OLE-object, but I'm not familjar with it.
I have done this sub to play my files and it works OK with *.wav, but when playing *.mid the Mediaplayer gets visible and won't start and stop automatlicy. How to solve this? And is there a more proper way to solve this? My MSDN-helpfile have crached so I can't us it to read and solve it myself, the help in VB5 was mutch better....
On Error Resume Next
If Not bSound Then Exit Sub
Do 'To complete playing the sound.
Me.SetFocus 'Otherwise my app's titlebar flashing.
If Not OLE1(Index%).AppIsRunning Then Exit Do
If Err <> 0 Then
bSound = False: mnuSound.Enabled = False
mnuSound.Checked = False: Err.Clear: Exit Do