* reformatted entire unit because of bug7871. Added many T<x> prototypes.

git-svn-id: trunk@5580 -

packages/extra/winunits/mmsystem.pp

@@ -1,5 +1,3 @@
-{
-}
 {*********************************} (*********************************)
 { Generated by c2pas32  v0.9b     } (*     Fixed by P.V.Ozerski      *)
 { (c) 2001 Oleg Bulychov          } (*     Original C header file    *)
@@ -7,2851 +5,2690 @@
 { http://www.astonshell.com/      } (*   from LCC-win32 is used      *)
 {*********************************} (*   LCC-win32 (c) Jacob Navia   *)
                                     (*********************************)
-unit mmsystem;
+
+Unit mmsystem;
 {$smartlink on}
 {$MODE DELPHI}
 interface
 uses
  windows;
 
-type
-MMRESULT = UINT;
-MMVERSION = UINT;
-HWAVEOUT = THandle;
-LPHWAVEOUT = ^HWAVEOUT;
-HWAVEIN = THandle;
-LPHWAVEIN = ^HWAVEOUT;
-HWAVE = THandle;
-LPHWAVE = ^THandle;
-LPUINT = ^UINT;
-(*//////////////////////////////////////////////////////////*)
-(* Definitions*)
-(*//////////////////////////////////////////////////////////*)
-const
-MAXPNAMELEN = 32;
-MAXERRORLENGTH = 256;
-MAX_JOYSTICKOEMVXDNAME = 260;
-MM_MIDI_MAPPER = 1;
-MM_WAVE_MAPPER = 2;
-MM_SNDBLST_MIDIOUT = 3;
-MM_SNDBLST_MIDIIN = 4;
-MM_SNDBLST_SYNTH = 5;
-MM_SNDBLST_WAVEOUT = 6;
-MM_SNDBLST_WAVEIN = 7;
-MM_ADLIB = 9;
-MM_MPU401_MIDIOUT = 10;
-MM_MPU401_MIDIIN = 11;
-MM_PC_JOYSTICK = 12;
-TIME_MS = 1;
-TIME_SAMPLES = 2;
-TIME_BYTES = 4;
-TIME_SMPTE = 8;
-TIME_MIDI = 16;
-TIME_TICKS = 32;
-
-MM_MCINOTIFY = $3B9;
-MM_WOM_OPEN = $3BB;
-MM_WOM_CLOSE = $3BC;
-MM_WOM_DONE = $3BD;
-MM_WIM_OPEN = $3BE;
-MM_WIM_CLOSE = $3BF;
-MM_WIM_DATA = $3C0;
-MM_MIM_OPEN = $3C1;
-MM_MIM_CLOSE = $3C2;
-MM_MIM_DATA = $3C3;
-MM_MIM_LONGDATA = $3C4;
-MM_MIM_ERROR = $3C5;
-MM_MIM_LONGERROR = $3C6;
-MM_MOM_OPEN = $3C7;
-MM_MOM_CLOSE = $3C8;
-MM_MOM_DONE = $3C9;
-MM_DRVM_OPEN = $3D0;
-MM_DRVM_CLOSE = $3D1;
-MM_DRVM_DATA = $3D2;
-MM_DRVM_ERROR = $3D3;
-MM_STREAM_OPEN = $3D4;
-MM_STREAM_CLOSE = $3D5;
-MM_STREAM_DONE = $3D6;
-MM_STREAM_ERROR = $3D7;
-MM_MOM_POSITIONCB = $3CA;
-MM_MCISIGNAL = $3CB;
-WAVE_INVALIDFORMAT = 0;
-WAVE_FORMAT_1M08 = 1;
-WAVE_FORMAT_1S08 = 2;
-WAVE_FORMAT_1M16 = 4;
-WAVE_FORMAT_1S16 = 8;
-WAVE_FORMAT_2M08 = 16;
-WAVE_FORMAT_2S08 = 32;
-WAVE_FORMAT_2M16 = 64;
-WAVE_FORMAT_2S16 = 128;
-WAVE_FORMAT_4M08 = 256;
-WAVE_FORMAT_4S08 = 512;
-WAVE_FORMAT_4M16 = $400;
-WAVE_FORMAT_4S16 = $800;
-MM_MIM_MOREDATA = $3CC;
-MM_MIXM_LINE_CHANGE = $3D0;
-MM_MIXM_CONTROL_CHANGE = $3D1;
-MMSYSERR_BASE = 0;
-WAVERR_BASE = 32;
-MIDIERR_BASE = 64;
-TIMERR_BASE = 96;
-JOYERR_BASE = 160;
-MCIERR_BASE = 256;
-MIXERR_BASE = 1024;
-MCI_STRING_OFFSET = 512;
-MCI_VD_OFFSET = 1024;
-MCI_CD_OFFSET = 1088;
-MCI_WAVE_OFFSET = 1152;
-MCI_SEQ_OFFSET = 1216;
-MMSYSERR_NOERROR = 0;
-MMSYSERR_ERROR = (MMSYSERR_BASE+1);
-MMSYSERR_BADDEVICEID = (MMSYSERR_BASE+2);
-MMSYSERR_NOTENABLED = (MMSYSERR_BASE+3);
-MMSYSERR_ALLOCATED = (MMSYSERR_BASE+4);
-MMSYSERR_INVALHANDLE = (MMSYSERR_BASE+5);
-MMSYSERR_NODRIVER = (MMSYSERR_BASE+6);
-MMSYSERR_NOMEM = (MMSYSERR_BASE+7);
-MMSYSERR_NOTSUPPORTED = (MMSYSERR_BASE+8);
-MMSYSERR_BADERRNUM = (MMSYSERR_BASE+9);
-MMSYSERR_INVALFLAG = (MMSYSERR_BASE+10);
-MMSYSERR_INVALPARAM = (MMSYSERR_BASE+11);
-MMSYSERR_HANDLEBUSY = (MMSYSERR_BASE+12);
-MMSYSERR_INVALIDALIAS = (MMSYSERR_BASE+13);
-MMSYSERR_BADDB = (MMSYSERR_BASE+14);
-MMSYSERR_KEYNOTFOUND = (MMSYSERR_BASE+15);
-MMSYSERR_READERROR = (MMSYSERR_BASE+16);
-MMSYSERR_WRITEERROR = (MMSYSERR_BASE+17);
-MMSYSERR_DELETEERROR = (MMSYSERR_BASE+18);
-MMSYSERR_VALNOTFOUND = (MMSYSERR_BASE+19);
-MMSYSERR_NODRIVERCB = (MMSYSERR_BASE+20);
-MMSYSERR_LASTERROR = (MMSYSERR_BASE+20);
-MM_JOY1MOVE = $3A0;
-MM_JOY2MOVE = $3A1;
-MM_JOY1ZMOVE = $3A2;
-MM_JOY2ZMOVE = $3A3;
-MM_JOY1BUTTONDOWN = $3B5;
-MM_JOY2BUTTONDOWN = $3B6;
-MM_JOY1BUTTONUP = $3B7;
-MM_JOY2BUTTONUP = $3B8;
-CALLBACK_TYPEMASK = $70000;
-CALLBACK_NULL = 0;
-CALLBACK_EVENT = $50000;
-CALLBACK_WINDOW = $10000;
-CALLBACK_TASK = $20000;
-CALLBACK_THREAD = CALLBACK_TASK;
-CALLBACK_FUNCTION = $30000;
-type
-HDRVR = THandle;
-const
-DRV_LOAD = 1;
-DRV_ENABLE = 2;
-DRV_OPEN = $3;
-DRV_CLOSE = 4;
-DRV_DISABLE = $5;
-DRV_FREE = $6;
-DRV_CONFIGURE = $7;
-DRV_QUERYCONFIGURE = 8;
-DRV_INSTALL = $9;
-DRV_REMOVE = $A;
-DRV_EXITSESSION = $B;
-DRV_POWER = $F;
-DRV_RESERVED = $800;
-DRV_USER = $4000;
-DRVCNF_CANCEL = 0;
-DRVCNF_OK = 1;
-DRVCNF_RESTART = 2;
-DRV_CANCEL = DRVCNF_CANCEL;
-DRV_OK = DRVCNF_OK;
-DRV_RESTART = DRVCNF_RESTART;
-DRV_MCI_FIRST = DRV_RESERVED;
-DRV_MCI_LAST = (DRV_RESERVED+$FFF);
-type
-PDRVCALLBACK = procedure(hdrvr: tHandle; uMsg: UINT; dwUser, dw1, dw2: DWORD); stdcall;
-
-function sndPlaySoundA(Name: LPCSTR; flags: UINT): BOOL; stdcall;
- external 'winmm.dll' name 'sndPlaySoundA';
-function sndPlaySoundW(Name: LPCWSTR; flags: UINT): BOOL; stdcall;
- external 'winmm.dll' name 'sndPlaySoundW';
-function sndPlaySound(Name: PChar; flags: UINT): BOOL; stdcall;
- external 'winmm.dll' name
- {$ifdef UNICODE}'sndPlaySoundW'
- {$else}'sndPlaySoundA'
- {$endif};
-
-const
-SND_NODEFAULT = 2;
-SND_MEMORY = 4;
-SND_LOOP = 8;
-SND_NOSTOP = 16;
-SND_SYNC = 0;
-SND_ASYNC = 1;
-SND_PURGE = 64;
-SND_APPLICATION = 128;
-SND_ALIAS_START = 0;
-SND_ALIAS_SYSTEMHAND = 18515;
-SND_ALIAS_SYSTEMEXCLAMATION = 8531;
-SND_ALIAS_SYSTEMASTERISK = 10835;
-SND_ALIAS_SYSTEMQUESTION = 16211;
-SND_ALIAS_SYSTEMDEFAULT = 17491;
-SND_ALIAS_SYSTEMEXIT = 17747;
-SND_ALIAS_SYSTEMSTART = 21331;
-SND_ALIAS_SYSTEMWELCOME = 22355;
-SND_NOWAIT = $2000;
-SND_ALIAS = $10000;
-SND_ALIAS_ID = $110000;
-SND_FILENAME = $20000;
-SND_RESOURCE = $40004;
-WAVERR_BADFORMAT = (WAVERR_BASE+0);
-WAVERR_STILLPLAYING = (WAVERR_BASE+1);
-WAVERR_UNPREPARED = (WAVERR_BASE+2);
-WAVERR_SYNC = (WAVERR_BASE+3);
-WAVERR_LASTERROR = (WAVERR_BASE+3);
-WOM_OPEN = MM_WOM_OPEN;
-WOM_CLOSE = MM_WOM_CLOSE;
-WOM_DONE = MM_WOM_DONE;
-WIM_OPEN = MM_WIM_OPEN;
-WIM_CLOSE = MM_WIM_CLOSE;
-WIM_DATA = MM_WIM_DATA;
-WAVE_MAPPER = UINT(-1);
-WAVE_FORMAT_QUERY = 1;
-WAVE_ALLOWSYNC = 2;
-WAVE_MAPPED = 4;
-WAVE_FORMAT_DIRECT = 8;
-WAVE_FORMAT_DIRECT_QUERY = (WAVE_FORMAT_QUERY or WAVE_FORMAT_DIRECT);
-MIM_OPEN = MM_MIM_OPEN;
-MIM_CLOSE = MM_MIM_CLOSE;
-MIM_DATA = MM_MIM_DATA;
-MIM_LONGDATA = MM_MIM_LONGDATA;
-MIM_ERROR = MM_MIM_ERROR;
-MIM_LONGERROR = MM_MIM_LONGERROR;
-MOM_OPEN = MM_MOM_OPEN;
-MOM_CLOSE = MM_MOM_CLOSE;
-MOM_DONE = MM_MOM_DONE;
-MIM_MOREDATA = MM_MIM_MOREDATA;
-MOM_POSITIONCB = MM_MOM_POSITIONCB;
-MIDIMAPPER = UINT(-1);
-MIDI_MAPPER = UINT(-1);
-MIDI_IO_STATUS = 32;
-MIDI_CACHE_ALL = 1;
-MIDI_CACHE_BESTFIT = 2;
-MIDI_CACHE_QUERY = 3;
-MIDI_UNCACHE = 4;
-WHDR_DONE = 1;
-WHDR_PREPARED = 2;
-WHDR_BEGINLOOP = $4;
-WHDR_ENDLOOP = $8;
-WHDR_INQUEUE = $10;
-MOD_MIDIPORT = 1;
-MOD_SYNTH = 2;
-MOD_SQSYNTH = 3;
-MOD_FMSYNTH = 4;
-MOD_MAPPER = 5;
-MIDICAPS_VOLUME = 1;
-MIDICAPS_LRVOLUME = 2;
-MIDICAPS_CACHE = 4;
-MIDICAPS_STREAM = 8;
-MHDR_DONE = 1;
-MHDR_PREPARED = 2;
-MHDR_INQUEUE = $4;
-MHDR_ISSTRM = $8;
-MEVT_F_SHORT = 0;
-MEVT_F_LONG = $80000000;
-MEVT_F_CALLBACK = $40000000;
-function MEVT_EVENTTYPE(x: byte): byte;
-function MEVT_EVENTPARM(x: DWORD): DWORD;
-const
-MEVT_SHORTMSG = 0;
-MEVT_TEMPO = $1;
-MEVT_NOP = $2;
-MEVT_LONGMSG = $80;
-MEVT_COMMENT = $82;
-MEVT_VERSION = $84;
-MIDISTRM_ERROR = -2;
-MIDIPROP_SET = $80000000;
-MIDIPROP_GET = $40000000;
-MIDIPROP_TIMEDIV = 1;
-MIDIPROP_TEMPO = 2;
-MIXERLINE_LINEF_ACTIVE = 1;
-MIXERLINE_LINEF_DISCONNECTED = $8000;
-MIXERLINE_LINEF_SOURCE = $80000000;
-MIXERLINE_COMPONENTTYPE_DST_FIRST = 0;
-MIXERLINE_COMPONENTTYPE_DST_UNDEFINED = (MIXERLINE_COMPONENTTYPE_DST_FIRST);
-MIXERLINE_COMPONENTTYPE_DST_DIGITAL = (MIXERLINE_COMPONENTTYPE_DST_FIRST+1);
-MIXERLINE_COMPONENTTYPE_DST_LINE = (MIXERLINE_COMPONENTTYPE_DST_FIRST+2);
-MIXERLINE_COMPONENTTYPE_DST_MONITOR = (MIXERLINE_COMPONENTTYPE_DST_FIRST+3);
-MIXERLINE_COMPONENTTYPE_DST_SPEAKERS = (MIXERLINE_COMPONENTTYPE_DST_FIRST+4);
-MIXERLINE_COMPONENTTYPE_DST_HEADPHONES = (MIXERLINE_COMPONENTTYPE_DST_FIRST+5);
-MIXERLINE_COMPONENTTYPE_DST_TELEPHONE = (MIXERLINE_COMPONENTTYPE_DST_FIRST+6);
-MIXERLINE_COMPONENTTYPE_DST_WAVEIN = (MIXERLINE_COMPONENTTYPE_DST_FIRST+7);
-MIXERLINE_COMPONENTTYPE_DST_VOICEIN = (MIXERLINE_COMPONENTTYPE_DST_FIRST+8);
-MIXERLINE_COMPONENTTYPE_DST_LAST = (MIXERLINE_COMPONENTTYPE_DST_FIRST+8);
-MIXERLINE_COMPONENTTYPE_SRC_FIRST = $1000;
-MIXERLINE_COMPONENTTYPE_SRC_UNDEFINED = (MIXERLINE_COMPONENTTYPE_SRC_FIRST+0);
-MIXERLINE_COMPONENTTYPE_SRC_DIGITAL = (MIXERLINE_COMPONENTTYPE_SRC_FIRST+1);
-MIXERLINE_COMPONENTTYPE_SRC_LINE = (MIXERLINE_COMPONENTTYPE_SRC_FIRST+2);
-MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE = (MIXERLINE_COMPONENTTYPE_SRC_FIRST+3);
-MIXERLINE_COMPONENTTYPE_SRC_SYNTHESIZER = (MIXERLINE_COMPONENTTYPE_SRC_FIRST+4);
-MIXERLINE_COMPONENTTYPE_SRC_COMPACTDISC = (MIXERLINE_COMPONENTTYPE_SRC_FIRST+5);
-MIXERLINE_COMPONENTTYPE_SRC_TELEPHONE = (MIXERLINE_COMPONENTTYPE_SRC_FIRST+6);
-MIXERLINE_COMPONENTTYPE_SRC_PCSPEAKER = (MIXERLINE_COMPONENTTYPE_SRC_FIRST+7);
-MIXERLINE_COMPONENTTYPE_SRC_WAVEOUT = (MIXERLINE_COMPONENTTYPE_SRC_FIRST+8);
-MIXERLINE_COMPONENTTYPE_SRC_AUXILIARY = (MIXERLINE_COMPONENTTYPE_SRC_FIRST+9);
-MIXERLINE_COMPONENTTYPE_SRC_ANALOG = (MIXERLINE_COMPONENTTYPE_SRC_FIRST+10);
-MIXERLINE_COMPONENTTYPE_SRC_LAST = (MIXERLINE_COMPONENTTYPE_SRC_FIRST+10);
-MIXERLINE_TARGETTYPE_UNDEFINED = 0;
-MIXERLINE_TARGETTYPE_WAVEOUT = 1;
-MIXERLINE_TARGETTYPE_WAVEIN = 2;
-MIXERLINE_TARGETTYPE_MIDIOUT = 3;
-MIXERLINE_TARGETTYPE_MIDIIN = 4;
-MIXERLINE_TARGETTYPE_AUX = 5;
-MIDIERR_UNPREPARED = (MIDIERR_BASE+0);
-MIDIERR_STILLPLAYING = (MIDIERR_BASE+1);
-MIDIERR_NOMAP = (MIDIERR_BASE+2);
-MIDIERR_NOTREADY = (MIDIERR_BASE+3);
-MIDIERR_NODEVICE = (MIDIERR_BASE+4);
-MIDIERR_INVALIDSETUP = (MIDIERR_BASE+5);
-MIDIERR_BADOPENMODE = (MIDIERR_BASE+6);
-MIDIERR_DONT_CONTINUE = (MIDIERR_BASE+7);
-MIDIERR_LASTERROR = (MIDIERR_BASE+7);
-MIXERCONTROL_CONTROLF_UNIFORM = 1;
-MIXERCONTROL_CONTROLF_MULTIPLE = 2;
-MIXERCONTROL_CONTROLF_DISABLED = $80000000;
-MIXERCONTROL_CT_CLASS_MASK = $F0000000;
-MIXERCONTROL_CT_CLASS_CUSTOM = 0;
-MIXERCONTROL_CT_CLASS_METER = $10000000;
-MIXERCONTROL_CT_CLASS_SWITCH = $20000000;
-MIXERCONTROL_CT_CLASS_NUMBER = $30000000;
-MIXERCONTROL_CT_CLASS_SLIDER = $40000000;
-MIXERCONTROL_CT_CLASS_FADER = $50000000;
-MIXERCONTROL_CT_CLASS_TIME = $60000000;
-MIXERCONTROL_CT_CLASS_LIST = $70000000;
-MIXERCONTROL_CT_SUBCLASS_MASK = $0F000000;
-MIXERCONTROL_CT_SC_SWITCH_BOOLEAN = 0;
-MIXERCONTROL_CT_SC_SWITCH_BUTTON = $1000000;
-MIXERCONTROL_CT_SC_METER_POLLED = 0;
-MIXERCONTROL_CT_SC_TIME_MICROSECS = 0;
-MIXERCONTROL_CT_SC_TIME_MILLISECS = $1000000;
-MIXERCONTROL_CT_SC_LIST_SINGLE = 0;
-MIXERCONTROL_CT_SC_LIST_MULTIPLE = $1000000;
-MIXERCONTROL_CT_UNITS_MASK = $0FF0000;
-MIXERCONTROL_CT_UNITS_CUSTOM = 0;
-MIXERCONTROL_CT_UNITS_BOOLEAN = $10000;
-MIXERCONTROL_CT_UNITS_SIGNED = $20000;
-MIXERCONTROL_CT_UNITS_UNSIGNED = $30000;
-MIXERCONTROL_CT_UNITS_DECIBELS = $40000;
-MIXERCONTROL_CT_UNITS_PERCENT = $50000;
-MIXERCONTROL_CONTROLTYPE_CUSTOM = (MIXERCONTROL_CT_CLASS_CUSTOM or MIXERCONTROL_CT_UNITS_CUSTOM);
-MIXERCONTROL_CONTROLTYPE_BOOLEANMETER = (MIXERCONTROL_CT_CLASS_METER or MIXERCONTROL_CT_SC_METER_POLLED or MIXERCONTROL_CT_UNITS_BOOLEAN);
-MIXERCONTROL_CONTROLTYPE_SIGNEDMETER = (MIXERCONTROL_CT_CLASS_METER or MIXERCONTROL_CT_SC_METER_POLLED or MIXERCONTROL_CT_UNITS_SIGNED);
-MIXERCONTROL_CONTROLTYPE_PEAKMETER = (MIXERCONTROL_CONTROLTYPE_SIGNEDMETER+1);
-MIXERCONTROL_CONTROLTYPE_UNSIGNEDMETER = (MIXERCONTROL_CT_CLASS_METER or MIXERCONTROL_CT_SC_METER_POLLED or MIXERCONTROL_CT_UNITS_UNSIGNED);
-MIXERCONTROL_CONTROLTYPE_BOOLEAN = (MIXERCONTROL_CT_CLASS_SWITCH or MIXERCONTROL_CT_SC_SWITCH_BOOLEAN or MIXERCONTROL_CT_UNITS_BOOLEAN);
-MIXERCONTROL_CONTROLTYPE_ONOFF = (MIXERCONTROL_CONTROLTYPE_BOOLEAN+1);
-MIXERCONTROL_CONTROLTYPE_MUTE = (MIXERCONTROL_CONTROLTYPE_BOOLEAN+2);
-MIXERCONTROL_CONTROLTYPE_MONO = (MIXERCONTROL_CONTROLTYPE_BOOLEAN+3);
-MIXERCONTROL_CONTROLTYPE_LOUDNESS = (MIXERCONTROL_CONTROLTYPE_BOOLEAN+4);
-MIXERCONTROL_CONTROLTYPE_STEREOENH = (MIXERCONTROL_CONTROLTYPE_BOOLEAN+5);
-MIXERCONTROL_CONTROLTYPE_BUTTON = (MIXERCONTROL_CT_CLASS_SWITCH or MIXERCONTROL_CT_SC_SWITCH_BUTTON or MIXERCONTROL_CT_UNITS_BOOLEAN);
-MIXERCONTROL_CONTROLTYPE_DECIBELS = (MIXERCONTROL_CT_CLASS_NUMBER or MIXERCONTROL_CT_UNITS_DECIBELS);
-MIXERCONTROL_CONTROLTYPE_SIGNED = (MIXERCONTROL_CT_CLASS_NUMBER or MIXERCONTROL_CT_UNITS_SIGNED);
-MIXERCONTROL_CONTROLTYPE_UNSIGNED = (MIXERCONTROL_CT_CLASS_NUMBER or MIXERCONTROL_CT_UNITS_UNSIGNED);
-MIXERCONTROL_CONTROLTYPE_PERCENT = (MIXERCONTROL_CT_CLASS_NUMBER or MIXERCONTROL_CT_UNITS_PERCENT);
-MIXERCONTROL_CONTROLTYPE_SLIDER = (MIXERCONTROL_CT_CLASS_SLIDER or MIXERCONTROL_CT_UNITS_SIGNED);
-MIXERCONTROL_CONTROLTYPE_PAN = (MIXERCONTROL_CONTROLTYPE_SLIDER+1);
-MIXERCONTROL_CONTROLTYPE_QSOUNDPAN = (MIXERCONTROL_CONTROLTYPE_SLIDER+2);
-MIXERCONTROL_CONTROLTYPE_FADER = (MIXERCONTROL_CT_CLASS_FADER or MIXERCONTROL_CT_UNITS_UNSIGNED);
-MIXERCONTROL_CONTROLTYPE_VOLUME = (MIXERCONTROL_CONTROLTYPE_FADER+1);
-MIXERCONTROL_CONTROLTYPE_BASS = (MIXERCONTROL_CONTROLTYPE_FADER+2);
-MIXERCONTROL_CONTROLTYPE_TREBLE = (MIXERCONTROL_CONTROLTYPE_FADER+3);
-MIXERCONTROL_CONTROLTYPE_EQUALIZER = (MIXERCONTROL_CONTROLTYPE_FADER+4);
-MIXERCONTROL_CONTROLTYPE_SINGLESELECT = (MIXERCONTROL_CT_CLASS_LIST or MIXERCONTROL_CT_SC_LIST_SINGLE or MIXERCONTROL_CT_UNITS_BOOLEAN);
-MIXERCONTROL_CONTROLTYPE_MUX = (MIXERCONTROL_CONTROLTYPE_SINGLESELECT+1);
-MIXERCONTROL_CONTROLTYPE_MULTIPLESELECT = (MIXERCONTROL_CT_CLASS_LIST or MIXERCONTROL_CT_SC_LIST_MULTIPLE or MIXERCONTROL_CT_UNITS_BOOLEAN);
-MIXERCONTROL_CONTROLTYPE_MIXER = (MIXERCONTROL_CONTROLTYPE_MULTIPLESELECT+1);
-MIXERCONTROL_CONTROLTYPE_MICROTIME = (MIXERCONTROL_CT_CLASS_TIME or MIXERCONTROL_CT_SC_TIME_MICROSECS or MIXERCONTROL_CT_UNITS_UNSIGNED);
-MIXERCONTROL_CONTROLTYPE_MILLITIME = (MIXERCONTROL_CT_CLASS_TIME or MIXERCONTROL_CT_SC_TIME_MILLISECS or MIXERCONTROL_CT_UNITS_UNSIGNED);
-MIXER_SHORT_NAME_CHARS = 16;
-MIXER_LONG_NAME_CHARS = 64;
-MIXERR_INVALLINE = (MIXERR_BASE+0);
-MIXERR_INVALCONTROL = (MIXERR_BASE+1);
-MIXERR_INVALVALUE = (MIXERR_BASE+2);
-MIXERR_LASTERROR = (MIXERR_BASE+2);
-MIXER_OBJECTF_HANDLE = $80000000;
-MIXER_OBJECTF_MIXER = 0;
-MIXER_OBJECTF_HMIXER = (MIXER_OBJECTF_HANDLE or MIXER_OBJECTF_MIXER);
-MIXER_OBJECTF_WAVEOUT = $10000000;
-MIXER_OBJECTF_HWAVEOUT = (MIXER_OBJECTF_HANDLE or MIXER_OBJECTF_WAVEOUT);
-MIXER_OBJECTF_WAVEIN = $20000000;
-MIXER_OBJECTF_HWAVEIN = (MIXER_OBJECTF_HANDLE or MIXER_OBJECTF_WAVEIN);
-MIXER_OBJECTF_MIDIOUT = $30000000;
-MIXER_OBJECTF_HMIDIOUT = (MIXER_OBJECTF_HANDLE or MIXER_OBJECTF_MIDIOUT);
-MIXER_OBJECTF_MIDIIN = $40000000;
-MIXER_OBJECTF_HMIDIIN = (MIXER_OBJECTF_HANDLE or MIXER_OBJECTF_MIDIIN);
-MIXER_OBJECTF_AUX = $50000000;
-MIXER_GETCONTROLDETAILSF_VALUE = 0;
-MIXER_GETCONTROLDETAILSF_LISTTEXT = 1;
-MIXER_GETCONTROLDETAILSF_QUERYMASK = $F;
-MIXER_SETCONTROLDETAILSF_VALUE = 0;
-MIXER_SETCONTROLDETAILSF_CUSTOM = 1;
-MIXER_SETCONTROLDETAILSF_QUERYMASK = $F;
-JOYERR_NOERROR = (0);
-JOYERR_PARMS = (JOYERR_BASE+5);
-JOYERR_NOCANDO = (JOYERR_BASE+6);
-JOYERR_UNPLUGGED = (JOYERR_BASE+7);
-JOY_BUTTON1 = 1;
-JOY_BUTTON2 = 2;
-JOY_BUTTON3 = 4;
-JOY_BUTTON4 = 8;
-JOY_BUTTON1CHG = 256;
-JOY_BUTTON2CHG = 512;
-JOY_BUTTON3CHG = $400;
-JOY_BUTTON4CHG = $800;
-JOY_BUTTON5 = 16;
-JOY_BUTTON6 = 32;
-JOY_BUTTON7 = 64;
-JOY_BUTTON8 = 128;
-JOY_BUTTON9 = 256;
-JOY_BUTTON10 = 512;
-JOY_BUTTON11 = $400;
-JOY_BUTTON12 = $800;
-JOY_BUTTON13 = $1000;
-JOY_BUTTON14 = $2000;
-JOY_BUTTON15 = $4000;
-JOY_BUTTON16 = $8000;
-JOY_BUTTON17 = $10000;
-JOY_BUTTON18 = $20000;
-JOY_BUTTON19 = $40000;
-JOY_BUTTON20 = $80000;
-JOY_BUTTON21 = $100000;
-JOY_BUTTON22 = $200000;
-JOY_BUTTON23 = $400000;
-JOY_BUTTON24 = $800000;
-JOY_BUTTON25 = $1000000;
-JOY_BUTTON26 = $2000000;
-JOY_BUTTON27 = $4000000;
-JOY_BUTTON28 = $8000000;
-JOY_BUTTON29 = $10000000;
-JOY_BUTTON30 = $20000000;
-JOY_BUTTON31 = $40000000;
-JOY_BUTTON32 = $80000000;
-JOY_POVCENTERED = -1;
-JOY_POVFORWARD = 0;
-JOY_POVRIGHT = 9000;
-JOY_POVBACKWARD = 18000;
-JOY_POVLEFT = 27000;
-JOY_RETURNX = 1;
-JOY_RETURNY = 2;
-JOY_RETURNZ = 4;
-JOY_RETURNR = 8;
-JOY_RETURNU = 16;
-JOY_RETURNV = 32;
-JOY_RETURNPOV = 64;
-JOY_RETURNBUTTONS = 128;
-JOY_RETURNRAWDATA = 256;
-JOY_RETURNPOVCTS = 512;
-JOY_RETURNCENTERED = $400;
-JOY_USEDEADZONE = $800;
-JOY_RETURNALL = (JOY_RETURNX or JOY_RETURNY or JOY_RETURNZ or JOY_RETURNR or JOY_RETURNU or JOY_RETURNV or JOY_RETURNPOV or JOY_RETURNBUTTONS);
-JOY_CAL_READALWAYS = $10000;
-JOY_CAL_READXYONLY = $20000;
-JOY_CAL_READ3 = $40000;
-JOY_CAL_READ4 = $80000;
-JOY_CAL_READXONLY = $100000;
-JOY_CAL_READYONLY = $200000;
-JOY_CAL_READ5 = $400000;
-JOY_CAL_READ6 = $800000;
-JOY_CAL_READZONLY = $1000000;
-JOY_CAL_READRONLY = $2000000;
-JOY_CAL_READUONLY = $4000000;
-JOY_CAL_READVONLY = $8000000;
-JOYSTICKID1 = 0;
-JOYSTICKID2 = 1;
-JOYCAPS_HASZ = 1;
-JOYCAPS_HASR = 2;
-JOYCAPS_HASU = 4;
-JOYCAPS_HASV = 8;
-JOYCAPS_HASPOV = 16;
-JOYCAPS_POV4DIR = 32;
-JOYCAPS_POVCTS = 64;
-MMIOERR_BASE = 256;
-MMIOERR_FILENOTFOUND = (MMIOERR_BASE+1);
-MMIOERR_OUTOFMEMORY = (MMIOERR_BASE+2);
-MMIOERR_CANNOTOPEN = (MMIOERR_BASE+3);
-MMIOERR_CANNOTCLOSE = (MMIOERR_BASE+4);
-MMIOERR_CANNOTREAD = (MMIOERR_BASE+5);
-MMIOERR_CANNOTWRITE = (MMIOERR_BASE+6);
-MMIOERR_CANNOTSEEK = (MMIOERR_BASE+7);
-MMIOERR_CANNOTEXPAND = (MMIOERR_BASE+8);
-MMIOERR_CHUNKNOTFOUND = (MMIOERR_BASE+9);
-MMIOERR_UNBUFFERED = (MMIOERR_BASE+10);
-MMIOERR_PATHNOTFOUND = (MMIOERR_BASE+11);
-MMIOERR_ACCESSDENIED = (MMIOERR_BASE+12);
-MMIOERR_SHARINGVIOLATION = (MMIOERR_BASE+13);
-MMIOERR_NETWORKERROR = (MMIOERR_BASE+14);
-MMIOERR_TOOMANYOPENFILES = (MMIOERR_BASE+15);
-MMIOERR_INVALIDFILE = (MMIOERR_BASE+16);
-CFSEPCHAR = '+';
-WAVECAPS_PITCH = 1;
-WAVECAPS_PLAYBACKRATE = 2;
-WAVECAPS_VOLUME = 4;
-WAVECAPS_LRVOLUME = 8;
-WAVECAPS_SYNC = 16;
-WAVECAPS_SAMPLEACCURATE = 32;
-WAVECAPS_DIRECTSOUND = 64;
-MIXER_GETLINEINFOF_DESTINATION = 0;
-MIXER_GETLINEINFOF_SOURCE = 1;
-MIXER_GETLINEINFOF_LINEID = 2;
-MIXER_GETLINEINFOF_COMPONENTTYPE = 3;
-MIXER_GETLINEINFOF_TARGETTYPE = 4;
-MIXER_GETLINEINFOF_QUERYMASK = $F;
-MMIO_RWMODE = 3;
-MMIO_SHAREMODE = $70;
-MMIO_CREATE = $1000;
-MMIO_PARSE = 256;
-MMIO_DELETE = 512;
-MMIO_EXIST = $4000;
-MMIO_ALLOCBUF = $10000;
-MMIO_GETTEMP = $20000;
-MMIO_DIRTY = $10000000;
-MMIO_READ = 0;
-MMIO_WRITE = 1;
-MMIO_READWRITE = 2;
-MMIO_COMPAT = 0;
-MMIO_EXCLUSIVE = 16;
-MMIO_DENYWRITE = 32;
-MMIO_DENYREAD = $30;
-MMIO_DENYNONE = 64;
-MMIO_FHOPEN = 16;
-MMIO_EMPTYBUF = 16;
-MMIO_TOUPPER = 16;
-MMIO_INSTALLPROC = $10000;
-MMIO_GLOBALPROC = $10000000;
-MMIO_REMOVEPROC = $20000;
-MMIO_UNICODEPROC = $1000000;
-MMIO_FINDPROC = $40000;
-MMIO_FINDCHUNK = 16;
-MMIO_FINDRIFF = 32;
-MMIO_FINDLIST = 64;
-MMIO_CREATERIFF = 32;
-MMIO_CREATELIST = 64;
-MMIOM_READ = MMIO_READ;
-MMIOM_WRITE = MMIO_WRITE;
-MMIOM_SEEK = 2;
-MMIOM_OPEN = 3;
-MMIOM_CLOSE = 4;
-MMIOM_WRITEFLUSH = 5;
-MMIOM_RENAME = 6;
-MMIOM_USER = $8000;
-FOURCC_RIFF = $46464952; {'R','I','F','F'}
-FOURCC_LIST = $5453494C; {'L','I','S','T'}
-FOURCC_DOS  = $20532F44; {'D','O','S',' '}
-FOURCC_MEM  = $204D454D; {'M','E','M',' '}
-SEEK_SET = 0;
-SEEK_CUR = 1;
-SEEK_END = 2;
-MMIO_DEFAULTBUFFER = 8192;
-MCIERR_INVALID_DEVICE_ID = (MCIERR_BASE+1);
-MCIERR_UNRECOGNIZED_KEYWORD = (MCIERR_BASE+3);
-MCIERR_UNRECOGNIZED_COMMAND = (MCIERR_BASE+5);
-MCIERR_HARDWARE = (MCIERR_BASE+6);
-MCIERR_INVALID_DEVICE_NAME = (MCIERR_BASE+7);
-MCIERR_OUT_OF_MEMORY = (MCIERR_BASE+8);
-MCIERR_DEVICE_OPEN = (MCIERR_BASE+9);
-MCIERR_CANNOT_LOAD_DRIVER = (MCIERR_BASE+10);
-MCIERR_MISSING_COMMAND_STRING = (MCIERR_BASE+11);
-MCIERR_PARAM_OVERFLOW = (MCIERR_BASE+12);
-MCIERR_MISSING_STRING_ARGUMENT = (MCIERR_BASE+13);
-MCIERR_BAD_INTEGER = (MCIERR_BASE+14);
-MCIERR_PARSER_INTERNAL = (MCIERR_BASE+15);
-MCIERR_DRIVER_INTERNAL = (MCIERR_BASE+16);
-MCIERR_MISSING_PARAMETER = (MCIERR_BASE+17);
-MCIERR_UNSUPPORTED_FUNCTION = (MCIERR_BASE+18);
-MCIERR_FILE_NOT_FOUND = (MCIERR_BASE+19);
-MCIERR_DEVICE_NOT_READY = (MCIERR_BASE+20);
-MCIERR_INTERNAL = (MCIERR_BASE+21);
-MCIERR_DRIVER = (MCIERR_BASE+22);
-MCIERR_CANNOT_USE_ALL = (MCIERR_BASE+23);
-MCIERR_MULTIPLE = (MCIERR_BASE+24);
-MCIERR_EXTENSION_NOT_FOUND = (MCIERR_BASE+25);
-MCIERR_OUTOFRANGE = (MCIERR_BASE+26);
-MCIERR_FLAGS_NOT_COMPATIBLE = (MCIERR_BASE+28);
-MCIERR_FILE_NOT_SAVED = (MCIERR_BASE+30);
-MCIERR_DEVICE_TYPE_REQUIRED = (MCIERR_BASE+31);
-MCIERR_DEVICE_LOCKED = (MCIERR_BASE+32);
-MCIERR_DUPLICATE_ALIAS = (MCIERR_BASE+33);
-MCIERR_BAD_CONSTANT = (MCIERR_BASE+34);
-MCIERR_MUST_USE_SHAREABLE = (MCIERR_BASE+35);
-MCIERR_MISSING_DEVICE_NAME = (MCIERR_BASE+36);
-MCIERR_BAD_TIME_FORMAT = (MCIERR_BASE+37);
-MCIERR_NO_CLOSING_QUOTE = (MCIERR_BASE+38);
-MCIERR_DUPLICATE_FLAGS = (MCIERR_BASE+39);
-MCIERR_INVALID_FILE = (MCIERR_BASE+40);
-MCIERR_NULL_PARAMETER_BLOCK = (MCIERR_BASE+41);
-MCIERR_UNNAMED_RESOURCE = (MCIERR_BASE+42);
-MCIERR_NEW_REQUIRES_ALIAS = (MCIERR_BASE+43);
-MCIERR_NOTIFY_ON_AUTO_OPEN = (MCIERR_BASE+44);
-MCIERR_NO_ELEMENT_ALLOWED = (MCIERR_BASE+45);
-MCIERR_NONAPPLICABLE_FUNCTION = (MCIERR_BASE+46);
-MCIERR_ILLEGAL_FOR_AUTO_OPEN = (MCIERR_BASE+47);
-MCIERR_FILENAME_REQUIRED = (MCIERR_BASE+48);
-MCIERR_EXTRA_CHARACTERS = (MCIERR_BASE+49);
-MCIERR_DEVICE_NOT_INSTALLED = (MCIERR_BASE+50);
-MCIERR_GET_CD = (MCIERR_BASE+51);
-MCIERR_SET_CD = (MCIERR_BASE+52);
-MCIERR_SET_DRIVE = (MCIERR_BASE+53);
-MCIERR_DEVICE_LENGTH = (MCIERR_BASE+54);
-MCIERR_DEVICE_ORD_LENGTH = (MCIERR_BASE+55);
-MCIERR_NO_INTEGER = (MCIERR_BASE+56);
-MCIERR_WAVE_OUTPUTSINUSE = (MCIERR_BASE+64);
-MCIERR_WAVE_SETOUTPUTINUSE = (MCIERR_BASE+65);
-MCIERR_WAVE_INPUTSINUSE = (MCIERR_BASE+66);
-MCIERR_WAVE_SETINPUTINUSE = (MCIERR_BASE+67);
-MCIERR_WAVE_OUTPUTUNSPECIFIED = (MCIERR_BASE+68);
-MCIERR_WAVE_INPUTUNSPECIFIED = (MCIERR_BASE+69);
-MCIERR_WAVE_OUTPUTSUNSUITABLE = (MCIERR_BASE+70);
-MCIERR_WAVE_SETOUTPUTUNSUITABLE = (MCIERR_BASE+71);
-MCIERR_WAVE_INPUTSUNSUITABLE = (MCIERR_BASE+72);
-MCIERR_WAVE_SETINPUTUNSUITABLE = (MCIERR_BASE+73);
-MCIERR_SEQ_DIV_INCOMPATIBLE = (MCIERR_BASE+80);
-MCIERR_SEQ_PORT_INUSE = (MCIERR_BASE+81);
-MCIERR_SEQ_PORT_NONEXISTENT = (MCIERR_BASE+82);
-MCIERR_SEQ_PORT_MAPNODEVICE = (MCIERR_BASE+83);
-MCIERR_SEQ_PORT_MISCERROR = (MCIERR_BASE+84);
-MCIERR_SEQ_TIMER = (MCIERR_BASE+85);
-MCIERR_SEQ_PORTUNSPECIFIED = (MCIERR_BASE+86);
-MCIERR_SEQ_NOMIDIPRESENT = (MCIERR_BASE+87);
-MCIERR_NO_WINDOW = (MCIERR_BASE+90);
-MCIERR_CREATEWINDOW = (MCIERR_BASE+91);
-MCIERR_FILE_READ = (MCIERR_BASE+92);
-MCIERR_FILE_WRITE = (MCIERR_BASE+93);
-MCIERR_NO_IDENTITY = (MCIERR_BASE+94);
-MCIERR_CUSTOM_DRIVER_BASE = (MCIERR_BASE+256);
-MCI_FIRST = DRV_MCI_FIRST;
-MCI_ESCAPE = $805;
-MCI_PLAY = $806;
-MCI_SEEK = $807;
-MCI_STOP = $808;
-MCI_PAUSE = $809;
-MCI_INFO = $80A;
-MCI_GETDEVCAPS = $80B;
-MCI_BREAK = $811;
-MCI_WHERE = $843;
-MCI_FREEZE = $844;
-MCI_UNFREEZE = $845;
-MCI_LOAD = $850;
-MCI_CUT = $851;
-MCI_COPY = $852;
-MCI_PASTE = $853;
-MCI_UPDATE = $854;
-MCI_RESUME = $855;
-MCI_DELETE = $856;
-MCI_SET = $80D;
-MCI_STEP = $80E;
-MCI_SAVE = $813;
-MCI_SPIN = $80C;
-MCI_STATUS = $814;
-MCI_CUE = $830;
-MCI_REALIZE = $840;
-MCI_WINDOW = $841;
-MCI_PUT = $842;
-MCI_RECORD = $80F;
-MCI_SYSINFO = $810;
-MCI_OPEN = $803;
-MCI_CLOSE = $804;
-MCI_USER_MESSAGES = (DRV_MCI_FIRST+$400);
-MCI_LAST = $0FFF;
-MCI_ALL_DEVICE_ID = -1;
-MCI_DEVTYPE_VCR = 513;
-MCI_DEVTYPE_VIDEODISC = 514;
-MCI_DEVTYPE_OVERLAY = 515;
-MCI_DEVTYPE_CD_AUDIO = 516;
-MCI_DEVTYPE_DAT = 517;
-MCI_DEVTYPE_SCANNER = 518;
-MCI_DEVTYPE_ANIMATION = 519;
-MCI_DEVTYPE_DIGITAL_VIDEO = 520;
-MCI_DEVTYPE_OTHER = 521;
-MCI_DEVTYPE_WAVEFORM_AUDIO = 522;
-MCI_DEVTYPE_SEQUENCER = 523;
-MCI_DEVTYPE_FIRST = MCI_DEVTYPE_VCR;
-MCI_DEVTYPE_LAST = MCI_DEVTYPE_SEQUENCER;
-MCI_DEVTYPE_FIRST_USER = $1000;
-MCI_MODE_NOT_READY = (MCI_STRING_OFFSET+12);
-MCI_MODE_STOP = (MCI_STRING_OFFSET+13);
-MCI_MODE_PLAY = (MCI_STRING_OFFSET+14);
-MCI_MODE_RECORD = (MCI_STRING_OFFSET+15);
-MCI_MODE_SEEK = (MCI_STRING_OFFSET+16);
-MCI_MODE_PAUSE = (MCI_STRING_OFFSET+17);
-MCI_MODE_OPEN = (MCI_STRING_OFFSET+18);
-MCI_FORMAT_MILLISECONDS = 0;
-MCI_FORMAT_HMS = 1;
-MCI_FORMAT_MSF = 2;
-MCI_FORMAT_FRAMES = 3;
-MCI_FORMAT_SMPTE_24 = 4;
-MCI_FORMAT_SMPTE_25 = 5;
-MCI_FORMAT_SMPTE_30 = 6;
-MCI_FORMAT_SMPTE_30DROP = 7;
-MCI_FORMAT_BYTES = 8;
-MCI_FORMAT_SAMPLES = 9;
-MCI_FORMAT_TMSF = 10;
-
-function MCI_MSF_MINUTE(msf: longint): byte;
-function MCI_MSF_SECOND(msf: longint): byte;
-function MCI_MSF_FRAME(msf: longint): byte;
-function MCI_MAKE_MSF(m, s, f: byte): longint;
-
-const
-MCI_SET_DOOR_OPEN = 256;
-MCI_SET_DOOR_CLOSED = 512;
-MCI_SET_TIME_FORMAT = $400;
-MCI_SET_AUDIO = $800;
-MCI_SET_VIDEO = $1000;
-MCI_SET_ON = $2000;
-MCI_SET_OFF = $4000;
-MCI_SET_AUDIO_ALL = 0;
-MCI_SET_AUDIO_LEFT = 1;
-MCI_SET_AUDIO_RIGHT = 2;
-
-function MCI_TMSF_TRACK(tmsf: longint): byte;
-function MCI_TMSF_MINUTE(tmsf: longint): byte;
-function MCI_TMSF_SECOND(tmsf: longint): byte;
-function MCI_TMSF_FRAME(tmsf: longint): byte;
-function MCI_HMS_HOUR(h: longint): byte;
-function MCI_HMS_MINUTE(h: longint): byte;
-function MCI_HMS_SECOND(h: longint): byte;
-function MCI_MAKE_HMS(h, m, s: byte): longint;
-
-const
-MCI_INFO_PRODUCT = 256;
-MCI_INFO_FILE = 512;
-MCI_INFO_MEDIA_UPC = $400;
-MCI_INFO_MEDIA_IDENTITY = $800;
-MCI_INFO_NAME = $1000;
-MCI_INFO_COPYRIGHT = $2000;
-
-function MCI_MAKE_TMSF(t, m, s, f: byte): longint;
-
-const
-MCI_WAIT = 2;
-MCI_FROM = 4;
-MCI_TO = 8;
-MCI_TRACK = 16;
-MCI_SEEK_TO_START = 256;
-MCI_SEEK_TO_END = 512;
-MCI_STATUS_ITEM = 256;
-MCI_STATUS_START = 512;
-MCI_STATUS_LENGTH = 1;
-MCI_STATUS_POSITION = 2;
-MCI_STATUS_NUMBER_OF_TRACKS = 3;
-MCI_STATUS_MODE = 4;
-MCI_STATUS_MEDIA_PRESENT = 5;
-MCI_STATUS_TIME_FORMAT = 6;
-MCI_STATUS_READY = 7;
-MCI_STATUS_CURRENT_TRACK = 8;
-MCI_OPEN_SHAREABLE = 256;
-MCI_OPEN_ELEMENT = 512;
-MCI_OPEN_ALIAS = $400;
-MCI_OPEN_ELEMENT_ID = $800;
-MCI_OPEN_TYPE_ID = $1000;
-MCI_OPEN_TYPE = $2000;
-MCI_GETDEVCAPS_ITEM = 256;
-MCI_GETDEVCAPS_CAN_RECORD = 1;
-MCI_GETDEVCAPS_HAS_AUDIO = 2;
-MCI_GETDEVCAPS_HAS_VIDEO = 3;
-MCI_GETDEVCAPS_DEVICE_TYPE = 4;
-MCI_GETDEVCAPS_USES_FILES = 5;
-MCI_GETDEVCAPS_COMPOUND_DEVICE = 6;
-MCI_GETDEVCAPS_CAN_EJECT = 7;
-MCI_GETDEVCAPS_CAN_PLAY = 8;
-MCI_GETDEVCAPS_CAN_SAVE = 9;
-MCI_SYSINFO_QUANTITY = 256;
-MCI_SYSINFO_OPEN = 512;
-MCI_SYSINFO_NAME = $400;
-MCI_SYSINFO_INSTALLNAME = $800;
-MCI_NOTIFY_SUCCESSFUL = 1;
-MCI_NOTIFY_SUPERSEDED = 2;
-MCI_NOTIFY_ABORTED = 4;
-MCI_NOTIFY_FAILURE = 8;
-MCI_NOTIFY = 1;
-MCI_BREAK_KEY = 256;
-MCI_BREAK_HWND = 512;
-MCI_BREAK_OFF = $400;
-MCI_RECORD_INSERT = 256;
-MCI_RECORD_OVERWRITE = 512;
-MCI_SAVE_FILE = 256;
-MCI_LOAD_FILE = 256;
-MCI_VD_GETDEVCAPS_FAST_RATE = $4003;
-MCI_VD_GETDEVCAPS_SLOW_RATE = $4004;
-MCI_VD_GETDEVCAPS_NORMAL_RATE = $4005;
-MCI_VD_STEP_FRAMES = $10000;
-MCI_VD_STEP_REVERSE = $20000;
-MCI_VD_ESCAPE_STRING = 256;
-MCI_VD_FORMAT_TRACK = $4001;
-MCI_VD_PLAY_REVERSE = $10000;
-MCI_VD_PLAY_FAST = $20000;
-MCI_VD_MODE_PARK = (MCI_VD_OFFSET+1);
-MCI_VD_GETDEVCAPS_CAV = $20000;
-MCI_VD_SPIN_UP = $10000;
-MCI_VD_SPIN_DOWN = $20000;
-MCI_VD_SEEK_REVERSE = $10000;
-MCI_VD_STATUS_SPEED = $4002;
-MCI_VD_STATUS_FORWARD = $4003;
-MCI_VD_STATUS_MEDIA_TYPE = $4004;
-MCI_VD_STATUS_SIDE = $4005;
-MCI_VD_GETDEVCAPS_CAN_REVERSE = $4002;
-MCI_VD_MEDIA_CLV = (MCI_VD_OFFSET+2);
-MCI_VD_MEDIA_CAV = (MCI_VD_OFFSET+3);
-MCI_VD_MEDIA_OTHER = (MCI_VD_OFFSET+4);
-MCI_VD_STATUS_DISC_SIZE = $4006;
-MCI_VD_GETDEVCAPS_CLV = $10000;
-MCI_VD_PLAY_SPEED = $40000;
-MCI_VD_PLAY_SCAN = $80000;
-MCI_VD_PLAY_SLOW = $100000;
-MCI_WAVE_STATUS_CHANNELS = $4002;
-MCI_WAVE_STATUS_SAMPLESPERSEC = $4003;
-MCI_WAVE_PCM = MCI_WAVE_OFFSET;
-MCI_WAVE_MAPPER = (MCI_WAVE_OFFSET+1);
-MCI_WAVE_OPEN_BUFFER = $10000;
-MCI_WAVE_STATUS_BITSPERSAMPLE = $4006;
-MCI_WAVE_STATUS_LEVEL = $4007;
-MCI_WAVE_SET_FORMATTAG = $10000;
-MCI_WAVE_SET_CHANNELS = $20000;
-MCI_WAVE_SET_SAMPLESPERSEC = $40000;
-MCI_WAVE_SET_AVGBYTESPERSEC = $80000;
-MCI_WAVE_SET_BLOCKALIGN = $100000;
-MCI_WAVE_SET_BITSPERSAMPLE = $200000;
-MCI_WAVE_INPUT = $400000;
-MCI_WAVE_OUTPUT = $800000;
-MCI_WAVE_STATUS_FORMATTAG = $4001;
-MCI_WAVE_SET_ANYINPUT = $4000000;
-MCI_WAVE_SET_ANYOUTPUT = $8000000;
-MCI_WAVE_GETDEVCAPS_INPUTS = $4001;
-MCI_WAVE_GETDEVCAPS_OUTPUTS = $4002;
-MCI_WAVE_STATUS_AVGBYTESPERSEC = $4004;
-MCI_WAVE_STATUS_BLOCKALIGN = $4005;
-MCI_CDA_STATUS_TYPE_TRACK = $4001;
-MCI_CDA_TRACK_AUDIO = (MCI_CD_OFFSET);
-MCI_CDA_TRACK_OTHER = (MCI_CD_OFFSET+1);
-MCI_SEQ_DIV_PPQN = (MCI_SEQ_OFFSET);
-MCI_SEQ_DIV_SMPTE_24 = (MCI_SEQ_OFFSET+1);
-MCI_SEQ_DIV_SMPTE_25 = (MCI_SEQ_OFFSET+2);
-MCI_SEQ_DIV_SMPTE_30DROP = (MCI_SEQ_OFFSET+3);
-MCI_SEQ_DIV_SMPTE_30 = (MCI_SEQ_OFFSET+4);
-MCI_SEQ_FORMAT_SONGPTR = $4001;
-MCI_SEQ_FILE = $4002;
-MCI_SEQ_MIDI = $4003;
-MCI_SEQ_SMPTE = $4004;
-MCI_SEQ_NONE = 65533;
-MCI_SEQ_MAPPER = 65535;
-MCI_SEQ_STATUS_TEMPO = $4002;
-MCI_SEQ_STATUS_PORT = $4003;
-MCI_SEQ_STATUS_SLAVE = $4007;
-MCI_SEQ_STATUS_MASTER = $4008;
-MCI_SEQ_STATUS_OFFSET = $4009;
-MCI_SEQ_STATUS_DIVTYPE = $400A;
-MCI_SEQ_STATUS_NAME = $400B;
-MCI_SEQ_STATUS_COPYRIGHT = $400C;
-MCI_SEQ_SET_TEMPO = $10000;
-MCI_SEQ_SET_PORT = $20000;
-MCI_SEQ_SET_SLAVE = $40000;
-MCI_SEQ_SET_MASTER = $80000;
-MCI_SEQ_SET_OFFSET = $1000000;
-MCI_ANIM_PLAY_SLOW = $80000;
-MCI_ANIM_PLAY_SCAN = $100000;
-MCI_ANIM_GETDEVCAPS_SLOW_RATE = $4003;
-MCI_ANIM_GETDEVCAPS_NORMAL_RATE = $4004;
-MCI_ANIM_STEP_REVERSE = $10000;
-MCI_ANIM_STEP_FRAMES = $20000;
-MCI_ANIM_STATUS_SPEED = $4001;
-MCI_ANIM_GETDEVCAPS_PALETTES = $4006;
-MCI_ANIM_OPEN_WS = $10000;
-MCI_ANIM_OPEN_PARENT = $20000;
-MCI_ANIM_OPEN_NOSTATIC = $40000;
-MCI_ANIM_GETDEVCAPS_FAST_RATE = $4002;
-MCI_ANIM_PLAY_SPEED = $10000;
-MCI_ANIM_PLAY_REVERSE = $20000;
-MCI_ANIM_PLAY_FAST = $40000;
-MCI_ANIM_STATUS_FORWARD = $4002;
-MCI_ANIM_STATUS_HWND = $4003;
-MCI_ANIM_STATUS_HPAL = $4004;
-MCI_ANIM_STATUS_STRETCH = $4005;
-MCI_ANIM_INFO_TEXT = $10000;
-MCI_ANIM_GETDEVCAPS_CAN_REVERSE = $4001;
-MCI_ANIM_WINDOW_TEXT = $80000;
-MCI_ANIM_WINDOW_ENABLE_STRETCH = $100000;
-MCI_ANIM_WINDOW_DISABLE_STRETCH = $200000;
-MCI_ANIM_WINDOW_DEFAULT = 0;
-MCI_ANIM_RECT = $10000;
-MCI_ANIM_PUT_SOURCE = $20000;
-MCI_ANIM_PUT_DESTINATION = $40000;
-MCI_ANIM_WHERE_SOURCE = $20000;
-MCI_ANIM_WHERE_DESTINATION = $40000;
-MCI_ANIM_UPDATE_HDC = $20000;
-MCI_ANIM_GETDEVCAPS_CAN_STRETCH = $4007;
-MCI_ANIM_GETDEVCAPS_MAX_WINDOWS = $4008;
-MCI_ANIM_REALIZE_NORM = $10000;
-MCI_ANIM_REALIZE_BKGD = $20000;
-MCI_ANIM_WINDOW_HWND = $10000;
-MCI_ANIM_WINDOW_STATE = $40000;
-TIMERR_NOERROR = 0;
-TIMERR_NOCANDO = (TIMERR_BASE+1);
-TIMERR_STRUCT = (TIMERR_BASE+33);
-TIME_ONESHOT = 0;
-TIME_PERIODIC = 1;
-TIME_CALLBACK_FUNCTION = 0;
-TIME_CALLBACK_EVENT_SET = 16;
-TIME_CALLBACK_EVENT_PULSE = 32;
-MCI_OVLY_OPEN_WS = $10000;
-MCI_OVLY_OPEN_PARENT = $20000;
-MCI_OVLY_STATUS_HWND = $4001;
-MCI_OVLY_STATUS_STRETCH = $4002;
-MCI_OVLY_INFO_TEXT = $10000;
-MCI_OVLY_GETDEVCAPS_CAN_STRETCH = $4001;
-MCI_OVLY_GETDEVCAPS_CAN_FREEZE = $4002;
-MCI_OVLY_GETDEVCAPS_MAX_WINDOWS = $4003;
-MCI_OVLY_WINDOW_HWND = $10000;
-MCI_OVLY_WINDOW_STATE = $40000;
-MCI_OVLY_WINDOW_TEXT = $80000;
-MCI_OVLY_WINDOW_ENABLE_STRETCH = $100000;
-MCI_OVLY_WINDOW_DISABLE_STRETCH = $200000;
-MCI_OVLY_WINDOW_DEFAULT = 0;
-MCI_OVLY_RECT = $10000;
-MCI_OVLY_PUT_SOURCE = $20000;
-MCI_OVLY_PUT_DESTINATION = $40000;
-MCI_OVLY_PUT_FRAME = $80000;
-MCI_OVLY_PUT_VIDEO = $100000;
-MCI_OVLY_WHERE_SOURCE = $20000;
-MCI_OVLY_WHERE_DESTINATION = $40000;
-MCI_OVLY_WHERE_FRAME = $80000;
-MCI_OVLY_WHERE_VIDEO = $100000;
-AUX_MAPPER = -1;
-MIXER_GETLINECONTROLSF_ONEBYID = 1;
-MIXER_GETLINECONTROLSF_ONEBYTYPE = 2;
-MIXER_GETLINECONTROLSF_ALL = 0;
-MIXER_GETLINECONTROLSF_QUERYMASK = $F;
-NEWTRANSPARENT = 3;
-QUERYROPSUPPORT = 40;
-SELECTDIB = 41;
-
-function DIBINDEX(n: longint): longint;
-
-const
-SC_SCREENSAVE = $F140;
-AUXCAPS_CDAUDIO = 1;
-AUXCAPS_AUXIN = 2;
-AUXCAPS_VOLUME = 1;
-AUXCAPS_LRVOLUME = 2;
+Type 
+    MMRESULT   = UINT;
+    MMVERSION  = UINT;
+    HWAVEOUT   = THandle;
+    LPHWAVEOUT = ^HWAVEOUT;
+    HWAVEIN    = THandle;
+    LPHWAVEIN  = ^HWAVEOUT;
+    HWAVE      = THandle;
+    LPHWAVE    = ^THandle;
+    LPUINT     = ^UINT;
+
+Const 
+    MAXPNAMELEN = 32;
+    MAXERRORLENGTH = 256;
+    MAX_JOYSTICKOEMVXDNAME = 260;
+    MM_MIDI_MAPPER = 1;
+    MM_WAVE_MAPPER = 2;
+    MM_SNDBLST_MIDIOUT = 3;
+    MM_SNDBLST_MIDIIN = 4;
+    MM_SNDBLST_SYNTH = 5;
+    MM_SNDBLST_WAVEOUT = 6;
+    MM_SNDBLST_WAVEIN = 7;
+    MM_ADLIB = 9;
+    MM_MPU401_MIDIOUT = 10;
+    MM_MPU401_MIDIIN = 11;
+    MM_PC_JOYSTICK = 12;
+    TIME_MS = 1;
+    TIME_SAMPLES = 2;
+    TIME_BYTES = 4;
+    TIME_SMPTE = 8;
+    TIME_MIDI = 16;
+    TIME_TICKS = 32;
+
+    MM_MCINOTIFY = $3B9;
+    MM_WOM_OPEN = $3BB;
+    MM_WOM_CLOSE = $3BC;
+    MM_WOM_DONE = $3BD;
+    MM_WIM_OPEN = $3BE;
+    MM_WIM_CLOSE = $3BF;
+    MM_WIM_DATA = $3C0;
+    MM_MIM_OPEN = $3C1;
+    MM_MIM_CLOSE = $3C2;
+    MM_MIM_DATA = $3C3;
+    MM_MIM_LONGDATA = $3C4;
+    MM_MIM_ERROR = $3C5;
+    MM_MIM_LONGERROR = $3C6;
+    MM_MOM_OPEN = $3C7;
+    MM_MOM_CLOSE = $3C8;
+    MM_MOM_DONE = $3C9;
+    MM_DRVM_OPEN = $3D0;
+    MM_DRVM_CLOSE = $3D1;
+    MM_DRVM_DATA = $3D2;
+    MM_DRVM_ERROR = $3D3;
+    MM_STREAM_OPEN = $3D4;
+    MM_STREAM_CLOSE = $3D5;
+    MM_STREAM_DONE = $3D6;
+    MM_STREAM_ERROR = $3D7;
+    MM_MOM_POSITIONCB = $3CA;
+    MM_MCISIGNAL = $3CB;
+    WAVE_INVALIDFORMAT = 0;
+    WAVE_FORMAT_1M08 = 1;
+    WAVE_FORMAT_1S08 = 2;
+    WAVE_FORMAT_1M16 = 4;
+    WAVE_FORMAT_1S16 = 8;
+    WAVE_FORMAT_2M08 = 16;
+    WAVE_FORMAT_2S08 = 32;
+    WAVE_FORMAT_2M16 = 64;
+    WAVE_FORMAT_2S16 = 128;
+    WAVE_FORMAT_4M08 = 256;
+    WAVE_FORMAT_4S08 = 512;
+    WAVE_FORMAT_4M16 = $400;
+    WAVE_FORMAT_4S16 = $800;
+    MM_MIM_MOREDATA = $3CC;
+    MM_MIXM_LINE_CHANGE = $3D0;
+    MM_MIXM_CONTROL_CHANGE = $3D1;
+    MMSYSERR_BASE = 0;
+    WAVERR_BASE = 32;
+    MIDIERR_BASE = 64;
+    TIMERR_BASE = 96;
+    JOYERR_BASE = 160;
+    MCIERR_BASE = 256;
+    MIXERR_BASE = 1024;
+    MCI_STRING_OFFSET = 512;
+    MCI_VD_OFFSET = 1024;
+    MCI_CD_OFFSET = 1088;
+    MCI_WAVE_OFFSET = 1152;
+    MCI_SEQ_OFFSET = 1216;
+    MMSYSERR_NOERROR = 0;
+    MMSYSERR_ERROR = (MMSYSERR_BASE+1);
+    MMSYSERR_BADDEVICEID = (MMSYSERR_BASE+2);
+    MMSYSERR_NOTENABLED = (MMSYSERR_BASE+3);
+    MMSYSERR_ALLOCATED = (MMSYSERR_BASE+4);
+    MMSYSERR_INVALHANDLE = (MMSYSERR_BASE+5);
+    MMSYSERR_NODRIVER = (MMSYSERR_BASE+6);
+    MMSYSERR_NOMEM = (MMSYSERR_BASE+7);
+    MMSYSERR_NOTSUPPORTED = (MMSYSERR_BASE+8);
+    MMSYSERR_BADERRNUM = (MMSYSERR_BASE+9);
+    MMSYSERR_INVALFLAG = (MMSYSERR_BASE+10);
+    MMSYSERR_INVALPARAM = (MMSYSERR_BASE+11);
+    MMSYSERR_HANDLEBUSY = (MMSYSERR_BASE+12);
+    MMSYSERR_INVALIDALIAS = (MMSYSERR_BASE+13);
+    MMSYSERR_BADDB = (MMSYSERR_BASE+14);
+    MMSYSERR_KEYNOTFOUND = (MMSYSERR_BASE+15);
+    MMSYSERR_READERROR = (MMSYSERR_BASE+16);
+    MMSYSERR_WRITEERROR = (MMSYSERR_BASE+17);
+    MMSYSERR_DELETEERROR = (MMSYSERR_BASE+18);
+    MMSYSERR_VALNOTFOUND = (MMSYSERR_BASE+19);
+    MMSYSERR_NODRIVERCB = (MMSYSERR_BASE+20);
+    MMSYSERR_LASTERROR = (MMSYSERR_BASE+20);
+    MM_JOY1MOVE = $3A0;
+    MM_JOY2MOVE = $3A1;
+    MM_JOY1ZMOVE = $3A2;
+    MM_JOY2ZMOVE = $3A3;
+    MM_JOY1BUTTONDOWN = $3B5;
+    MM_JOY2BUTTONDOWN = $3B6;
+    MM_JOY1BUTTONUP = $3B7;
+    MM_JOY2BUTTONUP = $3B8;
+    CALLBACK_TYPEMASK = $70000;
+    CALLBACK_NULL = 0;
+    CALLBACK_EVENT = $50000;
+    CALLBACK_WINDOW = $10000;
+    CALLBACK_TASK = $20000;
+    CALLBACK_THREAD = CALLBACK_TASK;
+    CALLBACK_FUNCTION = $30000;
+
+Type 
+  HDRVR = THandle;
+
+Const 
+    DRV_LOAD = 1;
+    DRV_ENABLE = 2;
+    DRV_OPEN = $3;
+    DRV_CLOSE = 4;
+    DRV_DISABLE = $5;
+    DRV_FREE = $6;
+    DRV_CONFIGURE = $7;
+    DRV_QUERYCONFIGURE = 8;
+    DRV_INSTALL = $9;
+    DRV_REMOVE = $A;
+    DRV_EXITSESSION = $B;
+    DRV_POWER = $F;
+    DRV_RESERVED = $800;
+    DRV_USER = $4000;
+    DRVCNF_CANCEL = 0;
+    DRVCNF_OK = 1;
+    DRVCNF_RESTART = 2;
+    DRV_CANCEL = DRVCNF_CANCEL;
+    DRV_OK = DRVCNF_OK;
+    DRV_RESTART = DRVCNF_RESTART;
+    DRV_MCI_FIRST = DRV_RESERVED;
+    DRV_MCI_LAST = (DRV_RESERVED+$FFF);
+
+Type 
+  PDRVCALLBACK = Procedure (hdrvr: tHandle; uMsg: UINT; dwUser, dw1, dw2: DWORD);  stdcall;
+
+Function sndPlaySoundA(Name: LPCSTR; flags: UINT): BOOL; stdcall; external 'winmm.dll' name 'sndPlaySoundA';
+
+Function sndPlaySoundW(Name: LPCWSTR; flags: UINT): BOOL;stdcall; external 'winmm.dll' name 'sndPlaySoundW';
+
+Function sndPlaySound(Name: PChar; flags: UINT): BOOL;stdcall; external 'winmm.dll' name
+ {$ifdef UNICODE}'sndPlaySoundW' {$else}'sndPlaySoundA'{$endif};
+
+Const 
+    SND_NODEFAULT = 2;
+    SND_MEMORY = 4;
+    SND_LOOP = 8;
+    SND_NOSTOP = 16;
+    SND_SYNC = 0;
+    SND_ASYNC = 1;
+    SND_PURGE = 64;
+    SND_APPLICATION = 128;
+    SND_ALIAS_START = 0;
+    SND_ALIAS_SYSTEMHAND = 18515;
+    SND_ALIAS_SYSTEMEXCLAMATION = 8531;
+    SND_ALIAS_SYSTEMASTERISK = 10835;
+    SND_ALIAS_SYSTEMQUESTION = 16211;
+    SND_ALIAS_SYSTEMDEFAULT = 17491;
+    SND_ALIAS_SYSTEMEXIT = 17747;
+    SND_ALIAS_SYSTEMSTART = 21331;
+    SND_ALIAS_SYSTEMWELCOME = 22355;
+    SND_NOWAIT = $2000;
+    SND_ALIAS = $10000;
+    SND_ALIAS_ID = $110000;
+    SND_FILENAME = $20000;
+    SND_RESOURCE = $40004;
+    WAVERR_BADFORMAT = (WAVERR_BASE+0);
+    WAVERR_STILLPLAYING = (WAVERR_BASE+1);
+    WAVERR_UNPREPARED = (WAVERR_BASE+2);
+    WAVERR_SYNC = (WAVERR_BASE+3);
+    WAVERR_LASTERROR = (WAVERR_BASE+3);
+    WOM_OPEN = MM_WOM_OPEN;
+    WOM_CLOSE = MM_WOM_CLOSE;
+    WOM_DONE = MM_WOM_DONE;
+    WIM_OPEN = MM_WIM_OPEN;
+    WIM_CLOSE = MM_WIM_CLOSE;
+    WIM_DATA = MM_WIM_DATA;
+    WAVE_MAPPER = UINT(-1);
+    WAVE_FORMAT_QUERY = 1;
+    WAVE_ALLOWSYNC = 2;
+    WAVE_MAPPED = 4;
+    WAVE_FORMAT_DIRECT = 8;
+    WAVE_FORMAT_DIRECT_QUERY = (WAVE_FORMAT_QUERY Or WAVE_FORMAT_DIRECT);
+    MIM_OPEN = MM_MIM_OPEN;
+    MIM_CLOSE = MM_MIM_CLOSE;
+    MIM_DATA = MM_MIM_DATA;
+    MIM_LONGDATA = MM_MIM_LONGDATA;
+    MIM_ERROR = MM_MIM_ERROR;
+    MIM_LONGERROR = MM_MIM_LONGERROR;
+    MOM_OPEN = MM_MOM_OPEN;
+    MOM_CLOSE = MM_MOM_CLOSE;
+    MOM_DONE = MM_MOM_DONE;
+    MIM_MOREDATA = MM_MIM_MOREDATA;
+    MOM_POSITIONCB = MM_MOM_POSITIONCB;
+    MIDIMAPPER = UINT(-1);
+    MIDI_MAPPER = UINT(-1);
+    MIDI_IO_STATUS = 32;
+    MIDI_CACHE_ALL = 1;
+    MIDI_CACHE_BESTFIT = 2;
+    MIDI_CACHE_QUERY = 3;
+    MIDI_UNCACHE = 4;
+    WHDR_DONE = 1;
+    WHDR_PREPARED = 2;
+    WHDR_BEGINLOOP = $4;
+    WHDR_ENDLOOP = $8;
+    WHDR_INQUEUE = $10;
+    MOD_MIDIPORT = 1;
+    MOD_SYNTH = 2;
+    MOD_SQSYNTH = 3;
+    MOD_FMSYNTH = 4;
+    MOD_MAPPER = 5;
+    MIDICAPS_VOLUME = 1;
+    MIDICAPS_LRVOLUME = 2;
+    MIDICAPS_CACHE = 4;
+    MIDICAPS_STREAM = 8;
+    MHDR_DONE = 1;
+    MHDR_PREPARED = 2;
+    MHDR_INQUEUE = $4;
+    MHDR_ISSTRM = $8;
+    MEVT_F_SHORT = 0;
+    MEVT_F_LONG = $80000000;
+    MEVT_F_CALLBACK = $40000000;
+
+Function MEVT_EVENTTYPE(x: byte): byte;inline;
+Function MEVT_EVENTPARM(x: DWORD): DWORD;inline;
+
+Const 
+    MEVT_SHORTMSG = 0;
+    MEVT_TEMPO = $1;
+    MEVT_NOP = $2;
+    MEVT_LONGMSG = $80;
+    MEVT_COMMENT = $82;
+    MEVT_VERSION = $84;
+    MIDISTRM_ERROR = -2;
+    MIDIPROP_SET = $80000000;
+    MIDIPROP_GET = $40000000;
+    MIDIPROP_TIMEDIV = 1;
+    MIDIPROP_TEMPO = 2;
+    MIXERLINE_LINEF_ACTIVE = 1;
+    MIXERLINE_LINEF_DISCONNECTED = $8000;
+    MIXERLINE_LINEF_SOURCE = $80000000;
+    MIXERLINE_COMPONENTTYPE_DST_FIRST = 0;
+    MIXERLINE_COMPONENTTYPE_DST_UNDEFINED = (MIXERLINE_COMPONENTTYPE_DST_FIRST);
+    MIXERLINE_COMPONENTTYPE_DST_DIGITAL = (MIXERLINE_COMPONENTTYPE_DST_FIRST+1);
+    MIXERLINE_COMPONENTTYPE_DST_LINE = (MIXERLINE_COMPONENTTYPE_DST_FIRST+2);
+    MIXERLINE_COMPONENTTYPE_DST_MONITOR = (MIXERLINE_COMPONENTTYPE_DST_FIRST+3);
+    MIXERLINE_COMPONENTTYPE_DST_SPEAKERS = (MIXERLINE_COMPONENTTYPE_DST_FIRST+4);
+    MIXERLINE_COMPONENTTYPE_DST_HEADPHONES = (MIXERLINE_COMPONENTTYPE_DST_FIRST+5);
+    MIXERLINE_COMPONENTTYPE_DST_TELEPHONE = (MIXERLINE_COMPONENTTYPE_DST_FIRST+6);
+    MIXERLINE_COMPONENTTYPE_DST_WAVEIN = (MIXERLINE_COMPONENTTYPE_DST_FIRST+7);
+    MIXERLINE_COMPONENTTYPE_DST_VOICEIN = (MIXERLINE_COMPONENTTYPE_DST_FIRST+8);
+    MIXERLINE_COMPONENTTYPE_DST_LAST = (MIXERLINE_COMPONENTTYPE_DST_FIRST+8);
+    MIXERLINE_COMPONENTTYPE_SRC_FIRST = $1000;
+    MIXERLINE_COMPONENTTYPE_SRC_UNDEFINED = (MIXERLINE_COMPONENTTYPE_SRC_FIRST+0);
+    MIXERLINE_COMPONENTTYPE_SRC_DIGITAL = (MIXERLINE_COMPONENTTYPE_SRC_FIRST+1);
+    MIXERLINE_COMPONENTTYPE_SRC_LINE = (MIXERLINE_COMPONENTTYPE_SRC_FIRST+2);
+    MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE = (MIXERLINE_COMPONENTTYPE_SRC_FIRST+3);
+    MIXERLINE_COMPONENTTYPE_SRC_SYNTHESIZER = (MIXERLINE_COMPONENTTYPE_SRC_FIRST+4);
+    MIXERLINE_COMPONENTTYPE_SRC_COMPACTDISC = (MIXERLINE_COMPONENTTYPE_SRC_FIRST+5);
+    MIXERLINE_COMPONENTTYPE_SRC_TELEPHONE = (MIXERLINE_COMPONENTTYPE_SRC_FIRST+6);
+    MIXERLINE_COMPONENTTYPE_SRC_PCSPEAKER = (MIXERLINE_COMPONENTTYPE_SRC_FIRST+7);
+    MIXERLINE_COMPONENTTYPE_SRC_WAVEOUT = (MIXERLINE_COMPONENTTYPE_SRC_FIRST+8);
+    MIXERLINE_COMPONENTTYPE_SRC_AUXILIARY = (MIXERLINE_COMPONENTTYPE_SRC_FIRST+9);
+    MIXERLINE_COMPONENTTYPE_SRC_ANALOG = (MIXERLINE_COMPONENTTYPE_SRC_FIRST+10);
+    MIXERLINE_COMPONENTTYPE_SRC_LAST = (MIXERLINE_COMPONENTTYPE_SRC_FIRST+10);
+    MIXERLINE_TARGETTYPE_UNDEFINED = 0;
+    MIXERLINE_TARGETTYPE_WAVEOUT = 1;
+    MIXERLINE_TARGETTYPE_WAVEIN = 2;
+    MIXERLINE_TARGETTYPE_MIDIOUT = 3;
+    MIXERLINE_TARGETTYPE_MIDIIN = 4;
+    MIXERLINE_TARGETTYPE_AUX = 5;
+    MIDIERR_UNPREPARED = (MIDIERR_BASE+0);
+    MIDIERR_STILLPLAYING = (MIDIERR_BASE+1);
+    MIDIERR_NOMAP = (MIDIERR_BASE+2);
+    MIDIERR_NOTREADY = (MIDIERR_BASE+3);
+    MIDIERR_NODEVICE = (MIDIERR_BASE+4);
+    MIDIERR_INVALIDSETUP = (MIDIERR_BASE+5);
+    MIDIERR_BADOPENMODE = (MIDIERR_BASE+6);
+    MIDIERR_DONT_CONTINUE = (MIDIERR_BASE+7);
+    MIDIERR_LASTERROR = (MIDIERR_BASE+7);
+    MIXERCONTROL_CONTROLF_UNIFORM = 1;
+    MIXERCONTROL_CONTROLF_MULTIPLE = 2;
+    MIXERCONTROL_CONTROLF_DISABLED = $80000000;
+    MIXERCONTROL_CT_CLASS_MASK = $F0000000;
+    MIXERCONTROL_CT_CLASS_CUSTOM = 0;
+    MIXERCONTROL_CT_CLASS_METER = $10000000;
+    MIXERCONTROL_CT_CLASS_SWITCH = $20000000;
+    MIXERCONTROL_CT_CLASS_NUMBER = $30000000;
+    MIXERCONTROL_CT_CLASS_SLIDER = $40000000;
+    MIXERCONTROL_CT_CLASS_FADER = $50000000;
+    MIXERCONTROL_CT_CLASS_TIME = $60000000;
+    MIXERCONTROL_CT_CLASS_LIST = $70000000;
+    MIXERCONTROL_CT_SUBCLASS_MASK = $0F000000;
+    MIXERCONTROL_CT_SC_SWITCH_BOOLEAN = 0;
+    MIXERCONTROL_CT_SC_SWITCH_BUTTON = $1000000;
+    MIXERCONTROL_CT_SC_METER_POLLED = 0;
+    MIXERCONTROL_CT_SC_TIME_MICROSECS = 0;
+    MIXERCONTROL_CT_SC_TIME_MILLISECS = $1000000;
+    MIXERCONTROL_CT_SC_LIST_SINGLE = 0;
+    MIXERCONTROL_CT_SC_LIST_MULTIPLE = $1000000;
+    MIXERCONTROL_CT_UNITS_MASK = $0FF0000;
+    MIXERCONTROL_CT_UNITS_CUSTOM = 0;
+    MIXERCONTROL_CT_UNITS_BOOLEAN = $10000;
+    MIXERCONTROL_CT_UNITS_SIGNED = $20000;
+    MIXERCONTROL_CT_UNITS_UNSIGNED = $30000;
+    MIXERCONTROL_CT_UNITS_DECIBELS = $40000;
+    MIXERCONTROL_CT_UNITS_PERCENT = $50000;
+    MIXERCONTROL_CONTROLTYPE_CUSTOM = (MIXERCONTROL_CT_CLASS_CUSTOM Or
+                                       MIXERCONTROL_CT_UNITS_CUSTOM);
+    MIXERCONTROL_CONTROLTYPE_BOOLEANMETER = (MIXERCONTROL_CT_CLASS_METER Or
+                                             MIXERCONTROL_CT_SC_METER_POLLED Or
+                                             MIXERCONTROL_CT_UNITS_BOOLEAN);
+    MIXERCONTROL_CONTROLTYPE_SIGNEDMETER = (MIXERCONTROL_CT_CLASS_METER Or
+                                            MIXERCONTROL_CT_SC_METER_POLLED Or
+                                            MIXERCONTROL_CT_UNITS_SIGNED);
+    MIXERCONTROL_CONTROLTYPE_PEAKMETER = (MIXERCONTROL_CONTROLTYPE_SIGNEDMETER+1);
+    MIXERCONTROL_CONTROLTYPE_UNSIGNEDMETER = (MIXERCONTROL_CT_CLASS_METER Or
+                                              MIXERCONTROL_CT_SC_METER_POLLED Or
+                                              MIXERCONTROL_CT_UNITS_UNSIGNED);
+    MIXERCONTROL_CONTROLTYPE_BOOLEAN = (MIXERCONTROL_CT_CLASS_SWITCH Or
+                                        MIXERCONTROL_CT_SC_SWITCH_BOOLEAN Or
+                                        MIXERCONTROL_CT_UNITS_BOOLEAN);
+    MIXERCONTROL_CONTROLTYPE_ONOFF = (MIXERCONTROL_CONTROLTYPE_BOOLEAN+1);
+    MIXERCONTROL_CONTROLTYPE_MUTE = (MIXERCONTROL_CONTROLTYPE_BOOLEAN+2);
+    MIXERCONTROL_CONTROLTYPE_MONO = (MIXERCONTROL_CONTROLTYPE_BOOLEAN+3);
+    MIXERCONTROL_CONTROLTYPE_LOUDNESS = (MIXERCONTROL_CONTROLTYPE_BOOLEAN+4);
+    MIXERCONTROL_CONTROLTYPE_STEREOENH = (MIXERCONTROL_CONTROLTYPE_BOOLEAN+5);
+    MIXERCONTROL_CONTROLTYPE_BUTTON = (MIXERCONTROL_CT_CLASS_SWITCH Or
+                                       MIXERCONTROL_CT_SC_SWITCH_BUTTON Or
+                                       MIXERCONTROL_CT_UNITS_BOOLEAN);
+    MIXERCONTROL_CONTROLTYPE_DECIBELS = (MIXERCONTROL_CT_CLASS_NUMBER Or
+                                         MIXERCONTROL_CT_UNITS_DECIBELS);
+    MIXERCONTROL_CONTROLTYPE_SIGNED = (MIXERCONTROL_CT_CLASS_NUMBER Or
+                                       MIXERCONTROL_CT_UNITS_SIGNED);
+    MIXERCONTROL_CONTROLTYPE_UNSIGNED = (MIXERCONTROL_CT_CLASS_NUMBER Or
+                                         MIXERCONTROL_CT_UNITS_UNSIGNED);
+    MIXERCONTROL_CONTROLTYPE_PERCENT = (MIXERCONTROL_CT_CLASS_NUMBER Or
+                                        MIXERCONTROL_CT_UNITS_PERCENT);
+    MIXERCONTROL_CONTROLTYPE_SLIDER = (MIXERCONTROL_CT_CLASS_SLIDER Or
+                                       MIXERCONTROL_CT_UNITS_SIGNED);
+    MIXERCONTROL_CONTROLTYPE_PAN = (MIXERCONTROL_CONTROLTYPE_SLIDER+1);
+    MIXERCONTROL_CONTROLTYPE_QSOUNDPAN = (MIXERCONTROL_CONTROLTYPE_SLIDER+2);
+    MIXERCONTROL_CONTROLTYPE_FADER = (MIXERCONTROL_CT_CLASS_FADER Or
+                                      MIXERCONTROL_CT_UNITS_UNSIGNED);
+    MIXERCONTROL_CONTROLTYPE_VOLUME = (MIXERCONTROL_CONTROLTYPE_FADER+1);
+    MIXERCONTROL_CONTROLTYPE_BASS = (MIXERCONTROL_CONTROLTYPE_FADER+2);
+    MIXERCONTROL_CONTROLTYPE_TREBLE = (MIXERCONTROL_CONTROLTYPE_FADER+3);
+    MIXERCONTROL_CONTROLTYPE_EQUALIZER = (MIXERCONTROL_CONTROLTYPE_FADER+4);
+    MIXERCONTROL_CONTROLTYPE_SINGLESELECT = (MIXERCONTROL_CT_CLASS_LIST Or
+                                             MIXERCONTROL_CT_SC_LIST_SINGLE Or
+                                             MIXERCONTROL_CT_UNITS_BOOLEAN);
+    MIXERCONTROL_CONTROLTYPE_MUX = (MIXERCONTROL_CONTROLTYPE_SINGLESELECT+1);
+    MIXERCONTROL_CONTROLTYPE_MULTIPLESELECT = (MIXERCONTROL_CT_CLASS_LIST Or
+                                               MIXERCONTROL_CT_SC_LIST_MULTIPLE Or
+                                               MIXERCONTROL_CT_UNITS_BOOLEAN);
+    MIXERCONTROL_CONTROLTYPE_MIXER = (MIXERCONTROL_CONTROLTYPE_MULTIPLESELECT+1);
+    MIXERCONTROL_CONTROLTYPE_MICROTIME = (MIXERCONTROL_CT_CLASS_TIME Or
+                                          MIXERCONTROL_CT_SC_TIME_MICROSECS Or
+                                          MIXERCONTROL_CT_UNITS_UNSIGNED);
+    MIXERCONTROL_CONTROLTYPE_MILLITIME = (MIXERCONTROL_CT_CLASS_TIME Or
+                                          MIXERCONTROL_CT_SC_TIME_MILLISECS Or
+                                          MIXERCONTROL_CT_UNITS_UNSIGNED);
+    MIXER_SHORT_NAME_CHARS = 16;
+    MIXER_LONG_NAME_CHARS = 64;
+    MIXERR_INVALLINE = (MIXERR_BASE+0);
+    MIXERR_INVALCONTROL = (MIXERR_BASE+1);
+    MIXERR_INVALVALUE = (MIXERR_BASE+2);
+    MIXERR_LASTERROR = (MIXERR_BASE+2);
+    MIXER_OBJECTF_HANDLE = $80000000;
+    MIXER_OBJECTF_MIXER = 0;
+    MIXER_OBJECTF_HMIXER = (MIXER_OBJECTF_HANDLE Or MIXER_OBJECTF_MIXER);
+    MIXER_OBJECTF_WAVEOUT = $10000000;
+    MIXER_OBJECTF_HWAVEOUT = (MIXER_OBJECTF_HANDLE Or MIXER_OBJECTF_WAVEOUT);
+    MIXER_OBJECTF_WAVEIN = $20000000;
+    MIXER_OBJECTF_HWAVEIN = (MIXER_OBJECTF_HANDLE Or MIXER_OBJECTF_WAVEIN);
+    MIXER_OBJECTF_MIDIOUT = $30000000;
+    MIXER_OBJECTF_HMIDIOUT = (MIXER_OBJECTF_HANDLE Or MIXER_OBJECTF_MIDIOUT);
+    MIXER_OBJECTF_MIDIIN = $40000000;
+    MIXER_OBJECTF_HMIDIIN = (MIXER_OBJECTF_HANDLE Or MIXER_OBJECTF_MIDIIN);
+    MIXER_OBJECTF_AUX = $50000000;
+    MIXER_GETCONTROLDETAILSF_VALUE = 0;
+    MIXER_GETCONTROLDETAILSF_LISTTEXT = 1;
+    MIXER_GETCONTROLDETAILSF_QUERYMASK = $F;
+    MIXER_SETCONTROLDETAILSF_VALUE = 0;
+    MIXER_SETCONTROLDETAILSF_CUSTOM = 1;
+    MIXER_SETCONTROLDETAILSF_QUERYMASK = $F;
+    JOYERR_NOERROR = (0);
+    JOYERR_PARMS = (JOYERR_BASE+5);
+    JOYERR_NOCANDO = (JOYERR_BASE+6);
+    JOYERR_UNPLUGGED = (JOYERR_BASE+7);
+    JOY_BUTTON1 = 1;
+    JOY_BUTTON2 = 2;
+    JOY_BUTTON3 = 4;
+    JOY_BUTTON4 = 8;
+    JOY_BUTTON1CHG = 256;
+    JOY_BUTTON2CHG = 512;
+    JOY_BUTTON3CHG = $400;
+    JOY_BUTTON4CHG = $800;
+    JOY_BUTTON5 = 16;
+    JOY_BUTTON6 = 32;
+    JOY_BUTTON7 = 64;
+    JOY_BUTTON8 = 128;
+    JOY_BUTTON9 = 256;
+    JOY_BUTTON10 = 512;
+    JOY_BUTTON11 = $400;
+    JOY_BUTTON12 = $800;
+    JOY_BUTTON13 = $1000;
+    JOY_BUTTON14 = $2000;
+    JOY_BUTTON15 = $4000;
+    JOY_BUTTON16 = $8000;
+    JOY_BUTTON17 = $10000;
+    JOY_BUTTON18 = $20000;
+    JOY_BUTTON19 = $40000;
+    JOY_BUTTON20 = $80000;
+    JOY_BUTTON21 = $100000;
+    JOY_BUTTON22 = $200000;
+    JOY_BUTTON23 = $400000;
+    JOY_BUTTON24 = $800000;
+    JOY_BUTTON25 = $1000000;
+    JOY_BUTTON26 = $2000000;
+    JOY_BUTTON27 = $4000000;
+    JOY_BUTTON28 = $8000000;
+    JOY_BUTTON29 = $10000000;
+    JOY_BUTTON30 = $20000000;
+    JOY_BUTTON31 = $40000000;
+    JOY_BUTTON32 = $80000000;
+    JOY_POVCENTERED = -1;
+    JOY_POVFORWARD = 0;
+    JOY_POVRIGHT = 9000;
+    JOY_POVBACKWARD = 18000;
+    JOY_POVLEFT = 27000;
+    JOY_RETURNX = 1;
+    JOY_RETURNY = 2;
+    JOY_RETURNZ = 4;
+    JOY_RETURNR = 8;
+    JOY_RETURNU = 16;
+    JOY_RETURNV = 32;
+    JOY_RETURNPOV = 64;
+    JOY_RETURNBUTTONS = 128;
+    JOY_RETURNRAWDATA = 256;
+    JOY_RETURNPOVCTS = 512;
+    JOY_RETURNCENTERED = $400;
+    JOY_USEDEADZONE = $800;
+    JOY_RETURNALL = (JOY_RETURNX Or JOY_RETURNY Or JOY_RETURNZ Or JOY_RETURNR Or
+                     JOY_RETURNU Or JOY_RETURNV Or JOY_RETURNPOV Or JOY_RETURNBUTTONS);
+    JOY_CAL_READALWAYS = $10000;
+    JOY_CAL_READXYONLY = $20000;
+    JOY_CAL_READ3 = $40000;
+    JOY_CAL_READ4 = $80000;
+    JOY_CAL_READXONLY = $100000;
+    JOY_CAL_READYONLY = $200000;
+    JOY_CAL_READ5 = $400000;
+    JOY_CAL_READ6 = $800000;
+    JOY_CAL_READZONLY = $1000000;
+    JOY_CAL_READRONLY = $2000000;
+    JOY_CAL_READUONLY = $4000000;
+    JOY_CAL_READVONLY = $8000000;
+    JOYSTICKID1 = 0;
+    JOYSTICKID2 = 1;
+    JOYCAPS_HASZ = 1;
+    JOYCAPS_HASR = 2;
+    JOYCAPS_HASU = 4;
+    JOYCAPS_HASV = 8;
+    JOYCAPS_HASPOV = 16;
+    JOYCAPS_POV4DIR = 32;
+    JOYCAPS_POVCTS = 64;
+    MMIOERR_BASE = 256;
+    MMIOERR_FILENOTFOUND = (MMIOERR_BASE+1);
+    MMIOERR_OUTOFMEMORY = (MMIOERR_BASE+2);
+    MMIOERR_CANNOTOPEN = (MMIOERR_BASE+3);
+    MMIOERR_CANNOTCLOSE = (MMIOERR_BASE+4);
+    MMIOERR_CANNOTREAD = (MMIOERR_BASE+5);
+    MMIOERR_CANNOTWRITE = (MMIOERR_BASE+6);
+    MMIOERR_CANNOTSEEK = (MMIOERR_BASE+7);
+    MMIOERR_CANNOTEXPAND = (MMIOERR_BASE+8);
+    MMIOERR_CHUNKNOTFOUND = (MMIOERR_BASE+9);
+    MMIOERR_UNBUFFERED = (MMIOERR_BASE+10);
+    MMIOERR_PATHNOTFOUND = (MMIOERR_BASE+11);
+    MMIOERR_ACCESSDENIED = (MMIOERR_BASE+12);
+    MMIOERR_SHARINGVIOLATION = (MMIOERR_BASE+13);
+    MMIOERR_NETWORKERROR = (MMIOERR_BASE+14);
+    MMIOERR_TOOMANYOPENFILES = (MMIOERR_BASE+15);
+    MMIOERR_INVALIDFILE = (MMIOERR_BASE+16);
+    CFSEPCHAR = '+';
+    WAVECAPS_PITCH = 1;
+    WAVECAPS_PLAYBACKRATE = 2;
+    WAVECAPS_VOLUME = 4;
+    WAVECAPS_LRVOLUME = 8;
+    WAVECAPS_SYNC = 16;
+    WAVECAPS_SAMPLEACCURATE = 32;
+    WAVECAPS_DIRECTSOUND = 64;
+    MIXER_GETLINEINFOF_DESTINATION = 0;
+    MIXER_GETLINEINFOF_SOURCE = 1;
+    MIXER_GETLINEINFOF_LINEID = 2;
+    MIXER_GETLINEINFOF_COMPONENTTYPE = 3;
+    MIXER_GETLINEINFOF_TARGETTYPE = 4;
+    MIXER_GETLINEINFOF_QUERYMASK = $F;
+    MMIO_RWMODE = 3;
+    MMIO_SHAREMODE = $70;
+    MMIO_CREATE = $1000;
+    MMIO_PARSE = 256;
+    MMIO_DELETE = 512;
+    MMIO_EXIST = $4000;
+    MMIO_ALLOCBUF = $10000;
+    MMIO_GETTEMP = $20000;
+    MMIO_DIRTY = $10000000;
+    MMIO_READ = 0;
+    MMIO_WRITE = 1;
+    MMIO_READWRITE = 2;
+    MMIO_COMPAT = 0;
+    MMIO_EXCLUSIVE = 16;
+    MMIO_DENYWRITE = 32;
+    MMIO_DENYREAD = $30;
+    MMIO_DENYNONE = 64;
+    MMIO_FHOPEN = 16;
+    MMIO_EMPTYBUF = 16;
+    MMIO_TOUPPER = 16;
+    MMIO_INSTALLPROC = $10000;
+    MMIO_GLOBALPROC = $10000000;
+    MMIO_REMOVEPROC = $20000;
+    MMIO_UNICODEPROC = $1000000;
+    MMIO_FINDPROC = $40000;
+    MMIO_FINDCHUNK = 16;
+    MMIO_FINDRIFF = 32;
+    MMIO_FINDLIST = 64;
+    MMIO_CREATERIFF = 32;
+    MMIO_CREATELIST = 64;
+    MMIOM_READ = MMIO_READ;
+    MMIOM_WRITE = MMIO_WRITE;
+    MMIOM_SEEK = 2;
+    MMIOM_OPEN = 3;
+    MMIOM_CLOSE = 4;
+    MMIOM_WRITEFLUSH = 5;
+    MMIOM_RENAME = 6;
+    MMIOM_USER = $8000;
+    FOURCC_RIFF = $46464952; {'R','I','F','F'}
+    FOURCC_LIST = $5453494C; {'L','I','S','T'}
+    FOURCC_DOS  = $20532F44; {'D','O','S',' '}
+    FOURCC_MEM  = $204D454D; {'M','E','M',' '}
+    SEEK_SET = 0;
+    SEEK_CUR = 1;
+    SEEK_END = 2;
+    MMIO_DEFAULTBUFFER = 8192;
+    MCIERR_INVALID_DEVICE_ID = (MCIERR_BASE+1);
+    MCIERR_UNRECOGNIZED_KEYWORD = (MCIERR_BASE+3);
+    MCIERR_UNRECOGNIZED_COMMAND = (MCIERR_BASE+5);
+    MCIERR_HARDWARE = (MCIERR_BASE+6);
+    MCIERR_INVALID_DEVICE_NAME = (MCIERR_BASE+7);
+    MCIERR_OUT_OF_MEMORY = (MCIERR_BASE+8);
+    MCIERR_DEVICE_OPEN = (MCIERR_BASE+9);
+    MCIERR_CANNOT_LOAD_DRIVER = (MCIERR_BASE+10);
+    MCIERR_MISSING_COMMAND_STRING = (MCIERR_BASE+11);
+    MCIERR_PARAM_OVERFLOW = (MCIERR_BASE+12);
+    MCIERR_MISSING_STRING_ARGUMENT = (MCIERR_BASE+13);
+    MCIERR_BAD_INTEGER = (MCIERR_BASE+14);
+    MCIERR_PARSER_INTERNAL = (MCIERR_BASE+15);
+    MCIERR_DRIVER_INTERNAL = (MCIERR_BASE+16);
+    MCIERR_MISSING_PARAMETER = (MCIERR_BASE+17);
+    MCIERR_UNSUPPORTED_FUNCTION = (MCIERR_BASE+18);
+    MCIERR_FILE_NOT_FOUND = (MCIERR_BASE+19);
+    MCIERR_DEVICE_NOT_READY = (MCIERR_BASE+20);
+    MCIERR_INTERNAL = (MCIERR_BASE+21);
+    MCIERR_DRIVER = (MCIERR_BASE+22);
+    MCIERR_CANNOT_USE_ALL = (MCIERR_BASE+23);
+    MCIERR_MULTIPLE = (MCIERR_BASE+24);
+    MCIERR_EXTENSION_NOT_FOUND = (MCIERR_BASE+25);
+    MCIERR_OUTOFRANGE = (MCIERR_BASE+26);
+    MCIERR_FLAGS_NOT_COMPATIBLE = (MCIERR_BASE+28);
+    MCIERR_FILE_NOT_SAVED = (MCIERR_BASE+30);
+    MCIERR_DEVICE_TYPE_REQUIRED = (MCIERR_BASE+31);
+    MCIERR_DEVICE_LOCKED = (MCIERR_BASE+32);
+    MCIERR_DUPLICATE_ALIAS = (MCIERR_BASE+33);
+    MCIERR_BAD_CONSTANT = (MCIERR_BASE+34);
+    MCIERR_MUST_USE_SHAREABLE = (MCIERR_BASE+35);
+    MCIERR_MISSING_DEVICE_NAME = (MCIERR_BASE+36);
+    MCIERR_BAD_TIME_FORMAT = (MCIERR_BASE+37);
+    MCIERR_NO_CLOSING_QUOTE = (MCIERR_BASE+38);
+    MCIERR_DUPLICATE_FLAGS = (MCIERR_BASE+39);
+    MCIERR_INVALID_FILE = (MCIERR_BASE+40);
+    MCIERR_NULL_PARAMETER_BLOCK = (MCIERR_BASE+41);
+    MCIERR_UNNAMED_RESOURCE = (MCIERR_BASE+42);
+    MCIERR_NEW_REQUIRES_ALIAS = (MCIERR_BASE+43);
+    MCIERR_NOTIFY_ON_AUTO_OPEN = (MCIERR_BASE+44);
+    MCIERR_NO_ELEMENT_ALLOWED = (MCIERR_BASE+45);
+    MCIERR_NONAPPLICABLE_FUNCTION = (MCIERR_BASE+46);
+    MCIERR_ILLEGAL_FOR_AUTO_OPEN = (MCIERR_BASE+47);
+    MCIERR_FILENAME_REQUIRED = (MCIERR_BASE+48);
+    MCIERR_EXTRA_CHARACTERS = (MCIERR_BASE+49);
+    MCIERR_DEVICE_NOT_INSTALLED = (MCIERR_BASE+50);
+    MCIERR_GET_CD = (MCIERR_BASE+51);
+    MCIERR_SET_CD = (MCIERR_BASE+52);
+    MCIERR_SET_DRIVE = (MCIERR_BASE+53);
+    MCIERR_DEVICE_LENGTH = (MCIERR_BASE+54);
+    MCIERR_DEVICE_ORD_LENGTH = (MCIERR_BASE+55);
+    MCIERR_NO_INTEGER = (MCIERR_BASE+56);
+    MCIERR_WAVE_OUTPUTSINUSE = (MCIERR_BASE+64);
+    MCIERR_WAVE_SETOUTPUTINUSE = (MCIERR_BASE+65);
+    MCIERR_WAVE_INPUTSINUSE = (MCIERR_BASE+66);
+    MCIERR_WAVE_SETINPUTINUSE = (MCIERR_BASE+67);
+    MCIERR_WAVE_OUTPUTUNSPECIFIED = (MCIERR_BASE+68);
+    MCIERR_WAVE_INPUTUNSPECIFIED = (MCIERR_BASE+69);
+    MCIERR_WAVE_OUTPUTSUNSUITABLE = (MCIERR_BASE+70);
+    MCIERR_WAVE_SETOUTPUTUNSUITABLE = (MCIERR_BASE+71);
+    MCIERR_WAVE_INPUTSUNSUITABLE = (MCIERR_BASE+72);
+    MCIERR_WAVE_SETINPUTUNSUITABLE = (MCIERR_BASE+73);
+    MCIERR_SEQ_DIV_INCOMPATIBLE = (MCIERR_BASE+80);
+    MCIERR_SEQ_PORT_INUSE = (MCIERR_BASE+81);
+    MCIERR_SEQ_PORT_NONEXISTENT = (MCIERR_BASE+82);
+    MCIERR_SEQ_PORT_MAPNODEVICE = (MCIERR_BASE+83);
+    MCIERR_SEQ_PORT_MISCERROR = (MCIERR_BASE+84);
+    MCIERR_SEQ_TIMER = (MCIERR_BASE+85);
+    MCIERR_SEQ_PORTUNSPECIFIED = (MCIERR_BASE+86);
+    MCIERR_SEQ_NOMIDIPRESENT = (MCIERR_BASE+87);
+    MCIERR_NO_WINDOW = (MCIERR_BASE+90);
+    MCIERR_CREATEWINDOW = (MCIERR_BASE+91);
+    MCIERR_FILE_READ = (MCIERR_BASE+92);
+    MCIERR_FILE_WRITE = (MCIERR_BASE+93);
+    MCIERR_NO_IDENTITY = (MCIERR_BASE+94);
+    MCIERR_CUSTOM_DRIVER_BASE = (MCIERR_BASE+256);
+    MCI_FIRST = DRV_MCI_FIRST;
+    MCI_ESCAPE = $805;
+    MCI_PLAY = $806;
+    MCI_SEEK = $807;
+    MCI_STOP = $808;
+    MCI_PAUSE = $809;
+    MCI_INFO = $80A;
+    MCI_GETDEVCAPS = $80B;
+    MCI_BREAK = $811;
+    MCI_WHERE = $843;
+    MCI_FREEZE = $844;
+    MCI_UNFREEZE = $845;
+    MCI_LOAD = $850;
+    MCI_CUT = $851;
+    MCI_COPY = $852;
+    MCI_PASTE = $853;
+    MCI_UPDATE = $854;
+    MCI_RESUME = $855;
+    MCI_DELETE = $856;
+    MCI_SET = $80D;
+    MCI_STEP = $80E;
+    MCI_SAVE = $813;
+    MCI_SPIN = $80C;
+    MCI_STATUS = $814;
+    MCI_CUE = $830;
+    MCI_REALIZE = $840;
+    MCI_WINDOW = $841;
+    MCI_PUT = $842;
+    MCI_RECORD = $80F;
+    MCI_SYSINFO = $810;
+    MCI_OPEN = $803;
+    MCI_CLOSE = $804;
+    MCI_USER_MESSAGES = (DRV_MCI_FIRST+$400);
+    MCI_LAST = $0FFF;
+    MCI_ALL_DEVICE_ID = -1;
+    MCI_DEVTYPE_VCR = 513;
+    MCI_DEVTYPE_VIDEODISC = 514;
+    MCI_DEVTYPE_OVERLAY = 515;
+    MCI_DEVTYPE_CD_AUDIO = 516;
+    MCI_DEVTYPE_DAT = 517;
+    MCI_DEVTYPE_SCANNER = 518;
+    MCI_DEVTYPE_ANIMATION = 519;
+    MCI_DEVTYPE_DIGITAL_VIDEO = 520;
+    MCI_DEVTYPE_OTHER = 521;
+    MCI_DEVTYPE_WAVEFORM_AUDIO = 522;
+    MCI_DEVTYPE_SEQUENCER = 523;
+    MCI_DEVTYPE_FIRST = MCI_DEVTYPE_VCR;
+    MCI_DEVTYPE_LAST = MCI_DEVTYPE_SEQUENCER;
+    MCI_DEVTYPE_FIRST_USER = $1000;
+    MCI_MODE_NOT_READY = (MCI_STRING_OFFSET+12);
+    MCI_MODE_STOP = (MCI_STRING_OFFSET+13);
+    MCI_MODE_PLAY = (MCI_STRING_OFFSET+14);
+    MCI_MODE_RECORD = (MCI_STRING_OFFSET+15);
+    MCI_MODE_SEEK = (MCI_STRING_OFFSET+16);
+    MCI_MODE_PAUSE = (MCI_STRING_OFFSET+17);
+    MCI_MODE_OPEN = (MCI_STRING_OFFSET+18);
+    MCI_FORMAT_MILLISECONDS = 0;
+    MCI_FORMAT_HMS = 1;
+    MCI_FORMAT_MSF = 2;
+    MCI_FORMAT_FRAMES = 3;
+    MCI_FORMAT_SMPTE_24 = 4;
+    MCI_FORMAT_SMPTE_25 = 5;
+    MCI_FORMAT_SMPTE_30 = 6;
+    MCI_FORMAT_SMPTE_30DROP = 7;
+    MCI_FORMAT_BYTES = 8;
+    MCI_FORMAT_SAMPLES = 9;
+    MCI_FORMAT_TMSF = 10;
+
+Function MCI_MSF_MINUTE(msf: longint): byte;inline;
+Function MCI_MSF_SECOND(msf: longint): byte;inline;
+Function MCI_MSF_FRAME(msf: longint): byte;inline;
+Function MCI_MAKE_MSF(m, s, f: byte): longint;inline;
+
+Const 
+    MCI_SET_DOOR_OPEN = 256;
+    MCI_SET_DOOR_CLOSED = 512;
+    MCI_SET_TIME_FORMAT = $400;
+    MCI_SET_AUDIO = $800;
+    MCI_SET_VIDEO = $1000;
+    MCI_SET_ON = $2000;
+    MCI_SET_OFF = $4000;
+    MCI_SET_AUDIO_ALL = 0;
+    MCI_SET_AUDIO_LEFT = 1;
+    MCI_SET_AUDIO_RIGHT = 2;
+
+Function MCI_TMSF_TRACK(tmsf: longint): byte;inline;
+Function MCI_TMSF_MINUTE(tmsf: longint): byte;inline;
+Function MCI_TMSF_SECOND(tmsf: longint): byte;inline;
+Function MCI_TMSF_FRAME(tmsf: longint): byte;inline;
+Function MCI_HMS_HOUR(h: longint): byte;inline;
+Function MCI_HMS_MINUTE(h: longint): byte;inline;
+Function MCI_HMS_SECOND(h: longint): byte;inline;
+Function MCI_MAKE_HMS(h, m, s: byte): longint;inline;
+
+Const 
+    MCI_INFO_PRODUCT = 256;
+    MCI_INFO_FILE = 512;
+    MCI_INFO_MEDIA_UPC = $400;
+    MCI_INFO_MEDIA_IDENTITY = $800;
+    MCI_INFO_NAME = $1000;
+    MCI_INFO_COPYRIGHT = $2000;
+
+Function MCI_MAKE_TMSF(t, m, s, f: byte): longint;inline;
+
+Const 
+    MCI_WAIT = 2;
+    MCI_FROM = 4;
+    MCI_TO = 8;
+    MCI_TRACK = 16;
+    MCI_SEEK_TO_START = 256;
+    MCI_SEEK_TO_END = 512;
+    MCI_STATUS_ITEM = 256;
+    MCI_STATUS_START = 512;
+    MCI_STATUS_LENGTH = 1;
+    MCI_STATUS_POSITION = 2;
+    MCI_STATUS_NUMBER_OF_TRACKS = 3;
+    MCI_STATUS_MODE = 4;
+    MCI_STATUS_MEDIA_PRESENT = 5;
+    MCI_STATUS_TIME_FORMAT = 6;
+    MCI_STATUS_READY = 7;
+    MCI_STATUS_CURRENT_TRACK = 8;
+    MCI_OPEN_SHAREABLE = 256;
+    MCI_OPEN_ELEMENT = 512;
+    MCI_OPEN_ALIAS = $400;
+    MCI_OPEN_ELEMENT_ID = $800;
+    MCI_OPEN_TYPE_ID = $1000;
+    MCI_OPEN_TYPE = $2000;
+    MCI_GETDEVCAPS_ITEM = 256;
+    MCI_GETDEVCAPS_CAN_RECORD = 1;
+    MCI_GETDEVCAPS_HAS_AUDIO = 2;
+    MCI_GETDEVCAPS_HAS_VIDEO = 3;
+    MCI_GETDEVCAPS_DEVICE_TYPE = 4;
+    MCI_GETDEVCAPS_USES_FILES = 5;
+    MCI_GETDEVCAPS_COMPOUND_DEVICE = 6;
+    MCI_GETDEVCAPS_CAN_EJECT = 7;
+    MCI_GETDEVCAPS_CAN_PLAY = 8;
+    MCI_GETDEVCAPS_CAN_SAVE = 9;
+    MCI_SYSINFO_QUANTITY = 256;
+    MCI_SYSINFO_OPEN = 512;
+    MCI_SYSINFO_NAME = $400;
+    MCI_SYSINFO_INSTALLNAME = $800;
+    MCI_NOTIFY_SUCCESSFUL = 1;
+    MCI_NOTIFY_SUPERSEDED = 2;
+    MCI_NOTIFY_ABORTED = 4;
+    MCI_NOTIFY_FAILURE = 8;
+    MCI_NOTIFY = 1;
+    MCI_BREAK_KEY = 256;
+    MCI_BREAK_HWND = 512;
+    MCI_BREAK_OFF = $400;
+    MCI_RECORD_INSERT = 256;
+    MCI_RECORD_OVERWRITE = 512;
+    MCI_SAVE_FILE = 256;
+    MCI_LOAD_FILE = 256;
+    MCI_VD_GETDEVCAPS_FAST_RATE = $4003;
+    MCI_VD_GETDEVCAPS_SLOW_RATE = $4004;
+    MCI_VD_GETDEVCAPS_NORMAL_RATE = $4005;
+    MCI_VD_STEP_FRAMES = $10000;
+    MCI_VD_STEP_REVERSE = $20000;
+    MCI_VD_ESCAPE_STRING = 256;
+    MCI_VD_FORMAT_TRACK = $4001;
+    MCI_VD_PLAY_REVERSE = $10000;
+    MCI_VD_PLAY_FAST = $20000;
+    MCI_VD_MODE_PARK = (MCI_VD_OFFSET+1);
+    MCI_VD_GETDEVCAPS_CAV = $20000;
+    MCI_VD_SPIN_UP = $10000;
+    MCI_VD_SPIN_DOWN = $20000;
+    MCI_VD_SEEK_REVERSE = $10000;
+    MCI_VD_STATUS_SPEED = $4002;
+    MCI_VD_STATUS_FORWARD = $4003;
+    MCI_VD_STATUS_MEDIA_TYPE = $4004;
+    MCI_VD_STATUS_SIDE = $4005;
+    MCI_VD_GETDEVCAPS_CAN_REVERSE = $4002;
+    MCI_VD_MEDIA_CLV = (MCI_VD_OFFSET+2);
+    MCI_VD_MEDIA_CAV = (MCI_VD_OFFSET+3);
+    MCI_VD_MEDIA_OTHER = (MCI_VD_OFFSET+4);
+    MCI_VD_STATUS_DISC_SIZE = $4006;
+    MCI_VD_GETDEVCAPS_CLV = $10000;
+    MCI_VD_PLAY_SPEED = $40000;
+    MCI_VD_PLAY_SCAN = $80000;
+    MCI_VD_PLAY_SLOW = $100000;
+    MCI_WAVE_STATUS_CHANNELS = $4002;
+    MCI_WAVE_STATUS_SAMPLESPERSEC = $4003;
+    MCI_WAVE_PCM = MCI_WAVE_OFFSET;
+    MCI_WAVE_MAPPER = (MCI_WAVE_OFFSET+1);
+    MCI_WAVE_OPEN_BUFFER = $10000;
+    MCI_WAVE_STATUS_BITSPERSAMPLE = $4006;
+    MCI_WAVE_STATUS_LEVEL = $4007;
+    MCI_WAVE_SET_FORMATTAG = $10000;
+    MCI_WAVE_SET_CHANNELS = $20000;
+    MCI_WAVE_SET_SAMPLESPERSEC = $40000;
+    MCI_WAVE_SET_AVGBYTESPERSEC = $80000;
+    MCI_WAVE_SET_BLOCKALIGN = $100000;
+    MCI_WAVE_SET_BITSPERSAMPLE = $200000;
+    MCI_WAVE_INPUT = $400000;
+    MCI_WAVE_OUTPUT = $800000;
+    MCI_WAVE_STATUS_FORMATTAG = $4001;
+    MCI_WAVE_SET_ANYINPUT = $4000000;
+    MCI_WAVE_SET_ANYOUTPUT = $8000000;
+    MCI_WAVE_GETDEVCAPS_INPUTS = $4001;
+    MCI_WAVE_GETDEVCAPS_OUTPUTS = $4002;
+    MCI_WAVE_STATUS_AVGBYTESPERSEC = $4004;
+    MCI_WAVE_STATUS_BLOCKALIGN = $4005;
+    MCI_CDA_STATUS_TYPE_TRACK = $4001;
+    MCI_CDA_TRACK_AUDIO = (MCI_CD_OFFSET);
+    MCI_CDA_TRACK_OTHER = (MCI_CD_OFFSET+1);
+    MCI_SEQ_DIV_PPQN = (MCI_SEQ_OFFSET);
+    MCI_SEQ_DIV_SMPTE_24 = (MCI_SEQ_OFFSET+1);
+    MCI_SEQ_DIV_SMPTE_25 = (MCI_SEQ_OFFSET+2);
+    MCI_SEQ_DIV_SMPTE_30DROP = (MCI_SEQ_OFFSET+3);
+    MCI_SEQ_DIV_SMPTE_30 = (MCI_SEQ_OFFSET+4);
+    MCI_SEQ_FORMAT_SONGPTR = $4001;
+    MCI_SEQ_FILE = $4002;
+    MCI_SEQ_MIDI = $4003;
+    MCI_SEQ_SMPTE = $4004;
+    MCI_SEQ_NONE = 65533;
+    MCI_SEQ_MAPPER = 65535;
+    MCI_SEQ_STATUS_TEMPO = $4002;
+    MCI_SEQ_STATUS_PORT = $4003;
+    MCI_SEQ_STATUS_SLAVE = $4007;
+    MCI_SEQ_STATUS_MASTER = $4008;
+    MCI_SEQ_STATUS_OFFSET = $4009;
+    MCI_SEQ_STATUS_DIVTYPE = $400A;
+    MCI_SEQ_STATUS_NAME = $400B;
+    MCI_SEQ_STATUS_COPYRIGHT = $400C;
+    MCI_SEQ_SET_TEMPO = $10000;
+    MCI_SEQ_SET_PORT = $20000;
+    MCI_SEQ_SET_SLAVE = $40000;
+    MCI_SEQ_SET_MASTER = $80000;
+    MCI_SEQ_SET_OFFSET = $1000000;
+    MCI_ANIM_PLAY_SLOW = $80000;
+    MCI_ANIM_PLAY_SCAN = $100000;
+    MCI_ANIM_GETDEVCAPS_SLOW_RATE = $4003;
+    MCI_ANIM_GETDEVCAPS_NORMAL_RATE = $4004;
+    MCI_ANIM_STEP_REVERSE = $10000;
+    MCI_ANIM_STEP_FRAMES = $20000;
+    MCI_ANIM_STATUS_SPEED = $4001;
+    MCI_ANIM_GETDEVCAPS_PALETTES = $4006;
+    MCI_ANIM_OPEN_WS = $10000;
+    MCI_ANIM_OPEN_PARENT = $20000;
+    MCI_ANIM_OPEN_NOSTATIC = $40000;
+    MCI_ANIM_GETDEVCAPS_FAST_RATE = $4002;
+    MCI_ANIM_PLAY_SPEED = $10000;
+    MCI_ANIM_PLAY_REVERSE = $20000;
+    MCI_ANIM_PLAY_FAST = $40000;
+    MCI_ANIM_STATUS_FORWARD = $4002;
+    MCI_ANIM_STATUS_HWND = $4003;
+    MCI_ANIM_STATUS_HPAL = $4004;
+    MCI_ANIM_STATUS_STRETCH = $4005;
+    MCI_ANIM_INFO_TEXT = $10000;
+    MCI_ANIM_GETDEVCAPS_CAN_REVERSE = $4001;
+    MCI_ANIM_WINDOW_TEXT = $80000;
+    MCI_ANIM_WINDOW_ENABLE_STRETCH = $100000;
+    MCI_ANIM_WINDOW_DISABLE_STRETCH = $200000;
+    MCI_ANIM_WINDOW_DEFAULT = 0;
+    MCI_ANIM_RECT = $10000;
+    MCI_ANIM_PUT_SOURCE = $20000;
+    MCI_ANIM_PUT_DESTINATION = $40000;
+    MCI_ANIM_WHERE_SOURCE = $20000;
+    MCI_ANIM_WHERE_DESTINATION = $40000;
+    MCI_ANIM_UPDATE_HDC = $20000;
+    MCI_ANIM_GETDEVCAPS_CAN_STRETCH = $4007;
+    MCI_ANIM_GETDEVCAPS_MAX_WINDOWS = $4008;
+    MCI_ANIM_REALIZE_NORM = $10000;
+    MCI_ANIM_REALIZE_BKGD = $20000;
+    MCI_ANIM_WINDOW_HWND = $10000;
+    MCI_ANIM_WINDOW_STATE = $40000;
+    TIMERR_NOERROR = 0;
+    TIMERR_NOCANDO = (TIMERR_BASE+1);
+    TIMERR_STRUCT = (TIMERR_BASE+33);
+    TIME_ONESHOT = 0;
+    TIME_PERIODIC = 1;
+    TIME_CALLBACK_FUNCTION = 0;
+    TIME_CALLBACK_EVENT_SET = 16;
+    TIME_CALLBACK_EVENT_PULSE = 32;
+    MCI_OVLY_OPEN_WS = $10000;
+    MCI_OVLY_OPEN_PARENT = $20000;
+    MCI_OVLY_STATUS_HWND = $4001;
+    MCI_OVLY_STATUS_STRETCH = $4002;
+    MCI_OVLY_INFO_TEXT = $10000;
+    MCI_OVLY_GETDEVCAPS_CAN_STRETCH = $4001;
+    MCI_OVLY_GETDEVCAPS_CAN_FREEZE = $4002;
+    MCI_OVLY_GETDEVCAPS_MAX_WINDOWS = $4003;
+    MCI_OVLY_WINDOW_HWND = $10000;
+    MCI_OVLY_WINDOW_STATE = $40000;
+    MCI_OVLY_WINDOW_TEXT = $80000;
+    MCI_OVLY_WINDOW_ENABLE_STRETCH = $100000;
+    MCI_OVLY_WINDOW_DISABLE_STRETCH = $200000;
+    MCI_OVLY_WINDOW_DEFAULT = 0;
+    MCI_OVLY_RECT = $10000;
+    MCI_OVLY_PUT_SOURCE = $20000;
+    MCI_OVLY_PUT_DESTINATION = $40000;
+    MCI_OVLY_PUT_FRAME = $80000;
+    MCI_OVLY_PUT_VIDEO = $100000;
+    MCI_OVLY_WHERE_SOURCE = $20000;
+    MCI_OVLY_WHERE_DESTINATION = $40000;
+    MCI_OVLY_WHERE_FRAME = $80000;
+    MCI_OVLY_WHERE_VIDEO = $100000;
+    AUX_MAPPER = -1;
+    MIXER_GETLINECONTROLSF_ONEBYID = 1;
+    MIXER_GETLINECONTROLSF_ONEBYTYPE = 2;
+    MIXER_GETLINECONTROLSF_ALL = 0;
+    MIXER_GETLINECONTROLSF_QUERYMASK = $F;
+    NEWTRANSPARENT = 3;
+    QUERYROPSUPPORT = 40;
+    SELECTDIB = 41;
+Function DIBINDEX(n: longint): longint;inline;
+
+Const 
+    SC_SCREENSAVE = $F140;
+    AUXCAPS_CDAUDIO = 1;
+    AUXCAPS_AUXIN = 2;
+    AUXCAPS_VOLUME = 1;
+    AUXCAPS_LRVOLUME = 2;
 
 (*/////////////////////////////////////////////////////////*)
 (* Structures and typedefs*)
 (*/////////////////////////////////////////////////////////*)
-type
-_mmtime = packed record
- wType: UINT;
- case integer of
- 0:(ms: DWORD);
- 1:(sample: DWORD);
- 2:(cb: DWORD);
- 3:(ticks: DWORD);
- 4:(smpte: packed record
-    hour, min, sec, frame, fps, dummy: byte;
-    pad: array[0..1] of byte
-    end);
- 5:(songptrpos: DWORD);
-end;
-MMTIME = _mmtime;
-PMMTIME = ^_mmtime;
-NPMMTIME = ^_mmtime;
-LPMMTIME = ^_mmtime;
-PWAVEHDR = ^_wavehdr;
-_wavehdr = packed record
-lpData: PChar;
-dwBufferLength: DWORD;
-dwBytesRecorded: DWORD;
-dwUser: DWORD;
-dwFlags: DWORD;
-dwLoops: DWORD;
-lpNext: PWAVEHDR;
-reserved: DWORD;
-end;
-WAVEHDR = _wavehdr;
-NPWAVEHDR = ^_wavehdr;
-LPWAVEHDR = ^_wavehdr;
-_WAVEOUTCAPSA = packed record
-wMid: WORD;
-wPid: WORD;
-vDriverVersion: MMVERSION;
-szPname: array [0..Pred(MAXPNAMELEN)] of CHAR;
-dwFormats: DWORD;
-wChannels: WORD;
-wReserved1: WORD;
-dwSupport: DWORD;
-end;
-WAVEOUTCAPSA = _WAVEOUTCAPSA;
-PWAVEOUTCAPSA = ^_WAVEOUTCAPSA;
-NPWAVEOUTCAPSA = ^_WAVEOUTCAPSA;
-LPWAVEOUTCAPSA = ^_WAVEOUTCAPSA;
-_WAVEOUTCAPSW = packed record
-wMid: WORD;
-wPid: WORD;
-vDriverVersion: MMVERSION;
-szPname: array [0..Pred(MAXPNAMELEN)] of WCHAR;
-dwFormats: DWORD;
-wChannels: WORD;
-wReserved1: WORD;
-dwSupport: DWORD;
-end;
-WAVEOUTCAPSW = _WAVEOUTCAPSW;
-PWAVEOUTCAPSW = ^_WAVEOUTCAPSW;
-NPWAVEOUTCAPSW = ^_WAVEOUTCAPSW;
-LPWAVEOUTCAPSW = ^_WAVEOUTCAPSW;
-{$ifdef UNICODE}
-WAVEOUTCAPS = WAVEOUTCAPSW;
-PWAVEOUTCAPS = PWAVEOUTCAPSW;
-NPWAVEOUTCAPS = NPWAVEOUTCAPSW;
-LPWAVEOUTCAPS = LPWAVEOUTCAPSW;
-{$else}
-WAVEOUTCAPS = WAVEOUTCAPSA;
-PWAVEOUTCAPS = PWAVEOUTCAPSA;
-NPWAVEOUTCAPS = NPWAVEOUTCAPSA;
-LPWAVEOUTCAPS = LPWAVEOUTCAPSA;
-{$endif}
-_WAVEINCAPSA = packed record
-wMid: WORD;
-wPid: WORD;
-vDriverVersion: MMVERSION;
-szPname: array [0..Pred(MAXPNAMELEN)] of CHAR;
-dwFormats: DWORD;
-wChannels: WORD;
-wReserved1: WORD;
-end;
-WAVEINCAPSA = _WAVEINCAPSA;
-PWAVEINCAPSA = ^_WAVEINCAPSA;
-NPWAVEINCAPSA = ^_WAVEINCAPSA;
-LPWAVEINCAPSA = ^_WAVEINCAPSA;
-_WAVEINCAPSW = packed record
-wMid: WORD;
-wPid: WORD;
-vDriverVersion: MMVERSION;
-szPname: array [0..Pred(MAXPNAMELEN)] of WCHAR;
-dwFormats: DWORD;
-wChannels: WORD;
-wReserved1: WORD;
-end;
-WAVEINCAPSW = _WAVEINCAPSW;
-PWAVEINCAPSW = ^_WAVEINCAPSW;
-NPWAVEINCAPSW = ^_WAVEINCAPSW;
-LPWAVEINCAPSW = ^_WAVEINCAPSW;
-{$ifdef UNICODE}
-WAVEINCAPS = WAVEINCAPSW;
-PWAVEINCAPS = PWAVEINCAPSW;
-NPWAVEINCAPS = NPWAVEINCAPSW;
-LPWAVEINCAPS = LPWAVEINCAPSW;
-{$else}
-WAVEINCAPS = WAVEINCAPSA;
-PWAVEINCAPS = PWAVEINCAPSA;
-NPWAVEINCAPS = NPWAVEINCAPSA;
-LPWAVEINCAPS = LPWAVEINCAPSA;
-{$endif}
-_waveformat = packed record
-wFormatTag: WORD;
-nChannels: WORD;
-nSamplesPerSec: DWORD;
-nAvgBytesPerSec: DWORD;
-nBlockAlign: WORD;
-end;
-WAVEFORMAT = _waveformat;
-PWAVEFORMAT = ^_waveformat;
-NPWAVEFORMAT = ^_waveformat;
-LPWAVEFORMAT = ^_waveformat;
-const
-WAVE_FORMAT_PCM = 1;
-type
-_pcmwaveformat = packed record
-wf: WAVEFORMAT;
-wBitsPerSample: WORD;
-end;
-PCMWAVEFORMAT = _pcmwaveformat;
-PPCMWAVEFORMAT = ^_pcmwaveformat;
-NPPCMWAVEFORMAT = ^_pcmwaveformat;
-LPPCMWAVEFORMAT = ^_pcmwaveformat;
-_WAVEFORMATEX = packed record
-wFormatTag: WORD;
-nChannels: WORD;
-nSamplesPerSec: DWORD;
-nAvgBytesPerSec: DWORD;
-nBlockAlign: WORD;
-wBitsPerSample: WORD;
-cbSize: WORD;
-end;
-WAVEFORMATEX = _WAVEFORMATEX;
-PWAVEFORMATEX = ^_WAVEFORMATEX;
-NPWAVEFORMATEX = ^_WAVEFORMATEX;
-LPWAVEFORMATEX = ^_WAVEFORMATEX;
-LPCWAVEFORMATEX = ^WAVEFORMATEX;
-HMIDI = THandle;
-HMIDIIN = THandle;
-HMIDIOUT = THandle;
-HMIDISTRM = THandle;
-LPHMIDI = ^HMIDI;
-LPHMIDIIN = ^HMIDIIN;
-LPHMIDIOUT = ^HMIDIOUT;
-LPHMIDISTRM = ^HMIDISTRM;
-LPMIDICALLBACK = PDRVCALLBACK;
-const
-MIDIPATCHSIZE = 128;
-type
-PATCHARRAY = array [0..Pred(MIDIPATCHSIZE)] of WORD;
-LPPATCHARRAY = ^WORD;
-KEYARRAY = array [0..Pred(MIDIPATCHSIZE)] of WORD;
-LPKEYARRAY = ^WORD;
-_MIDIOUTCAPSA = packed record
-wMid: WORD;
-wPid: WORD;
-vDriverVersion: MMVERSION;
-szPname: array [0..Pred(MAXPNAMELEN)] of CHAR;
-wTechnology: WORD;
-wVoices: WORD;
-wNotes: WORD;
-wChannelMask: WORD;
-dwSupport: DWORD;
-end;
-MIDIOUTCAPSA = _MIDIOUTCAPSA;
-PMIDIOUTCAPSA = ^_MIDIOUTCAPSA;
-NPMIDIOUTCAPSA = ^_MIDIOUTCAPSA;
-LPMIDIOUTCAPSA = ^_MIDIOUTCAPSA;
-_MIDIOUTCAPSW = packed record
-wMid: WORD;
-wPid: WORD;
-vDriverVersion: MMVERSION;
-szPname: array [0..Pred(MAXPNAMELEN)] of WCHAR;
-wTechnology: WORD;
-wVoices: WORD;
-wNotes: WORD;
-wChannelMask: WORD;
-dwSupport: DWORD;
-end;
-MIDIOUTCAPSW = _MIDIOUTCAPSW;
-PMIDIOUTCAPSW = ^_MIDIOUTCAPSW;
-NPMIDIOUTCAPSW = ^_MIDIOUTCAPSW;
-LPMIDIOUTCAPSW = ^_MIDIOUTCAPSW;
-_MIDIINCAPSA = packed record
-wMid: WORD;
-wPid: WORD;
-vDriverVersion: MMVERSION;
-szPname: array [0..Pred(MAXPNAMELEN)] of CHAR;
-dwSupport: DWORD;
-end;
-MIDIINCAPSA = _MIDIINCAPSA;
-PMIDIINCAPSA = ^_MIDIINCAPSA;
-NPMIDIINCAPSA = ^_MIDIINCAPSA;
-LPMIDIINCAPSA = ^_MIDIINCAPSA;
-_MIDIINCAPSW = packed record
-wMid: WORD;
-wPid: WORD;
-vDriverVersion: MMVERSION;
-szPname: array [0..Pred(MAXPNAMELEN)] of WCHAR;
-dwSupport: DWORD;
-end;
-MIDIINCAPSW = _MIDIINCAPSW;
-PMIDIINCAPSW = ^_MIDIINCAPSW;
-NPMIDIINCAPSW = ^_MIDIINCAPSW;
-LPMIDIINCAPSW = ^_MIDIINCAPSW;
-{$ifdef UNICODE}
-MIDIINCAPS = MIDIINCAPSW;
-PMIDIINCAPS = PMIDIINCAPSW;
-NPMIDIINCAPS = NPMIDIINCAPSW;
-LPMIDIINCAPS = LPMIDIINCAPSW;
-MIDIOUTCAPS = MIDIOUTCAPSW;
-PMIDIOUTCAPS = PMIDIOUTCAPSW;
-NPMIDIOUTCAPS = NPMIDIOUTCAPSW;
-LPMIDIOUTCAPS = LPMIDIOUTCAPSW;
-{$else}
-MIDIOUTCAPS = MIDIOUTCAPSA;
-PMIDIOUTCAPS = PMIDIOUTCAPSA;
-NPMIDIOUTCAPS = NPMIDIOUTCAPSA;
-LPMIDIOUTCAPS = LPMIDIOUTCAPSA;
-MIDIINCAPS = MIDIINCAPSA;
-PMIDIINCAPS = PMIDIINCAPSA;
-NPMIDIINCAPS = NPMIDIINCAPSA;
-LPMIDIINCAPS = LPMIDIINCAPSA;
-{$endif}
-PMIDIHDR = ^_midihdr;
-_midihdr = packed record
-lpData: PChar;
-dwBufferLength: DWORD;
-dwBytesRecorded: DWORD;
-dwUser: DWORD;
-dwFlags: DWORD;
-lpNext: PMIDIHDR;
-reserved: DWORD;
-dwOffset: DWORD;
-dwReserved: array [0..Pred(8)] of DWORD;
-end;
-MIDIHDR = _midihdr;
-NPMIDIHDR = ^_midihdr;
-LPMIDIHDR = ^_midihdr;
-_midievent = packed record
-dwDeltaTime: DWORD;
-dwStreamID: DWORD;
-dwEvent: DWORD;
-dwParms: array [0..Pred(1)] of DWORD;
-end;
-MIDIEVENT = _midievent;
-
-_midistrmbuffver = packed record
-dwVersion: DWORD;
-dwMid: DWORD;
-dwOEMVersion: DWORD;
-end;
-MIDISTRMBUFFVER = _midistrmbuffver;
-_midiproptimediv = packed record
-cbStruct: DWORD;
-dwTimeDiv: DWORD;
-end;
-MIDIPROPTIMEDIV = _midiproptimediv;
-LPMIDIPROPTIMEDIV = ^_midiproptimediv;
-_midiproptempo = packed record
-cbStruct: DWORD;
-dwTempo: DWORD;
-end;
-MIDIPROPTEMPO = _midiproptempo;
-LPMIDIPROPTEMPO = ^_midiproptempo;
-_AUXCAPSA = packed record
-wMid: WORD;
-wPid: WORD;
-vDriverVersion: MMVERSION;
-szPname: array [0..Pred(MAXPNAMELEN)] of CHAR;
-wTechnology: WORD;
-wReserved1: WORD;
-dwSupport: DWORD;
-end;
-AUXCAPSA = _AUXCAPSA;
-PAUXCAPSA = ^_AUXCAPSA;
-NPAUXCAPSA = ^_AUXCAPSA;
-LPAUXCAPSA = ^_AUXCAPSA;
-_AUXCAPSW = packed record
-wMid: WORD;
-wPid: WORD;
-vDriverVersion: MMVERSION;
-szPname: array [0..Pred(MAXPNAMELEN)] of WCHAR;
-wTechnology: WORD;
-wReserved1: WORD;
-dwSupport: DWORD;
-end;
-AUXCAPSW = _AUXCAPSW;
-PAUXCAPSW = ^_AUXCAPSW;
-NPAUXCAPSW = ^_AUXCAPSW;
-LPAUXCAPSW = ^_AUXCAPSW;
-{$ifdef UNICODE}
-AUXCAPS = AUXCAPSW;
-PAUXCAPS = PAUXCAPSW;
-NPAUXCAPS = NPAUXCAPSW;
-LPAUXCAPS = LPAUXCAPSW;
-{$else}
-AUXCAPS = AUXCAPSA;
-PAUXCAPS = PAUXCAPSA;
-NPAUXCAPS = NPAUXCAPSA;
-LPAUXCAPS = LPAUXCAPSA;
-{$endif}
-HMIXEROBJ = THandle;
-LPHMIXEROBJ = ^HMIXEROBJ;
-HMIXER = THandle;
-LPHMIXER = ^HMIXER;
-
-function mixerGetNumDevs: UINT; stdcall;
- external 'winmm.dll' name 'mixerGetNumDevs';
-
-type
-_MIXERCAPSA = packed record
-wMid: WORD;
-wPid: WORD;
-vDriverVersion: MMVERSION;
-szPname: array [0..Pred(MAXPNAMELEN)] of CHAR;
-fdwSupport: DWORD;
-cDestinations: DWORD;
-end;
-MIXERCAPSA = _MIXERCAPSA;
-PMIXERCAPSA = ^_MIXERCAPSA;
-LPMIXERCAPSA = ^_MIXERCAPSA;
-_MIXERCAPSW = packed record
-wMid: WORD;
-wPid: WORD;
-vDriverVersion: MMVERSION;
-szPname: array [0..Pred(MAXPNAMELEN)] of WCHAR;
-fdwSupport: DWORD;
-cDestinations: DWORD;
-end;
-MIXERCAPSW = _MIXERCAPSW;
-PMIXERCAPSW = ^_MIXERCAPSW;
-LPMIXERCAPSW = ^_MIXERCAPSW;
-{$ifdef UNICODE}
-MIXERCAPS = MIXERCAPSW;
-PMIXERCAPS = PMIXERCAPSW;
-LPMIXERCAPS = LPMIXERCAPSW;
-{$else}
-MIXERCAPS = MIXERCAPSA;
-PMIXERCAPS = PMIXERCAPSA;
-LPMIXERCAPS = LPMIXERCAPSA;
-{$endif}
-_MIXERLINEA = packed record
-cbStruct: DWORD;
-dwDestination: DWORD;
-dwSource: DWORD;
-dwLineID: DWORD;
-fdwLine: DWORD;
-dwUser: DWORD;
-dwComponentType: DWORD;
-cChannels: DWORD;
-cConnections: DWORD;
-cControls: DWORD;
-szShortName: array [0..Pred(MIXER_SHORT_NAME_CHARS)] of CHAR;
-szName: array [0..Pred(MIXER_LONG_NAME_CHARS)] of CHAR;
-Target: packed record
- dwType,dwDeviceID: DWORD;
- wMid,wPid: WORD;
- vDriverVersion:MMVERSION;
- szPname: array[0..pred(MAXPNAMELEN)] of Char;
-end;
-end;
-MIXERLINEA = _MIXERLINEA;
-PMIXERLINEA = ^_MIXERLINEA;
-LPMIXERLINEA = ^_MIXERLINEA;
-_MIXERLINEW = packed record
-cbStruct: DWORD;
-dwDestination: DWORD;
-dwSource: DWORD;
-dwLineID: DWORD;
-fdwLine: DWORD;
-dwUser: DWORD;
-dwComponentType: DWORD;
-cChannels: DWORD;
-cConnections: DWORD;
-cControls: DWORD;
-szShortName: array [0..Pred(MIXER_SHORT_NAME_CHARS)] of WCHAR;
-szName: array [0..Pred(MIXER_LONG_NAME_CHARS)] of WCHAR;
-Target: packed record
- dwType,dwDeviceID: DWORD;
- wMid,wPid: WORD;
- vDriverVersion:MMVERSION;
- szPname: array[0..pred(MAXPNAMELEN)] of WChar;
-end;
-end;
-MIXERLINEW = _MIXERLINEW;
-PMIXERLINEW = ^_MIXERLINEW;
-LPMIXERLINEW = ^_MIXERLINEW;
-{$ifdef UNICODE}
-MIXERLINE = MIXERLINEW;
-PMIXERLINE = PMIXERLINEW;
-LPMIXERLINE = LPMIXERLINEW;
-{$else}
-MIXERLINE = MIXERLINEA;
-PMIXERLINE = PMIXERLINEA;
-LPMIXERLINE = LPMIXERLINEA;
-{$endif}
-_MIXERCONTROLA = packed record
-cbStruct: DWORD;
-dwControlID: DWORD;
-dwControlType: DWORD;
-fdwControl: DWORD;
-cMultipleItems: DWORD;
-szShortName: array [0..Pred(MIXER_SHORT_NAME_CHARS)] of CHAR;
-szName: array [0..Pred(MIXER_LONG_NAME_CHARS)] of CHAR;
-Bounds: packed record
-case integer of
- 0: (lMinimum, lMaximum: longint);
- 1: (dwMinimum, dwMaximum: DWORD);
- 2: (dwReserved: array[0..5] of DWORD);
-end;
-Metrics: packed record
-case Integer of
- 0: (cSteps: DWORD);
- 1: (cbCustomData: DWORD);
- 2: (dwReserved: array[0..5] of DWORD);
-end;
-end;
-MIXERCONTROLA = _MIXERCONTROLA;
-PMIXERCONTROLA = ^_MIXERCONTROLA;
-LPMIXERCONTROLA = ^_MIXERCONTROLA;
-_MIXERCONTROLW = packed record
-cbStruct: DWORD;
-dwControlID: DWORD;
-dwControlType: DWORD;
-fdwControl: DWORD;
-cMultipleItems: DWORD;
-szShortName: array [0..Pred(MIXER_SHORT_NAME_CHARS)] of WCHAR;
-szName: array [0..Pred(MIXER_LONG_NAME_CHARS)] of WCHAR;
-Bounds: packed record
-case integer of
- 0: (lMinimum, lMaximum: longint);
- 1: (dwMinimum, dwMaximum: DWORD);
- 2: (dwReserved: array[0..5] of DWORD);
-end;
-Metrics: packed record
-case Integer of
- 0: (cSteps: DWORD);
- 1: (cbCustomData: DWORD);
- 2: (dwReserved: array[0..5] of DWORD);
-end;
-end;
-MIXERCONTROLW = _MIXERCONTROLW;
-PMIXERCONTROLW = ^_MIXERCONTROLW;
-LPMIXERCONTROLW = ^_MIXERCONTROLW;
-{$ifdef UNICODE}
-MIXERCONTROL = MIXERCONTROLW;
-PMIXERCONTROL = PMIXERCONTROLW;
-LPMIXERCONTROL = LPMIXERCONTROLW;
-{$else}
-MIXERCONTROL = MIXERCONTROLA;
-PMIXERCONTROL = PMIXERCONTROLA;
-LPMIXERCONTROL = LPMIXERCONTROLA;
-{$endif}
-_MIXERLINECONTROLSA = packed record
-cbStruct: DWORD;
-dwLineID: DWORD;
-case Integer of
- 0: (dwControlID: DWORD);
- 1: (dwControlType, cControls, cbmxctrl: DWORD; pamxctrl: PMIXERCONTROLA);
-end;
-MIXERLINECONTROLSA = _MIXERLINECONTROLSA;
-PMIXERLINECONTROLSA = ^_MIXERLINECONTROLSA;
-LPMIXERLINECONTROLSA = ^_MIXERLINECONTROLSA;
-_MIXERLINECONTROLSW = packed record
-cbStruct: DWORD;
-dwLineID: DWORD;
-case Integer of
- 0: (dwControlID: DWORD);
- 1: (dwControlType, cControls, cbmxctrl: DWORD; pamxctrl: PMIXERCONTROLW);
-end;
-MIXERLINECONTROLSW = _MIXERLINECONTROLSW;
-PMIXERLINECONTROLSW = ^_MIXERLINECONTROLSW;
-LPMIXERLINECONTROLSW = ^_MIXERLINECONTROLSW;
-{$ifdef UNICODE}
-MIXERLINECONTROLS = MIXERLINECONTROLSW;
-PMIXERLINECONTROLS = PMIXERLINECONTROLSW;
-LPMIXERLINECONTROLS = LPMIXERLINECONTROLSW;
-{$else}
-MIXERLINECONTROLS = MIXERLINECONTROLSA;
-PMIXERLINECONTROLS = PMIXERLINECONTROLSA;
-LPMIXERLINECONTROLS = LPMIXERLINECONTROLSA;
-{$endif}
-tMIXERCONTROLDETAILS = packed record
-cbStruct: DWORD;
-dwControlID: DWORD;
-cChannels: DWORD;
-case Integer of
- 0: (hwndOwner: tHandle);
- 1: (cMultipleItems, cbDetails: DWORD;
-     paDetails: Pointer);
-end;
-MIXERCONTROLDETAILS = tMIXERCONTROLDETAILS;
-PMIXERCONTROLDETAILS = ^tMIXERCONTROLDETAILS;
-LPMIXERCONTROLDETAILS = ^tMIXERCONTROLDETAILS;
-_MIXERCONTROLDETAILS_LISTTEXTA = packed record
-dwParam1: DWORD;
-dwParam2: DWORD;
-szName: array [0..Pred(MIXER_LONG_NAME_CHARS)] of CHAR;
-end;
-MIXERCONTROLDETAILS_LISTTEXTA = _MIXERCONTROLDETAILS_LISTTEXTA;
-PMIXERCONTROLDETAILS_LISTTEXTA = ^_MIXERCONTROLDETAILS_LISTTEXTA;
-LPMIXERCONTROLDETAILS_LISTTEXTA = ^_MIXERCONTROLDETAILS_LISTTEXTA;
-_MIXERCONTROLDETAILS_LISTTEXTW = packed record
-dwParam1: DWORD;
-dwParam2: DWORD;
-szName: array [0..Pred(MIXER_LONG_NAME_CHARS)] of WCHAR;
-end;
-MIXERCONTROLDETAILS_LISTTEXTW = _MIXERCONTROLDETAILS_LISTTEXTW;
-PMIXERCONTROLDETAILS_LISTTEXTW = ^_MIXERCONTROLDETAILS_LISTTEXTW;
-LPMIXERCONTROLDETAILS_LISTTEXTW = ^_MIXERCONTROLDETAILS_LISTTEXTW;
-{$ifdef UNICODE}
-MIXERCONTROLDETAILS_LISTTEXT = MIXERCONTROLDETAILS_LISTTEXTW;
-PMIXERCONTROLDETAILS_LISTTEXT = PMIXERCONTROLDETAILS_LISTTEXTW;
-LPMIXERCONTROLDETAILS_LISTTEXT = LPMIXERCONTROLDETAILS_LISTTEXTW;
-{$else}
-MIXERCONTROLDETAILS_LISTTEXT = MIXERCONTROLDETAILS_LISTTEXTA;
-PMIXERCONTROLDETAILS_LISTTEXT = PMIXERCONTROLDETAILS_LISTTEXTA;
-LPMIXERCONTROLDETAILS_LISTTEXT = LPMIXERCONTROLDETAILS_LISTTEXTA;
-{$endif}
-_MIXERCONTROLDETAILS_BOOLEAN = packed record
-fValue: longint;
-end;
-MIXERCONTROLDETAILS_BOOLEAN = _MIXERCONTROLDETAILS_BOOLEAN;
-PMIXERCONTROLDETAILS_BOOLEAN = ^_MIXERCONTROLDETAILS_BOOLEAN;
-LPMIXERCONTROLDETAILS_BOOLEAN = ^_MIXERCONTROLDETAILS_BOOLEAN;
-_MIXERCONTROLDETAILS_SIGNED = packed record
-lValue: longint;
-end;
-MIXERCONTROLDETAILS_SIGNED = _MIXERCONTROLDETAILS_SIGNED;
-PMIXERCONTROLDETAILS_SIGNED = ^_MIXERCONTROLDETAILS_SIGNED;
-LPMIXERCONTROLDETAILS_SIGNED = ^_MIXERCONTROLDETAILS_SIGNED;
-
-_MIXERCONTROLDETAILS_UNSIGNED = packed record
-dwValue: DWORD;
-end;
-MIXERCONTROLDETAILS_UNSIGNED = _MIXERCONTROLDETAILS_UNSIGNED;
-PMIXERCONTROLDETAILS_UNSIGNED = ^_MIXERCONTROLDETAILS_UNSIGNED;
-LPMIXERCONTROLDETAILS_UNSIGNED = ^_MIXERCONTROLDETAILS_UNSIGNED;
-LPTIMECALLBACK = procedure(uTimerID, uMsg: UINT; dwUser, dw1, dw2: DWORD); stdcall;
-_timecaps = packed record
-wPeriodMin: UINT;
-wPeriodMax: UINT;
-end;
-TIMECAPS = _timecaps;
-PTIMECAPS = ^_timecaps;
-NPTIMECAPS = ^_timecaps;
-LPTIMECAPS = ^_timecaps;
-_JOYCAPSA = packed record
-wMid: WORD;
-wPid: WORD;
-szPname: array [0..Pred(MAXPNAMELEN)] of CHAR;
-wXmin: UINT;
-wXmax: UINT;
-wYmin: UINT;
-wYmax: UINT;
-wZmin: UINT;
-wZmax: UINT;
-wNumButtons: UINT;
-wPeriodMin: UINT;
-wPeriodMax: UINT;
-wRmin: UINT;
-wRmax: UINT;
-wUmin: UINT;
-wUmax: UINT;
-wVmin: UINT;
-wVmax: UINT;
-wCaps: UINT;
-wMaxAxes: UINT;
-wNumAxes: UINT;
-wMaxButtons: UINT;
-szRegKey: array [0..Pred(MAXPNAMELEN)] of CHAR;
-szOEMVxD: array [0..Pred(MAX_JOYSTICKOEMVXDNAME)] of CHAR;
-end;
-JOYCAPSA = _JOYCAPSA;
-PJOYCAPSA = ^_JOYCAPSA;
-NPJOYCAPSA = ^_JOYCAPSA;
-LPJOYCAPSA = ^_JOYCAPSA;
-_JOYCAPSW = packed record
-wMid: WORD;
-wPid: WORD;
-szPname: array [0..Pred(MAXPNAMELEN)] of WCHAR;
-wXmin: UINT;
-wXmax: UINT;
-wYmin: UINT;
-wYmax: UINT;
-wZmin: UINT;
-wZmax: UINT;
-wNumButtons: UINT;
-wPeriodMin: UINT;
-wPeriodMax: UINT;
-wRmin: UINT;
-wRmax: UINT;
-wUmin: UINT;
-wUmax: UINT;
-wVmin: UINT;
-wVmax: UINT;
-wCaps: UINT;
-wMaxAxes: UINT;
-wNumAxes: UINT;
-wMaxButtons: UINT;
-szRegKey: array [0..Pred(MAXPNAMELEN)] of WCHAR;
-szOEMVxD: array [0..Pred(MAX_JOYSTICKOEMVXDNAME)] of WCHAR;
-end;
-JOYCAPSW = _JOYCAPSW;
-PJOYCAPSW = ^_JOYCAPSW;
-NPJOYCAPSW = ^_JOYCAPSW;
-LPJOYCAPSW = ^_JOYCAPSW;
-{$ifdef UNICODE}
-JOYCAPS = JOYCAPSW;
-PJOYCAPS = PJOYCAPSW;
-NPJOYCAPS = NPJOYCAPSW;
-LPJOYCAPS = LPJOYCAPSW;
-{$else}
-JOYCAPS = JOYCAPSA;
-PJOYCAPS = PJOYCAPSA;
-NPJOYCAPS = NPJOYCAPSA;
-LPJOYCAPS = LPJOYCAPSA;
-{$endif}
-_joyinfo = packed record
-wXpos: UINT;
-wYpos: UINT;
-wZpos: UINT;
-wButtons: UINT;
-end;
-JOYINFO = _joyinfo;
-PJOYINFO = ^_joyinfo;
-NPJOYINFO = ^_joyinfo;
-LPJOYINFO = ^_joyinfo;
-_joyinfoex = packed record
-dwSize: DWORD;
-dwFlags: DWORD;
-wXpos: UINT;
-wYpos: UINT;
-wZpos: UINT;
-dwRpos: DWORD;
-dwUpos: DWORD;
-dwVpos: DWORD;
-wButtons: UINT;
-dwButtonNumber: DWORD;
-dwPOV: DWORD;
-dwReserved1: DWORD;
-dwReserved2: DWORD;
-end;
-JOYINFOEX = _joyinfoex;
-PJOYINFOEX = ^_joyinfoex;
-NPJOYINFOEX = ^_joyinfoex;
-LPJOYINFOEX = ^_joyinfoex;
-FOURCC = DWORD;
-HPSTR = ^char;
-HMMIO = THandle;
-LPMMIOPROC = function(x1: LPSTR; x2: UINT; x3, x4: LPARAM): LRESULT; stdcall;
-_MMIOINFO = packed record
-dwFlags: DWORD;
-fccIOProc: FOURCC;
-pIOProc: LPMMIOPROC;
-wErrorRet: UINT;
-htask: HTASK;
-cchBuffer: longint;
-pchBuffer: HPSTR;
-pchNext: HPSTR;
-pchEndRead: HPSTR;
-pchEndWrite: HPSTR;
-lBufOffset: longint;
-lDiskOffset: longint;
-adwInfo: array [0..Pred(3)] of DWORD;
-dwReserved1: DWORD;
-dwReserved2: DWORD;
-hmmio: HMMIO;
-end;
-MMIOINFO = _MMIOINFO;
-PMMIOINFO = ^_MMIOINFO;
-NPMMIOINFO = ^_MMIOINFO;
-LPMMIOINFO = ^_MMIOINFO;
-LPCMMIOINFO = ^MMIOINFO;
-_MMCKINFO = packed record
-ckid: FOURCC;
-cksize: DWORD;
-fccType: FOURCC;
-dwDataOffset: DWORD;
-dwFlags: DWORD;
-end;
-MMCKINFO = _MMCKINFO;
-PMMCKINFO = ^_MMCKINFO;
-NPMMCKINFO = ^_MMCKINFO;
-LPMMCKINFO = ^_MMCKINFO;
-LPCMMCKINFO = ^MMCKINFO;
-MCIERROR = DWORD;
-MCIDEVICEID = UINT;
-YIELDPROC = function(mciId: MCIDEVICEID;  dwYieldData: DWORD): UINT; stdcall;
-_MCI_GENERIC_PARMS = packed record
-dwCallback: DWORD;
-end;
-MCI_GENERIC_PARMS = _MCI_GENERIC_PARMS;
-PMCI_GENERIC_PARMS = ^_MCI_GENERIC_PARMS;
-LPMCI_GENERIC_PARMS = ^_MCI_GENERIC_PARMS;
-_MCI_OPEN_PARMSA = packed record
-dwCallback: DWORD;
-wDeviceID: MCIDEVICEID;
-lpstrDeviceType: LPCSTR;
-lpstrElementName: LPCSTR;
-lpstrAlias: LPCSTR;
-end;
-MCI_OPEN_PARMSA = _MCI_OPEN_PARMSA;
-PMCI_OPEN_PARMSA = ^_MCI_OPEN_PARMSA;
-LPMCI_OPEN_PARMSA = ^_MCI_OPEN_PARMSA;
-_MCI_OPEN_PARMSW = packed record
-dwCallback: DWORD;
-wDeviceID: MCIDEVICEID;
-lpstrDeviceType: LPCWSTR;
-lpstrElementName: LPCWSTR;
-lpstrAlias: LPCWSTR;
-end;
-MCI_OPEN_PARMSW = _MCI_OPEN_PARMSW;
-PMCI_OPEN_PARMSW = ^_MCI_OPEN_PARMSW;
-LPMCI_OPEN_PARMSW = ^_MCI_OPEN_PARMSW;
-{$ifdef UNICODE}
-MCI_OPEN_PARMS = MCI_OPEN_PARMSW;
-PMCI_OPEN_PARMS = PMCI_OPEN_PARMSW;
-LPMCI_OPEN_PARMS = LPMCI_OPEN_PARMSW;
-{$else}
-MCI_OPEN_PARMS = MCI_OPEN_PARMSA;
-PMCI_OPEN_PARMS = PMCI_OPEN_PARMSA;
-LPMCI_OPEN_PARMS = LPMCI_OPEN_PARMSA;
-{$endif}
-_MCI_PLAY_PARMS = packed record
-dwCallback: DWORD;
-dwFrom: DWORD;
-dwTo: DWORD;
-end;
-MCI_PLAY_PARMS = _MCI_PLAY_PARMS;
-PMCI_PLAY_PARMS = ^_MCI_PLAY_PARMS;
-LPMCI_PLAY_PARMS = ^_MCI_PLAY_PARMS;
-_MCI_SEEK_PARMS = packed record
-dwCallback: DWORD;
-dwTo: DWORD;
-end;
-MCI_SEEK_PARMS = _MCI_SEEK_PARMS;
-PMCI_SEEK_PARMS = ^_MCI_SEEK_PARMS;
-LPMCI_SEEK_PARMS = ^_MCI_SEEK_PARMS;
-_MCI_STATUS_PARMS = packed record
-dwCallback: DWORD;
-dwReturn: DWORD;
-dwItem: DWORD;
-dwTrack: DWORD;
-end;
-MCI_STATUS_PARMS = _MCI_STATUS_PARMS;
-PMCI_STATUS_PARMS = ^_MCI_STATUS_PARMS;
-LPMCI_STATUS_PARMS = ^_MCI_STATUS_PARMS;
-_MCI_INFO_PARMSA = packed record
-dwCallback: DWORD;
-lpstrReturn: PChar;
-dwRetSize: DWORD;
-end;
-MCI_INFO_PARMSA = _MCI_INFO_PARMSA;
-LPMCI_INFO_PARMSA = ^_MCI_INFO_PARMSA;
-_MCI_INFO_PARMSW = packed record
-dwCallback: DWORD;
-lpstrReturn: LPWSTR;
-dwRetSize: DWORD;
-end;
-MCI_INFO_PARMSW = _MCI_INFO_PARMSW;
-LPMCI_INFO_PARMSW = ^_MCI_INFO_PARMSW;
-{$ifdef UNICODE}
-MCI_INFO_PARMS = MCI_INFO_PARMSW;
-LPMCI_INFO_PARMS = LPMCI_INFO_PARMSW;
-{$else}
-MCI_INFO_PARMS = MCI_INFO_PARMSA;
-LPMCI_INFO_PARMS = LPMCI_INFO_PARMSA;
-{$endif}
-_MCI_GETDEVCAPS_PARMS = packed record
-dwCallback: DWORD;
-dwReturn: DWORD;
-dwItem: DWORD;
-end;
-MCI_GETDEVCAPS_PARMS = _MCI_GETDEVCAPS_PARMS;
-PMCI_GETDEVCAPS_PARMS = ^_MCI_GETDEVCAPS_PARMS;
-LPMCI_GETDEVCAPS_PARMS = ^_MCI_GETDEVCAPS_PARMS;
-_MCI_SYSINFO_PARMSA = packed record
-dwCallback: DWORD;
-lpstrReturn: PChar;
-dwRetSize: DWORD;
-dwNumber: DWORD;
-wDeviceType: UINT;
-end;
-MCI_SYSINFO_PARMSA = _MCI_SYSINFO_PARMSA;
-PMCI_SYSINFO_PARMSA = ^_MCI_SYSINFO_PARMSA;
-LPMCI_SYSINFO_PARMSA = ^_MCI_SYSINFO_PARMSA;
-_MCI_SYSINFO_PARMSW = packed record
-dwCallback: DWORD;
-lpstrReturn: LPWSTR;
-dwRetSize: DWORD;
-dwNumber: DWORD;
-wDeviceType: UINT;
-end;
-MCI_SYSINFO_PARMSW = _MCI_SYSINFO_PARMSW;
-PMCI_SYSINFO_PARMSW = ^_MCI_SYSINFO_PARMSW;
-LPMCI_SYSINFO_PARMSW = ^_MCI_SYSINFO_PARMSW;
-{$ifdef UNICODE}
-MCI_SYSINFO_PARMS = MCI_SYSINFO_PARMSW;
-PMCI_SYSINFO_PARMS = PMCI_SYSINFO_PARMSW;
-LPMCI_SYSINFO_PARMS = LPMCI_SYSINFO_PARMSW;
-{$else}
-MCI_SYSINFO_PARMS = MCI_SYSINFO_PARMSA;
-PMCI_SYSINFO_PARMS = PMCI_SYSINFO_PARMSA;
-LPMCI_SYSINFO_PARMS = LPMCI_SYSINFO_PARMSA;
-{$endif}
-_MCI_SET_PARMS = packed record
-dwCallback: DWORD;
-dwTimeFormat: DWORD;
-dwAudio: DWORD;
-end;
-MCI_SET_PARMS = _MCI_SET_PARMS;
-PMCI_SET_PARMS = ^_MCI_SET_PARMS;
-LPMCI_SET_PARMS = ^_MCI_SET_PARMS;
-_MCI_BREAK_PARMS = packed record
-dwCallback: DWORD;
-nVirtKey: longint;
-hwndBreak: HWND;
-end;
-MCI_BREAK_PARMS = _MCI_BREAK_PARMS;
-PMCI_BREAK_PARMS = ^_MCI_BREAK_PARMS;
-LPMCI_BREAK_PARMS = ^_MCI_BREAK_PARMS;
-_MCI_SAVE_PARMSA = packed record
-dwCallback: DWORD;
-lpfilename: LPCSTR;
-end;
-MCI_SAVE_PARMSA = _MCI_SAVE_PARMSA;
-PMCI_SAVE_PARMSA = ^_MCI_SAVE_PARMSA;
-LPMCI_SAVE_PARMSA = ^_MCI_SAVE_PARMSA;
-_MCI_SAVE_PARMSW = packed record
-dwCallback: DWORD;
-lpfilename: LPCWSTR;
-end;
-MCI_SAVE_PARMSW = _MCI_SAVE_PARMSW;
-PMCI_SAVE_PARMSW = ^_MCI_SAVE_PARMSW;
-LPMCI_SAVE_PARMSW = ^_MCI_SAVE_PARMSW;
-{$ifdef UNICODE}
-MCI_SAVE_PARMS = MCI_SAVE_PARMSW;
-PMCI_SAVE_PARMS = PMCI_SAVE_PARMSW;
-LPMCI_SAVE_PARMS = LPMCI_SAVE_PARMSW;
-{$else}
-MCI_SAVE_PARMS = MCI_SAVE_PARMSA;
-PMCI_SAVE_PARMS = PMCI_SAVE_PARMSA;
-LPMCI_SAVE_PARMS = LPMCI_SAVE_PARMSA;
-{$endif}
-_MCI_LOAD_PARMSA = packed record
-dwCallback: DWORD;
-lpfilename: LPCSTR;
-end;
-MCI_LOAD_PARMSA = _MCI_LOAD_PARMSA;
-PMCI_LOAD_PARMSA = ^_MCI_LOAD_PARMSA;
-LPMCI_LOAD_PARMSA = ^_MCI_LOAD_PARMSA;
-_MCI_LOAD_PARMSW = packed record
-dwCallback: DWORD;
-lpfilename: LPCWSTR;
-end;
-MCI_LOAD_PARMSW = _MCI_LOAD_PARMSW;
-PMCI_LOAD_PARMSW = ^_MCI_LOAD_PARMSW;
-LPMCI_LOAD_PARMSW = ^_MCI_LOAD_PARMSW;
-{$ifdef UNICODE}
-MCI_LOAD_PARMS = MCI_LOAD_PARMSW;
-PMCI_LOAD_PARMS = PMCI_LOAD_PARMSW;
-LPMCI_LOAD_PARMS = LPMCI_LOAD_PARMSW;
-{$else}
-MCI_LOAD_PARMS = MCI_LOAD_PARMSA;
-PMCI_LOAD_PARMS = PMCI_LOAD_PARMSA;
-LPMCI_LOAD_PARMS = LPMCI_LOAD_PARMSA;
-{$endif}
-_MCI_RECORD_PARMS = packed record
-dwCallback: DWORD;
-dwFrom: DWORD;
-dwTo: DWORD;
-end;
-MCI_RECORD_PARMS = _MCI_RECORD_PARMS;
-LPMCI_RECORD_PARMS = ^_MCI_RECORD_PARMS;
-_MCI_VD_PLAY_PARMS = packed record
-dwCallback: DWORD;
-dwFrom: DWORD;
-dwTo: DWORD;
-dwSpeed: DWORD;
-end;
-MCI_VD_PLAY_PARMS = _MCI_VD_PLAY_PARMS;
-PMCI_VD_PLAY_PARMS = ^_MCI_VD_PLAY_PARMS;
-LPMCI_VD_PLAY_PARMS = ^_MCI_VD_PLAY_PARMS;
-_MCI_VD_STEP_PARMS = packed record
-dwCallback: DWORD;
-dwFrames: DWORD;
-end;
-MCI_VD_STEP_PARMS = _MCI_VD_STEP_PARMS;
-PMCI_VD_STEP_PARMS = ^_MCI_VD_STEP_PARMS;
-LPMCI_VD_STEP_PARMS = ^_MCI_VD_STEP_PARMS;
-_MCI_VD_ESCAPE_PARMSA = packed record
-dwCallback: DWORD;
-lpstrCommand: LPCSTR;
-end;
-MCI_VD_ESCAPE_PARMSA = _MCI_VD_ESCAPE_PARMSA;
-PMCI_VD_ESCAPE_PARMSA = ^_MCI_VD_ESCAPE_PARMSA;
-LPMCI_VD_ESCAPE_PARMSA = ^_MCI_VD_ESCAPE_PARMSA;
-_MCI_VD_ESCAPE_PARMSW = packed record
-dwCallback: DWORD;
-lpstrCommand: LPCWSTR;
-end;
-MCI_VD_ESCAPE_PARMSW = _MCI_VD_ESCAPE_PARMSW;
-PMCI_VD_ESCAPE_PARMSW = ^_MCI_VD_ESCAPE_PARMSW;
-LPMCI_VD_ESCAPE_PARMSW = ^_MCI_VD_ESCAPE_PARMSW;
-{$ifdef UNICODE}
-MCI_VD_ESCAPE_PARMS = MCI_VD_ESCAPE_PARMSW;
-PMCI_VD_ESCAPE_PARMS = PMCI_VD_ESCAPE_PARMSW;
-LPMCI_VD_ESCAPE_PARMS = LPMCI_VD_ESCAPE_PARMSW;
-{$else}
-MCI_VD_ESCAPE_PARMS = MCI_VD_ESCAPE_PARMSA;
-PMCI_VD_ESCAPE_PARMS = PMCI_VD_ESCAPE_PARMSA;
-LPMCI_VD_ESCAPE_PARMS = LPMCI_VD_ESCAPE_PARMSA;
-{$endif}
-_MCI_WAVE_OPEN_PARMSA = packed record
-dwCallback: DWORD;
-wDeviceID: MCIDEVICEID;
-lpstrDeviceType: LPCSTR;
-lpstrElementName: LPCSTR;
-lpstrAlias: LPCSTR;
-dwBufferSeconds: DWORD;
-end;
-MCI_WAVE_OPEN_PARMSA = _MCI_WAVE_OPEN_PARMSA;
-PMCI_WAVE_OPEN_PARMSA = ^_MCI_WAVE_OPEN_PARMSA;
-LPMCI_WAVE_OPEN_PARMSA = ^_MCI_WAVE_OPEN_PARMSA;
-_MCI_WAVE_OPEN_PARMSW = packed record
-dwCallback: DWORD;
-wDeviceID: MCIDEVICEID;
-lpstrDeviceType: LPCWSTR;
-lpstrElementName: LPCWSTR;
-lpstrAlias: LPCWSTR;
-dwBufferSeconds: DWORD;
-end;
-MCI_WAVE_OPEN_PARMSW = _MCI_WAVE_OPEN_PARMSW;
-PMCI_WAVE_OPEN_PARMSW = ^_MCI_WAVE_OPEN_PARMSW;
-LPMCI_WAVE_OPEN_PARMSW = ^_MCI_WAVE_OPEN_PARMSW;
-{$ifdef UNICODE}
-MCI_WAVE_OPEN_PARMS = MCI_WAVE_OPEN_PARMSW;
-PMCI_WAVE_OPEN_PARMS = PMCI_WAVE_OPEN_PARMSW;
-LPMCI_WAVE_OPEN_PARMS = LPMCI_WAVE_OPEN_PARMSW;
-{$else}
-MCI_WAVE_OPEN_PARMS = MCI_WAVE_OPEN_PARMSA;
-PMCI_WAVE_OPEN_PARMS = PMCI_WAVE_OPEN_PARMSA;
-LPMCI_WAVE_OPEN_PARMS = LPMCI_WAVE_OPEN_PARMSA;
-{$endif}
-_MCI_WAVE_DELETE_PARMS = packed record
-dwCallback: DWORD;
-dwFrom: DWORD;
-dwTo: DWORD;
-end;
-MCI_WAVE_DELETE_PARMS = _MCI_WAVE_DELETE_PARMS;
-PMCI_WAVE_DELETE_PARMS = ^_MCI_WAVE_DELETE_PARMS;
-LPMCI_WAVE_DELETE_PARMS = ^_MCI_WAVE_DELETE_PARMS;
-_MCI_WAVE_SET_PARMS = packed record
-dwCallback: DWORD;
-dwTimeFormat: DWORD;
-dwAudio: DWORD;
-wInput: UINT;
-wOutput: UINT;
-wFormatTag: WORD;
-wReserved2: WORD;
-nChannels: WORD;
-wReserved3: WORD;
-nSamplesPerSec: DWORD;
-nAvgBytesPerSec: DWORD;
-nBlockAlign: WORD;
-wReserved4: WORD;
-wBitsPerSample: WORD;
-wReserved5: WORD;
-end;
-MCI_WAVE_SET_PARMS = _MCI_WAVE_SET_PARMS;
-PMCI_WAVE_SET_PARMS = ^_MCI_WAVE_SET_PARMS;
-LPMCI_WAVE_SET_PARMS = ^_MCI_WAVE_SET_PARMS;
-_MCI_SEQ_SET_PARMS = packed record
-dwCallback: DWORD;
-dwTimeFormat: DWORD;
-dwAudio: DWORD;
-dwTempo: DWORD;
-dwPort: DWORD;
-dwSlave: DWORD;
-dwMaster: DWORD;
-dwOffset: DWORD;
-end;
-MCI_SEQ_SET_PARMS = _MCI_SEQ_SET_PARMS;
-PMCI_SEQ_SET_PARMS = ^_MCI_SEQ_SET_PARMS;
-LPMCI_SEQ_SET_PARMS = ^_MCI_SEQ_SET_PARMS;
-_MCI_ANIM_OPEN_PARMSA = packed record
-dwCallback: DWORD;
-wDeviceID: MCIDEVICEID;
-lpstrDeviceType: LPCSTR;
-lpstrElementName: LPCSTR;
-lpstrAlias: LPCSTR;
-dwStyle: DWORD;
-hWndParent: HWND;
-end;
-MCI_ANIM_OPEN_PARMSA = _MCI_ANIM_OPEN_PARMSA;
-PMCI_ANIM_OPEN_PARMSA = ^_MCI_ANIM_OPEN_PARMSA;
-LPMCI_ANIM_OPEN_PARMSA = ^_MCI_ANIM_OPEN_PARMSA;
-_MCI_ANIM_OPEN_PARMSW = packed record
-dwCallback: DWORD;
-wDeviceID: MCIDEVICEID;
-lpstrDeviceType: LPCWSTR;
-lpstrElementName: LPCWSTR;
-lpstrAlias: LPCWSTR;
-dwStyle: DWORD;
-hWndParent: HWND;
-end;
-MCI_ANIM_OPEN_PARMSW = _MCI_ANIM_OPEN_PARMSW;
-PMCI_ANIM_OPEN_PARMSW = ^_MCI_ANIM_OPEN_PARMSW;
-LPMCI_ANIM_OPEN_PARMSW = ^_MCI_ANIM_OPEN_PARMSW;
-{$ifdef UNICODE}
-MCI_ANIM_OPEN_PARMS = MCI_ANIM_OPEN_PARMSW;
-PMCI_ANIM_OPEN_PARMS = PMCI_ANIM_OPEN_PARMSW;
-LPMCI_ANIM_OPEN_PARMS = LPMCI_ANIM_OPEN_PARMSW;
-{$else}
-MCI_ANIM_OPEN_PARMS = MCI_ANIM_OPEN_PARMSA;
-PMCI_ANIM_OPEN_PARMS = PMCI_ANIM_OPEN_PARMSA;
-LPMCI_ANIM_OPEN_PARMS = LPMCI_ANIM_OPEN_PARMSA;
-{$endif}
-_MCI_ANIM_WINDOW_PARMSW = packed record
-dwCallback: DWORD;
-hWnd: HWND;
-nCmdShow: UINT;
-lpstrText: LPCWSTR;
-end;
-MCI_ANIM_WINDOW_PARMSW = _MCI_ANIM_WINDOW_PARMSW;
-PMCI_ANIM_WINDOW_PARMSW = ^_MCI_ANIM_WINDOW_PARMSW;
-LPMCI_ANIM_WINDOW_PARMSW = ^_MCI_ANIM_WINDOW_PARMSW;
-_MCI_ANIM_STEP_PARMS = packed record
-dwCallback: DWORD;
-dwFrames: DWORD;
-end;
-MCI_ANIM_STEP_PARMS = _MCI_ANIM_STEP_PARMS;
-PMCI_ANIM_STEP_PARMS = ^_MCI_ANIM_STEP_PARMS;
-LPMCI_ANIM_STEP_PARMS = ^_MCI_ANIM_STEP_PARMS;
-_MCI_ANIM_WINDOW_PARMSA = packed record
-dwCallback: DWORD;
-hWnd: HWND;
-nCmdShow: UINT;
-lpstrText: LPCSTR;
-end;
-MCI_ANIM_WINDOW_PARMSA = _MCI_ANIM_WINDOW_PARMSA;
-PMCI_ANIM_WINDOW_PARMSA = ^_MCI_ANIM_WINDOW_PARMSA;
-LPMCI_ANIM_WINDOW_PARMSA = ^_MCI_ANIM_WINDOW_PARMSA;
-_MCI_ANIM_PLAY_PARMS = packed record
-dwCallback: DWORD;
-dwFrom: DWORD;
-dwTo: DWORD;
-dwSpeed: DWORD;
-end;
-MCI_ANIM_PLAY_PARMS = _MCI_ANIM_PLAY_PARMS;
-PMCI_ANIM_PLAY_PARMS = ^_MCI_ANIM_PLAY_PARMS;
-LPMCI_ANIM_PLAY_PARMS = ^_MCI_ANIM_PLAY_PARMS;
-{$ifdef UNICODE}
-MCI_ANIM_WINDOW_PARMS = MCI_ANIM_WINDOW_PARMSW;
-PMCI_ANIM_WINDOW_PARMS = PMCI_ANIM_WINDOW_PARMSW;
-LPMCI_ANIM_WINDOW_PARMS = LPMCI_ANIM_WINDOW_PARMSW;
-{$else}
-MCI_ANIM_WINDOW_PARMS = MCI_ANIM_WINDOW_PARMSA;
-PMCI_ANIM_WINDOW_PARMS = PMCI_ANIM_WINDOW_PARMSA;
-LPMCI_ANIM_WINDOW_PARMS = LPMCI_ANIM_WINDOW_PARMSA;
-{$endif}
-_MCI_ANIM_RECT_PARMS = packed record
-dwCallback: DWORD;
-rc: TRECT;
-end;
-MCI_ANIM_RECT_PARMS = _MCI_ANIM_RECT_PARMS;
-PMCI_ANIM_RECT_PARMS = ^MCI_ANIM_RECT_PARMS;
-LPMCI_ANIM_RECT_PARMS = ^MCI_ANIM_RECT_PARMS;
-_MCI_ANIM_UPDATE_PARMS = packed record
-dwCallback: DWORD;
-rc: TRECT;
-hDC: HDC;
-end;
-MCI_ANIM_UPDATE_PARMS = _MCI_ANIM_UPDATE_PARMS;
-PMCI_ANIM_UPDATE_PARMS = ^_MCI_ANIM_UPDATE_PARMS;
-LPMCI_ANIM_UPDATE_PARMS = ^_MCI_ANIM_UPDATE_PARMS;
-_MCI_OVLY_OPEN_PARMSA = packed record
-dwCallback: DWORD;
-wDeviceID: MCIDEVICEID;
-lpstrDeviceType: LPCSTR;
-lpstrElementName: LPCSTR;
-lpstrAlias: LPCSTR;
-dwStyle: DWORD;
-hWndParent: HWND;
-end;
-MCI_OVLY_OPEN_PARMSA = _MCI_OVLY_OPEN_PARMSA;
-PMCI_OVLY_OPEN_PARMSA = ^_MCI_OVLY_OPEN_PARMSA;
-LPMCI_OVLY_OPEN_PARMSA = ^_MCI_OVLY_OPEN_PARMSA;
-_MCI_OVLY_OPEN_PARMSW = packed record
-dwCallback: DWORD;
-wDeviceID: MCIDEVICEID;
-lpstrDeviceType: LPCWSTR;
-lpstrElementName: LPCWSTR;
-lpstrAlias: LPCWSTR;
-dwStyle: DWORD;
-hWndParent: HWND;
-end;
-MCI_OVLY_OPEN_PARMSW = _MCI_OVLY_OPEN_PARMSW;
-PMCI_OVLY_OPEN_PARMSW = ^_MCI_OVLY_OPEN_PARMSW;
-LPMCI_OVLY_OPEN_PARMSW = ^_MCI_OVLY_OPEN_PARMSW;
-{$ifdef UNICODE}
-MCI_OVLY_OPEN_PARMS = MCI_OVLY_OPEN_PARMSW;
-PMCI_OVLY_OPEN_PARMS = PMCI_OVLY_OPEN_PARMSW;
-LPMCI_OVLY_OPEN_PARMS = LPMCI_OVLY_OPEN_PARMSW;
-{$else}
-MCI_OVLY_OPEN_PARMS = MCI_OVLY_OPEN_PARMSA;
-PMCI_OVLY_OPEN_PARMS = PMCI_OVLY_OPEN_PARMSA;
-LPMCI_OVLY_OPEN_PARMS = LPMCI_OVLY_OPEN_PARMSA;
-{$endif}
-_MCI_OVLY_WINDOW_PARMSA = packed record
-dwCallback: DWORD;
-hWnd: HWND;
-nCmdShow: UINT;
-lpstrText: LPCSTR;
-end;
-MCI_OVLY_WINDOW_PARMSA = _MCI_OVLY_WINDOW_PARMSA;
-PMCI_OVLY_WINDOW_PARMSA = ^_MCI_OVLY_WINDOW_PARMSA;
-LPMCI_OVLY_WINDOW_PARMSA = ^_MCI_OVLY_WINDOW_PARMSA;
-_MCI_OVLY_WINDOW_PARMSW = packed record
-dwCallback: DWORD;
-hWnd: HWND;
-nCmdShow: UINT;
-lpstrText: LPCWSTR;
-end;
-MCI_OVLY_WINDOW_PARMSW = _MCI_OVLY_WINDOW_PARMSW;
-PMCI_OVLY_WINDOW_PARMSW = ^_MCI_OVLY_WINDOW_PARMSW;
-LPMCI_OVLY_WINDOW_PARMSW = ^_MCI_OVLY_WINDOW_PARMSW;
-{$ifdef UNICODE}
-MCI_OVLY_WINDOW_PARMS = MCI_OVLY_WINDOW_PARMSW;
-PMCI_OVLY_WINDOW_PARMS = PMCI_OVLY_WINDOW_PARMSW;
-LPMCI_OVLY_WINDOW_PARMS = LPMCI_OVLY_WINDOW_PARMSW;
-{$else}
-MCI_OVLY_WINDOW_PARMS = MCI_OVLY_WINDOW_PARMSA;
-PMCI_OVLY_WINDOW_PARMS = PMCI_OVLY_WINDOW_PARMSA;
-LPMCI_OVLY_WINDOW_PARMS = LPMCI_OVLY_WINDOW_PARMSA;
-{$endif}
-_MCI_OVLY_RECT_PARMS = packed record
-dwCallback: DWORD;
-rc: TRECT;
-end;
-MCI_OVLY_RECT_PARMS = _MCI_OVLY_RECT_PARMS;
-PMCI_OVLY_RECT_PARMS = ^_MCI_OVLY_RECT_PARMS;
-LPMCI_OVLY_RECT_PARMS = ^_MCI_OVLY_RECT_PARMS;
-_MCI_OVLY_SAVE_PARMSA = packed record
-dwCallback: DWORD;
-lpfilename: LPCSTR;
-rc: TRECT;
-end;
-MCI_OVLY_SAVE_PARMSA = _MCI_OVLY_SAVE_PARMSA;
-PMCI_OVLY_SAVE_PARMSA = ^_MCI_OVLY_SAVE_PARMSA;
-LPMCI_OVLY_SAVE_PARMSA = ^_MCI_OVLY_SAVE_PARMSA;
-_MCI_OVLY_SAVE_PARMSW = packed record
-dwCallback: DWORD;
-lpfilename: LPCWSTR;
-rc: TRECT;
-end;
-MCI_OVLY_SAVE_PARMSW = _MCI_OVLY_SAVE_PARMSW;
-PMCI_OVLY_SAVE_PARMSW = ^_MCI_OVLY_SAVE_PARMSW;
-LPMCI_OVLY_SAVE_PARMSW = ^_MCI_OVLY_SAVE_PARMSW;
-{$ifdef UNICODE}
-MCI_OVLY_SAVE_PARMS = MCI_OVLY_SAVE_PARMSW;
-PMCI_OVLY_SAVE_PARMS = PMCI_OVLY_SAVE_PARMSW;
-LPMCI_OVLY_SAVE_PARMS = LPMCI_OVLY_SAVE_PARMSW;
-{$else}
-MCI_OVLY_SAVE_PARMS = MCI_OVLY_SAVE_PARMSA;
-PMCI_OVLY_SAVE_PARMS = PMCI_OVLY_SAVE_PARMSA;
-LPMCI_OVLY_SAVE_PARMS = LPMCI_OVLY_SAVE_PARMSA;
-{$endif}
-_MCI_OVLY_LOAD_PARMSA = packed record
-dwCallback: DWORD;
-lpfilename: LPCSTR;
-rc: TRECT;
-end;
-MCI_OVLY_LOAD_PARMSA = _MCI_OVLY_LOAD_PARMSA;
-PMCI_OVLY_LOAD_PARMSA = ^_MCI_OVLY_LOAD_PARMSA;
-LPMCI_OVLY_LOAD_PARMSA = ^_MCI_OVLY_LOAD_PARMSA;
-_MCI_OVLY_LOAD_PARMSW = packed record
-dwCallback: DWORD;
-lpfilename: LPCWSTR;
-rc: TRECT;
-end;
-MCI_OVLY_LOAD_PARMSW = _MCI_OVLY_LOAD_PARMSW;
-PMCI_OVLY_LOAD_PARMSW = ^_MCI_OVLY_LOAD_PARMSW;
-LPMCI_OVLY_LOAD_PARMSW = ^_MCI_OVLY_LOAD_PARMSW;
+
+Type 
+  _mmtime = packed Record
+                     wType: UINT;
+                     Case integer Of
+                       0: (ms: DWORD);
+                       1: (sample: DWORD);
+                       2: (cb: DWORD);
+                       3: (ticks: DWORD);
+                       4: (smpte: packed Record
+                           hour, min, sec, frame, fps, dummy: byte;
+                           pad: Array[0..1] Of byte
+                           End);
+                       5: (songptrpos: DWORD);
+                     End;
+ MMTIME = _mmtime;
+ PMMTIME = ^_mmtime;
+ NPMMTIME = ^_mmtime;
+ LPMMTIME = ^_mmtime;
+ PWAVEHDR = ^_wavehdr;
+ TMMTime  = _mmtime;
+
+ _wavehdr = packed Record
+                            lpData: PChar;
+                            dwBufferLength: DWORD;
+                            dwBytesRecorded: DWORD;
+                            dwUser: DWORD;
+                            dwFlags: DWORD;
+                            dwLoops: DWORD;
+                            lpNext: PWAVEHDR;
+                            reserved: DWORD;
+          End;
+ WAVEHDR = _wavehdr;
+ TWAVEHDR=  WAVEHDR;
+ NPWAVEHDR = ^_wavehdr;
+ LPWAVEHDR = ^_wavehdr;
+
+ _WAVEOUTCAPSA = packed Record
+                          wMid: WORD;
+                          wPid: WORD;
+                          vDriverVersion: MMVERSION;
+                          szPname: array [0..Pred(MAXPNAMELEN)] Of CHAR;
+                          dwFormats: DWORD;
+                          wChannels: WORD;
+                          wReserved1: WORD;
+                          dwSupport: DWORD;
+   End;
+ WAVEOUTCAPSA   = _WAVEOUTCAPSA;
+ TWAVEOUTCAPSA  = WAVEOUTCAPSA;
+ PWAVEOUTCAPSA  = ^_WAVEOUTCAPSA;
+ NPWAVEOUTCAPSA = ^_WAVEOUTCAPSA;
+ LPWAVEOUTCAPSA = ^_WAVEOUTCAPSA;
+
+ _WAVEOUTCAPSW = packed Record
+                          wMid: WORD;
+                          wPid: WORD;
+                          vDriverVersion: MMVERSION;
+                          szPname: array [0..Pred(MAXPNAMELEN)] Of WCHAR;
+                          dwFormats: DWORD;
+                          wChannels: WORD;
+                          wReserved1: WORD;
+                          dwSupport: DWORD;
+                        End;
+
+ WAVEOUTCAPSW   = _WAVEOUTCAPSW;
+ PWAVEOUTCAPSW  = ^_WAVEOUTCAPSW;
+ NPWAVEOUTCAPSW = ^_WAVEOUTCAPSW;
+ LPWAVEOUTCAPSW = ^_WAVEOUTCAPSW;
+ TWAVEOUTCAPSW  = _WAVEOUTCAPSW;
+ {$ifdef UNICODE}
+   WAVEOUTCAPS = WAVEOUTCAPSW;
+   PWAVEOUTCAPS = PWAVEOUTCAPSW;
+   NPWAVEOUTCAPS = NPWAVEOUTCAPSW;
+   LPWAVEOUTCAPS = LPWAVEOUTCAPSW;
+ {$else}
+   WAVEOUTCAPS = WAVEOUTCAPSA;
+   PWAVEOUTCAPS = PWAVEOUTCAPSA;
+   NPWAVEOUTCAPS = NPWAVEOUTCAPSA;
+   LPWAVEOUTCAPS = LPWAVEOUTCAPSA;
+ {$endif}
+ TWAVEOUTCAPS = WAVEOUTCAPS;
+
+ _WAVEINCAPSA = packed Record
+                         wMid: WORD;
+                         wPid: WORD;
+                         vDriverVersion: MMVERSION;
+                         szPname: array [0..Pred(MAXPNAMELEN)] Of CHAR;
+                         dwFormats: DWORD;
+                         wChannels: WORD;
+                         wReserved1: WORD;
+			End;
+ WAVEINCAPSA   = _WAVEINCAPSA;
+ PWAVEINCAPSA  = ^_WAVEINCAPSA;
+ NPWAVEINCAPSA = ^_WAVEINCAPSA;
+ LPWAVEINCAPSA = ^_WAVEINCAPSA;
+ TWAVEINCAPSA  = WAVEINCAPSA;
+ 
+ _WAVEINCAPSW  = packed Record
+                        wMid: WORD;
+                        wPid: WORD;
+                        vDriverVersion: MMVERSION;
+                        szPname: array [0..Pred(MAXPNAMELEN)] Of WCHAR;
+                        dwFormats: DWORD;
+                        wChannels: WORD;
+                        wReserved1: WORD;
+			End;
+ WAVEINCAPSW   = _WAVEINCAPSW;
+ PWAVEINCAPSW  = ^_WAVEINCAPSW;
+ NPWAVEINCAPSW = ^_WAVEINCAPSW;
+ LPWAVEINCAPSW = ^_WAVEINCAPSW;
+ TWAVEINCAPSW  = WAVEINCAPSW;
+ {$ifdef UNICODE}
+  WAVEINCAPS   = WAVEINCAPSW;
+  PWAVEINCAPS  = PWAVEINCAPSW;
+  NPWAVEINCAPS = NPWAVEINCAPSW;
+  LPWAVEINCAPS = LPWAVEINCAPSW;
+ {$else}
+  WAVEINCAPS   = WAVEINCAPSA;
+  PWAVEINCAPS  = PWAVEINCAPSA;
+  NPWAVEINCAPS = NPWAVEINCAPSA;
+  LPWAVEINCAPS = LPWAVEINCAPSA;
+ {$endif}
+ TWAVEINCAPS   = WAVEINCAPS;
+
+ _waveformat = packed Record
+                       wFormatTag: WORD;
+                       nChannels: WORD;
+                       nSamplesPerSec: DWORD;
+                       nAvgBytesPerSec: DWORD;
+                       nBlockAlign: WORD;
+		      End;
+ WAVEFORMAT   = _waveformat;
+ PWAVEFORMAT  = ^_waveformat;
+ NPWAVEFORMAT = ^_waveformat;
+ LPWAVEFORMAT = ^_waveformat;
+ TWAVEFORMAT  = _waveformat;
+ 
+Const 
+  WAVE_FORMAT_PCM = 1;
+
+Type 
+  _pcmwaveformat = packed Record
+                            wf: WAVEFORMAT;
+                            wBitsPerSample: WORD;
+		   	  End;
+  PCMWAVEFORMAT   = _pcmwaveformat;
+  PPCMWAVEFORMAT  = ^_pcmwaveformat;
+  NPPCMWAVEFORMAT = ^_pcmwaveformat;
+  LPPCMWAVEFORMAT = ^_pcmwaveformat;
+  TPCMWAVEFORMAT  = _PCMWAVEFORMAT;
+  _WAVEFORMATEX   = packed Record
+                         wFormatTag: WORD;
+                         nChannels: WORD;
+                         nSamplesPerSec: DWORD;
+                         nAvgBytesPerSec: DWORD;
+                         nBlockAlign: WORD;
+                         wBitsPerSample: WORD;
+                         cbSize: WORD;
+		 End;
+ WAVEFORMATEX    = _WAVEFORMATEX;
+ PWAVEFORMATEX   = ^_WAVEFORMATEX;
+ NPWAVEFORMATEX  = ^_WAVEFORMATEX;
+ LPWAVEFORMATEX  = ^_WAVEFORMATEX;
+ LPCWAVEFORMATEX = ^WAVEFORMATEX;
+ TWAVEFORMATEX   = WAVEFORMATEX;
+ HMIDI = THandle;
+ HMIDIIN = THandle;
+ HMIDIOUT = THandle;
+ HMIDISTRM = THandle;
+ LPHMIDI = ^HMIDI;
+ LPHMIDIIN = ^HMIDIIN;
+ LPHMIDIOUT = ^HMIDIOUT;
+ LPHMIDISTRM = ^HMIDISTRM;
+ LPMIDICALLBACK = PDRVCALLBACK;
+
+Const 
+  MIDIPATCHSIZE = 128;
+
+Type 
+  PATCHARRAY = array [0..Pred(MIDIPATCHSIZE)] Of WORD;
+  LPPATCHARRAY = ^WORD;
+  KEYARRAY = array [0..Pred(MIDIPATCHSIZE)] Of WORD;
+  LPKEYARRAY = ^WORD;
+  _MIDIOUTCAPSA = packed Record
+                           wMid: WORD;
+                           wPid: WORD;
+                           vDriverVersion: MMVERSION;
+                           szPname: array [0..Pred(MAXPNAMELEN)] Of CHAR;
+                           wTechnology: WORD;
+                           wVoices: WORD;
+                           wNotes: WORD;
+                           wChannelMask: WORD;
+                           dwSupport: DWORD;
+			End;
+ MIDIOUTCAPSA   = _MIDIOUTCAPSA;
+ PMIDIOUTCAPSA  = ^_MIDIOUTCAPSA;
+ NPMIDIOUTCAPSA = ^_MIDIOUTCAPSA;
+ LPMIDIOUTCAPSA = ^_MIDIOUTCAPSA;
+ TMIDIOUTCAPSA  = _MIDIOUTCAPSA;
+ _MIDIOUTCAPSW  = packed Record
+                         wMid: WORD;
+                         wPid: WORD;
+                         vDriverVersion: MMVERSION;
+                         szPname: array [0..Pred(MAXPNAMELEN)] Of WCHAR;
+                         wTechnology: WORD;
+                         wVoices: WORD;
+                         wNotes: WORD;
+                         wChannelMask: WORD;
+                         dwSupport: DWORD;
+ 		End;
+ MIDIOUTCAPSW   = _MIDIOUTCAPSW;
+ PMIDIOUTCAPSW  = ^_MIDIOUTCAPSW;
+ NPMIDIOUTCAPSW = ^_MIDIOUTCAPSW;
+ LPMIDIOUTCAPSW = ^_MIDIOUTCAPSW;
+ TMIDIOUTCAPSW  = MIDIOUTCAPSW;
+ _MIDIINCAPSA = packed Record
+                        wMid: WORD;
+                        wPid: WORD;
+                        vDriverVersion: MMVERSION;
+                        szPname: array [0..Pred(MAXPNAMELEN)] Of CHAR;
+                        dwSupport: DWORD;
+ 		End;
+ MIDIINCAPSA = _MIDIINCAPSA;
+ PMIDIINCAPSA = ^_MIDIINCAPSA;
+ NPMIDIINCAPSA = ^_MIDIINCAPSA;
+ LPMIDIINCAPSA = ^_MIDIINCAPSA;
+ TMIDIINCAPSA  = MIDIINCAPSA;
+
+ _MIDIINCAPSW = packed Record
+                        wMid: WORD;
+                        wPid: WORD;
+                        vDriverVersion: MMVERSION;
+                        szPname: array [0..Pred(MAXPNAMELEN)] Of WCHAR;
+                        dwSupport: DWORD;
+ 		End;
+ MIDIINCAPSW = _MIDIINCAPSW;
+ PMIDIINCAPSW = ^_MIDIINCAPSW;
+ NPMIDIINCAPSW = ^_MIDIINCAPSW;
+ LPMIDIINCAPSW = ^_MIDIINCAPSW;
+ TMIDIINCAPSW  = MIDIINCAPSW;
+ 
+ {$ifdef UNICODE}
+  MIDIINCAPS    = MIDIINCAPSW;
+  PMIDIINCAPS   = PMIDIINCAPSW;
+  NPMIDIINCAPS  = NPMIDIINCAPSW;
+  LPMIDIINCAPS  = LPMIDIINCAPSW;
+  MIDIOUTCAPS   = MIDIOUTCAPSW;
+  PMIDIOUTCAPS  = PMIDIOUTCAPSW;
+  NPMIDIOUTCAPS = NPMIDIOUTCAPSW;
+  LPMIDIOUTCAPS = LPMIDIOUTCAPSW;
+ {$else}
+  MIDIOUTCAPS   = MIDIOUTCAPSA;
+  PMIDIOUTCAPS  = PMIDIOUTCAPSA;
+  NPMIDIOUTCAPS = NPMIDIOUTCAPSA;
+  LPMIDIOUTCAPS = LPMIDIOUTCAPSA;
+  MIDIINCAPS    = MIDIINCAPSA;
+  PMIDIINCAPS   = PMIDIINCAPSA; 
+  NPMIDIINCAPS  = NPMIDIINCAPSA;
+  LPMIDIINCAPS  = LPMIDIINCAPSA;
+ {$endif}
+ TMIDIINCAPS  = MIDIINCAPS;
+
+ PMIDIHDR = ^_midihdr;
+ _midihdr = packed Record
+                    lpData: PChar;
+                    dwBufferLength: DWORD;
+                    dwBytesRecorded: DWORD;
+                    dwUser: DWORD;
+                    dwFlags: DWORD;
+                    lpNext: PMIDIHDR;
+                    reserved: DWORD;
+                    dwOffset: DWORD;
+                    dwReserved: array [0..Pred(8)] Of DWORD;
+	    End;
+ MIDIHDR   = _midihdr;
+ NPMIDIHDR = ^_midihdr;
+ LPMIDIHDR = ^_midihdr;
+ TMIDIHDR  = MIDIHDR;
+
+ _midievent = packed Record
+                      dwDeltaTime: DWORD;
+                      dwStreamID: DWORD;
+                      dwEvent: DWORD;
+                      dwParms: array [0..Pred(1)] Of DWORD;
+		End;
+ MIDIEVENT = _midievent;
+ TMIDIEVENT= MIDIEVENT;
+
+ _midistrmbuffver = packed Record
+                            dwVersion: DWORD;
+                            dwMid: DWORD;
+                            dwOEMVersion: DWORD;
+ 		    End;
+ MIDISTRMBUFFVER = _midistrmbuffver;
+ TMIDISTRMBUFFVER = MIDISTRMBUFFVER;
+
+ _midiproptimediv = packed Record
+                            cbStruct: DWORD;
+                            dwTimeDiv: DWORD;
+		    End;
+ MIDIPROPTIMEDIV = _midiproptimediv;
+ LPMIDIPROPTIMEDIV = ^_midiproptimediv;
+ TMIDIPROPTIMEDIV =  MIDIPROPTIMEDIV;
+
+ _midiproptempo = packed Record
+                          cbStruct: DWORD;
+                          dwTempo: DWORD;
+		  End;
+ MIDIPROPTEMPO = _midiproptempo;
+ LPMIDIPROPTEMPO = ^_midiproptempo;
+ TMIDIPROPTEMPO = MIDIPROPTEMPO;
+
+ _AUXCAPSA = packed Record
+                     wMid: WORD;
+                     wPid: WORD;
+                     vDriverVersion: MMVERSION;
+                     szPname: array [0..Pred(MAXPNAMELEN)] Of CHAR;
+                     wTechnology: WORD;
+                     wReserved1: WORD;
+                     dwSupport: DWORD;
+		End;
+ AUXCAPSA   = _AUXCAPSA;
+ PAUXCAPSA  = ^_AUXCAPSA;
+ NPAUXCAPSA = ^_AUXCAPSA;
+ LPAUXCAPSA = ^_AUXCAPSA;
+ TAUXCAPSA  = AUXCAPSA;
+ _AUXCAPSW  = packed Record
+                     wMid: WORD;
+                     wPid: WORD;
+                     vDriverVersion: MMVERSION;
+                     szPname: array [0..Pred(MAXPNAMELEN)] Of WCHAR;
+                     wTechnology: WORD;
+                     wReserved1: WORD;
+                     dwSupport: DWORD;
+		End;
+ AUXCAPSW  = _AUXCAPSW;
+ PAUXCAPSW  = ^_AUXCAPSW;
+ NPAUXCAPSW = ^_AUXCAPSW;
+ LPAUXCAPSW = ^_AUXCAPSW;
+ TAUXCAPSW  = AUXCAPSW;
+ {$ifdef UNICODE}
+  AUXCAPS = AUXCAPSW;
+  PAUXCAPS = PAUXCAPSW;
+  NPAUXCAPS = NPAUXCAPSW;
+  LPAUXCAPS = LPAUXCAPSW;
+ {$else} 
+  AUXCAPS = AUXCAPSA;
+  PAUXCAPS = PAUXCAPSA;
+  NPAUXCAPS = NPAUXCAPSA;
+  LPAUXCAPS = LPAUXCAPSA;
+  {$endif}
+  TAUXCAPS  = AUXCAPS;
+
+ HMIXEROBJ = THandle;
+ LPHMIXEROBJ = ^HMIXEROBJ;
+ HMIXER = THandle;
+ LPHMIXER = ^HMIXER;
+
+Function mixerGetNumDevs: UINT;stdcall; external 'winmm.dll' name 'mixerGetNumDevs';
+
+Type 
+  _MIXERCAPSA = packed Record
+                         wMid: WORD;
+                         wPid: WORD;
+                         vDriverVersion: MMVERSION;
+                         szPname: array [0..Pred(MAXPNAMELEN)] Of CHAR;
+                         fdwSupport: DWORD;
+                         cDestinations: DWORD;
+		   End;
+ MIXERCAPSA   = _MIXERCAPSA;
+ PMIXERCAPSA  = ^_MIXERCAPSA;
+ LPMIXERCAPSA = ^_MIXERCAPSA;
+ TMIXERCAPSA  = MIXERCAPSA;
+
+ _MIXERCAPSW  = packed Record
+                       wMid: WORD;
+                       wPid: WORD;
+                       vDriverVersion: MMVERSION;
+                       szPname: array [0..Pred(MAXPNAMELEN)] Of WCHAR;
+                       fdwSupport: DWORD;
+                       cDestinations: DWORD;
+		End;
+ MIXERCAPSW   = _MIXERCAPSW;
+ PMIXERCAPSW  = ^_MIXERCAPSW;
+ LPMIXERCAPSW = ^_MIXERCAPSW;
+ TMIXERCAPSW  = MIXERCAPSW;
+
+ {$ifdef UNICODE}
+  MIXERCAPS   = MIXERCAPSW;
+  PMIXERCAPS  = PMIXERCAPSW;
+  LPMIXERCAPS = LPMIXERCAPSW;
+ {$else}
+  MIXERCAPS   = MIXERCAPSA;
+  PMIXERCAPS  = PMIXERCAPSA;
+  LPMIXERCAPS = LPMIXERCAPSA;
+ {$endif}
+  TMIXERCAPS = MIXERCAPS;
+
+  _MIXERLINEA = packed Record
+                       cbStruct: DWORD;
+                       dwDestination: DWORD;
+                       dwSource: DWORD;
+                       dwLineID: DWORD;
+                       fdwLine: DWORD;
+                       dwUser: DWORD;
+                       dwComponentType: DWORD;
+                       cChannels: DWORD;
+                       cConnections: DWORD;
+                       cControls: DWORD;
+                       szShortName: array [0..Pred(MIXER_SHORT_NAME_CHARS)] Of CHAR;
+                       szName: array [0..Pred(MIXER_LONG_NAME_CHARS)] Of CHAR;
+                       Target: packed Record
+                                dwType,dwDeviceID: DWORD;
+                                wMid,wPid: WORD;
+                                vDriverVersion: MMVERSION;
+                                szPname: array[0..pred(MAXPNAMELEN)] Of Char;
+				End;
+		       End;
+ MIXERLINEA   = _MIXERLINEA;
+ PMIXERLINEA  = ^_MIXERLINEA;
+ LPMIXERLINEA = ^_MIXERLINEA;
+ TMIXERLINEA  = MIXERLINEA;
+
+ _MIXERLINEW  = packed Record
+                       cbStruct: DWORD;
+                       dwDestination: DWORD;
+                       dwSource: DWORD;
+                       dwLineID: DWORD;
+                       fdwLine: DWORD;
+                       dwUser: DWORD;
+                       dwComponentType: DWORD;
+                       cChannels: DWORD;
+                       cConnections: DWORD;
+                       cControls: DWORD;
+                       szShortName: array [0..Pred(MIXER_SHORT_NAME_CHARS)] Of WCHAR;
+                       szName: array [0..Pred(MIXER_LONG_NAME_CHARS)] Of WCHAR;
+                       Target: packed Record
+                                        dwType,dwDeviceID: DWORD;
+                                        wMid,wPid: WORD;
+                                        vDriverVersion: MMVERSION;
+                                        szPname: array[0..pred(MAXPNAMELEN)] Of WChar;
+				End;
+			End;
+ MIXERLINEW   = _MIXERLINEW;
+ TMIXERLINEW  = MIXERLINEW;
+ PMIXERLINEW  = ^_MIXERLINEW;
+ LPMIXERLINEW = ^_MIXERLINEW;
+ {$ifdef UNICODE}
+  MIXERLINE   = MIXERLINEW;
+  PMIXERLINE  = PMIXERLINEW;
+  LPMIXERLINE = LPMIXERLINEW;
+ {$else}
+  MIXERLINE   = MIXERLINEA;
+  PMIXERLINE  = PMIXERLINEA;
+  LPMIXERLINE = LPMIXERLINEA;
+ {$endif}
+ TMIXERLINE = MIXERLINE;
+
+ _MIXERCONTROLA = packed Record
+                          cbStruct: DWORD;
+                          dwControlID: DWORD;
+                          dwControlType: DWORD;
+                          fdwControl: DWORD;
+                          cMultipleItems: DWORD;
+                          szShortName: array [0..Pred(MIXER_SHORT_NAME_CHARS)] Of CHAR;
+                          szName: array [0..Pred(MIXER_LONG_NAME_CHARS)] Of CHAR;
+                          Bounds: packed Record
+                                           Case integer Of
+                                             0: (lMinimum, lMaximum: longint);
+                                             1: (dwMinimum, dwMaximum: DWORD);
+                                             2: (dwReserved: Array[0..5] Of DWORD);
+					   End;
+			  Metrics: packed Record
+                                            Case Integer Of
+                                              0: (cSteps: DWORD);
+                                              1: (cbCustomData: DWORD);
+                                              2: (dwReserved: Array[0..5] Of DWORD);
+                                            End;
+			  End;
+ MIXERCONTROLA   = _MIXERCONTROLA;
+ PMIXERCONTROLA  = ^_MIXERCONTROLA;
+ LPMIXERCONTROLA = ^_MIXERCONTROLA;
+ TMIXERCONTROLA  = MIXERCONTROLA;
+
+ _MIXERCONTROLW = packed Record
+                          cbStruct: DWORD;
+                          dwControlID: DWORD;
+                          dwControlType: DWORD;
+                          fdwControl: DWORD;
+                          cMultipleItems: DWORD;
+                          szShortName: array [0..Pred(MIXER_SHORT_NAME_CHARS)] Of WCHAR;
+                          szName: array [0..Pred(MIXER_LONG_NAME_CHARS)] Of WCHAR;
+                          Bounds: packed Record
+                                           Case integer Of
+                                             0: (lMinimum, lMaximum: longint);
+                                             1: (dwMinimum, dwMaximum: DWORD);
+                                             2: (dwReserved: Array[0..5] Of DWORD);
+					   End;
+			  Metrics: packed Record
+                                           Case Integer Of
+                                             0: (cSteps: DWORD);
+                                             1: (cbCustomData: DWORD);
+                                             2: (dwReserved: Array[0..5] Of DWORD);
+		                           End;
+			  End;
+ MIXERCONTROLW   = _MIXERCONTROLW;
+ PMIXERCONTROLW  = ^_MIXERCONTROLW;
+ LPMIXERCONTROLW = ^_MIXERCONTROLW;
+ TMIXERCONTROLW  = MIXERCONTROLW;
+ {$ifdef UNICODE}
+  MIXERCONTROL   = MIXERCONTROLW;
+  PMIXERCONTROL  = PMIXERCONTROLW;
+  LPMIXERCONTROL = LPMIXERCONTROLW;
+ {$else}
+  MIXERCONTROL   = MIXERCONTROLA;
+  PMIXERCONTROL  = PMIXERCONTROLA;
+  LPMIXERCONTROL = LPMIXERCONTROLA;
+ {$endif}
+ TMIXERCONTROL   = MIXERCONTROL;
+
+ 
+ _MIXERLINECONTROLSA  = packed Record
+                               cbStruct: DWORD;
+                               dwLineID: DWORD;
+                               Case Integer Of
+                                 0: (dwControlID: DWORD);
+                                 1: (dwControlType, cControls, cbmxctrl: DWORD; pamxctrl:PMIXERCONTROLA);
+				End;
+ MIXERLINECONTROLSA   = _MIXERLINECONTROLSA;
+ PMIXERLINECONTROLSA  = ^_MIXERLINECONTROLSA;
+ LPMIXERLINECONTROLSA = ^_MIXERLINECONTROLSA;
+ TMIXERLINECONTROLSA  = MIXERLINECONTROLSA;
+
+ _MIXERLINECONTROLSW  = packed Record
+                               cbStruct: DWORD;
+                               dwLineID: DWORD;
+                               Case Integer Of
+                                 0: (dwControlID: DWORD);
+                                 1: (dwControlType, cControls, cbmxctrl: DWORD; pamxctrl:PMIXERCONTROLW);
+				End;
+ MIXERLINECONTROLSW   = _MIXERLINECONTROLSW;
+ PMIXERLINECONTROLSW  = ^_MIXERLINECONTROLSW;
+ LPMIXERLINECONTROLSW = ^_MIXERLINECONTROLSW;
+ TMIXERLINECONTROLSW  = MIXERLINECONTROLSW;
+
 {$ifdef UNICODE}
-MCI_OVLY_LOAD_PARMS = MCI_OVLY_LOAD_PARMSW;
-PMCI_OVLY_LOAD_PARMS = PMCI_OVLY_LOAD_PARMSW;
-LPMCI_OVLY_LOAD_PARMS = LPMCI_OVLY_LOAD_PARMSW;
+ MIXERLINECONTROLS = MIXERLINECONTROLSW;
+ PMIXERLINECONTROLS = PMIXERLINECONTROLSW;
+ LPMIXERLINECONTROLS = LPMIXERLINECONTROLSW;
 {$else}
-MCI_OVLY_LOAD_PARMS = MCI_OVLY_LOAD_PARMSA;
-PMCI_OVLY_LOAD_PARMS = PMCI_OVLY_LOAD_PARMSA;
-LPMCI_OVLY_LOAD_PARMS = LPMCI_OVLY_LOAD_PARMSA;
+ MIXERLINECONTROLS = MIXERLINECONTROLSA;
+ PMIXERLINECONTROLS = PMIXERLINECONTROLSA;
+ LPMIXERLINECONTROLS = LPMIXERLINECONTROLSA;
 {$endif}
+ TMIXERLINECONTROLS  = MIXERLINECONTROLS;
+
+ TMIXERCONTROLDETAILS = packed Record
+                                cbStruct: DWORD;
+                                dwControlID: DWORD;
+                                cChannels: DWORD;
+                                Case Integer Of
+                                  0: (hwndOwner: tHandle);
+                                  1: (cMultipleItems, cbDetails: DWORD;
+                                      paDetails: Pointer);
+				 End;
+ MIXERCONTROLDETAILS   = tMIXERCONTROLDETAILS;
+ PMIXERCONTROLDETAILS  = ^tMIXERCONTROLDETAILS;
+ LPMIXERCONTROLDETAILS = ^tMIXERCONTROLDETAILS;
+
+ _MIXERCONTROLDETAILS_LISTTEXTA = packed Record
+                                          dwParam1: DWORD;
+                                          dwParam2: DWORD;
+                                          szName: array [0..Pred(MIXER_LONG_NAME_CHARS)] Of CHAR;
+					  End;
+ MIXERCONTROLDETAILS_LISTTEXTA   = _MIXERCONTROLDETAILS_LISTTEXTA;
+ PMIXERCONTROLDETAILS_LISTTEXTA  = ^_MIXERCONTROLDETAILS_LISTTEXTA;
+ LPMIXERCONTROLDETAILS_LISTTEXTA = ^_MIXERCONTROLDETAILS_LISTTEXTA;
+ TMIXERCONTROLDETAILS_LISTTEXTA  = MIXERCONTROLDETAILS_LISTTEXTA;
+
+ _MIXERCONTROLDETAILS_LISTTEXTW  = packed Record
+                                          dwParam1: DWORD;
+                                          dwParam2: DWORD;
+                                          szName: array [0..Pred(MIXER_LONG_NAME_CHARS)] Of WCHAR;
+				   End;
+ MIXERCONTROLDETAILS_LISTTEXTW   = _MIXERCONTROLDETAILS_LISTTEXTW;
+ PMIXERCONTROLDETAILS_LISTTEXTW  = ^_MIXERCONTROLDETAILS_LISTTEXTW;
+ LPMIXERCONTROLDETAILS_LISTTEXTW = ^_MIXERCONTROLDETAILS_LISTTEXTW;
+ TMIXERCONTROLDETAILS_LISTTEXTW  = MIXERCONTROLDETAILS_LISTTEXTW;
+
+ {$ifdef UNICODE}
+  MIXERCONTROLDETAILS_LISTTEXT   = MIXERCONTROLDETAILS_LISTTEXTW;
+  PMIXERCONTROLDETAILS_LISTTEXT  = PMIXERCONTROLDETAILS_LISTTEXTW;
+  LPMIXERCONTROLDETAILS_LISTTEXT = LPMIXERCONTROLDETAILS_LISTTEXTW;
+ {$else}
+  MIXERCONTROLDETAILS_LISTTEXT   = MIXERCONTROLDETAILS_LISTTEXTA;
+  PMIXERCONTROLDETAILS_LISTTEXT  = PMIXERCONTROLDETAILS_LISTTEXTA;
+  LPMIXERCONTROLDETAILS_LISTTEXT = LPMIXERCONTROLDETAILS_LISTTEXTA;
+ {$endif}
+ TMIXERCONTROLDETAILS_LISTTEXT  = MIXERCONTROLDETAILS_LISTTEXT;
+
+_MIXERCONTROLDETAILS_BOOLEAN = packed Record
+                                        fValue: longint;
+					End;
+ MIXERCONTROLDETAILS_BOOLEAN   = _MIXERCONTROLDETAILS_BOOLEAN;
+ PMIXERCONTROLDETAILS_BOOLEAN  = ^_MIXERCONTROLDETAILS_BOOLEAN;
+ LPMIXERCONTROLDETAILS_BOOLEAN = ^_MIXERCONTROLDETAILS_BOOLEAN;
+ TMIXERCONTROLDETAILS_BOOLEAN  = MIXERCONTROLDETAILS_BOOLEAN;
+
+ _MIXERCONTROLDETAILS_SIGNED = packed Record
+                                       lValue: longint;
+				       End;
+ MIXERCONTROLDETAILS_SIGNED   = _MIXERCONTROLDETAILS_SIGNED;
+ PMIXERCONTROLDETAILS_SIGNED  = ^_MIXERCONTROLDETAILS_SIGNED;
+ LPMIXERCONTROLDETAILS_SIGNED = ^_MIXERCONTROLDETAILS_SIGNED;
+ TMIXERCONTROLDETAILS_SIGNED  = _MIXERCONTROLDETAILS_SIGNED;
+
+ _MIXERCONTROLDETAILS_UNSIGNED = packed Record
+                                         dwValue: DWORD;
+					 End;
+ MIXERCONTROLDETAILS_UNSIGNED   = _MIXERCONTROLDETAILS_UNSIGNED;
+ PMIXERCONTROLDETAILS_UNSIGNED  = ^_MIXERCONTROLDETAILS_UNSIGNED;
+ LPMIXERCONTROLDETAILS_UNSIGNED = ^_MIXERCONTROLDETAILS_UNSIGNED;
+ TMIXERCONTROLDETAILS_UNSIGNED  = _MIXERCONTROLDETAILS_UNSIGNED;
+
+ LPTIMECALLBACK = 
+    Procedure (uTimerID, uMsg: UINT; dwUser, dw1, dw2: DWORD);stdcall;
+ TTIMECALLBACK=LPTIMECALLBACK;
+
+ _timecaps = packed Record
+                     wPeriodMin: UINT;
+                     wPeriodMax: UINT;
+		    End;
+ TIMECAPS   = _timecaps;
+ PTIMECAPS  = ^_timecaps;
+ NPTIMECAPS = ^_timecaps;
+ LPTIMECAPS = ^_timecaps;
+ TTIMECAS   = TIMECAPS;
+
+ _JOYCAPSA = packed Record
+                     wMid: WORD;
+                     wPid: WORD;
+                     szPname: array [0..Pred(MAXPNAMELEN)] Of CHAR;
+                     wXmin: UINT;
+                     wXmax: UINT;
+                     wYmin: UINT;
+                     wYmax: UINT;
+                     wZmin: UINT;
+                     wZmax: UINT;
+                     wNumButtons: UINT;
+                     wPeriodMin: UINT;
+                     wPeriodMax: UINT;
+                     wRmin: UINT;
+                     wRmax: UINT;
+                     wUmin: UINT;
+                     wUmax: UINT;
+                     wVmin: UINT;
+                     wVmax: UINT;
+                     wCaps: UINT;
+                     wMaxAxes: UINT;
+                     wNumAxes: UINT;
+                     wMaxButtons: UINT;
+                     szRegKey: array [0..Pred(MAXPNAMELEN)] Of CHAR;
+                     szOEMVxD: array [0..Pred(MAX_JOYSTICKOEMVXDNAME)] Of CHAR;
+		   End;
+ JOYCAPSA   = _JOYCAPSA;
+ PJOYCAPSA  = ^_JOYCAPSA;
+ NPJOYCAPSA = ^_JOYCAPSA;
+ LPJOYCAPSA = ^_JOYCAPSA;
+ TJOYCAPSA  = _JOYCAPSA;
+ 
+ _JOYCAPSW = packed Record
+                     wMid: WORD;
+                     wPid: WORD;
+                     szPname: array [0..Pred(MAXPNAMELEN)] Of WCHAR;
+                     wXmin: UINT;
+                     wXmax: UINT;
+                     wYmin: UINT;
+                     wYmax: UINT;
+                     wZmin: UINT;
+                     wZmax: UINT;
+                     wNumButtons: UINT;
+                     wPeriodMin: UINT;
+                     wPeriodMax: UINT;
+                     wRmin: UINT;
+                     wRmax: UINT;
+                     wUmin: UINT;
+                     wUmax: UINT;
+                     wVmin: UINT;
+                     wVmax: UINT;
+                     wCaps: UINT;
+                     wMaxAxes: UINT;
+                     wNumAxes: UINT;
+                     wMaxButtons: UINT;
+                     szRegKey: array [0..Pred(MAXPNAMELEN)] Of WCHAR;
+                     szOEMVxD: array [0..Pred(MAX_JOYSTICKOEMVXDNAME)] Of WCHAR;
+		   End;
+ JOYCAPSW   = _JOYCAPSW;
+ PJOYCAPSW  = ^_JOYCAPSW;
+ NPJOYCAPSW = ^_JOYCAPSW;
+ LPJOYCAPSW = ^_JOYCAPSW;
+ TJOYCAPSW  = _JOYCAPSW;
+
+ {$ifdef UNICODE}
+  JOYCAPS   = JOYCAPSW;
+  PJOYCAPS  = PJOYCAPSW;
+  NPJOYCAPS = NPJOYCAPSW;
+  LPJOYCAPS = LPJOYCAPSW;
+ {$else}
+  JOYCAPS  = JOYCAPSA;
+  PJOYCAPS  = PJOYCAPSA;
+  NPJOYCAPS = NPJOYCAPSA;
+  LPJOYCAPS = LPJOYCAPSA;
+ {$endif}
+ TJOYCAPS   = JOYCAPS;
+
+ _joyinfo = packed Record
+                    wXpos: UINT;
+                    wYpos: UINT;
+                    wZpos: UINT;
+                    wButtons: UINT;
+		   End;
+ JOYINFO   = _joyinfo;
+ PJOYINFO  = ^_joyinfo;
+ NPJOYINFO = ^_joyinfo;
+ LPJOYINFO = ^_joyinfo;
+ TJOYINFO  = JOYINFO;
+
+ _joyinfoex = packed Record
+                      dwSize: DWORD;
+                      dwFlags: DWORD;
+                      wXpos: UINT;
+                      wYpos: UINT;
+                      wZpos: UINT;
+                      dwRpos: DWORD;
+                      dwUpos: DWORD;
+                      dwVpos: DWORD;
+                      wButtons: UINT;
+                      dwButtonNumber: DWORD;
+                      dwPOV: DWORD;
+                      dwReserved1: DWORD;
+                      dwReserved2: DWORD;
+		     End;
+ JOYINFOEX   = _joyinfoex;
+ PJOYINFOEX  = ^_joyinfoex;
+ NPJOYINFOEX = ^_joyinfoex;
+ LPJOYINFOEX = ^_joyinfoex;
+ TJOYINFOEX  = JOYINFOEX;
+
+ FOURCC = DWORD;
+ HPSTR = ^char;
+ HMMIO = THandle;
+ LPMMIOPROC = 
+     Function (x1: LPSTR; x2: UINT; x3, x4: LPARAM): LRESULT;stdcall;
+ TMMIOPROC = LPMMIOPROC;
+
+ _MMIOINFO = packed Record
+                     dwFlags: DWORD;
+                     fccIOProc: FOURCC;
+                     pIOProc: LPMMIOPROC;
+                     wErrorRet: UINT;
+                     htask: HTASK;
+                     cchBuffer: longint;
+                     pchBuffer: HPSTR;
+                     pchNext: HPSTR;
+                     pchEndRead: HPSTR;
+                     pchEndWrite: HPSTR;
+                     lBufOffset: longint;
+                     lDiskOffset: longint;
+                     adwInfo: array [0..Pred(3)] Of DWORD;
+                     dwReserved1: DWORD;
+                     dwReserved2: DWORD;
+                     hmmio: HMMIO;
+		    End;
+ MMIOINFO    = _MMIOINFO;
+ PMMIOINFO   = ^_MMIOINFO;
+ NPMMIOINFO  = ^_MMIOINFO;
+ LPMMIOINFO  = ^_MMIOINFO;
+ LPCMMIOINFO = ^MMIOINFO;
+ TMMIOINFO   = MMIOINFO;
+
+ _MMCKINFO = packed Record
+                     ckid: FOURCC;
+                     cksize: DWORD;
+                     fccType: FOURCC;
+                     dwDataOffset: DWORD;
+                     dwFlags: DWORD;
+		   End;
+ MMCKINFO    = _MMCKINFO;
+ PMMCKINFO   = ^_MMCKINFO;
+ NPMMCKINFO  = ^_MMCKINFO;
+ LPMMCKINFO  = ^_MMCKINFO;
+ LPCMMCKINFO = ^MMCKINFO;
+ TMMCKINFO   = MMCKINFO;
+
+ MCIERROR = DWORD;
+ MCIDEVICEID = UINT;
+ YIELDPROC = 
+     Function (mciId: MCIDEVICEID;  dwYieldData: DWORD): UINT;stdcall;
+  TYIELDPROC = YIELDPROC;
+
+ _MCI_GENERIC_PARMS = packed Record
+                              dwCallback: DWORD;
+			     End;
+ MCI_GENERIC_PARMS   = _MCI_GENERIC_PARMS;
+ PMCI_GENERIC_PARMS  = ^_MCI_GENERIC_PARMS;
+ LPMCI_GENERIC_PARMS = ^_MCI_GENERIC_PARMS;
+ TMCI_GENERIC_PARMS  = MCI_GENERIC_PARMS;
+
+ _MCI_OPEN_PARMSA = packed Record
+                            dwCallback: DWORD;
+                            wDeviceID: MCIDEVICEID;
+                            lpstrDeviceType: LPCSTR;
+                            lpstrElementName: LPCSTR;
+                            lpstrAlias: LPCSTR;
+		            End;
+ MCI_OPEN_PARMSA   = _MCI_OPEN_PARMSA;
+ PMCI_OPEN_PARMSA  = ^_MCI_OPEN_PARMSA;
+ LPMCI_OPEN_PARMSA = ^_MCI_OPEN_PARMSA;
+ TMCI_OPEN_PARMSA  = MCI_OPEN_PARMSA;
+
+ _MCI_OPEN_PARMSW = packed Record
+                            dwCallback: DWORD;
+                            wDeviceID: MCIDEVICEID;
+                            lpstrDeviceType: LPCWSTR;
+                            lpstrElementName: LPCWSTR;
+                            lpstrAlias: LPCWSTR;
+			  End; 
+ MCI_OPEN_PARMSW   = _MCI_OPEN_PARMSW;
+ PMCI_OPEN_PARMSW  = ^_MCI_OPEN_PARMSW;
+ LPMCI_OPEN_PARMSW = ^_MCI_OPEN_PARMSW;
+ TMCI_OPEN_PARMSW  = _MCI_OPEN_PARMSW;
+ {$ifdef UNICODE}
+  MCI_OPEN_PARMS   = MCI_OPEN_PARMSW;
+  PMCI_OPEN_PARMS  = PMCI_OPEN_PARMSW;
+  LPMCI_OPEN_PARMS = LPMCI_OPEN_PARMSW;
+ {$else}
+  MCI_OPEN_PARMS   = MCI_OPEN_PARMSA;
+  PMCI_OPEN_PARMS  = PMCI_OPEN_PARMSA;
+  LPMCI_OPEN_PARMS = LPMCI_OPEN_PARMSA;
+ {$endif}
+  TMCI_OPEN_PARMS = MCI_OPEN_PARMS;
+
+ _MCI_PLAY_PARMS = packed Record
+                           dwCallback: DWORD;
+                           dwFrom: DWORD;
+                           dwTo: DWORD;
+			 End;
+ MCI_PLAY_PARMS   = _MCI_PLAY_PARMS;
+ PMCI_PLAY_PARMS  = ^_MCI_PLAY_PARMS;
+ LPMCI_PLAY_PARMS = ^_MCI_PLAY_PARMS;
+ TMCI_PLAY_PARMS  = _MCI_PLAY_PARMS;
+
+ _MCI_SEEK_PARMS = packed Record
+                           dwCallback: DWORD;
+                           dwTo: DWORD;
+			  End;
+ MCI_SEEK_PARMS   = _MCI_SEEK_PARMS;
+ PMCI_SEEK_PARMS  = ^_MCI_SEEK_PARMS;
+ LPMCI_SEEK_PARMS = ^_MCI_SEEK_PARMS;
+ TMCI_SEEK_PARMS  = _MCI_SEEK_PARMS;
+
+ _MCI_STATUS_PARMS = packed Record
+                             dwCallback: DWORD;
+                             dwReturn: DWORD;
+                             dwItem: DWORD;
+                             dwTrack: DWORD;
+			    End;
+ MCI_STATUS_PARMS   = _MCI_STATUS_PARMS;
+ PMCI_STATUS_PARMS  = ^_MCI_STATUS_PARMS;
+ LPMCI_STATUS_PARMS = ^_MCI_STATUS_PARMS;
+ TMCI_STATUS_PARMS  = _MCI_STATUS_PARMS;
+
+ _MCI_INFO_PARMSA = packed Record
+                            dwCallback: DWORD;
+                            lpstrReturn: PChar;
+                            dwRetSize: DWORD;
+			  End;
+ MCI_INFO_PARMSA   = _MCI_INFO_PARMSA;
+ LPMCI_INFO_PARMSA = ^_MCI_INFO_PARMSA;
+ TMCI_INFO_PARMSA  = _MCI_INFO_PARMSA;
+
+ _MCI_INFO_PARMSW  = packed Record
+                            dwCallback: DWORD;
+                            lpstrReturn: LPWSTR;
+                            dwRetSize: DWORD;
+			End;
+ MCI_INFO_PARMSW   = _MCI_INFO_PARMSW;
+ LPMCI_INFO_PARMSW = ^_MCI_INFO_PARMSW;
+ TMCI_INFO_PARMSW  = _MCI_INFO_PARMSW;
+
+ {$ifdef UNICODE}
+  MCI_INFO_PARMS   = MCI_INFO_PARMSW;
+  LPMCI_INFO_PARMS = LPMCI_INFO_PARMSW;
+ {$else}
+  MCI_INFO_PARMS   = MCI_INFO_PARMSA;
+  LPMCI_INFO_PARMS = LPMCI_INFO_PARMSA;
+ {$endif}
+  TMCI_INFO_PARMS = MCI_INFO_PARMS; 
+
+ _MCI_GETDEVCAPS_PARMS = packed Record
+                                 dwCallback: DWORD;
+                                 dwReturn: DWORD;
+                                 dwItem: DWORD;
+				End;
+ MCI_GETDEVCAPS_PARMS   = _MCI_GETDEVCAPS_PARMS;
+ PMCI_GETDEVCAPS_PARMS  = ^_MCI_GETDEVCAPS_PARMS;
+ LPMCI_GETDEVCAPS_PARMS = ^_MCI_GETDEVCAPS_PARMS;
+ TMCI_GETDEVCAPS_PARMS  = _MCI_GETDEVCAPS_PARMS;
+
+
+
+ _MCI_SYSINFO_PARMSA = packed Record
+                               dwCallback: DWORD;
+                               lpstrReturn: PChar;
+                               dwRetSize: DWORD;
+                               dwNumber: DWORD;
+                               wDeviceType: UINT;
+ 			       End;
+ MCI_SYSINFO_PARMSA   = _MCI_SYSINFO_PARMSA;
+ PMCI_SYSINFO_PARMSA  = ^_MCI_SYSINFO_PARMSA;
+ LPMCI_SYSINFO_PARMSA = ^_MCI_SYSINFO_PARMSA;
+ TMCI_SYSINFO_PARMSA  = _MCI_SYSINFO_PARMSA;
+
+ _MCI_SYSINFO_PARMSW = packed Record
+                               dwCallback: DWORD;
+                               lpstrReturn: LPWSTR;
+                               dwRetSize: DWORD;
+                               dwNumber: DWORD;
+                               wDeviceType: UINT;
+			       End;
+ MCI_SYSINFO_PARMSW   = _MCI_SYSINFO_PARMSW;
+ PMCI_SYSINFO_PARMSW  = ^_MCI_SYSINFO_PARMSW;
+ LPMCI_SYSINFO_PARMSW = ^_MCI_SYSINFO_PARMSW;
+ TMCI_SYSINFO_PARMSW  = _MCI_SYSINFO_PARMSW;
+ {$ifdef UNICODE}
+  MCI_SYSINFO_PARMS = MCI_SYSINFO_PARMSW;
+  PMCI_SYSINFO_PARMS = PMCI_SYSINFO_PARMSW;
+  LPMCI_SYSINFO_PARMS = LPMCI_SYSINFO_PARMSW;
+ {$else} 
+  MCI_SYSINFO_PARMS = MCI_SYSINFO_PARMSA;
+  PMCI_SYSINFO_PARMS = PMCI_SYSINFO_PARMSA;
+  LPMCI_SYSINFO_PARMS = LPMCI_SYSINFO_PARMSA;
+ {$endif}
+ TMCI_SYSINFO_PARMS = MCI_SYSINFO_PARMS;
+
+ _MCI_SET_PARMS = packed Record
+                          dwCallback: DWORD;
+                          dwTimeFormat: DWORD;
+                          dwAudio: DWORD;
+			 End;
+ MCI_SET_PARMS   = _MCI_SET_PARMS;
+ PMCI_SET_PARMS  = ^_MCI_SET_PARMS;
+ LPMCI_SET_PARMS = ^_MCI_SET_PARMS;
+ TMCI_SET_PARMS  = _MCI_SET_PARMS;
+
+ _MCI_BREAK_PARMS = packed Record
+                            dwCallback: DWORD;
+                            nVirtKey: longint;
+                            hwndBreak: HWND;
+			  End;
+ MCI_BREAK_PARMS   = _MCI_BREAK_PARMS;
+ PMCI_BREAK_PARMS  = ^_MCI_BREAK_PARMS;
+ LPMCI_BREAK_PARMS = ^_MCI_BREAK_PARMS;
+ TMCI_BREAK_PARMS  = _MCI_BREAK_PARMS;
+
+ _MCI_SAVE_PARMSA = packed Record
+                            dwCallback: DWORD;
+                            lpfilename: LPCSTR;
+			   End;
+ MCI_SAVE_PARMSA   = _MCI_SAVE_PARMSA;
+ PMCI_SAVE_PARMSA  = ^_MCI_SAVE_PARMSA;
+ LPMCI_SAVE_PARMSA = ^_MCI_SAVE_PARMSA;
+ TMCI_SAVE_PARMSA  = _MCI_SAVE_PARMSA;
+
+ _MCI_SAVE_PARMSW = packed Record
+                            dwCallback: DWORD;
+                            lpfilename: LPCWSTR;
+			   End;
+ MCI_SAVE_PARMSW   = _MCI_SAVE_PARMSW;
+ PMCI_SAVE_PARMSW  = ^_MCI_SAVE_PARMSW;
+ LPMCI_SAVE_PARMSW = ^_MCI_SAVE_PARMSW;
+ TMCI_SAVE_PARMSW  = _MCI_SAVE_PARMSW;
+
+ {$ifdef UNICODE}
+  MCI_SAVE_PARMS   = MCI_SAVE_PARMSW;
+  PMCI_SAVE_PARMS  = PMCI_SAVE_PARMSW;
+  LPMCI_SAVE_PARMS = LPMCI_SAVE_PARMSW;
+ {$else}
+  MCI_SAVE_PARMS   = MCI_SAVE_PARMSA;
+  PMCI_SAVE_PARMS  = PMCI_SAVE_PARMSA;
+  LPMCI_SAVE_PARMS = LPMCI_SAVE_PARMSA;
+ {$endif}
+  TMCI_SAVE_PARMS = MCI_SAVE_PARMS;
+
+ _MCI_LOAD_PARMSA = packed Record
+                            dwCallback: DWORD;
+                            lpfilename: LPCSTR;
+			 End;
+ MCI_LOAD_PARMSA   = _MCI_LOAD_PARMSA;
+ PMCI_LOAD_PARMSA  = ^_MCI_LOAD_PARMSA;
+ LPMCI_LOAD_PARMSA = ^_MCI_LOAD_PARMSA;
+ TMCI_LOAD_PARMSA  = _MCI_LOAD_PARMSA;
+
+ _MCI_LOAD_PARMSW  = packed Record
+                            dwCallback: DWORD;
+                            lpfilename: LPCWSTR;
+			   End;
+
+ MCI_LOAD_PARMSW   = _MCI_LOAD_PARMSW;
+ PMCI_LOAD_PARMSW  = ^_MCI_LOAD_PARMSW;
+ LPMCI_LOAD_PARMSW = ^_MCI_LOAD_PARMSW;
+ TMCI_LOAD_PARMSW  = _MCI_LOAD_PARMSW;
+
+ {$ifdef UNICODE}
+  MCI_LOAD_PARMS   = MCI_LOAD_PARMSW;
+  PMCI_LOAD_PARMS  = PMCI_LOAD_PARMSW;
+  LPMCI_LOAD_PARMS = LPMCI_LOAD_PARMSW;
+ {$else}
+  MCI_LOAD_PARMS   = MCI_LOAD_PARMSA;
+  PMCI_LOAD_PARMS  = PMCI_LOAD_PARMSA;
+  LPMCI_LOAD_PARMS = LPMCI_LOAD_PARMSA;
+ {$endif}
+ TMCI_LOAD_PARMS = MCI_LOAD_PARMS;
+
+ _MCI_RECORD_PARMS = packed Record
+                             dwCallback: DWORD;
+                             dwFrom: DWORD;
+                             dwTo: DWORD;
+			    End;
+ MCI_RECORD_PARMS   = _MCI_RECORD_PARMS;
+ LPMCI_RECORD_PARMS = ^_MCI_RECORD_PARMS;
+ TMCI_RECORD_PARMS  = _MCI_RECORD_PARMS;
+
+ _MCI_VD_PLAY_PARMS = packed Record
+                              dwCallback: DWORD;
+                              dwFrom: DWORD;
+                              dwTo: DWORD;
+                              dwSpeed: DWORD;
+			     End;
+ MCI_VD_PLAY_PARMS   = _MCI_VD_PLAY_PARMS;
+ PMCI_VD_PLAY_PARMS  = ^_MCI_VD_PLAY_PARMS;
+ LPMCI_VD_PLAY_PARMS = ^_MCI_VD_PLAY_PARMS;
+ TMCI_VD_PLAY_PARMS  = _MCI_VD_PLAY_PARMS;
+
+ _MCI_VD_STEP_PARMS  = packed Record
+                              dwCallback: DWORD;
+                              dwFrames: DWORD;
+			    End;
+ MCI_VD_STEP_PARMS     = _MCI_VD_STEP_PARMS;
+ PMCI_VD_STEP_PARMS    = ^_MCI_VD_STEP_PARMS;
+ LPMCI_VD_STEP_PARMS   = ^_MCI_VD_STEP_PARMS;
+
+ _MCI_VD_ESCAPE_PARMSA = packed Record
+                                 dwCallback: DWORD;
+                                 lpstrCommand: LPCSTR;
+				End;
+ MCI_VD_ESCAPE_PARMSA   = _MCI_VD_ESCAPE_PARMSA;
+ PMCI_VD_ESCAPE_PARMSA  = ^_MCI_VD_ESCAPE_PARMSA;
+ LPMCI_VD_ESCAPE_PARMSA = ^_MCI_VD_ESCAPE_PARMSA;
+ TMCI_VD_ESCAPE_PARMSA  = _MCI_VD_ESCAPE_PARMSA;
+
+_MCI_VD_ESCAPE_PARMSW   = packed Record
+                                 dwCallback: DWORD;
+                                 lpstrCommand: LPCWSTR;
+				 End;
+ MCI_VD_ESCAPE_PARMSW   = _MCI_VD_ESCAPE_PARMSW;
+ PMCI_VD_ESCAPE_PARMSW  = ^_MCI_VD_ESCAPE_PARMSW;
+ LPMCI_VD_ESCAPE_PARMSW = ^_MCI_VD_ESCAPE_PARMSW;
+ TMCI_VD_ESCAPE_PARMSW  = _MCI_VD_ESCAPE_PARMSW;
+ {$ifdef UNICODE}
+  MCI_VD_ESCAPE_PARMS   = MCI_VD_ESCAPE_PARMSW;
+  PMCI_VD_ESCAPE_PARMS  = PMCI_VD_ESCAPE_PARMSW;
+  LPMCI_VD_ESCAPE_PARMS = LPMCI_VD_ESCAPE_PARMSW;
+ {$else}
+  MCI_VD_ESCAPE_PARMS   = MCI_VD_ESCAPE_PARMSA;
+  PMCI_VD_ESCAPE_PARMS  = PMCI_VD_ESCAPE_PARMSA;
+  LPMCI_VD_ESCAPE_PARMS = LPMCI_VD_ESCAPE_PARMSA;
+ {$endif}
+ TMCI_VD_ESCAPE_PARMS   = MCI_VD_ESCAPE_PARMS;
+
+ _MCI_WAVE_OPEN_PARMSA  = packed Record
+                                 dwCallback: DWORD;
+                                 wDeviceID: MCIDEVICEID;
+                                 lpstrDeviceType: LPCSTR;
+                                 lpstrElementName: LPCSTR;
+                                 lpstrAlias: LPCSTR;
+                                 dwBufferSeconds: DWORD;
+				End;
+ MCI_WAVE_OPEN_PARMSA   = _MCI_WAVE_OPEN_PARMSA;
+ PMCI_WAVE_OPEN_PARMSA  = ^_MCI_WAVE_OPEN_PARMSA;
+ LPMCI_WAVE_OPEN_PARMSA = ^_MCI_WAVE_OPEN_PARMSA;
+ TMCI_WAVE_OPEN_PARMSA  = _MCI_WAVE_OPEN_PARMSA;
+
+ _MCI_WAVE_OPEN_PARMSW  = packed Record
+                                 dwCallback: DWORD;
+                                 wDeviceID: MCIDEVICEID;
+                                 lpstrDeviceType: LPCWSTR;
+                                 lpstrElementName: LPCWSTR;
+                                 lpstrAlias: LPCWSTR;
+                                 dwBufferSeconds: DWORD;
+				End;
+ MCI_WAVE_OPEN_PARMSW   = _MCI_WAVE_OPEN_PARMSW;
+ PMCI_WAVE_OPEN_PARMSW  = ^_MCI_WAVE_OPEN_PARMSW;
+ LPMCI_WAVE_OPEN_PARMSW = ^_MCI_WAVE_OPEN_PARMSW;
+ TMCI_WAVE_OPEN_PARMSW  = _MCI_WAVE_OPEN_PARMSW;
+ {$ifdef UNICODE}
+  MCI_WAVE_OPEN_PARMS   = MCI_WAVE_OPEN_PARMSW;
+  PMCI_WAVE_OPEN_PARMS  = PMCI_WAVE_OPEN_PARMSW;
+  LPMCI_WAVE_OPEN_PARMS = LPMCI_WAVE_OPEN_PARMSW;
+ {$else}
+  MCI_WAVE_OPEN_PARMS = MCI_WAVE_OPEN_PARMSA;
+  PMCI_WAVE_OPEN_PARMS = PMCI_WAVE_OPEN_PARMSA;
+  LPMCI_WAVE_OPEN_PARMS = LPMCI_WAVE_OPEN_PARMSA;
+ {$endif}
+ TMCI_WAVE_OPEN_PARMS   = MCI_WAVE_OPEN_PARMS;
+
+ _MCI_WAVE_DELETE_PARMS = packed Record
+                                  dwCallback: DWORD;
+                                  dwFrom: DWORD;
+                                  dwTo: DWORD;
+				End;
+ MCI_WAVE_DELETE_PARMS = _MCI_WAVE_DELETE_PARMS;
+ PMCI_WAVE_DELETE_PARMS = ^_MCI_WAVE_DELETE_PARMS;
+ LPMCI_WAVE_DELETE_PARMS = ^_MCI_WAVE_DELETE_PARMS;
+ TMCI_WAVE_DELETE_PARMS = _MCI_WAVE_DELETE_PARMS;
+ 
+ _MCI_WAVE_SET_PARMS = packed Record
+                               dwCallback: DWORD;
+                               dwTimeFormat: DWORD;
+                               dwAudio: DWORD;
+                               wInput: UINT;
+                               wOutput: UINT;
+                               wFormatTag: WORD;
+                               wReserved2: WORD;
+                               nChannels: WORD;
+                               wReserved3: WORD;
+                               nSamplesPerSec: DWORD;
+                               nAvgBytesPerSec: DWORD;
+                               nBlockAlign: WORD;
+                               wReserved4: WORD;
+                               wBitsPerSample: WORD;
+                               wReserved5: WORD;
+				End;
+ MCI_WAVE_SET_PARMS   = _MCI_WAVE_SET_PARMS;
+ PMCI_WAVE_SET_PARMS  = ^_MCI_WAVE_SET_PARMS;
+ LPMCI_WAVE_SET_PARMS = ^_MCI_WAVE_SET_PARMS;
+ TMCI_WAVE_SET_PARMS  = _MCI_WAVE_SET_PARMS;
+
+ _MCI_SEQ_SET_PARMS  = packed Record
+                              dwCallback: DWORD;
+                              dwTimeFormat: DWORD;
+                              dwAudio: DWORD;
+                              dwTempo: DWORD;
+                              dwPort: DWORD;
+                              dwSlave: DWORD;
+                              dwMaster: DWORD;
+                              dwOffset: DWORD;
+			     End;
+ MCI_SEQ_SET_PARMS   = _MCI_SEQ_SET_PARMS;
+ PMCI_SEQ_SET_PARMS  = ^_MCI_SEQ_SET_PARMS;
+ LPMCI_SEQ_SET_PARMS = ^_MCI_SEQ_SET_PARMS;
+ TMCI_SEQ_SET_PARMS  = _MCI_SEQ_SET_PARMS;
+
+ _MCI_ANIM_OPEN_PARMSA = packed Record
+                                 dwCallback: DWORD;
+                                 wDeviceID: MCIDEVICEID;
+                                 lpstrDeviceType: LPCSTR;
+                                 lpstrElementName: LPCSTR;
+                                 lpstrAlias: LPCSTR;
+                                 dwStyle: DWORD;
+                                 hWndParent: HWND;
+				End;
+ MCI_ANIM_OPEN_PARMSA   = _MCI_ANIM_OPEN_PARMSA;
+ PMCI_ANIM_OPEN_PARMSA  = ^_MCI_ANIM_OPEN_PARMSA;
+ LPMCI_ANIM_OPEN_PARMSA = ^_MCI_ANIM_OPEN_PARMSA;
+ TMCI_ANIM_OPEN_PARMSA  = _MCI_ANIM_OPEN_PARMSA;
+
+ _MCI_ANIM_OPEN_PARMSW = packed Record
+                                 dwCallback: DWORD;
+                                 wDeviceID: MCIDEVICEID;
+                                 lpstrDeviceType: LPCWSTR;
+                                 lpstrElementName: LPCWSTR;
+                                 lpstrAlias: LPCWSTR;
+                                 dwStyle: DWORD;
+                                 hWndParent: HWND;
+				End;
+ MCI_ANIM_OPEN_PARMSW = _MCI_ANIM_OPEN_PARMSW;
+ PMCI_ANIM_OPEN_PARMSW = ^_MCI_ANIM_OPEN_PARMSW;
+ LPMCI_ANIM_OPEN_PARMSW = ^_MCI_ANIM_OPEN_PARMSW;
+ {$ifdef UNICODE}
+  MCI_ANIM_OPEN_PARMS = MCI_ANIM_OPEN_PARMSW;
+  PMCI_ANIM_OPEN_PARMS = PMCI_ANIM_OPEN_PARMSW;
+  LPMCI_ANIM_OPEN_PARMS = LPMCI_ANIM_OPEN_PARMSW;
+ {$else}
+  MCI_ANIM_OPEN_PARMS = MCI_ANIM_OPEN_PARMSA;
+  PMCI_ANIM_OPEN_PARMS = PMCI_ANIM_OPEN_PARMSA;
+  LPMCI_ANIM_OPEN_PARMS = LPMCI_ANIM_OPEN_PARMSA;
+ {$endif}
+ TMCI_ANIM_OPEN_PARMS = MCI_ANIM_OPEN_PARMS;
+
+ _MCI_ANIM_WINDOW_PARMSW = packed Record
+                                   dwCallback: DWORD;
+                                   hWnd: HWND;
+                                   nCmdShow: UINT;
+                                   lpstrText: LPCWSTR;
+				End;
+ MCI_ANIM_WINDOW_PARMSW   = _MCI_ANIM_WINDOW_PARMSW;
+ PMCI_ANIM_WINDOW_PARMSW  = ^_MCI_ANIM_WINDOW_PARMSW;
+ LPMCI_ANIM_WINDOW_PARMSW = ^_MCI_ANIM_WINDOW_PARMSW;
+ TMCI_ANIM_WINDOW_PARMSW  = _MCI_ANIM_WINDOW_PARMSW;
+
+ _MCI_ANIM_STEP_PARMS = packed Record
+                                dwCallback: DWORD;
+                                dwFrames: DWORD;
+				End;
+ MCI_ANIM_STEP_PARMS   = _MCI_ANIM_STEP_PARMS;
+ PMCI_ANIM_STEP_PARMS  = ^_MCI_ANIM_STEP_PARMS;
+ LPMCI_ANIM_STEP_PARMS = ^_MCI_ANIM_STEP_PARMS;
+ TMCI_ANIM_STEP_PARMS  = _MCI_ANIM_STEP_PARMS;
+
+ _MCI_ANIM_WINDOW_PARMSA = packed Record
+                                   dwCallback: DWORD;
+                                   hWnd: HWND;
+                                   nCmdShow: UINT;
+                                   lpstrText: LPCSTR;
+				  End;
+ MCI_ANIM_WINDOW_PARMSA   = _MCI_ANIM_WINDOW_PARMSA;
+ PMCI_ANIM_WINDOW_PARMSA  = ^_MCI_ANIM_WINDOW_PARMSA;
+ LPMCI_ANIM_WINDOW_PARMSA = ^_MCI_ANIM_WINDOW_PARMSA;
+ TMCI_ANIM_WINDOW_PARMSA  = _MCI_ANIM_WINDOW_PARMSA;
+_MCI_ANIM_PLAY_PARMS = packed Record
+                                dwCallback: DWORD;
+                                dwFrom: DWORD;
+                                dwTo: DWORD;
+                                dwSpeed: DWORD;
+				End;
+ MCI_ANIM_PLAY_PARMS   = _MCI_ANIM_PLAY_PARMS;
+ PMCI_ANIM_PLAY_PARMS  = ^_MCI_ANIM_PLAY_PARMS;
+ LPMCI_ANIM_PLAY_PARMS = ^_MCI_ANIM_PLAY_PARMS;
+ {$ifdef UNICODE}
+  MCI_ANIM_WINDOW_PARMS   = MCI_ANIM_WINDOW_PARMSW;
+  PMCI_ANIM_WINDOW_PARMS  = PMCI_ANIM_WINDOW_PARMSW;
+  LPMCI_ANIM_WINDOW_PARMS = LPMCI_ANIM_WINDOW_PARMSW;
+ {$else}
+  MCI_ANIM_WINDOW_PARMS   = MCI_ANIM_WINDOW_PARMSA;
+  PMCI_ANIM_WINDOW_PARMS  = PMCI_ANIM_WINDOW_PARMSA;
+  LPMCI_ANIM_WINDOW_PARMS = LPMCI_ANIM_WINDOW_PARMSA;
+ {$endif}
+ _MCI_ANIM_RECT_PARMS  = packed Record
+                                dwCallback: DWORD;
+                                rc: TRECT;
+			       End;
+ MCI_ANIM_RECT_PARMS   = _MCI_ANIM_RECT_PARMS;
+ PMCI_ANIM_RECT_PARMS  = ^MCI_ANIM_RECT_PARMS;
+ LPMCI_ANIM_RECT_PARMS = ^MCI_ANIM_RECT_PARMS;
+ TMCI_ANIM_RECT_PARMS  = _MCI_ANIM_RECT_PARMS;
+
+ _MCI_ANIM_UPDATE_PARMS = packed Record
+                                  dwCallback: DWORD;
+                                  rc: TRECT;
+                                  hDC: HDC;
+				End;
+ MCI_ANIM_UPDATE_PARMS   = _MCI_ANIM_UPDATE_PARMS;
+ PMCI_ANIM_UPDATE_PARMS  = ^_MCI_ANIM_UPDATE_PARMS;
+ LPMCI_ANIM_UPDATE_PARMS = ^_MCI_ANIM_UPDATE_PARMS;
+ TMCI_ANIM_UPDATE_PARMS  = _MCI_ANIM_UPDATE_PARMS;
+
+ _MCI_OVLY_OPEN_PARMSA = packed Record
+                                 dwCallback: DWORD;
+                                 wDeviceID: MCIDEVICEID;
+                                 lpstrDeviceType: LPCSTR;
+                                 lpstrElementName: LPCSTR;
+                                 lpstrAlias: LPCSTR;
+                                 dwStyle: DWORD;
+                                 hWndParent: HWND;
+				End;
+ MCI_OVLY_OPEN_PARMSA   = _MCI_OVLY_OPEN_PARMSA;
+ PMCI_OVLY_OPEN_PARMSA  = ^_MCI_OVLY_OPEN_PARMSA;
+ LPMCI_OVLY_OPEN_PARMSA = ^_MCI_OVLY_OPEN_PARMSA;
+ TMCI_OVLY_OPEN_PARMSA  = _MCI_OVLY_OPEN_PARMSA;
+
+ _MCI_OVLY_OPEN_PARMSW = packed Record
+                                 dwCallback: DWORD;
+                                 wDeviceID: MCIDEVICEID;
+                                 lpstrDeviceType: LPCWSTR;
+                                 lpstrElementName: LPCWSTR;
+                                 lpstrAlias: LPCWSTR;
+                                 dwStyle: DWORD;
+                                 hWndParent: HWND;
+				End;
+ MCI_OVLY_OPEN_PARMSW   = _MCI_OVLY_OPEN_PARMSW;
+ PMCI_OVLY_OPEN_PARMSW  = ^_MCI_OVLY_OPEN_PARMSW;
+ LPMCI_OVLY_OPEN_PARMSW = ^_MCI_OVLY_OPEN_PARMSW;
+ TMCI_OVLY_OPEN_PARMSW  = _MCI_OVLY_OPEN_PARMSW;
+
+ {$ifdef UNICODE}
+  MCI_OVLY_OPEN_PARMS   = MCI_OVLY_OPEN_PARMSW;
+  PMCI_OVLY_OPEN_PARMS  = PMCI_OVLY_OPEN_PARMSW;
+  LPMCI_OVLY_OPEN_PARMS = LPMCI_OVLY_OPEN_PARMSW;
+ {$else}
+  MCI_OVLY_OPEN_PARMS   = MCI_OVLY_OPEN_PARMSA;
+  PMCI_OVLY_OPEN_PARMS  = PMCI_OVLY_OPEN_PARMSA;
+  LPMCI_OVLY_OPEN_PARMS = LPMCI_OVLY_OPEN_PARMSA;
+ {$endif}
+ TMCI_OVLY_OPEN_PARMS   = MCI_OVLY_OPEN_PARMS;
+
+_MCI_OVLY_WINDOW_PARMSA = packed Record
+                                   dwCallback: DWORD;
+                                   hWnd: HWND;
+                                   nCmdShow: UINT;
+                                   lpstrText: LPCSTR;
+ 				End;
+ MCI_OVLY_WINDOW_PARMSA   = _MCI_OVLY_WINDOW_PARMSA;
+ PMCI_OVLY_WINDOW_PARMSA  = ^_MCI_OVLY_WINDOW_PARMSA;
+ LPMCI_OVLY_WINDOW_PARMSA = ^_MCI_OVLY_WINDOW_PARMSA;
+ TMCI_OVLY_WINDOW_PARMSA   = _MCI_OVLY_WINDOW_PARMSA;
+
+ _MCI_OVLY_WINDOW_PARMSW = packed Record
+                                   dwCallback: DWORD;
+                                   hWnd: HWND;
+                                   nCmdShow: UINT;
+                                   lpstrText: LPCWSTR;
+				End;
+ MCI_OVLY_WINDOW_PARMSW   = _MCI_OVLY_WINDOW_PARMSW;
+ PMCI_OVLY_WINDOW_PARMSW  = ^_MCI_OVLY_WINDOW_PARMSW;
+ LPMCI_OVLY_WINDOW_PARMSW = ^_MCI_OVLY_WINDOW_PARMSW; 
+ TMCI_OVLY_WINDOW_PARMSW  = _MCI_OVLY_WINDOW_PARMSW;
+
+ {$ifdef UNICODE}
+  MCI_OVLY_WINDOW_PARMS   = MCI_OVLY_WINDOW_PARMSW;
+  PMCI_OVLY_WINDOW_PARMS  = PMCI_OVLY_WINDOW_PARMSW;
+  LPMCI_OVLY_WINDOW_PARMS = LPMCI_OVLY_WINDOW_PARMSW;
+ {$else}
+  MCI_OVLY_WINDOW_PARMS   = MCI_OVLY_WINDOW_PARMSA;
+  PMCI_OVLY_WINDOW_PARMS  = PMCI_OVLY_WINDOW_PARMSA; 
+  LPMCI_OVLY_WINDOW_PARMS = LPMCI_OVLY_WINDOW_PARMSA;
+ {$endif}
+ TMCI_OVLY_WINDOW_PARMS   = MCI_OVLY_WINDOW_PARMSW;
+
+ _MCI_OVLY_RECT_PARMS = packed Record
+                                dwCallback: DWORD;
+                                rc: TRECT;
+				End;
+ MCI_OVLY_RECT_PARMS   = _MCI_OVLY_RECT_PARMS;
+ PMCI_OVLY_RECT_PARMS  = ^_MCI_OVLY_RECT_PARMS;
+ LPMCI_OVLY_RECT_PARMS = ^_MCI_OVLY_RECT_PARMS;
+ TMCI_OVLY_RECT_PARMS  = _MCI_OVLY_RECT_PARMS;
+
+ _MCI_OVLY_SAVE_PARMSA = packed Record
+                                 dwCallback: DWORD;
+                                 lpfilename: LPCSTR;
+                                 rc: TRECT;
+				End;
+ MCI_OVLY_SAVE_PARMSA   = _MCI_OVLY_SAVE_PARMSA;
+ PMCI_OVLY_SAVE_PARMSA  = ^_MCI_OVLY_SAVE_PARMSA;
+ LPMCI_OVLY_SAVE_PARMSA = ^_MCI_OVLY_SAVE_PARMSA;
+ TMCI_OVLY_SAVE_PARMSA  = _MCI_OVLY_SAVE_PARMSA;
+
+ _MCI_OVLY_SAVE_PARMSW = packed Record
+                                 dwCallback: DWORD;
+                                 lpfilename: LPCWSTR;
+                                 rc: TRECT;
+				End;
+ MCI_OVLY_SAVE_PARMSW   = _MCI_OVLY_SAVE_PARMSW;
+ PMCI_OVLY_SAVE_PARMSW  = ^_MCI_OVLY_SAVE_PARMSW;
+ LPMCI_OVLY_SAVE_PARMSW = ^_MCI_OVLY_SAVE_PARMSW;
+ TMCI_OVLY_SAVE_PARMSW  = _MCI_OVLY_SAVE_PARMSW;
+
+ {$ifdef UNICODE}
+  MCI_OVLY_SAVE_PARMS   = MCI_OVLY_SAVE_PARMSW;
+  PMCI_OVLY_SAVE_PARMS  = PMCI_OVLY_SAVE_PARMSW;
+  LPMCI_OVLY_SAVE_PARMS = LPMCI_OVLY_SAVE_PARMSW;
+ {$else}
+  MCI_OVLY_SAVE_PARMS   = MCI_OVLY_SAVE_PARMSA;
+  PMCI_OVLY_SAVE_PARMS  = PMCI_OVLY_SAVE_PARMSA;
+  LPMCI_OVLY_SAVE_PARMS = LPMCI_OVLY_SAVE_PARMSA;
+ {$endif}
+ TMCI_OVLY_SAVE_PARMS = MCI_OVLY_SAVE_PARMS;
+
+ _MCI_OVLY_LOAD_PARMSA = packed Record
+                                 dwCallback: DWORD;
+                                 lpfilename: LPCSTR;
+                                 rc: TRECT;
+				End;
+ MCI_OVLY_LOAD_PARMSA   = _MCI_OVLY_LOAD_PARMSA;
+ PMCI_OVLY_LOAD_PARMSA  = ^_MCI_OVLY_LOAD_PARMSA;
+ LPMCI_OVLY_LOAD_PARMSA = ^_MCI_OVLY_LOAD_PARMSA;
+ TMCI_OVLY_LOAD_PARMSA  = _MCI_OVLY_LOAD_PARMSA;
+ _MCI_OVLY_LOAD_PARMSW = packed Record
+                                 dwCallback: DWORD;
+                                 lpfilename: LPCWSTR;
+                                 rc: TRECT;
+				End;
+ MCI_OVLY_LOAD_PARMSW   = _MCI_OVLY_LOAD_PARMSW;
+ PMCI_OVLY_LOAD_PARMSW  = ^_MCI_OVLY_LOAD_PARMSW;
+ LPMCI_OVLY_LOAD_PARMSW = ^_MCI_OVLY_LOAD_PARMSW;
+ TMCI_OVLY_LOAD_PARMSW  = _MCI_OVLY_LOAD_PARMSW;
+
+ {$ifdef UNICODE}
+  MCI_OVLY_LOAD_PARMS   = MCI_OVLY_LOAD_PARMSW;
+  PMCI_OVLY_LOAD_PARMS  = PMCI_OVLY_LOAD_PARMSW;
+  LPMCI_OVLY_LOAD_PARMS = LPMCI_OVLY_LOAD_PARMSW;
+ {$else}
+  MCI_OVLY_LOAD_PARMS   = MCI_OVLY_LOAD_PARMSA;
+  PMCI_OVLY_LOAD_PARMS  = PMCI_OVLY_LOAD_PARMSA;
+  LPMCI_OVLY_LOAD_PARMS = LPMCI_OVLY_LOAD_PARMSA;
+ {$endif}
+ TMCI_OVLY_LOAD_PARMS = MCI_OVLY_LOAD_PARMS;
 
 Type // Delphi compatibility
-  TMMIOInfo = _MMIOINFO;
-  TMMCKInfo = _MMCKINFO;
+//  TMMIOInfo = _MMIOINFO;
+//  TMMCKInfo = _MMCKINFO;
   pcmwaveformat_tag = PCMWAVEFORMAT;
-  TPCMWaveFormat = pcmwaveformat_tag;
-
+//  TPCMWaveFormat = pcmwaveformat_tag;
 
 
 (*////////////////////////////////////////////////////////*)
 (* Function prototypes*)
 (*////////////////////////////////////////////////////////*)
-
-function mmioStringToFOURCCA(x1: LPCSTR; x2: UINT): FOURCC; stdcall;
- external 'winmm.dll' name 'mmioStringToFOURCCA';
-
-function mmioStringToFOURCCW(x1: LPCWSTR; x2: UINT): FOURCC; stdcall;
- external 'winmm.dll' name 'mmioStringToFOURCCW';
-
-function mmioStringToFOURCC(x1: PChar; x2: UINT): FOURCC; stdcall;
- external 'winmm.dll' name
+Function mmioStringToFOURCCA(x1: LPCSTR; x2: UINT): FOURCC;stdcall; external 'winmm.dll' name 'mmioStringToFOURCCA';
+Function mmioStringToFOURCCW(x1: LPCWSTR; x2: UINT): FOURCC;stdcall; external 'winmm.dll' name 'mmioStringToFOURCCW';
+Function mmioStringToFOURCC(x1: PChar; x2: UINT): FOURCC;stdcall; external 'winmm.dll' name
  {$ifdef UNICODE}'mmioStringToFOURCCW'
  {$else}'mmioStringToFOURCCA'
  {$endif};
-
-function mmioInstallIOProcA(x1: FOURCC; x2: LPMMIOPROC; x3: DWORD): LPMMIOPROC; stdcall;
- external 'winmm.dll' name 'mmioInstallIOProcA';
-
-function mmioInstallIOProcW(x1: FOURCC; x2: LPMMIOPROC; x3: DWORD): LPMMIOPROC; stdcall;
- external 'winmm.dll' name 'mmioInstallIOProcW';
-
-function mmioInstallIOProc(x1: FOURCC; x2: LPMMIOPROC; x3: DWORD): LPMMIOPROC; stdcall;
- external 'winmm.dll' name
+Function mmioInstallIOProcA(x1: FOURCC; x2: LPMMIOPROC; x3: DWORD): LPMMIOPROC;stdcall; external 'winmm.dll' name 'mmioInstallIOProcA';
+Function mmioInstallIOProcW(x1: FOURCC; x2: LPMMIOPROC; x3: DWORD): LPMMIOPROC;stdcall; external 'winmm.dll' name 'mmioInstallIOProcW';
+Function mmioInstallIOProc(x1: FOURCC; x2: LPMMIOPROC; x3: DWORD): LPMMIOPROC;stdcall; external 'winmm.dll' name
  {$ifdef UNICODE}'mmioInstallIOProcW'
  {$else}'mmioInstallIOProcA'
  {$endif};
-
-function mmioOpenA(x1: LPSTR; x2: LPMMIOINFO; x3: DWORD): HMMIO; stdcall;
- external 'winmm.dll' name 'mmioOpenA';
-
-function mmioOpenW(x1: LPWSTR; x2: LPMMIOINFO; x3: DWORD): HMMIO; stdcall;
- external 'winmm.dll' name 'mmioOpenW';
-
-function mmioOpen(x1: PChar; x2: LPMMIOINFO; x3: DWORD): HMMIO; stdcall;
- external 'winmm.dll' name
+Function mmioOpenA(x1: LPSTR; x2: LPMMIOINFO; x3: DWORD): HMMIO;stdcall; external 'winmm.dll' name 'mmioOpenA';
+Function mmioOpenW(x1: LPWSTR; x2: LPMMIOINFO; x3: DWORD): HMMIO;stdcall; external 'winmm.dll' name 'mmioOpenW';
+Function mmioOpen(x1: PChar; x2: LPMMIOINFO; x3: DWORD): HMMIO;stdcall; external 'winmm.dll' name
  {$ifdef UNICODE}'mmioOpenW'
  {$else}'mmioOpenA'
  {$endif};
-
-function mmioRenameA(x1: LPCSTR; x2: LPCSTR; x3: LPCMMIOINFO; x4: DWORD): MMRESULT; stdcall;
- external 'winmm.dll' name 'mmioRenameA';
-
-function mmioRenameW(x1: LPCWSTR; x2: LPCWSTR; x3: LPCMMIOINFO; x4: DWORD): MMRESULT; stdcall;
- external 'winmm.dll' name 'mmioRenameW';
-
-function mmioRename(x1: PChar; x2: PChar; x3: LPCMMIOINFO; x4: DWORD): MMRESULT; stdcall;
- external 'winmm.dll' name
+Function mmioRenameA(x1: LPCSTR; x2: LPCSTR; x3: LPCMMIOINFO; x4: DWORD): MMRESULT;stdcall; external 'winmm.dll' name 'mmioRenameA';
+Function mmioRenameW(x1: LPCWSTR; x2: LPCWSTR; x3: LPCMMIOINFO; x4: DWORD): MMRESULT;stdcall; external 'winmm.dll' name 'mmioRenameW';
+Function mmioRename(x1: PChar; x2: PChar; x3: LPCMMIOINFO; x4: DWORD): MMRESULT;stdcall; external 'winmm.dll' name
  {$ifdef UNICODE}'mmioRenameW'
  {$else}'mmioRenameA'
  {$endif};
-
-function mmioClose(x1: HMMIO; x2: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'mmioClose';
-
-function mmioRead(x1: HMMIO; x2: HPSTR; x3: LONG): LONG; stdcall;
- external 'winmm.dll' name 'mmioRead';
-
-function mmioWrite(x1: HMMIO; x2: pchar; x3: LONG): LONG; stdcall;
- external 'winmm.dll' name 'mmioWrite';
-
-function mmioSeek(x1: HMMIO; x2: LONG; x3: WINT): LONG; stdcall;
- external 'winmm.dll' name 'mmioSeek';
-
-function mmioGetInfo(x1: HMMIO; x2: LPMMIOINFO; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'mmioGetInfo';
-
-function mmioSetInfo(x1: HMMIO; x2: LPCMMIOINFO; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'mmioSetInfo';
-
-function mmioSetBuffer(x1: HMMIO; x2: LPSTR; x3: LONG; x4: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'mmioSetBuffer';
-
-function mmioFlush(x1: HMMIO; x2: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'mmioFlush';
-
-function mmioAdvance(x1: HMMIO; x2: LPMMIOINFO; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'mmioAdvance';
-
-function mmioSendMessage(x1: HMMIO; x2: UINT; x3: LPARAM; x4: LPARAM): LRESULT; stdcall;
- external 'winmm.dll' name 'mmioSendMessage';
-
-function mmioDescend(x1: HMMIO; x2: LPMMCKINFO; x3: PMMCKINFO; x4: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'mmioDescend';
-
-function mmioAscend(x1: HMMIO; x2: LPMMCKINFO; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'mmioAscend';
-
-function mmioCreateChunk(x1: HMMIO; x2: LPMMCKINFO; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'mmioCreateChunk';
-
-function mciSendCommandA(x1: MCIDEVICEID; x2: UINT; x3: DWORD; x4: DWORD): MCIERROR; stdcall;
- external 'winmm.dll' name 'mciSendCommandA';
-
-function mciSendCommandW(x1: MCIDEVICEID; x2: UINT; x3: DWORD; x4: DWORD): MCIERROR; stdcall;
- external 'winmm.dll' name 'mciSendCommandW';
-
-function mciSendCommand(x1: MCIDEVICEID; x2: UINT; x3: DWORD; x4: DWORD): MCIERROR; stdcall;
- external 'winmm.dll' name
- {$ifdef UNICODE}'mciSendCommandW'
- {$else}'mciSendCommandA'
- {$endif};
-
-function mciSendStringA(x1: LPCSTR; x2: LPSTR; x3: UINT; x4: HWND): MCIERROR; stdcall;
- external 'winmm.dll' name 'mciSendStringA';
-
-function mciSendStringW(x1: LPCWSTR; x2: LPWSTR; x3: UINT; x4: HWND): MCIERROR; stdcall;
- external 'winmm.dll' name 'mciSendStringW';
-
-function mciSendString(x1: PChar; x2: PChar; x3: UINT; x4: HWND): MCIERROR; stdcall;
- external 'winmm.dll' name
- {$ifdef UNICODE}'mciSendStringW'
- {$else}'mciSendStringA'
- {$endif};
-
-function mciGetDeviceIDA(x1: LPCSTR): MCIDEVICEID; stdcall;
- external 'winmm.dll' name 'mciGetDeviceIDA';
-
-function mciGetDeviceIDW(x1: LPCWSTR): MCIDEVICEID; stdcall;
- external 'winmm.dll' name 'mciGetDeviceIDW';
-
-function mciGetDeviceID(x1: PChar): MCIDEVICEID; stdcall;
- external 'winmm.dll' name
- {$ifdef UNICODE}'mciGetDeviceIDW'
- {$else}'mciGetDeviceIDA'
- {$endif};
-
-function mciGetDeviceIDFromElementIDA(x1: DWORD; x2: LPCSTR): MCIDEVICEID; stdcall;
- external 'winmm.dll' name 'mciGetDeviceIDFromElementIDA';
-
-function mciGetDeviceIDFromElementIDW(x1: DWORD; x2: LPCWSTR): MCIDEVICEID; stdcall;
- external 'winmm.dll' name 'mciGetDeviceIDFromElementIDW';
-
-function mciGetDeviceIDFromElementID(x1: DWORD; x2: PChar): MCIDEVICEID; stdcall;
- external 'winmm.dll' name
- {$ifdef UNICODE}'mciGetDeviceIDFromElementIDW'
- {$else}'mciGetDeviceIDFromElementIDA'
- {$endif};
-
-function mciGetErrorStringA(x1: MCIERROR; x2: LPSTR; x3: UINT): BOOL; stdcall;
- external 'winmm.dll' name 'mciGetErrorStringA';
-
-function mciGetErrorStringW(x1: MCIERROR; x2: LPWSTR; x3: UINT): BOOL; stdcall;
- external 'winmm.dll' name 'mciGetErrorStringW';
-
-function mciGetErrorString(x1: MCIERROR; x2: PChar; x3: UINT): BOOL; stdcall;
- external 'winmm.dll' name
- {$ifdef UNICODE}'mciGetErrorStringW'
- {$else}'mciGetErrorStringA'
- {$endif};
-
-function mciSetYieldProc(x1: MCIDEVICEID; x2: YIELDPROC; x3: DWORD): BOOL; stdcall;
- external 'winmm.dll' name 'mciSetYieldProc';
-
-function mciGetCreatorTask(x1: MCIDEVICEID): HTASK; stdcall;
- external 'winmm.dll' name 'mciGetCreatorTask';
-
-function mciGetYieldProc(x1: MCIDEVICEID; x2: LPDWORD): YIELDPROC; stdcall;
- external 'winmm.dll' name 'mciGetYieldProc';
-
-function mciExecute(x1: LPCSTR): BOOL; stdcall;
- external 'winmm.dll' name 'mciExecute';
-
-function joyGetPos(x1: UINT; x2: LPJOYINFO): MMRESULT; stdcall;
- external 'winmm.dll' name 'joyGetPos';
-
-function joyGetPosEx(x1: UINT; x2: LPJOYINFOEX): MMRESULT; stdcall;
- external 'winmm.dll' name 'joyGetPosEx';
-
-function joyGetThreshold(x1: UINT; x2: LPUINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'joyGetThreshold';
-
-function joyReleaseCapture(x1: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'joyReleaseCapture';
-
-function joySetCapture(x1: HWND; x2: UINT; x3: UINT; x4: BOOL): MMRESULT; stdcall;
- external 'winmm.dll' name 'joySetCapture';
-
-function joySetThreshold(x1: UINT; x2: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'joySetThreshold';
-
-function waveOutGetNumDevs: UINT; stdcall;
- external 'winmm.dll' name 'waveOutGetNumDevs';
-
-function waveOutGetDevCapsA(x1: UINT; x2: LPWAVEOUTCAPSA; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'waveOutGetDevCapsA';
-
-function waveOutGetDevCapsW(x1: UINT; x2: LPWAVEOUTCAPSW; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'waveOutGetDevCapsW';
-
-function waveOutGetDevCaps(x1: UINT; x2: LPWAVEOUTCAPS; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name
- {$ifdef UNICODE}'waveOutGetDevCapsW'
- {$else}'waveOutGetDevCapsA'
- {$endif};
-
-function waveOutGetVolume(x1: HWAVEOUT; x2: LPDWORD): MMRESULT; stdcall;
- external 'winmm.dll' name 'waveOutGetVolume';
-
-function waveOutSetVolume(x1: HWAVEOUT; x2: DWORD): MMRESULT; stdcall;
- external 'winmm.dll' name 'waveOutSetVolume';
-
-function waveOutGetErrorTextA(x1: MMRESULT; x2: LPSTR; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'waveOutGetErrorTextA';
-
-function waveOutGetErrorTextW(x1: MMRESULT; x2: LPWSTR; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'waveOutGetErrorTextW';
-
-function waveOutGetErrorText(x1: MMRESULT; x2: PChar; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name
- {$ifdef UNICODE}'waveOutGetErrorTextW'
- {$else}'waveOutGetErrorTextA'
- {$endif};
-
-function waveOutOpen(x1: LPHWAVEOUT; x2: UINT; x3: LPCWAVEFORMATEX; x4: DWORD; x5: DWORD; x6: DWORD): MMRESULT; stdcall;
- external 'winmm.dll' name 'waveOutOpen';
-
-function waveOutClose(x1: HWAVEOUT): MMRESULT; stdcall;
- external 'winmm.dll' name 'waveOutClose';
-
-function waveOutPrepareHeader(x1: HWAVEOUT; x2: LPWAVEHDR; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'waveOutPrepareHeader';
-
-function waveOutUnprepareHeader(x1: HWAVEOUT; x2: LPWAVEHDR; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'waveOutUnprepareHeader';
-
-function waveOutWrite(x1: HWAVEOUT; x2: LPWAVEHDR; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'waveOutWrite';
-
-function waveOutPause(x1: HWAVEOUT): MMRESULT; stdcall;
- external 'winmm.dll' name 'waveOutPause';
-
-function waveOutRestart(x1: HWAVEOUT): MMRESULT; stdcall;
- external 'winmm.dll' name 'waveOutRestart';
-
-function waveOutReset(x1: HWAVEOUT): MMRESULT; stdcall;
- external 'winmm.dll' name 'waveOutReset';
-
-function waveOutBreakLoop(x1: HWAVEOUT): MMRESULT; stdcall;
- external 'winmm.dll' name 'waveOutBreakLoop';
-
-function waveOutGetPosition(x1: HWAVEOUT; x2: LPMMTIME; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'waveOutGetPosition';
-
-function waveOutGetPitch(x1: HWAVEOUT; x2: LPDWORD): MMRESULT; stdcall;
- external 'winmm.dll' name 'waveOutGetPitch';
-
-function waveOutSetPitch(x1: HWAVEOUT; x2: DWORD): MMRESULT; stdcall;
- external 'winmm.dll' name 'waveOutSetPitch';
-
-function waveOutGetPlaybackRate(x1: HWAVEOUT; x2: LPDWORD): MMRESULT; stdcall;
- external 'winmm.dll' name 'waveOutGetPlaybackRate';
-
-function waveOutSetPlaybackRate(x1: HWAVEOUT; x2: DWORD): MMRESULT; stdcall;
- external 'winmm.dll' name 'waveOutSetPlaybackRate';
-
-function waveOutGetID(x1: HWAVEOUT; x2: LPUINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'waveOutGetID';
-
-function waveOutMessage(x1: HWAVEOUT; x2: UINT; x3: DWORD; x4: DWORD): MMRESULT; stdcall;
- external 'winmm.dll' name 'waveOutMessage';
-
-function waveInGetNumDevs: UINT; stdcall;
- external 'winmm.dll' name 'waveInGetNumDevs';
-
-function waveInGetDevCapsA(x1: UINT; x2: LPWAVEINCAPSA; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'waveInGetDevCapsA';
-
-function waveInGetDevCapsW(x1: UINT; x2: LPWAVEINCAPSW; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'waveInGetDevCapsW';
-
-function waveInGetDevCaps(x1: UINT; x2: LPWAVEINCAPS; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name
- {$ifdef UNICODE}'waveInGetDevCapsW'
- {$else}'waveInGetDevCapsA'
- {$endif};
-
-function waveInGetErrorTextA(x1: MMRESULT; x2: LPSTR; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'waveInGetErrorTextA';
-
-function waveInGetErrorTextW(x1: MMRESULT; x2: LPWSTR; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'waveInGetErrorTextW';
-
-function waveInGetErrorText(x1: MMRESULT; x2: PChar; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name
- {$ifdef UNICODE}'waveInGetErrorTextW'
- {$else}'waveInGetErrorTextA'
- {$endif};
-
-function waveInOpen(x1: LPHWAVEIN; x2: UINT; x3: LPCWAVEFORMATEX; x4: DWORD; x5: DWORD; x6: DWORD): MMRESULT; stdcall;
- external 'winmm.dll' name 'waveInOpen';
-
-function waveInClose(x1: HWAVEIN): MMRESULT; stdcall;
- external 'winmm.dll' name 'waveInClose';
-
-function waveInPrepareHeader(x1: HWAVEIN; x2: LPWAVEHDR; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'waveInPrepareHeader';
-
-function waveInUnprepareHeader(x1: HWAVEIN; x2: LPWAVEHDR; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'waveInUnprepareHeader';
-
-function waveInAddBuffer(x1: HWAVEIN; x2: LPWAVEHDR; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'waveInAddBuffer';
-
-function waveInStart(x1: HWAVEIN): MMRESULT; stdcall;
- external 'winmm.dll' name 'waveInStart';
-
-function waveInStop(x1: HWAVEIN): MMRESULT; stdcall;
- external 'winmm.dll' name 'waveInStop';
-
-function waveInReset(x1: HWAVEIN): MMRESULT; stdcall;
- external 'winmm.dll' name 'waveInReset';
-
-function waveInGetPosition(x1: HWAVEIN; x2: LPMMTIME; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'waveInGetPosition';
-
-function waveInGetID(x1: HWAVEIN; x2: LPUINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'waveInGetID';
-
-function waveInMessage(x1: HWAVEIN; x2: UINT; x3: DWORD; x4: DWORD): MMRESULT; stdcall;
- external 'winmm.dll' name 'waveInMessage';
-
-function mixerGetLineControlsA(x1: HMIXEROBJ; x2: LPMIXERLINECONTROLSA; x3: DWORD): MMRESULT; stdcall;
- external 'winmm.dll' name 'mixerGetLineControlsA';
-
-function mixerGetLineControlsW(x1: HMIXEROBJ; x2: LPMIXERLINECONTROLSW; x3: DWORD): MMRESULT; stdcall;
- external 'winmm.dll' name 'mixerGetLineControlsW';
-
-function mixerGetLineControls(x1: HMIXEROBJ; x2: LPMIXERLINECONTROLS; x3: DWORD): MMRESULT; stdcall;
- external 'winmm.dll' name
- {$ifdef UNICODE}'mixerGetLineControlsW'
- {$else}'mixerGetLineControlsA'
- {$endif};
-
-function joyGetNumDevs: UINT; stdcall;
- external 'winmm.dll' name 'joyGetNumDevs';
-
-function joyGetDevCapsA(x1: UINT; x2: LPJOYCAPSA; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'joyGetDevCapsA';
-
-function joyGetDevCapsW(x1: UINT; x2: LPJOYCAPSW; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'joyGetDevCapsW';
-
-function joyGetDevCaps(x1: UINT; x2: LPJOYCAPS; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name
- {$ifdef UNICODE}'joyGetDevCapsW'
- {$else}'joyGetDevCapsA'
- {$endif};
-
-function mixerGetControlDetailsA(x1: HMIXEROBJ; x2: LPMIXERCONTROLDETAILS; x3: DWORD): MMRESULT; stdcall;
- external 'winmm.dll' name 'mixerGetControlDetailsA';
-
-function mixerGetControlDetailsW(x1: HMIXEROBJ; x2: LPMIXERCONTROLDETAILS; x3: DWORD): MMRESULT; stdcall;
- external 'winmm.dll' name 'mixerGetControlDetailsW';
-
-function mixerGetControlDetails(x1: HMIXEROBJ; x2: LPMIXERCONTROLDETAILS; x3: DWORD): MMRESULT; stdcall;
- external 'winmm.dll' name
- {$ifdef UNICODE}'mixerGetControlDetailsW'
- {$else}'mixerGetControlDetailsA'
- {$endif};
-
-function timeGetSystemTime(x1: LPMMTIME; x2: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'timeGetSystemTime';
-
-function timeGetTime: DWORD; stdcall;
- external 'winmm.dll' name 'timeGetTime';
-
-function timeSetEvent(x1: UINT; x2: UINT; x3: LPTIMECALLBACK; x4: DWORD; x5: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'timeSetEvent';
-
-function timeKillEvent(x1: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'timeKillEvent';
-
-function timeGetDevCaps(x1: LPTIMECAPS; x2: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'timeGetDevCaps';
-
-function timeBeginPeriod(x1: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'timeBeginPeriod';
-
-function timeEndPeriod(x1: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'timeEndPeriod';
-
-function mixerGetDevCapsA(x1: UINT; x2: LPMIXERCAPSA; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'mixerGetDevCapsA';
-
-function mixerGetDevCapsW(x1: UINT; x2: LPMIXERCAPSW; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'mixerGetDevCapsW';
-
-function mixerGetDevCaps(x1: UINT; x2: LPMIXERCAPS; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name
- {$ifdef UNICODE}'mixerGetDevCapsW'
- {$else}'mixerGetDevCapsA'
- {$endif};
-
-function mixerOpen(x1: LPHMIXER; x2: UINT; x3: DWORD; x4: DWORD; x5: DWORD): MMRESULT; stdcall;
- external 'winmm.dll' name 'mixerOpen';
-
-function mixerClose(x1: HMIXER): MMRESULT; stdcall;
- external 'winmm.dll' name 'mixerClose';
-
-function mixerMessage(x1: HMIXER; x2: UINT; x3: DWORD; x4: DWORD): DWORD; stdcall;
- external 'winmm.dll' name 'mixerMessage';
-
-function auxGetNumDevs: UINT; stdcall;
- external 'winmm.dll' name 'auxGetNumDevs';
-
-function auxGetDevCapsA(x1: UINT; x2: LPAUXCAPSA ; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'auxGetDevCapsA';
-
-function auxGetDevCapsW(x1: UINT; x2: LPAUXCAPSW ; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'auxGetDevCapsW';
-
-function auxGetDevCaps(x1: UINT; x2: LPAUXCAPS ; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name
- {$ifdef UNICODE}'auxGetDevCapsW'
- {$else}'auxGetDevCapsA'
- {$endif};
-
-function auxSetVolume(x1: UINT; x2: DWORD): MMRESULT; stdcall;
- external 'winmm.dll' name 'auxSetVolume';
-
-function auxGetVolume(x1: UINT; x2: LPDWORD): MMRESULT; stdcall;
- external 'winmm.dll' name 'auxGetVolume';
-
-function auxOutMessage(x1: UINT; x2: UINT; x3: DWORD; x4: DWORD): MMRESULT; stdcall;
- external 'winmm.dll' name 'auxOutMessage';
-
-function midiOutGetNumDevs: UINT; stdcall;
- external 'winmm.dll' name 'midiOutGetNumDevs';
-
-function midiStreamOpen(x1: LPHMIDISTRM; x2: LPUINT; x3: DWORD; x4: DWORD; x5: DWORD; x6: DWORD): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiStreamOpen';
-
-function midiStreamClose(x1: HMIDISTRM): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiStreamClose';
-
-function midiStreamProperty(x1: HMIDISTRM; x2: LPBYTE; x3: DWORD): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiStreamProperty';
-
-function midiStreamPosition(x1: HMIDISTRM; x2: LPMMTIME; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiStreamPosition';
-
-function midiStreamOut(x1: HMIDISTRM; x2: LPMIDIHDR; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiStreamOut';
-
-function midiStreamPause(x1: HMIDISTRM): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiStreamPause';
-
-function midiStreamRestart(x1: HMIDISTRM): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiStreamRestart';
-
-function midiStreamStop(x1: HMIDISTRM): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiStreamStop';
-
-function midiConnect(x1: HMIDI; x2: HMIDIOUT; x3: pointer): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiConnect';
-
-function midiDisconnect(x1: HMIDI; x2: HMIDIOUT; x3: pointer): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiDisconnect';
-
-function midiOutGetDevCapsA(x1: UINT; x2: LPMIDIOUTCAPSA; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiOutGetDevCapsA';
-
-function midiOutGetDevCapsW(x1: UINT; x2: LPMIDIOUTCAPSW; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiOutGetDevCapsW';
-
-function midiOutGetDevCaps(x1: UINT; x2: LPMIDIOUTCAPS; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name
- {$ifdef UNICODE}'midiOutGetDevCapsW'
- {$else}'midiOutGetDevCapsA'
- {$endif};
-
-function midiOutGetVolume(x1: HMIDIOUT; x2: LPDWORD): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiOutGetVolume';
-
-function midiOutSetVolume(x1: HMIDIOUT; x2: DWORD): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiOutSetVolume';
-
-function midiOutGetErrorTextA(x1: MMRESULT; x2: LPSTR; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiOutGetErrorTextA';
-
-function midiOutGetErrorTextW(x1: MMRESULT; x2: LPWSTR; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiOutGetErrorTextW';
-
-function midiOutGetErrorText(x1: MMRESULT; x2: PChar; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name
- {$ifdef UNICODE}'midiOutGetErrorTextW'
- {$else}'midiOutGetErrorTextA'
- {$endif};
-
-function midiOutOpen(x1: LPHMIDIOUT; x2: UINT; x3: DWORD; x4: DWORD; x5: DWORD): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiOutOpen';
-
-function midiOutClose(x1: HMIDIOUT): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiOutClose';
-
-function midiOutPrepareHeader(x1: HMIDIOUT; x2: LPMIDIHDR; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiOutPrepareHeader';
-
-function midiOutUnprepareHeader(x1: HMIDIOUT; x2: LPMIDIHDR; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiOutUnprepareHeader';
-
-function midiOutShortMsg(x1: HMIDIOUT; x2: DWORD): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiOutShortMsg';
-
-function midiOutLongMsg(x1: HMIDIOUT; x2: LPMIDIHDR; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiOutLongMsg';
-
-function midiOutReset(x1: HMIDIOUT): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiOutReset';
-
-function midiOutCachePatches(x1: HMIDIOUT; x2: UINT; x3: LPWORD; x4: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiOutCachePatches';
-
-function midiOutCacheDrumPatches(x1: HMIDIOUT; x2: UINT; x3: LPWORD; x4: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiOutCacheDrumPatches';
-
-function midiOutGetID(x1: HMIDIOUT; x2: LPUINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiOutGetID';
-
-function midiOutMessage(x1: HMIDIOUT; x2: UINT; x3: DWORD; x4: DWORD): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiOutMessage';
-
-function midiInGetNumDevs: UINT; stdcall;
- external 'winmm.dll' name 'midiInGetNumDevs';
-
-function midiInGetDevCapsA(x1: UINT; x2: LPMIDIINCAPSA; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiInGetDevCapsA';
-
-function midiInGetDevCapsW(x1: UINT; x2: LPMIDIINCAPSW; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiInGetDevCapsW';
-
-function midiInGetDevCaps(x1: UINT; x2: LPMIDIINCAPS; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name
- {$ifdef UNICODE}'midiInGetDevCapsW'
- {$else}'midiInGetDevCapsA'
- {$endif};
-
-function midiInGetErrorTextA(x1: MMRESULT; x2: LPSTR; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiInGetErrorTextA';
-
-function midiInGetErrorTextW(x1: MMRESULT; x2: LPWSTR; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiInGetErrorTextW';
-
-function midiInGetErrorText(x1: MMRESULT; x2: PChar; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name
- {$ifdef UNICODE}'midiInGetErrorTextW'
- {$else}'midiInGetErrorTextA'
- {$endif};
-
-function midiInOpen(x1: LPHMIDIIN; x2: UINT; x3: DWORD; x4: DWORD; x5: DWORD): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiInOpen';
-
-function midiInClose(x1: HMIDIIN): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiInClose';
-
-function midiInPrepareHeader(x1: HMIDIIN; x2: LPMIDIHDR; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiInPrepareHeader';
-
-function midiInUnprepareHeader(x1: HMIDIIN; x2: LPMIDIHDR; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiInUnprepareHeader';
-
-function midiInAddBuffer(x1: HMIDIIN; x2: LPMIDIHDR; x3: UINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiInAddBuffer';
-
-function midiInStart(x1: HMIDIIN): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiInStart';
-
-function midiInStop(x1: HMIDIIN): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiInStop';
-
-function midiInReset(x1: HMIDIIN): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiInReset';
-
-function midiInGetID(x1: HMIDIIN; x2: LPUINT): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiInGetID';
-
-function midiInMessage(x1: HMIDIIN; x2: UINT; x3: DWORD; x4: DWORD): MMRESULT; stdcall;
- external 'winmm.dll' name 'midiInMessage';
-
-function mixerGetLineInfoA(x1: HMIXEROBJ; x2: LPMIXERLINEA; x3: DWORD): MMRESULT; stdcall;
- external 'winmm.dll' name 'mixerGetLineInfoA';
-
-function mixerGetLineInfoW(x1: HMIXEROBJ; x2: LPMIXERLINEW; x3: DWORD): MMRESULT; stdcall;
- external 'winmm.dll' name 'mixerGetLineInfoW';
-
-function mixerGetLineInfo(x1: HMIXEROBJ; x2: LPMIXERLINE; x3: DWORD): MMRESULT; stdcall;
- external 'winmm.dll' name
- {$ifdef UNICODE}'mixerGetLineInfoW'
- {$else}'mixerGetLineInfoA'
- {$endif};
-
-function mixerGetID(x1: HMIXEROBJ; var x2: UINT; x3: DWORD): MMRESULT; stdcall;
- external 'winmm.dll' name 'mixerGetID';
-
-function PlaySoundA(x1: LPCSTR; x2: HMODULE; x3: DWORD): BOOL; stdcall;
- external 'winmm.dll' name 'PlaySoundA';
-
-function PlaySoundW(x1: LPCWSTR; x2: HMODULE; x3: DWORD): BOOL; stdcall;
- external 'winmm.dll' name 'PlaySoundW';
-
-function PlaySound(x1: PChar; x2: HMODULE; x3: DWORD): BOOL; stdcall;
- external 'winmm.dll' name
- {$ifdef UNICODE}'PlaySoundW'
- {$else}'PlaySoundA'
- {$endif};
+Function mmioClose(x1: HMMIO; x2: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'mmioClose';
+Function mmioRead(x1: HMMIO; x2: HPSTR; x3: LONG): LONG;stdcall; external 'winmm.dll' name 'mmioRead';
+Function mmioWrite(x1: HMMIO; x2: pchar; x3: LONG): LONG;stdcall; external 'winmm.dll' name 'mmioWrite';
+Function mmioSeek(x1: HMMIO; x2: LONG; x3: WINT): LONG;stdcall; external 'winmm.dll' name 'mmioSeek';
+Function mmioGetInfo(x1: HMMIO; x2: LPMMIOINFO; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'mmioGetInfo';
+Function mmioSetInfo(x1: HMMIO; x2: LPCMMIOINFO; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'mmioSetInfo';
+Function mmioSetBuffer(x1: HMMIO; x2: LPSTR; x3: LONG; x4: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'mmioSetBuffer';
+Function mmioFlush(x1: HMMIO; x2: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'mmioFlush';
+Function mmioAdvance(x1: HMMIO; x2: LPMMIOINFO; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'mmioAdvance';
+Function mmioSendMessage(x1: HMMIO; x2: UINT; x3: LPARAM; x4: LPARAM): LRESULT;stdcall; external 'winmm.dll' name 'mmioSendMessage';
+Function mmioDescend(x1: HMMIO; x2: LPMMCKINFO; x3: PMMCKINFO; x4: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'mmioDescend';
+Function mmioAscend(x1: HMMIO; x2: LPMMCKINFO; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'mmioAscend';
+Function mmioCreateChunk(x1: HMMIO; x2: LPMMCKINFO; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'mmioCreateChunk';
+Function mciSendCommandA(x1: MCIDEVICEID; x2: UINT; x3: DWORD; x4: DWORD): MCIERROR;stdcall; external 'winmm.dll' name 'mciSendCommandA';
+Function mciSendCommandW(x1: MCIDEVICEID; x2: UINT; x3: DWORD; x4: DWORD): MCIERROR;stdcall; external 'winmm.dll' name 'mciSendCommandW';
+Function mciSendCommand(x1: MCIDEVICEID; x2: UINT; x3: DWORD; x4: DWORD): MCIERROR;stdcall; external 'winmm.dll' name
+ {$ifdef UNICODE}'mciSendCommandW' {$else}'mciSendCommandA' {$endif};
+Function mciSendStringA(x1: LPCSTR; x2: LPSTR; x3: UINT; x4: HWND): MCIERROR;stdcall; external 'winmm.dll' name 'mciSendStringA';
+Function mciSendStringW(x1: LPCWSTR; x2: LPWSTR; x3: UINT; x4: HWND): MCIERROR;stdcall; external 'winmm.dll' name 'mciSendStringW';
+Function mciSendString(x1: PChar; x2: PChar; x3: UINT; x4: HWND): MCIERROR;stdcall; external 'winmm.dll' name
+ {$ifdef UNICODE}'mciSendStringW' {$else}'mciSendStringA' {$endif};
+Function mciGetDeviceIDA(x1: LPCSTR): MCIDEVICEID;stdcall; external 'winmm.dll' name 'mciGetDeviceIDA';
+Function mciGetDeviceIDW(x1: LPCWSTR): MCIDEVICEID;stdcall; external 'winmm.dll' name 'mciGetDeviceIDW';
+Function mciGetDeviceID(x1: PChar): MCIDEVICEID;stdcall; external 'winmm.dll' name
+ {$ifdef UNICODE}'mciGetDeviceIDW' {$else}'mciGetDeviceIDA' {$endif};
+Function mciGetDeviceIDFromElementIDA(x1: DWORD; x2: LPCSTR): MCIDEVICEID;stdcall; external 'winmm.dll' name 'mciGetDeviceIDFromElementIDA';
+Function mciGetDeviceIDFromElementIDW(x1: DWORD; x2: LPCWSTR): MCIDEVICEID;stdcall; external 'winmm.dll' name 'mciGetDeviceIDFromElementIDW';
+Function mciGetDeviceIDFromElementID(x1: DWORD; x2: PChar): MCIDEVICEID;stdcall; external 'winmm.dll' name
+ {$ifdef UNICODE}'mciGetDeviceIDFromElementIDW' {$else}'mciGetDeviceIDFromElementIDA' {$endif};
+Function mciGetErrorStringA(x1: MCIERROR; x2: LPSTR; x3: UINT): BOOL;stdcall; external 'winmm.dll' name 'mciGetErrorStringA';
+Function mciGetErrorStringW(x1: MCIERROR; x2: LPWSTR; x3: UINT): BOOL;stdcall; external 'winmm.dll' name 'mciGetErrorStringW';
+Function mciGetErrorString(x1: MCIERROR; x2: PChar; x3: UINT): BOOL;stdcall; external 'winmm.dll' name
+ {$ifdef UNICODE}'mciGetErrorStringW' {$else}'mciGetErrorStringA' {$endif};
+Function mciSetYieldProc(x1: MCIDEVICEID; x2: YIELDPROC; x3: DWORD): BOOL;stdcall; external 'winmm.dll' name 'mciSetYieldProc';
+Function mciGetCreatorTask(x1: MCIDEVICEID): HTASK;stdcall; external 'winmm.dll' name 'mciGetCreatorTask';
+Function mciGetYieldProc(x1: MCIDEVICEID; x2: LPDWORD): YIELDPROC;stdcall; external 'winmm.dll' name 'mciGetYieldProc';
+Function mciExecute(x1: LPCSTR): BOOL;stdcall; external 'winmm.dll' name 'mciExecute';
+Function joyGetPos(x1: UINT; x2: LPJOYINFO): MMRESULT;stdcall; external 'winmm.dll' name 'joyGetPos';
+Function joyGetPosEx(x1: UINT; x2: LPJOYINFOEX): MMRESULT;stdcall; external 'winmm.dll' name 'joyGetPosEx';
+Function joyGetThreshold(x1: UINT; x2: LPUINT): MMRESULT;stdcall; external 'winmm.dll' name 'joyGetThreshold';
+Function joyReleaseCapture(x1: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'joyReleaseCapture';
+Function joySetCapture(x1: HWND; x2: UINT; x3: UINT; x4: BOOL): MMRESULT;stdcall; external 'winmm.dll' name 'joySetCapture';
+Function joySetThreshold(x1: UINT; x2: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'joySetThreshold';
+Function waveOutGetNumDevs: UINT;stdcall; external 'winmm.dll' name 'waveOutGetNumDevs';
+Function waveOutGetDevCapsA(x1: UINT; x2: LPWAVEOUTCAPSA; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'waveOutGetDevCapsA';
+Function waveOutGetDevCapsW(x1: UINT; x2: LPWAVEOUTCAPSW; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'waveOutGetDevCapsW';
+Function waveOutGetDevCaps(x1: UINT; x2: LPWAVEOUTCAPS; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name
+ {$ifdef UNICODE}'waveOutGetDevCapsW' {$else}'waveOutGetDevCapsA' {$endif};
+Function waveOutGetVolume(x1: HWAVEOUT; x2: LPDWORD): MMRESULT;stdcall; external 'winmm.dll' name 'waveOutGetVolume';
+Function waveOutSetVolume(x1: HWAVEOUT; x2: DWORD): MMRESULT;stdcall; external 'winmm.dll' name 'waveOutSetVolume';
+Function waveOutGetErrorTextA(x1: MMRESULT; x2: LPSTR; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'waveOutGetErrorTextA';
+Function waveOutGetErrorTextW(x1: MMRESULT; x2: LPWSTR; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'waveOutGetErrorTextW';
+Function waveOutGetErrorText(x1: MMRESULT; x2: PChar; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name
+ {$ifdef UNICODE}'waveOutGetErrorTextW' {$else}'waveOutGetErrorTextA' {$endif};
+Function waveOutOpen(x1: LPHWAVEOUT; x2: UINT; x3: LPCWAVEFORMATEX; x4: DWORD; x5: DWORD;
+                     x6: DWORD): MMRESULT;stdcall; external 'winmm.dll' name 'waveOutOpen';
+Function waveOutClose(x1: HWAVEOUT): MMRESULT;stdcall; external 'winmm.dll' name 'waveOutClose';
+Function waveOutPrepareHeader(x1: HWAVEOUT; x2: LPWAVEHDR; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'waveOutPrepareHeader';
+Function waveOutUnprepareHeader(x1: HWAVEOUT; x2: LPWAVEHDR; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'waveOutUnprepareHeader';
+Function waveOutWrite(x1: HWAVEOUT; x2: LPWAVEHDR; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'waveOutWrite';
+Function waveOutPause(x1: HWAVEOUT): MMRESULT;stdcall; external 'winmm.dll' name 'waveOutPause';
+Function waveOutRestart(x1: HWAVEOUT): MMRESULT;stdcall; external 'winmm.dll' name 'waveOutRestart';
+Function waveOutReset(x1: HWAVEOUT): MMRESULT;stdcall; external 'winmm.dll' name 'waveOutReset';
+Function waveOutBreakLoop(x1: HWAVEOUT): MMRESULT;stdcall; external 'winmm.dll' name 'waveOutBreakLoop';
+Function waveOutGetPosition(x1: HWAVEOUT; x2: LPMMTIME; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'waveOutGetPosition';
+Function waveOutGetPitch(x1: HWAVEOUT; x2: LPDWORD): MMRESULT;stdcall; external 'winmm.dll' name 'waveOutGetPitch';
+Function waveOutSetPitch(x1: HWAVEOUT; x2: DWORD): MMRESULT;stdcall; external 'winmm.dll' name 'waveOutSetPitch';
+Function waveOutGetPlaybackRate(x1: HWAVEOUT; x2: LPDWORD): MMRESULT;stdcall; external 'winmm.dll' name 'waveOutGetPlaybackRate';
+Function waveOutSetPlaybackRate(x1: HWAVEOUT; x2: DWORD): MMRESULT;stdcall; external 'winmm.dll' name 'waveOutSetPlaybackRate';
+Function waveOutGetID(x1: HWAVEOUT; x2: LPUINT): MMRESULT;stdcall; external 'winmm.dll' name 'waveOutGetID';
+Function waveOutMessage(x1: HWAVEOUT; x2: UINT; x3: DWORD; x4: DWORD): MMRESULT;stdcall; external 'winmm.dll' name 'waveOutMessage';
+Function waveInGetNumDevs: UINT;stdcall; external 'winmm.dll' name 'waveInGetNumDevs';
+Function waveInGetDevCapsA(x1: UINT; x2: LPWAVEINCAPSA; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'waveInGetDevCapsA';
+Function waveInGetDevCapsW(x1: UINT; x2: LPWAVEINCAPSW; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'waveInGetDevCapsW';
+Function waveInGetDevCaps(x1: UINT; x2: LPWAVEINCAPS; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name
+ {$ifdef UNICODE}'waveInGetDevCapsW' {$else}'waveInGetDevCapsA' {$endif};
+Function waveInGetErrorTextA(x1: MMRESULT; x2: LPSTR; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'waveInGetErrorTextA';
+Function waveInGetErrorTextW(x1: MMRESULT; x2: LPWSTR; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'waveInGetErrorTextW';
+Function waveInGetErrorText(x1: MMRESULT; x2: PChar; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name
+ {$ifdef UNICODE}'waveInGetErrorTextW' {$else}'waveInGetErrorTextA' {$endif};
+Function waveInOpen(x1: LPHWAVEIN; x2: UINT; x3: LPCWAVEFORMATEX; x4: DWORD; x5: DWORD; x6                    : DWORD): MMRESULT;stdcall; external 'winmm.dll' name 'waveInOpen';
+Function waveInClose(x1: HWAVEIN): MMRESULT;stdcall; external 'winmm.dll' name 'waveInClose';
+Function waveInPrepareHeader(x1: HWAVEIN; x2: LPWAVEHDR; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'waveInPrepareHeader';
+Function waveInUnprepareHeader(x1: HWAVEIN; x2: LPWAVEHDR; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'waveInUnprepareHeader';
+Function waveInAddBuffer(x1: HWAVEIN; x2: LPWAVEHDR; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'waveInAddBuffer';
+Function waveInStart(x1: HWAVEIN): MMRESULT;stdcall; external 'winmm.dll' name 'waveInStart';
+Function waveInStop(x1: HWAVEIN): MMRESULT;stdcall; external 'winmm.dll' name 'waveInStop';
+Function waveInReset(x1: HWAVEIN): MMRESULT;stdcall; external 'winmm.dll' name 'waveInReset';
+Function waveInGetPosition(x1: HWAVEIN; x2: LPMMTIME; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'waveInGetPosition';
+Function waveInGetID(x1: HWAVEIN; x2: LPUINT): MMRESULT;stdcall; external 'winmm.dll' name 'waveInGetID';
+Function waveInMessage(x1: HWAVEIN; x2: UINT; x3: DWORD; x4: DWORD): MMRESULT;stdcall; external 'winmm.dll' name 'waveInMessage';
+Function mixerGetLineControlsA(x1: HMIXEROBJ; x2: LPMIXERLINECONTROLSA; x3: DWORD):MMRESULT;stdcall; external 'winmm.dll' name 'mixerGetLineControlsA';
+Function mixerGetLineControlsW(x1: HMIXEROBJ; x2: LPMIXERLINECONTROLSW; x3: DWORD):MMRESULT;stdcall; external 'winmm.dll' name 'mixerGetLineControlsW';
+Function mixerGetLineControls(x1: HMIXEROBJ; x2: LPMIXERLINECONTROLS; x3: DWORD): MMRESULT;stdcall; external 'winmm.dll' name
+ {$ifdef UNICODE}'mixerGetLineControlsW' {$else}'mixerGetLineControlsA' {$endif};
+Function joyGetNumDevs: UINT;stdcall; external 'winmm.dll' name 'joyGetNumDevs';
+Function joyGetDevCapsA(x1: UINT; x2: LPJOYCAPSA; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'joyGetDevCapsA';
+Function joyGetDevCapsW(x1: UINT; x2: LPJOYCAPSW; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'joyGetDevCapsW';
+Function joyGetDevCaps(x1: UINT; x2: LPJOYCAPS; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name
+ {$ifdef UNICODE}'joyGetDevCapsW' {$else}'joyGetDevCapsA' {$endif};
+Function mixerGetControlDetailsA(x1: HMIXEROBJ; x2: LPMIXERCONTROLDETAILS; x3: DWORD): MMRESULT;stdcall; external 'winmm.dll' name 'mixerGetControlDetailsA';
+Function mixerGetControlDetailsW(x1: HMIXEROBJ; x2: LPMIXERCONTROLDETAILS; x3: DWORD): MMRESULT;stdcall; external 'winmm.dll' name 'mixerGetControlDetailsW';
+Function mixerGetControlDetails(x1: HMIXEROBJ; x2: LPMIXERCONTROLDETAILS; x3: DWORD): MMRESULT;stdcall; external 'winmm.dll' name
+ {$ifdef UNICODE}'mixerGetControlDetailsW' {$else}'mixerGetControlDetailsA' {$endif};
+Function timeGetSystemTime(x1: LPMMTIME; x2: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'timeGetSystemTime';
+Function timeGetTime: DWORD;stdcall; external 'winmm.dll' name 'timeGetTime';
+Function timeSetEvent(x1: UINT; x2: UINT; x3: LPTIMECALLBACK; x4: DWORD; x5: UINT):MMRESULT;stdcall; external 'winmm.dll' name 'timeSetEvent';
+Function timeKillEvent(x1: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'timeKillEvent';
+Function timeGetDevCaps(x1: LPTIMECAPS; x2: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'timeGetDevCaps';
+Function timeBeginPeriod(x1: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'timeBeginPeriod';
+Function timeEndPeriod(x1: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'timeEndPeriod';
+Function mixerGetDevCapsA(x1: UINT; x2: LPMIXERCAPSA; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'mixerGetDevCapsA';
+Function mixerGetDevCapsW(x1: UINT; x2: LPMIXERCAPSW; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'mixerGetDevCapsW';
+Function mixerGetDevCaps(x1: UINT; x2: LPMIXERCAPS; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name
+ {$ifdef UNICODE}'mixerGetDevCapsW' {$else}'mixerGetDevCapsA' {$endif};
+Function mixerOpen(x1: LPHMIXER; x2: UINT; x3: DWORD; x4: DWORD; x5: DWORD): MMRESULT;stdcall; external 'winmm.dll' name 'mixerOpen';
+Function mixerClose(x1: HMIXER): MMRESULT;stdcall; external 'winmm.dll' name 'mixerClose';
+Function mixerMessage(x1: HMIXER; x2: UINT; x3: DWORD; x4: DWORD): DWORD;stdcall; external 'winmm.dll' name 'mixerMessage';
+Function auxGetNumDevs: UINT;stdcall; external 'winmm.dll' name 'auxGetNumDevs';
+Function auxGetDevCapsA(x1: UINT; x2: LPAUXCAPSA ; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'auxGetDevCapsA';
+Function auxGetDevCapsW(x1: UINT; x2: LPAUXCAPSW ; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'auxGetDevCapsW';
+Function auxGetDevCaps(x1: UINT; x2: LPAUXCAPS ; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name
+ {$ifdef UNICODE}'auxGetDevCapsW' {$else}'auxGetDevCapsA' {$endif};
+Function auxSetVolume(x1: UINT; x2: DWORD): MMRESULT;stdcall; external 'winmm.dll' name 'auxSetVolume';
+Function auxGetVolume(x1: UINT; x2: LPDWORD): MMRESULT;stdcall; external 'winmm.dll' name 'auxGetVolume';
+Function auxOutMessage(x1: UINT; x2: UINT; x3: DWORD; x4: DWORD): MMRESULT;stdcall; external 'winmm.dll' name 'auxOutMessage';
+Function midiOutGetNumDevs: UINT;stdcall; external 'winmm.dll' name 'midiOutGetNumDevs';
+Function midiStreamOpen(x1: LPHMIDISTRM; x2: LPUINT; x3: DWORD; x4: DWORD; x5: DWORD; x6:
+                        DWORD): MMRESULT;stdcall; external 'winmm.dll' name 'midiStreamOpen';
+Function midiStreamClose(x1: HMIDISTRM): MMRESULT;stdcall; external 'winmm.dll' name 'midiStreamClose';
+Function midiStreamProperty(x1: HMIDISTRM; x2: LPBYTE; x3: DWORD): MMRESULT;stdcall; external 'winmm.dll' name 'midiStreamProperty';
+Function midiStreamPosition(x1: HMIDISTRM; x2: LPMMTIME; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'midiStreamPosition';
+Function midiStreamOut(x1: HMIDISTRM; x2: LPMIDIHDR; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'midiStreamOut';
+Function midiStreamPause(x1: HMIDISTRM): MMRESULT;stdcall; external 'winmm.dll' name 'midiStreamPause';
+Function midiStreamRestart(x1: HMIDISTRM): MMRESULT;stdcall; external 'winmm.dll' name 'midiStreamRestart';
+Function midiStreamStop(x1: HMIDISTRM): MMRESULT;stdcall; external 'winmm.dll' name 'midiStreamStop';
+Function midiConnect(x1: HMIDI; x2: HMIDIOUT; x3: pointer): MMRESULT;stdcall; external 'winmm.dll' name 'midiConnect';
+Function midiDisconnect(x1: HMIDI; x2: HMIDIOUT; x3: pointer): MMRESULT;stdcall; external 'winmm.dll' name 'midiDisconnect';
+Function midiOutGetDevCapsA(x1: UINT; x2: LPMIDIOUTCAPSA; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'midiOutGetDevCapsA';
+Function midiOutGetDevCapsW(x1: UINT; x2: LPMIDIOUTCAPSW; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'midiOutGetDevCapsW';
+Function midiOutGetDevCaps(x1: UINT; x2: LPMIDIOUTCAPS; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name
+ {$ifdef UNICODE}'midiOutGetDevCapsW' {$else}'midiOutGetDevCapsA' {$endif};
+Function midiOutGetVolume(x1: HMIDIOUT; x2: LPDWORD): MMRESULT;stdcall; external 'winmm.dll' name 'midiOutGetVolume';
+Function midiOutSetVolume(x1: HMIDIOUT; x2: DWORD): MMRESULT;stdcall; external 'winmm.dll' name 'midiOutSetVolume';
+Function midiOutGetErrorTextA(x1: MMRESULT; x2: LPSTR; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'midiOutGetErrorTextA';
+Function midiOutGetErrorTextW(x1: MMRESULT; x2: LPWSTR; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'midiOutGetErrorTextW';
+Function midiOutGetErrorText(x1: MMRESULT; x2: PChar; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name
+ {$ifdef UNICODE}'midiOutGetErrorTextW' {$else}'midiOutGetErrorTextA' {$endif};
+Function midiOutOpen(x1: LPHMIDIOUT; x2: UINT; x3: DWORD; x4: DWORD; x5: DWORD): MMRESULT;stdcall; external 'winmm.dll' name 'midiOutOpen';
+Function midiOutClose(x1: HMIDIOUT): MMRESULT;stdcall; external 'winmm.dll' name 'midiOutClose';
+Function midiOutPrepareHeader(x1: HMIDIOUT; x2: LPMIDIHDR; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'midiOutPrepareHeader';
+Function midiOutUnprepareHeader(x1: HMIDIOUT; x2: LPMIDIHDR; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'midiOutUnprepareHeader';
+Function midiOutShortMsg(x1: HMIDIOUT; x2: DWORD): MMRESULT;stdcall; external 'winmm.dll' name 'midiOutShortMsg';
+Function midiOutLongMsg(x1: HMIDIOUT; x2: LPMIDIHDR; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'midiOutLongMsg';
+Function midiOutReset(x1: HMIDIOUT): MMRESULT;stdcall; external 'winmm.dll' name 'midiOutReset';
+Function midiOutCachePatches(x1: HMIDIOUT; x2: UINT; x3: LPWORD; x4: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'midiOutCachePatches';
+Function midiOutCacheDrumPatches(x1: HMIDIOUT; x2: UINT; x3: LPWORD; x4: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'midiOutCacheDrumPatches';
+Function midiOutGetID(x1: HMIDIOUT; x2: LPUINT): MMRESULT;stdcall; external 'winmm.dll' name 'midiOutGetID';
+Function midiOutMessage(x1: HMIDIOUT; x2: UINT; x3: DWORD; x4: DWORD): MMRESULT;stdcall; external 'winmm.dll' name 'midiOutMessage';
+Function midiInGetNumDevs: UINT;stdcall; external 'winmm.dll' name 'midiInGetNumDevs';
+Function midiInGetDevCapsA(x1: UINT; x2: LPMIDIINCAPSA; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'midiInGetDevCapsA';
+Function midiInGetDevCapsW(x1: UINT; x2: LPMIDIINCAPSW; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'midiInGetDevCapsW';
+Function midiInGetDevCaps(x1: UINT; x2: LPMIDIINCAPS; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name
+ {$ifdef UNICODE}'midiInGetDevCapsW' {$else}'midiInGetDevCapsA' {$endif};
+Function midiInGetErrorTextA(x1: MMRESULT; x2: LPSTR; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'midiInGetErrorTextA';
+Function midiInGetErrorTextW(x1: MMRESULT; x2: LPWSTR; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'midiInGetErrorTextW';
+Function midiInGetErrorText(x1: MMRESULT; x2: PChar; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name
+ {$ifdef UNICODE}'midiInGetErrorTextW' {$else}'midiInGetErrorTextA' {$endif};
+Function midiInOpen(x1: LPHMIDIIN; x2: UINT; x3: DWORD; x4: DWORD; x5: DWORD): MMRESULT;stdcall; external 'winmm.dll' name 'midiInOpen';
+Function midiInClose(x1: HMIDIIN): MMRESULT;stdcall; external 'winmm.dll' name 'midiInClose';
+Function midiInPrepareHeader(x1: HMIDIIN; x2: LPMIDIHDR; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'midiInPrepareHeader';
+Function midiInUnprepareHeader(x1: HMIDIIN; x2: LPMIDIHDR; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'midiInUnprepareHeader';
+Function midiInAddBuffer(x1: HMIDIIN; x2: LPMIDIHDR; x3: UINT): MMRESULT;stdcall; external 'winmm.dll' name 'midiInAddBuffer';
+Function midiInStart(x1: HMIDIIN): MMRESULT;stdcall; external 'winmm.dll' name 'midiInStart';
+Function midiInStop(x1: HMIDIIN): MMRESULT;stdcall; external 'winmm.dll' name 'midiInStop';
+Function midiInReset(x1: HMIDIIN): MMRESULT;stdcall; external 'winmm.dll' name 'midiInReset';
+Function midiInGetID(x1: HMIDIIN; x2: LPUINT): MMRESULT;stdcall; external 'winmm.dll' name 'midiInGetID';
+Function midiInMessage(x1: HMIDIIN; x2: UINT; x3: DWORD; x4: DWORD): MMRESULT;stdcall; external 'winmm.dll' name 'midiInMessage';
+Function mixerGetLineInfoA(x1: HMIXEROBJ; x2: LPMIXERLINEA; x3: DWORD): MMRESULT;stdcall; external 'winmm.dll' name 'mixerGetLineInfoA';
+Function mixerGetLineInfoW(x1: HMIXEROBJ; x2: LPMIXERLINEW; x3: DWORD): MMRESULT;stdcall; external 'winmm.dll' name 'mixerGetLineInfoW';
+Function mixerGetLineInfo(x1: HMIXEROBJ; x2: LPMIXERLINE; x3: DWORD): MMRESULT;stdcall; external 'winmm.dll' name
+ {$ifdef UNICODE}'mixerGetLineInfoW' {$else}'mixerGetLineInfoA' {$endif};
+Function mixerGetID(x1: HMIXEROBJ; Var x2: UINT; x3: DWORD): MMRESULT;stdcall; external 'winmm.dll' name 'mixerGetID';
+Function PlaySoundA(x1: LPCSTR; x2: HMODULE; x3: DWORD): BOOL;stdcall; external 'winmm.dll' name 'PlaySoundA';
+Function PlaySoundW(x1: LPCWSTR; x2: HMODULE; x3: DWORD): BOOL;stdcall; external 'winmm.dll' name 'PlaySoundW';
+Function PlaySound(x1: PChar; x2: HMODULE; x3: DWORD): BOOL;stdcall; external 'winmm.dll' name
+ {$ifdef UNICODE}'PlaySoundW' {$else}'PlaySoundA' {$endif};
 
 implementation
 
-function MEVT_EVENTTYPE(x: byte): byte;
- begin
-  MEVT_EVENTTYPE := (x shr 24) and $FF;
- end;
-
-function MEVT_EVENTPARM(x: DWORD): DWORD;
- begin
-  MEVT_EVENTPARM := x and $00FFFFFF;
- end;
-
-type
- TFourBytes = packed array [0..3] of byte;
-
-function MCI_MSF_MINUTE(msf: longint): byte;
- begin
-  MCI_MSF_MINUTE := TFourBytes (msf) [0];
- end;
-
-function MCI_TMSF_TRACK(tmsf: longint): byte;
- begin
-  MCI_TMSF_TRACK := TFourBytes (tmsf) [0];
- end;
-
-function MCI_HMS_HOUR(h: longint): byte;
- begin
-  MCI_HMS_HOUR := TFourBytes (h) [0];
- end;
-
-function MCI_MSF_SECOND(msf: longint): byte;
- begin
-  MCI_MSF_SECOND := TFourBytes (msf) [1];
- end;
-
-function MCI_TMSF_MINUTE(tmsf: longint): byte;
- begin
-  MCI_TMSF_MINUTE := TFourBytes (tmsf) [1];
- end;
-
-function MCI_HMS_MINUTE(h: longint): byte;
- begin
-  MCI_HMS_MINUTE := TFourBytes (h) [1];
- end;
-
-function MCI_MSF_FRAME(msf: longint): byte;
- begin
-  MCI_MSF_FRAME := TFourBytes (msf) [2];
- end;
-
-function MCI_TMSF_SECOND(tmsf: longint): byte;
- begin
-  MCI_TMSF_SECOND := TFourBytes (tmsf) [2];
- end;
-
-function MCI_HMS_SECOND(h: longint): byte;
- begin
-  MCI_HMS_SECOND := TFourBytes (h) [2];
- end;
-
-function MCI_MAKE_MSF(m, s, f: byte): longint;
- begin
-  TFourBytes (Result) [0] := m;
-  TFourBytes (Result) [1] := s;
-  TFourBytes (Result) [2] := f;
- end;
-
-function MCI_MAKE_HMS(h, m, s: byte): longint;
- begin
-  TFourBytes (Result) [0] := h;
-  TFourBytes (Result) [1] := m;
-  TFourBytes (Result) [2] := s;
- end;
-
-function MCI_TMSF_FRAME(tmsf: longint): byte;
- begin
-  MCI_TMSF_FRAME := TFourBytes (tmsf) [3];
- end;
-
-function mci_Make_TMSF(t, m, s, f: Byte): Longint;
- begin
-  TFourBytes (Result) [0] := t;
-  TFourBytes (Result) [1] := m;
-  TFourBytes (Result) [2] := s;
-  TFourBytes (Result) [3] := f;
- end;
-
-function DIBINDEX(n: longint): longint;
- begin
-  DIBINDEX := n or $10FF shl 16;
- end;
-
-end.
+Function MEVT_EVENTTYPE(x: byte): byte;
+ Begin
+   MEVT_EVENTTYPE := (x shr 24) And $FF;
+ End;
+
+Function MEVT_EVENTPARM(x: DWORD): DWORD;
+ Begin
+   MEVT_EVENTPARM := x And $00FFFFFF;
+ End;
+
+Type 
+  TFourBytes = packed array [0..3] Of byte;
+
+Function MCI_MSF_MINUTE(msf: longint): byte;
+ Begin
+   MCI_MSF_MINUTE := TFourBytes (msf) [0];
+ End;
+
+Function MCI_TMSF_TRACK(tmsf: longint): byte;
+ Begin
+   MCI_TMSF_TRACK := TFourBytes (tmsf) [0];
+ End;
+
+Function MCI_HMS_HOUR(h: longint): byte;
+ Begin
+   MCI_HMS_HOUR := TFourBytes (h) [0];
+ End;
+
+Function MCI_MSF_SECOND(msf: longint): byte;
+ Begin
+   MCI_MSF_SECOND := TFourBytes (msf) [1];
+ End;
+
+Function MCI_TMSF_MINUTE(tmsf: longint): byte;
+ Begin
+   MCI_TMSF_MINUTE := TFourBytes (tmsf) [1];
+ End;
+
+Function MCI_HMS_MINUTE(h: longint): byte;
+ Begin
+   MCI_HMS_MINUTE := TFourBytes (h) [1];
+ End;
+
+Function MCI_MSF_FRAME(msf: longint): byte;
+ Begin
+   MCI_MSF_FRAME := TFourBytes (msf) [2];
+ End;
+
+Function MCI_TMSF_SECOND(tmsf: longint): byte;
+ Begin
+   MCI_TMSF_SECOND := TFourBytes (tmsf) [2];
+ End;
+
+Function MCI_HMS_SECOND(h: longint): byte;
+ Begin
+   MCI_HMS_SECOND := TFourBytes (h) [2];
+ End;
+
+Function MCI_MAKE_MSF(m, s, f: byte): longint;
+ Begin
+   TFourBytes (Result) [0] := m;
+   TFourBytes (Result) [1] := s;
+   TFourBytes (Result) [2] := f;
+ End;
+
+Function MCI_MAKE_HMS(h, m, s: byte): longint;
+ Begin
+   TFourBytes (Result) [0] := h;
+   TFourBytes (Result) [1] := m;
+   TFourBytes (Result) [2] := s;
+ End;
+
+Function MCI_TMSF_FRAME(tmsf: longint): byte;
+ Begin
+   MCI_TMSF_FRAME := TFourBytes (tmsf) [3];
+ End;
+
+Function mci_Make_TMSF(t, m, s, f: Byte): Longint;
+ Begin
+   TFourBytes (Result) [0] := t;
+   TFourBytes (Result) [1] := m;
+   TFourBytes (Result) [2] := s;
+   TFourBytes (Result) [3] := f;
+ End;
+
+Function DIBINDEX(n: longint): longint;
+ Begin
+   DIBINDEX := n Or $10FF shl 16;
+ End;
+
+End.