'*********************************************

' Vbasic declarations for Multimedia calls

'*********************************************

'DWORD mciSendString(lpstrCoMMand,lpstrReturnString,wReturnLength,hCallback)

Declare Function mciSendString Lib "c:\mwin\system\MMsystem" (ByVal lpCoMMand As String, ByVal lpReturnString As String, ByVal WReturnLength As Integer, ByVal hCallback As Integer) As Long

'BOOL mciExecute(lpstrCoMMand)

Declare Function mciExecute Lib "c:\mwin\system\MMsystem" (ByVal lpCoMMand As String) As Integer

'void MessageBeep(wAlert)

Declare Function MessageBeep Lib "c:\mwin\system\MMsystem" (ByVal Alert As Integer)

'WORD mciGetErrorString(dwError, lpstrBuffer, wLength)

Declare Function mciGetErrorString Lib "c:\mwin\system\MMsystem" (ByVal dwError As Long, ByVal lpBuffer As String, ByVal WReturnLength As Integer) As Integer

' NOTE:  The following calls are unsupported, at least om my ProAudio Spectrum board...

' WORD midiOutGetVolume(wDeviceID, lpdwVolume)

Declare Function midiOutGetVolume Lib "c:\mwin\system\MMsystem" (ByVal DeviceID As Integer, ByVal Volume As Long) As Integer

' WORD midiOutSetVolume(wDeviceID, dwVolume)

Declare Function midiOutSetVolume Lib "c:\mwin\system\MMsystem" (ByVal DeviceID As Integer, ByVal Volume As Long) As Integer

'****************************************

' Constants for MIDI Player

'****************************************

' MsgBox parameters
Global Const MB_OK = 0                 ' OK button only
Global Const MB_OKCANCEL = 1           ' OK and Cancel buttons
Global Const MB_ABORTRETRYIGNORE = 2   ' Abort, Retry, and Ignore buttons
Global Const MB_YESNOCANCEL = 3        ' Yes, No, and Cancel buttons
Global Const MB_YESNO = 4              ' Yes and No buttons
Global Const MB_RETRYCANCEL = 5        ' Retry and Cancel buttons

Global Const MB_ICONSTOP = 16          ' Critical message
Global Const MB_ICONQUESTION = 32      ' Warning query
Global Const MB_ICONEXCLAMATION = 48   ' Warning message
Global Const MB_ICONINFORMATION = 64   ' Information message


' MsgBox return values
Global Const IDOK = 1                  ' OK button pressed
Global Const IDCANCEL = 2              ' Cancel button pressed
Global Const IDABORT = 3               ' Abort button pressed
Global Const IDRETRY = 4               ' Retry button pressed
Global Const IDIGNORE = 5              ' Ignore button pressed
Global Const IDYES = 6                 ' Yes button pressed
Global Const IDNO = 7                  ' No button pressed

Global Const FALSE = 0
Global Const TRUE = -1

Global Const KEY_RETURN = &HD
Global Const MODAL = 1

Global Const INSERT = 1    ' for line editing...
Global Const ALTER = 2

Global Const MIDIOUT = 0
Global Const MIDISYNTH = 1
Global Const MIDIMAPPER = -1

Global CancelOp As Integer      ' If user changed mind...
Global EditFunction As Integer
Global NeedToSave As Integer    ' If file has changed...