🚀 go-pugleaf

On 19 Jun 2004 06:37:40 -0700, estudiantin@rediffmail.com (Curious
Student) wrote:

> I get an error while playing a wav file. I am using VB6 and the MCI
> (winmm.dll) interface. But the front end doesn't matter. I need help
> resolving an error that MCI throws back on me when I open the device.
> The error comes as a return value to the "Open" string message.

I copied all your code into a new project, added declarations for all
the variables, and it worked first time.

I believe you may be missing a link in SYSTEM.INI:

waveaudio=mciwave.drv

in group [mci]

You don't say which version of Windows you're using but I believe the
code below will work on all versions because on NT clones
WritePrivateProfileString maps accesses to system INI files to the
registry automatically.

However, if you have Win 95/98/Me, and this project is just for your
own use, then you can edit SYSTEM.INI manually, to include the above
line.

Gale.
===============
Private Declare Function GetWindowsDirectory _
    Lib "kernel32" _
    Alias "GetWindowsDirectoryA" ( _
        ByVal lpBuffer As String, _
        ByVal nSize As Long) As Long

Private Declare Function WritePrivateProfileString _
    Lib "kernel32" _
    Alias "WritePrivateProfileStringA" ( _
        ByVal lpApplicationName As String, _
        ByVal lpKeyName As Any, _
        ByVal lpString As Any, _
        ByVal lpFileName As String) As Long

Dim MyLen  As Long, _
    Temp   As String * 255, _
    WinDir As String, _
    DeviceType As String, _
    DriverName As String

DeviceType = "waveaudio"
DriverName = "mciwave.drv"

MyLen = GetWindowsDirectory(Temp, 255)

WinDir = Left$(Temp, MyLen)

MyLen = WritePrivateProfileString( _
                        "MCI", _
                        DeviceType, _
                        DriverName, _
                        WinDir & "\system.ini")