Attribute VB_Name = "modZDSpc"
Option Explicit

'ZDSpc dll calls for Visual Basic.
' - Ryuunosuke / Otaru
'   November 30 '99

'Declares for ZDSPCdll.dll
Public Declare Function InitialiseSPC Lib "ZDSPCdll.dll" (ByVal dwFlags As Long, ByVal nChannels As Long, ByVal nBits As Long, ByVal nFrequency As Long, ByVal nVolMultiplier As Long) As Long
Public Declare Sub DeinitialiseSPC Lib "ZDSPCdll.dll" (ByVal dwFlags As Long)
Public Declare Sub RestoreSPC Lib "ZDSPCdll.dll" ()
Public Declare Function LoadSPC Lib "ZDSPCdll.dll" (ByVal strFilename As String) As Long
Public Declare Sub PlaySPC Lib "ZDSPCdll.dll" ()
Public Declare Sub PauseSPC Lib "ZDSPCdll.dll" ()

'Flags for ZDSpc.
Public Const SPC_APU = 1
Public Const SPC_SND = 2

'API constants, types, declarations for the API called.
Public Const MMSYSERR_NOERROR = 0  '  no error
Public Const MAXERRORLENGTH = 128  '  max error text length (including final NULL)

Public Declare Function waveOutGetErrorText Lib "winmm.dll" Alias "waveOutGetErrorTextA" (ByVal err As Long, ByVal lpText As String, ByVal uSize As Long) As Long