Subversion Repositories musikbox

Rev

Blame | Last modification | View Log | RSS feed

  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Delphi Runtime Library                          }
  5. {       Windows 32bit API Interface Unit                }
  6. {       Multimedia Interface unit                       }
  7. {                                                       }
  8. {       Copyright (c) 1992,97 Borland International     }
  9. {                                                       }
  10. {*******************************************************}
  11.  
  12. unit Wave_System_Control;
  13.  
  14. {$WEAKPACKAGEUNIT}
  15.  
  16. interface
  17.  
  18. uses Windows;
  19.  
  20.  
  21. {***************************************************************************
  22.  
  23.                     General constants and data types
  24.  
  25. ***************************************************************************}
  26.  
  27. { general constants }
  28. const
  29.   MAXPNAMELEN      =  32;    { max product name length (including nil) }
  30.   MAXERRORLENGTH   = 128;    { max error text length (including nil) }
  31.   MAX_JOYSTICKOEMVXDNAME = 260; { max oem vxd name length (including nil) }
  32.  
  33. {***************************************************************************
  34.  
  35.                          Manufacturer and product IDs
  36.  
  37.     Used with wMid and wPid fields in WAVEOUTCAPS, WAVEINCAPS,
  38.     MIDIOUTCAPS, MIDIINCAPS, AUXCAPS, JOYCAPS structures.
  39.  
  40. ***************************************************************************}
  41.  
  42. { manufacturer IDs }
  43. const
  44.   MM_MICROSOFT            = 1;       { Microsoft Corp. }
  45.  
  46. { product IDs }
  47.   MM_MIDI_MAPPER          = 1;       { MIDI Mapper }
  48.   MM_WAVE_MAPPER          = 2;       { Wave Mapper }
  49.   MM_SNDBLST_MIDIOUT      = 3;       { Sound Blaster MIDI output port }
  50.   MM_SNDBLST_MIDIIN       = 4;       { Sound Blaster MIDI input port  }
  51.   MM_SNDBLST_SYNTH        = 5;       { Sound Blaster internal synthesizer }
  52.   MM_SNDBLST_WAVEOUT      = 6;       { Sound Blaster waveform output }
  53.   MM_SNDBLST_WAVEIN       = 7;       { Sound Blaster waveform input }
  54.   MM_ADLIB                = 9;       { Ad Lib-compatible synthesizer }
  55.   MM_MPU401_MIDIOUT       = 10;      { MPU401-compatible MIDI output port }
  56.   MM_MPU401_MIDIIN        = 11;      { MPU401-compatible MIDI input port }
  57.   MM_PC_JOYSTICK          = 12;      { Joystick adapter }
  58.  
  59.  
  60. { general data types }
  61. type
  62.   VERSION = UINT;               { major (high byte), minor (low byte) }
  63.   MMVERSION = UINT;             { major (high byte), minor (low byte) }
  64.   MMRESULT = UINT;              { error return code, 0 means no error }
  65.  
  66. { types for wType field in MMTIME struct }
  67. const
  68.   TIME_MS         = $0001;  { time in milliseconds }
  69.   TIME_SAMPLES    = $0002;  { number of wave samples }
  70.   TIME_BYTES      = $0004;  { current byte offset }
  71.   TIME_SMPTE      = $0008;  { SMPTE time }
  72.   TIME_MIDI       = $0010;  { MIDI time }
  73.   TIME_TICKS      = $0020;  { Ticks within MIDI stream }
  74.  
  75. { MMTIME data structure }
  76. type
  77.   PMMTime = ^TMMTime;
  78.   TMMTime = record
  79.     case wType: UINT of        { indicates the contents of the variant record }
  80.      TIME_MS:      (ms: DWORD);
  81.      TIME_SAMPLES: (sample: DWORD);
  82.      TIME_BYTES:   (cb: DWORD);
  83.      TIME_TICKS:   (ticks: DWORD);
  84.      TIME_SMPTE: (
  85.         hour: Byte;
  86.         min: Byte;
  87.         sec: Byte;
  88.         frame: Byte;
  89.         fps: Byte;
  90.         dummy: Byte;
  91.         pad: array[0..1] of Byte);
  92.       TIME_MIDI : (songptrpos: DWORD);
  93.   end;
  94.  
  95.  
  96. {***************************************************************************
  97.  
  98.                     Multimedia Extensions Window Messages
  99.  
  100. ***************************************************************************}
  101.  
  102. { joystick }
  103. const
  104.   MM_JOY1MOVE         = $3A0;
  105.   MM_JOY2MOVE         = $3A1;
  106.   MM_JOY1ZMOVE        = $3A2;
  107.   MM_JOY2ZMOVE        = $3A3;
  108.   MM_JOY1BUTTONDOWN   = $3B5;
  109.   MM_JOY2BUTTONDOWN   = $3B6;
  110.   MM_JOY1BUTTONUP     = $3B7;
  111.   MM_JOY2BUTTONUP     = $3B8;
  112.  
  113. { MCI }
  114.   MM_MCINOTIFY        = $3B9;
  115.  
  116. { waveform output }
  117.   MM_WOM_OPEN         = $3BB;
  118.   MM_WOM_CLOSE        = $3BC;
  119.   MM_WOM_DONE         = $3BD;
  120.  
  121. { waveform input }
  122.   MM_WIM_OPEN         = $3BE;
  123.   MM_WIM_CLOSE        = $3BF;
  124.   MM_WIM_DATA         = $3C0;
  125.  
  126. { MIDI input }
  127.   MM_MIM_OPEN         = $3C1;
  128.   MM_MIM_CLOSE        = $3C2;
  129.   MM_MIM_DATA         = $3C3;
  130.   MM_MIM_LONGDATA     = $3C4;
  131.   MM_MIM_ERROR        = $3C5;
  132.   MM_MIM_LONGERROR    = $3C6;
  133.  
  134. { MIDI output }
  135.   MM_MOM_OPEN         = $3C7;
  136.   MM_MOM_CLOSE        = $3C8;
  137.   MM_MOM_DONE         = $3C9;
  138.  
  139.   MM_DRVM_OPEN        = $3D0;
  140.   MM_DRVM_CLOSE       = $3D1;
  141.   MM_DRVM_DATA        = $3D2;
  142.   MM_DRVM_ERROR       = $3D3;
  143.  
  144.   MM_STREAM_OPEN            = $3D4;
  145.   MM_STREAM_CLOSE           = $3D5;
  146.   MM_STREAM_DONE            = $3D6;
  147.   MM_STREAM_ERROR           = $3D7;
  148.  
  149.   MM_MOM_POSITIONCB   = $3CA;
  150.  
  151.   MM_MCISIGNAL        = $3CB;
  152.   MM_MIM_MOREDATA     = $3CC;
  153.  
  154.   MM_MIXM_LINE_CHANGE     = $3D0;
  155.   MM_MIXM_CONTROL_CHANGE  = $3D1;
  156.  
  157. {***************************************************************************
  158.  
  159.                 String resource number bases (internal use)
  160.  
  161. ***************************************************************************}
  162.  
  163. const
  164.   MMSYSERR_BASE          = 0;
  165.   WAVERR_BASE            = 32;
  166.   MIDIERR_BASE           = 64;
  167.   TIMERR_BASE            = 96;
  168.   JOYERR_BASE            = 160;
  169.   MCIERR_BASE            = 256;
  170.   MIXERR_BASE            = 1024;
  171.  
  172.   MCI_STRING_OFFSET      = 512;
  173.   MCI_VD_OFFSET          = 1024;
  174.   MCI_CD_OFFSET          = 1088;
  175.   MCI_WAVE_OFFSET        = 1152;
  176.   MCI_SEQ_OFFSET         = 1216;
  177.  
  178. {***************************************************************************
  179.  
  180.                         General error return values
  181.  
  182. ***************************************************************************}
  183.  
  184. { general error return values }
  185. const
  186.   MMSYSERR_NOERROR      = 0;                  { no error }
  187.   MMSYSERR_ERROR        = MMSYSERR_BASE + 1;  { unspecified error }
  188.   MMSYSERR_BADDEVICEID  = MMSYSERR_BASE + 2;  { device ID out of range }
  189.   MMSYSERR_NOTENABLED   = MMSYSERR_BASE + 3;  { driver failed enable }
  190.   MMSYSERR_ALLOCATED    = MMSYSERR_BASE + 4;  { device already allocated }
  191.   MMSYSERR_INVALHANDLE  = MMSYSERR_BASE + 5;  { device handle is invalid }
  192.   MMSYSERR_NODRIVER     = MMSYSERR_BASE + 6;  { no device driver present }
  193.   MMSYSERR_NOMEM        = MMSYSERR_BASE + 7;  { memory allocation error }
  194.   MMSYSERR_NOTSUPPORTED = MMSYSERR_BASE + 8;  { function isn't supported }
  195.   MMSYSERR_BADERRNUM    = MMSYSERR_BASE + 9;  { error value out of range }
  196.   MMSYSERR_INVALFLAG    = MMSYSERR_BASE + 10; { invalid flag passed }
  197.   MMSYSERR_INVALPARAM   = MMSYSERR_BASE + 11; { invalid parameter passed }
  198.   MMSYSERR_HANDLEBUSY   = MMSYSERR_BASE + 12; { handle being used
  199.                                                 simultaneously on another
  200.                                                 thread (eg callback) }
  201.   MMSYSERR_INVALIDALIAS = MMSYSERR_BASE + 13; { specified alias not found }
  202.   MMSYSERR_BADDB        = MMSYSERR_BASE + 14; { bad registry database }
  203.   MMSYSERR_KEYNOTFOUND  = MMSYSERR_BASE + 15; { registry key not found }
  204.   MMSYSERR_READERROR    = MMSYSERR_BASE + 16; { registry read error }
  205.   MMSYSERR_WRITEERROR   = MMSYSERR_BASE + 17; { registry write error }
  206.   MMSYSERR_DELETEERROR  = MMSYSERR_BASE + 18; { registry delete error }
  207.   MMSYSERR_VALNOTFOUND  = MMSYSERR_BASE + 19; { registry value not found }
  208.   MMSYSERR_NODRIVERCB   = MMSYSERR_BASE + 20; { driver does not call DriverCallback }
  209.   MMSYSERR_LASTERROR    = MMSYSERR_BASE + 20; { last error in range }
  210.  
  211. type
  212.   HDRVR = Integer;
  213.  
  214. {***************************************************************************
  215.  
  216.                         Installable driver support
  217.  
  218. ***************************************************************************}
  219.  
  220. type
  221.   PDrvConfigInfoEx = ^TDrvConfigInfoEx;
  222.   TDrvConfigInfoEx = packed record
  223.     dwDCISize: DWORD;
  224.     lpszDCISectionName: PWideChar;
  225.     lpszDCIAliasName: PWideChar;
  226.     dnDevNode: DWORD;
  227.   end;
  228.  
  229. const
  230. { Driver messages }
  231.   DRV_LOAD                = $0001;
  232.   DRV_ENABLE              = $0002;
  233.   DRV_OPEN                = $0003;
  234.   DRV_CLOSE               = $0004;
  235.   DRV_DISABLE             = $0005;
  236.   DRV_FREE                = $0006;
  237.   DRV_CONFIGURE           = $0007;
  238.   DRV_QUERYCONFIGURE      = $0008;
  239.   DRV_INSTALL             = $0009;
  240.   DRV_REMOVE              = $000A;
  241.   DRV_EXITSESSION         = $000B;
  242.   DRV_POWER               = $000F;
  243.   DRV_RESERVED            = $0800;
  244.   DRV_USER                = $4000;
  245.  
  246. type
  247. { LPARAM of DRV_CONFIGURE message }
  248.   PDrvConfigInfo = ^TDrvConfigInfo;
  249.   TDrvConfigInfo = packed record
  250.     dwDCISize: DWORD;
  251.     lpszDCISectionName: PWideChar;
  252.     lpszDCIAliasName: PWideChar;
  253.   end;
  254.  
  255. const
  256. { Supported return values for DRV_CONFIGURE message }
  257.   DRVCNF_CANCEL           = $0000;
  258.   DRVCNF_OK               = $0001;
  259.   DRVCNF_RESTART          = $0002;
  260.  
  261.  
  262. { installable driver function prototypes }
  263. type
  264.   TFNDriverProc = function(dwDriverId: DWORD; hdrvr: HDRVR;
  265.     msg: UINT; lparam1, lparam2: LPARAM): Longint stdcall;
  266.  
  267. function CloseDriver(hDriver: HDRVR; lParam1, lParam2: Longint): Longint; stdcall;
  268. function OpenDriver(szDriverName: PWideChar; szSectionName: PWideChar; lParam2: Longint): HDRVR; stdcall;
  269. function SendDriverMessage(hDriver: HDRVR; message: UINT; lParam1, lParam2: Longint): Longint; stdcall;
  270. function DrvGetModuleHandle(hDriver: HDRVR): HMODULE; stdcall;
  271. function GetDriverModuleHandle(hDriver: HDRVR): HMODULE; stdcall;
  272. function DefDriverProc(dwDriverIdentifier: DWORD; hdrvr: HDRVR; uMsg: UINT;
  273.   lParam1, lParam2: LPARAM): Longint; stdcall;
  274.  
  275. { return values from DriverProc() function }
  276. const
  277.   DRV_CANCEL             = DRVCNF_CANCEL;
  278.   DRV_OK                 = DRVCNF_OK;
  279.   DRV_RESTART            = DRVCNF_RESTART;
  280.  
  281.   DRV_MCI_FIRST          = DRV_RESERVED;
  282.   DRV_MCI_LAST           = DRV_RESERVED + $FFF;
  283.  
  284.  
  285. {***************************************************************************
  286.  
  287.                           Driver callback support
  288.  
  289. ***************************************************************************}
  290.  
  291. { flags used with waveOutOpen(), waveInOpen(), midiInOpen(), and }
  292. { midiOutOpen() to specify the type of the dwCallback parameter. }
  293.  
  294. const
  295.   CALLBACK_TYPEMASK   = $00070000;    { callback type mask }
  296.   CALLBACK_NULL       = $00000000;    { no callback }
  297.   CALLBACK_WINDOW     = $00010000;    { dwCallback is a HWND }
  298.   CALLBACK_TASK       = $00020000;    { dwCallback is a HTASK }
  299.   CALLBACK_FUNCTION   = $00030000;    { dwCallback is a FARPROC }
  300.   CALLBACK_THREAD     = CALLBACK_TASK;{ thread ID replaces 16 bit task }
  301.   CALLBACK_EVENT      = $00050000;    { dwCallback is an EVENT Handle }
  302.  
  303. { driver callback prototypes }
  304.  
  305. type
  306.   TFNDrvCallBack = procedure(hdrvr: HDRVR; uMsg: UINT; dwUser: DWORD;
  307.     dw1, dw2: DWORD) stdcall;
  308.  
  309.  
  310. {***************************************************************************
  311.  
  312.                     General MMSYSTEM support
  313.  
  314. ***************************************************************************}
  315.  
  316. function mmsystemGetVersion: UINT; stdcall;
  317.  
  318. {***************************************************************************
  319.  
  320.                             Sound support
  321.  
  322. ***************************************************************************}
  323.  
  324. function sndPlaySoundA(lpszSoundName: PAnsiChar; uFlags: UINT): BOOL; stdcall;
  325. function sndPlaySoundW(lpszSoundName: PWideChar; uFlags: UINT): BOOL; stdcall;
  326. function sndPlaySound(lpszSoundName: PChar; uFlags: UINT): BOOL; stdcall;
  327.  
  328. { flag values for wFlags parameter }
  329. const
  330.   SND_SYNC            = $0000;  { play synchronously (default) }
  331.   SND_ASYNC           = $0001;  { play asynchronously }
  332.   SND_NODEFAULT       = $0002;  { don't use default sound }
  333.   SND_MEMORY          = $0004;  { lpszSoundName points to a memory file }
  334.   SND_LOOP            = $0008;  { loop the sound until next sndPlaySound }
  335.   SND_NOSTOP          = $0010;  { don't stop any currently playing sound }
  336.  
  337.   SND_NOWAIT          = $00002000;  { don't wait if the driver is busy }
  338.   SND_ALIAS           = $00010000;  { name is a registry alias }
  339.   SND_ALIAS_ID        = $00110000;  { alias is a predefined ID }
  340.   SND_FILENAME        = $00020000;  { name is file name }
  341.   SND_RESOURCE        = $00040004;  { name is resource name or atom }
  342.   SND_PURGE           = $0040;      { purge non-static events for task }
  343.   SND_APPLICATION     = $0080;      { look for application specific association }
  344.  
  345.   SND_ALIAS_START     = 0;   { alias base }
  346.  
  347.   SND_ALIAS_SYSTEMASTERISK       = SND_ALIAS_START + (Longint(Ord('S')) or (Longint(Ord('*')) shl 8));
  348.   SND_ALIAS_SYSTEMQUESTION       = SND_ALIAS_START + (Longint(Ord('S')) or (Longint(Ord('?')) shl 8));
  349.   SND_ALIAS_SYSTEMHAND           = SND_ALIAS_START + (Longint(Ord('S')) or (Longint(Ord('H')) shl 8));
  350.   SND_ALIAS_SYSTEMEXIT           = SND_ALIAS_START + (Longint(Ord('S')) or (Longint(Ord('E')) shl 8));
  351.   SND_ALIAS_SYSTEMSTART          = SND_ALIAS_START + (Longint(Ord('S')) or (Longint(Ord('S')) shl 8));
  352.   SND_ALIAS_SYSTEMWELCOME        = SND_ALIAS_START + (Longint(Ord('S')) or (Longint(Ord('W')) shl 8));
  353.   SND_ALIAS_SYSTEMEXCLAMATION    = SND_ALIAS_START + (Longint(Ord('S')) or (Longint(Ord('!')) shl 8));
  354.   SND_ALIAS_SYSTEMDEFAULT        = SND_ALIAS_START + (Longint(Ord('S')) or (Longint(Ord('D')) shl 8));
  355.  
  356. function PlaySoundA(pszSound: PAnsiChar; hmod: HMODULE; fdwSound: DWORD): BOOL; stdcall;
  357. function PlaySoundW(pszSound: PWideChar; hmod: HMODULE; fdwSound: DWORD): BOOL; stdcall;
  358. function PlaySound(pszSound: PChar; hmod: HMODULE; fdwSound: DWORD): BOOL; stdcall;
  359.  
  360. {***************************************************************************
  361.  
  362.                         Waveform audio support
  363.  
  364. ***************************************************************************}
  365.  
  366. { waveform audio error return values }
  367. const
  368.   WAVERR_BADFORMAT      = WAVERR_BASE + 0;    { unsupported wave format }
  369.   WAVERR_STILLPLAYING   = WAVERR_BASE + 1;    { still something playing }
  370.   WAVERR_UNPREPARED     = WAVERR_BASE + 2;    { header not prepared }
  371.   WAVERR_SYNC           = WAVERR_BASE + 3;    { device is synchronous }
  372.   WAVERR_LASTERROR      = WAVERR_BASE + 3;    { last error in range }
  373.  
  374. { waveform audio data types }
  375. type
  376.   PHWAVE = ^HWAVE;
  377.   HWAVE = Integer;
  378.   PHWAVEIN = ^HWAVEIN;
  379.   HWAVEIN = Integer;
  380.   PHWAVEOUT = ^HWAVEOUT;
  381.   HWAVEOUT = Integer;
  382.  
  383. type
  384.   TFNWaveCallBack = TFNDrvCallBack;
  385.  
  386. { wave callback messages }
  387. const
  388.   WOM_OPEN        = MM_WOM_OPEN;
  389.   WOM_CLOSE       = MM_WOM_CLOSE;
  390.   WOM_DONE        = MM_WOM_DONE;
  391.   WIM_OPEN        = MM_WIM_OPEN;
  392.   WIM_CLOSE       = MM_WIM_CLOSE;
  393.   WIM_DATA        = MM_WIM_DATA;
  394.  
  395. { device ID for wave device mapper }
  396.   WAVE_MAPPER     = UINT(-1);
  397.  
  398. { flags for dwFlags parameter in waveOutOpen() and waveInOpen() }
  399.   WAVE_FORMAT_QUERY     = $0001;
  400.   WAVE_ALLOWSYNC        = $0002;
  401.   WAVE_MAPPED           = $0004;
  402.  
  403. { wave data block header }
  404. type
  405.   PWaveHdr = ^TWaveHdr;
  406.   TWaveHdr = record
  407.     lpData: PChar;              { pointer to locked data buffer }
  408.     dwBufferLength: DWORD;      { length of data buffer }
  409.     dwBytesRecorded: DWORD;     { used for input only }
  410.     dwUser: DWORD;              { for client's use }
  411.     dwFlags: DWORD;             { assorted flags (see defines) }
  412.     dwLoops: DWORD;             { loop control counter }
  413.     lpNext: PWaveHdr;           { reserved for driver }
  414.     reserved: DWORD;            { reserved for driver }
  415.   end;
  416.  
  417.  
  418. { flags for dwFlags field of WAVEHDR }
  419. const
  420.   WHDR_DONE       = $00000001;  { done bit }
  421.   WHDR_PREPARED   = $00000002;  { set if this header has been prepared }
  422.   WHDR_BEGINLOOP  = $00000004;  { loop start block }
  423.   WHDR_ENDLOOP    = $00000008;  { loop end block }
  424.   WHDR_INQUEUE    = $00000010;  { reserved for driver }
  425.  
  426. { waveform output device capabilities structure }
  427. type
  428.   PWaveOutCapsA = ^TWaveOutCapsA;
  429.   PWaveOutCapsW = ^TWaveOutCapsW;
  430.   PWaveOutCaps = PWaveOutCapsA;
  431.   TWaveOutCapsA = record
  432.     wMid: Word;                 { manufacturer ID }
  433.     wPid: Word;                 { product ID }
  434.     vDriverVersion: MMVERSION;       { version of the driver }
  435.     szPname: array[0..MAXPNAMELEN-1] of AnsiChar;  { product name (NULL terminated string) }
  436.     dwFormats: DWORD;          { formats supported }
  437.     wChannels: Word;            { number of sources supported }
  438.     dwSupport: DWORD;          { functionality supported by driver }
  439.   end;
  440.   TWaveOutCapsW = record
  441.     wMid: Word;                 { manufacturer ID }
  442.     wPid: Word;                 { product ID }
  443.     vDriverVersion: MMVERSION;       { version of the driver }
  444.     szPname: array[0..MAXPNAMELEN-1] of WideChar;  { product name (NULL terminated string) }
  445.     dwFormats: DWORD;          { formats supported }
  446.     wChannels: Word;            { number of sources supported }
  447.     dwSupport: DWORD;          { functionality supported by driver }
  448.   end;
  449.   TWaveOutCaps = TWaveOutCapsA;
  450.  
  451.  
  452. { flags for dwSupport field of WAVEOUTCAPS }
  453. const
  454.   WAVECAPS_PITCH          = $0001;   { supports pitch control }
  455.   WAVECAPS_PLAYBACKRATE   = $0002;   { supports playback rate control }
  456.   WAVECAPS_VOLUME         = $0004;   { supports volume control }
  457.   WAVECAPS_LRVOLUME       = $0008;   { separate left-right volume control }
  458.   WAVECAPS_SYNC           = $0010;
  459.   WAVECAPS_SAMPLEACCURATE = $0020;
  460.   WAVECAPS_DIRECTSOUND    = $0040;
  461.  
  462. { waveform input device capabilities structure }
  463. type
  464.   PWaveInCapsA = ^TWaveInCapsA;
  465.   PWaveInCapsW = ^TWaveInCapsW;
  466.   PWaveInCaps = PWaveInCapsA;
  467.   TWaveInCapsA = record
  468.     wMid: Word;                   { manufacturer ID }
  469.     wPid: Word;                   { product ID }
  470.     vDriverVersion: MMVERSION;         { version of the driver }
  471.     szPname: array[0..MAXPNAMELEN-1] of AnsiChar;    { product name (NULL terminated string) }
  472.     dwFormats: DWORD;             { formats supported }
  473.     wChannels: Word;              { number of channels supported }
  474.     wReserved1: Word;             { structure packing }
  475.   end;
  476.   TWaveInCapsW = record
  477.     wMid: Word;                   { manufacturer ID }
  478.     wPid: Word;                   { product ID }
  479.     vDriverVersion: MMVERSION;         { version of the driver }
  480.     szPname: array[0..MAXPNAMELEN-1] of WideChar;    { product name (NULL terminated string) }
  481.     dwFormats: DWORD;             { formats supported }
  482.     wChannels: Word;              { number of channels supported }
  483.     wReserved1: Word;             { structure packing }
  484.   end;
  485.   TWaveInCaps = TWaveInCapsA;
  486.  
  487.  
  488. { defines for dwFormat field of WAVEINCAPS and WAVEOUTCAPS }
  489. const
  490.   WAVE_INVALIDFORMAT     = $00000000;       { invalid format }
  491.   WAVE_FORMAT_1M08       = $00000001;       { 11.025 kHz, Mono,   8-bit  }
  492.   WAVE_FORMAT_1S08       = $00000002;       { 11.025 kHz, Stereo, 8-bit  }
  493.   WAVE_FORMAT_1M16       = $00000004;       { 11.025 kHz, Mono,   16-bit }
  494.   WAVE_FORMAT_1S16       = $00000008;       { 11.025 kHz, Stereo, 16-bit }
  495.   WAVE_FORMAT_2M08       = $00000010;       { 22.05  kHz, Mono,   8-bit  }
  496.   WAVE_FORMAT_2S08       = $00000020;       { 22.05  kHz, Stereo, 8-bit  }
  497.   WAVE_FORMAT_2M16       = $00000040;       { 22.05  kHz, Mono,   16-bit }
  498.   WAVE_FORMAT_2S16       = $00000080;       { 22.05  kHz, Stereo, 16-bit }
  499.   WAVE_FORMAT_4M08       = $00000100;       { 44.1   kHz, Mono,   8-bit  }
  500.   WAVE_FORMAT_4S08       = $00000200;       { 44.1   kHz, Stereo, 8-bit  }
  501.   WAVE_FORMAT_4M16       = $00000400;       { 44.1   kHz, Mono,   16-bit }
  502.   WAVE_FORMAT_4S16       = $00000800;       { 44.1   kHz, Stereo, 16-bit }
  503.  
  504. { general waveform format structure (information common to all formats) }
  505. type
  506.   PWaveFormat = ^TWaveFormat;
  507.   TWaveFormat = packed record
  508.     wFormatTag: Word;         { format type }
  509.     nChannels: Word;          { number of channels (i.e. mono, stereo, etc.) }
  510.     nSamplesPerSec: DWORD;  { sample rate }
  511.     nAvgBytesPerSec: DWORD; { for buffer estimation }
  512.     nBlockAlign: Word;      { block size of data }
  513.   end;
  514.  
  515. { flags for wFormatTag field of WAVEFORMAT }
  516. const
  517.   WAVE_FORMAT_PCM     = 1;
  518.  
  519. { specific waveform format structure for PCM data }
  520. type
  521.   PPCMWaveFormat = ^TPCMWaveFormat;
  522.   TPCMWaveFormat = record
  523.       wf: TWaveFormat;
  524.       wBitsPerSample: Word;
  525.    end;
  526.  
  527.  
  528. { extended waveform format structure used for all non-PCM formats. this
  529.   structure is common to all non-PCM formats. }
  530.  
  531.   PWaveFormatEx = ^TWaveFormatEx;
  532.   TWaveFormatEx = packed record
  533.     wFormatTag: Word;         { format type }
  534.     nChannels: Word;          { number of channels (i.e. mono, stereo, etc.) }
  535.     nSamplesPerSec: DWORD;  { sample rate }
  536.     nAvgBytesPerSec: DWORD; { for buffer estimation }
  537.     nBlockAlign: Word;      { block size of data }
  538.     wBitsPerSample: Word;   { number of bits per sample of mono data }
  539.     cbSize: Word;           { the count in bytes of the size of }
  540.   end;
  541.  
  542.  
  543. { waveform audio function prototypes }
  544. function waveOutGetNumDevs: UINT; stdcall;
  545.  
  546. function waveOutGetDevCapsA(uDeviceID: UINT; lpCaps: PWaveOutCapsA; uSize: UINT): MMRESULT; stdcall;
  547. function waveOutGetDevCapsW(uDeviceID: UINT; lpCaps: PWaveOutCapsW; uSize: UINT): MMRESULT; stdcall;
  548. function waveOutGetDevCaps(uDeviceID: UINT; lpCaps: PWaveOutCaps; uSize: UINT): MMRESULT; stdcall;
  549. function waveOutGetVolume(hwo: HWAVEOUT; lpdwVolume: PDWORD): MMRESULT; stdcall;
  550. function waveOutSetVolume(hwo: HWAVEOUT; dwVolume: DWORD): MMRESULT; stdcall;
  551. function waveOutGetErrorTextA(mmrError: MMRESULT; lpText: PAnsiChar; uSize: UINT): MMRESULT; stdcall;
  552. function waveOutGetErrorTextW(mmrError: MMRESULT; lpText: PWideChar; uSize: UINT): MMRESULT; stdcall;
  553. function waveOutGetErrorText(mmrError: MMRESULT; lpText: PChar; uSize: UINT): MMRESULT; stdcall;
  554. function waveOutOpen(lphWaveOut: PHWaveOut; uDeviceID: UINT;
  555.   lpFormat: PWaveFormatEx; dwCallback, dwInstance, dwFlags: DWORD): MMRESULT; stdcall;
  556. function waveOutClose(hWaveOut: HWAVEOUT): MMRESULT; stdcall;
  557. function waveOutPrepareHeader(hWaveOut: HWAVEOUT; lpWaveOutHdr: PWaveHdr;
  558.   uSize: UINT): MMRESULT; stdcall;
  559. function waveOutUnprepareHeader(hWaveOut: HWAVEOUT; lpWaveOutHdr: PWaveHdr;
  560.   uSize: UINT): MMRESULT; stdcall;
  561. function waveOutWrite(hWaveOut: HWAVEOUT; lpWaveOutHdr: PWaveHdr;
  562.   uSize: UINT): MMRESULT; stdcall;
  563. function waveOutPause(hWaveOut: HWAVEOUT): MMRESULT; stdcall;
  564. function waveOutRestart(hWaveOut: HWAVEOUT): MMRESULT; stdcall;
  565. function waveOutReset(hWaveOut: HWAVEOUT): MMRESULT; stdcall;
  566. function waveOutBreakLoop(hWaveOut: HWAVEOUT): MMRESULT; stdcall;
  567. function waveOutGetPosition(hWaveOut: HWAVEOUT; lpInfo: PMMTime; uSize: UINT): MMRESULT; stdcall;
  568. function waveOutGetPitch(hWaveOut: HWAVEOUT; lpdwPitch: PDWORD): MMRESULT; stdcall;
  569. function waveOutSetPitch(hWaveOut: HWAVEOUT; dwPitch: DWORD): MMRESULT; stdcall;
  570. function waveOutGetPlaybackRate(hWaveOut: HWAVEOUT; lpdwRate: PDWORD): MMRESULT; stdcall;
  571. function waveOutSetPlaybackRate(hWaveOut: HWAVEOUT; dwRate: DWORD): MMRESULT; stdcall;
  572. function waveOutGetID(hWaveOut: HWAVEOUT; lpuDeviceID: PUINT): MMRESULT; stdcall;
  573. function waveOutMessage(hWaveOut: HWAVEOUT; uMessage: UINT; dw1, dw2: DWORD): Longint; stdcall;
  574. function waveInGetNumDevs: UINT; stdcall;
  575. function waveInGetDevCapsA(hwo: HWAVEOUT; lpCaps: PWaveInCapsA; uSize: UINT): MMRESULT; stdcall;
  576. function waveInGetDevCapsW(hwo: HWAVEOUT; lpCaps: PWaveInCapsW; uSize: UINT): MMRESULT; stdcall;
  577. function waveInGetDevCaps(hwo: HWAVEOUT; lpCaps: PWaveInCaps; uSize: UINT): MMRESULT; stdcall;
  578. function waveInGetErrorTextA(mmrError: MMRESULT; lpText: PAnsiChar; uSize: UINT): MMRESULT; stdcall;
  579. function waveInGetErrorTextW(mmrError: MMRESULT; lpText: PWideChar; uSize: UINT): MMRESULT; stdcall;
  580. function waveInGetErrorText(mmrError: MMRESULT; lpText: PChar; uSize: UINT): MMRESULT; stdcall;
  581. function waveInOpen(lphWaveIn: PHWAVEIN; uDeviceID: UINT;
  582.   lpFormatEx: PWaveFormatEx; dwCallback, dwInstance, dwFlags: DWORD): MMRESULT; stdcall;
  583. function waveInClose(hWaveIn: HWAVEIN): MMRESULT; stdcall;
  584. function waveInPrepareHeader(hWaveIn: HWAVEIN; lpWaveInHdr: PWaveHdr;
  585.   uSize: UINT): MMRESULT; stdcall;
  586. function waveInUnprepareHeader(hWaveIn: HWAVEIN; lpWaveInHdr: PWaveHdr;
  587.   uSize: UINT): MMRESULT; stdcall;
  588. function waveInAddBuffer(hWaveIn: HWAVEIN; lpWaveInHdr: PWaveHdr;
  589.   uSize: UINT): MMRESULT; stdcall;
  590. function waveInStart(hWaveIn: HWAVEIN): MMRESULT; stdcall;
  591. function waveInStop(hWaveIn: HWAVEIN): MMRESULT; stdcall;
  592. function waveInReset(hWaveIn: HWAVEIN): MMRESULT; stdcall;
  593. function waveInGetPosition(hWaveIn: HWAVEIN; lpInfo: PMMTime;
  594.   uSize: UINT): MMRESULT; stdcall;
  595. function waveInGetID(hWaveIn: HWAVEIN; lpuDeviceID: PUINT): MMRESULT; stdcall;
  596. function waveInMessage(hWaveIn: HWAVEIN; uMessage: UINT;
  597.   dw1, dw2: DWORD): MMRESULT; stdcall;
  598.  
  599. {***************************************************************************
  600.  
  601.                             MIDI audio support
  602.  
  603. ***************************************************************************}
  604.  
  605. { MIDI error return values }
  606. const
  607.   MIDIERR_UNPREPARED    = MIDIERR_BASE + 0;   { header not prepared }
  608.   MIDIERR_STILLPLAYING  = MIDIERR_BASE + 1;   { still something playing }
  609.   MIDIERR_NOMAP         = MIDIERR_BASE + 2;   { no current map }
  610.   MIDIERR_NOTREADY      = MIDIERR_BASE + 3;   { hardware is still busy }
  611.   MIDIERR_NODEVICE      = MIDIERR_BASE + 4;   { port no longer connected }
  612.   MIDIERR_INVALIDSETUP  = MIDIERR_BASE + 5;   { invalid setup }
  613.   MIDIERR_BADOPENMODE   = MIDIERR_BASE + 6;   { operation unsupported w/ open mode }
  614.   MIDIERR_DONT_CONTINUE = MIDIERR_BASE + 7;   { thru device 'eating' a message }
  615.   MIDIERR_LASTERROR     = MIDIERR_BASE + 5;   { last error in range }
  616.  
  617. { MIDI audio data types }
  618. type
  619.   PHMIDI = ^HMIDI;
  620.   HMIDI = Integer;
  621.   PHMIDIIN = ^HMIDIIN;
  622.   HMIDIIN = Integer;
  623.   PHMIDIOUT = ^HMIDIOUT;
  624.   HMIDIOUT = Integer;
  625.   PHMIDISTRM = ^HMIDISTRM;
  626.   HMIDISTRM = Integer;
  627.  
  628. type
  629.   TFNMidiCallBack = TFNDrvCallBack;
  630.  
  631. const
  632.   MIDIPATCHSIZE   = 128;
  633.  
  634. type
  635.   PPatchArray = ^TPatchArray;
  636.   TPatchArray = array[0..MIDIPATCHSIZE-1] of Word;
  637.  
  638.   PKeyArray = ^TKeyArray;
  639.   TKeyArray = array[0..MIDIPATCHSIZE-1] of Word;
  640.  
  641.  
  642. { MIDI callback messages }
  643. const
  644.   MIM_OPEN        = MM_MIM_OPEN;
  645.   MIM_CLOSE       = MM_MIM_CLOSE;
  646.   MIM_DATA        = MM_MIM_DATA;
  647.   MIM_LONGDATA    = MM_MIM_LONGDATA;
  648.   MIM_ERROR       = MM_MIM_ERROR;
  649.   MIM_LONGERROR   = MM_MIM_LONGERROR;
  650.   MOM_OPEN        = MM_MOM_OPEN;
  651.   MOM_CLOSE       = MM_MOM_CLOSE;
  652.   MOM_DONE        = MM_MOM_DONE;
  653.  
  654.   MIM_MOREDATA    = MM_MIM_MOREDATA;
  655.   MOM_POSITIONCB  = MM_MOM_POSITIONCB;
  656.  
  657. { device ID for MIDI mapper }
  658.   MIDIMAPPER     = UINT(-1);
  659.   MIDI_MAPPER    = UINT(-1);
  660.  
  661. { flags for dwFlags parm of midiInOpen() }
  662.   MIDI_IO_STATUS = $00000020;
  663.  
  664. { flags for wFlags parm of midiOutCachePatches(), midiOutCacheDrumPatches() }
  665.   MIDI_CACHE_ALL      = 1;
  666.   MIDI_CACHE_BESTFIT  = 2;
  667.   MIDI_CACHE_QUERY    = 3;
  668.   MIDI_UNCACHE        = 4;
  669.  
  670. { MIDI output device capabilities structure }
  671. type
  672.   PMidiOutCapsA = ^TMidiOutCapsA;
  673.   PMidiOutCapsW = ^TMidiOutCapsW;
  674.   PMidiOutCaps = PMidiOutCapsA;
  675.   TMidiOutCapsA = record
  676.     wMid: Word;                  { manufacturer ID }
  677.     wPid: Word;                  { product ID }
  678.     vDriverVersion: MMVERSION;        { version of the driver }
  679.     szPname: array[0..MAXPNAMELEN-1] of AnsiChar;  { product name (NULL terminated string) }
  680.     wTechnology: Word;           { type of device }
  681.     wVoices: Word;               { # of voices (internal synth only) }
  682.     wNotes: Word;                { max # of notes (internal synth only) }
  683.     wChannelMask: Word;          { channels used (internal synth only) }
  684.     dwSupport: DWORD;            { functionality supported by driver }
  685.   end;
  686.   TMidiOutCapsW = record
  687.     wMid: Word;                  { manufacturer ID }
  688.     wPid: Word;                  { product ID }
  689.     vDriverVersion: MMVERSION;        { version of the driver }
  690.     szPname: array[0..MAXPNAMELEN-1] of WideChar;  { product name (NULL terminated string) }
  691.     wTechnology: Word;           { type of device }
  692.     wVoices: Word;               { # of voices (internal synth only) }
  693.     wNotes: Word;                { max # of notes (internal synth only) }
  694.     wChannelMask: Word;          { channels used (internal synth only) }
  695.     dwSupport: DWORD;            { functionality supported by driver }
  696.   end;
  697.   TMidiOutCaps = TMidiOutCapsA;
  698.  
  699.  
  700. { flags for wTechnology field of MIDIOUTCAPS structure }
  701. const
  702.   MOD_MIDIPORT    = 1;  { output port }
  703.   MOD_SYNTH       = 2;  { generic internal synth }
  704.   MOD_SQSYNTH     = 3;  { square wave internal synth }
  705.   MOD_FMSYNTH     = 4;  { FM internal synth }
  706.   MOD_MAPPER      = 5;  { MIDI mapper }
  707.  
  708. { flags for dwSupport field of MIDIOUTCAPS structure }
  709. const
  710.   MIDICAPS_VOLUME          = $0001;  { supports volume control }
  711.   MIDICAPS_LRVOLUME        = $0002;  { separate left-right volume control }
  712.   MIDICAPS_CACHE           = $0004;
  713.   MIDICAPS_STREAM          = $0008;  { driver supports midiStreamOut directly }
  714.  
  715. { MIDI output device capabilities structure }
  716.  
  717. type
  718.   PMidiInCapsA = ^TMidiInCapsA;
  719.   PMidiInCapsW = ^TMidiInCapsW;
  720.   PMidiInCaps = PMidiInCapsA;
  721.   TMidiInCapsA = record
  722.     wMid: Word;                  { manufacturer ID }
  723.     wPid: Word;                  { product ID }
  724.     vDriverVersion: MMVERSION;   { version of the driver }
  725.     szPname: array[0..MAXPNAMELEN-1] of AnsiChar;  { product name (NULL terminated string) }
  726.     dwSupport: DWORD;            { functionality supported by driver }
  727.   end;
  728.   TMidiInCapsW = record
  729.     wMid: Word;                  { manufacturer ID }
  730.     wPid: Word;                  { product ID }
  731.     vDriverVersion: MMVERSION;   { version of the driver }
  732.     szPname: array[0..MAXPNAMELEN-1] of WideChar;  { product name (NULL terminated string) }
  733.     dwSupport: DWORD;            { functionality supported by driver }
  734.   end;
  735.   TMidiInCaps = TMidiInCapsA;
  736.  
  737. { MIDI data block header }
  738. type
  739.   PMidiHdr = ^TMidiHdr;
  740.   TMidiHdr = record
  741.     lpData: PChar;               { pointer to locked data block }
  742.     dwBufferLength: DWORD;       { length of data in data block }
  743.     dwBytesRecorded: DWORD;      { used for input only }
  744.     dwUser: DWORD;               { for client's use }
  745.     dwFlags: DWORD;              { assorted flags (see defines) }
  746.     lpNext: PMidiHdr;            { reserved for driver }
  747.     reserved: DWORD;             { reserved for driver }
  748.     dwOffset: DWORD;             { Callback offset into buffer }
  749.     dwReserved: array[0..7] of DWORD; { Reserved for MMSYSTEM }
  750.   end;
  751.  
  752.   PMidiEvent = ^TMidiEvent;
  753.   TMidiEvent = record
  754.     dwDeltaTime: DWORD;          { Ticks since last event }
  755.     dwStreamID: DWORD;           { Reserved; must be zero }
  756.     dwEvent: DWORD;              { Event type and parameters }
  757.     dwParms: array[0..0] of DWORD;  { Parameters if this is a long event }
  758.   end;
  759.  
  760.   PMidiStrmBuffVer = ^TMidiStrmBuffVer;
  761.   TMidiStrmBuffVer = record
  762.     dwVersion: DWORD;                  { Stream buffer format version }
  763.     dwMid: DWORD;                      { Manufacturer ID as defined in MMREG.H }
  764.     dwOEMVersion: DWORD;               { Manufacturer version for custom ext }
  765.   end;
  766.  
  767. { flags for dwFlags field of MIDIHDR structure }
  768. const
  769.   MHDR_DONE       = $00000001;       { done bit }
  770.   MHDR_PREPARED   = $00000002;       { set if header prepared }
  771.   MHDR_INQUEUE    = $00000004;       { reserved for driver }
  772.   MHDR_ISSTRM     = $00000008;       { Buffer is stream buffer }
  773.  
  774. (*
  775.   Type codes which go in the high byte of the event DWORD of a stream buffer
  776.  
  777.   Type codes 00-7F contain parameters within the low 24 bits
  778.   Type codes 80-FF contain a length of their parameter in the low 24
  779.   bits, followed by their parameter data in the buffer. The event
  780.   DWORD contains the exact byte length; the parm data itself must be
  781.   padded to be an even multiple of 4 bytes long.
  782. *)
  783.  
  784.   MEVT_F_SHORT       = $00000000;
  785.   MEVT_F_LONG        = $80000000;
  786.   MEVT_F_CALLBACK    = $40000000;
  787.  
  788.   MEVT_SHORTMSG     = $00;    { parm = shortmsg for midiOutShortMsg }
  789.   MEVT_TEMPO        = $01;    { parm = new tempo in microsec/qn     }
  790.   MEVT_NOP          = $02;    { parm = unused; does nothing         }
  791.  
  792. { 0x04-0x7F reserved }
  793.  
  794.   MEVT_LONGMSG      = $80;    { parm = bytes to send verbatim       }
  795.   MEVT_COMMENT      = $82;    { parm = comment data                 }
  796.   MEVT_VERSION      = $84;    { parm = MIDISTRMBUFFVER struct       }
  797.  
  798. { 0x81-0xFF reserved }
  799.  
  800.   MIDISTRM_ERROR    =  -2;
  801.  
  802. { Structures and defines for midiStreamProperty }
  803.   MIDIPROP_SET       = $80000000;
  804.   MIDIPROP_GET       = $40000000;
  805.  
  806. { These are intentionally both non-zero so the app cannot accidentally
  807.   leave the operation off and happen to appear to work due to default
  808.   action. }
  809.   MIDIPROP_TIMEDIV   = $00000001;
  810.   MIDIPROP_TEMPO     = $00000002;
  811.  
  812. type
  813.   PMidiPropTimeDiv = ^TMidiPropTimeDiv;
  814.   TMidiPropTimeDiv = record
  815.     cbStruct: DWORD;
  816.     dwTimeDiv: DWORD;
  817.   end;
  818.  
  819.   PMidiPropTempo = ^TMidiPropTempo;
  820.   TMidiPropTempo = record
  821.     cbStruct: DWORD;
  822.     dwTempo: DWORD;
  823.   end;
  824.  
  825. { MIDI function prototypes }
  826.  
  827. function midiOutGetNumDevs: UINT; stdcall;
  828. function midiStreamOpen(phms: PHMIDISTRM; puDeviceID: PUINT;
  829.   cMidi, dwCallback, dwInstance, fdwOpen: DWORD): MMRESULT; stdcall
  830. function midiStreamClose(hms: HMIDISTRM): MMRESULT; stdcall;
  831. function midiStreamProperty(hms: HMIDISTRM; lppropdata: PBYTE; dwProperty: DWORD): MMRESULT; stdcall;
  832. function midiStreamPosition(hms: HMIDISTRM; lpmmt: PMMTime; cbmmt: UINT): MMRESULT; stdcall;
  833. function midiStreamOut(hms: HMIDISTRM; pmh: PMidiHdr; cbmh: UINT): MMRESULT; stdcall;
  834. function midiStreamPause(hms: HMIDISTRM): MMRESULT; stdcall;
  835. function midiStreamRestart(hms: HMIDISTRM): MMRESULT; stdcall;
  836. function midiStreamStop(hms: HMIDISTRM): MMRESULT; stdcall;
  837. function midiConnect(hmi: HMIDI; hmo: HMIDIOUT; pReserved: Pointer): MMRESULT; stdcall;
  838. function midiDisconnect(hmi: HMIDI; hmo: HMIDIOUT; pReserved: Pointer): MMRESULT; stdcall;
  839. function midiOutGetDevCapsA(uDeviceID: UINT; lpCaps: PMidiOutCapsA; uSize: UINT): MMRESULT; stdcall;
  840. function midiOutGetDevCapsW(uDeviceID: UINT; lpCaps: PMidiOutCapsW; uSize: UINT): MMRESULT; stdcall;
  841. function midiOutGetDevCaps(uDeviceID: UINT; lpCaps: PMidiOutCaps; uSize: UINT): MMRESULT; stdcall;
  842. function midiOutGetVolume(hmo: HMIDIOUT; lpdwVolume: PDWORD): MMRESULT; stdcall;
  843. function midiOutSetVolume(hmo: HMIDIOUT; dwVolume: DWORD): MMRESULT; stdcall;
  844. function midiOutGetErrorTextA(mmrError: MMRESULT; pszText: PAnsiChar; uSize: UINT): MMRESULT; stdcall;
  845. function midiOutGetErrorTextW(mmrError: MMRESULT; pszText: PWideChar; uSize: UINT): MMRESULT; stdcall;
  846. function midiOutGetErrorText(mmrError: MMRESULT; pszText: PChar; uSize: UINT): MMRESULT; stdcall;
  847. function midiOutOpen(lphMidiOut: PHMIDIOUT; uDeviceID: UINT;
  848.   dwCallback, dwInstance, dwFlags: DWORD): MMRESULT; stdcall;
  849. function midiOutClose(hMidiOut: HMIDIOUT): MMRESULT; stdcall;
  850. function midiOutPrepareHeader(hMidiOut: HMIDIOUT; lpMidiOutHdr: PMidiHdr; uSize: UINT): MMRESULT; stdcall;
  851. function midiOutUnprepareHeader(hMidiOut: HMIDIOUT; lpMidiOutHdr: PMidiHdr; uSize: UINT): MMRESULT; stdcall;
  852. function midiOutShortMsg(hMidiOut: HMIDIOUT; dwMsg: DWORD): MMRESULT; stdcall;
  853. function midiOutLongMsg(hMidiOut: HMIDIOUT; lpMidiOutHdr: PMidiHdr; uSize: UINT): MMRESULT; stdcall;
  854. function midiOutReset(hMidiOut: HMIDIOUT): MMRESULT; stdcall;
  855. function midiOutCachePatches(hMidiOut: HMIDIOUT;
  856.   uBank: UINT; lpwPatchArray: PWord; uFlags: UINT): MMRESULT; stdcall;
  857. function midiOutCacheDrumPatches(hMidiOut: HMIDIOUT;
  858.   uPatch: UINT; lpwKeyArray: PWord; uFlags: UINT): MMRESULT; stdcall;
  859. function midiOutGetID(hMidiOut: HMIDIOUT; lpuDeviceID: PUINT): MMRESULT; stdcall;
  860. function midiOutMessage(hMidiOut: HMIDIOUT; uMessage: UINT; dw1, dw2: DWORD): MMRESULT; stdcall;
  861. function midiInGetNumDevs: UINT; stdcall;
  862. function midiInGetDevCapsA(DeviceID: UINT; lpCaps: PMidiInCapsA; uSize: UINT): MMRESULT; stdcall;
  863. function midiInGetDevCapsW(DeviceID: UINT; lpCaps: PMidiInCapsW; uSize: UINT): MMRESULT; stdcall;
  864. function midiInGetDevCaps(DeviceID: UINT; lpCaps: PMidiInCaps; uSize: UINT): MMRESULT; stdcall;
  865. function midiInGetErrorTextA(mmrError: MMRESULT; pszText: PAnsiChar; uSize: UINT): MMRESULT; stdcall;
  866. function midiInGetErrorTextW(mmrError: MMRESULT; pszText: PWideChar; uSize: UINT): MMRESULT; stdcall;
  867. function midiInGetErrorText(mmrError: MMRESULT; pszText: PChar; uSize: UINT): MMRESULT; stdcall;
  868. function midiInOpen(lphMidiIn: PHMIDIIN; uDeviceID: UINT;
  869.   dwCallback, dwInstance, dwFlags: DWORD): MMRESULT; stdcall;
  870. function midiInClose(hMidiIn: HMIDIIN): MMRESULT; stdcall;
  871. function midiInPrepareHeader(hMidiIn: HMIDIIN; lpMidiInHdr: PMidiHdr; uSize: UINT): MMRESULT; stdcall;
  872. function midiInUnprepareHeader(hMidiIn: HMIDIIN; lpMidiInHdr: PMidiHdr; uSize: UINT): MMRESULT; stdcall;
  873. function midiInAddBuffer(hMidiIn: HMIDIIN; lpMidiInHdr: PMidiHdr; uSize: UINT): MMRESULT; stdcall;
  874. function midiInStart(hMidiIn: HMIDIIN): MMRESULT; stdcall;
  875. function midiInStop(hMidiIn: HMIDIIN): MMRESULT; stdcall;
  876. function midiInReset(hMidiIn: HMIDIIN): MMRESULT; stdcall;
  877. function midiInGetID(hMidiIn: HMIDIIN; lpuDeviceID: PUINT): MMRESULT; stdcall;
  878. function midiInMessage(hMidiIn: HMIDIIN; uMessage: UINT; dw1, dw2: DWORD): MMRESULT; stdcall;
  879.  
  880.  
  881. {***************************************************************************
  882.  
  883.                         Auxiliary audio support
  884.  
  885. ***************************************************************************}
  886.  
  887. { device ID for aux device mapper }
  888. const
  889.   AUX_MAPPER     = UINT(-1);
  890.  
  891. { Auxiliary audio device capabilities structure }
  892. type
  893.   PAuxCapsA = ^TAuxCapsA;
  894.   PAuxCapsW = ^TAuxCapsW;
  895.   PAuxCaps = PAuxCapsA;
  896.   TAuxCapsA = record
  897.     wMid: Word;                  { manufacturer ID }
  898.     wPid: Word;                  { product ID }
  899.     vDriverVersion: MMVERSION;        { version of the driver }
  900.     szPname: array[0..MAXPNAMELEN-1] of AnsiChar;  { product name (NULL terminated string) }
  901.     wTechnology: Word;           { type of device }
  902.     dwSupport: DWORD;            { functionality supported by driver }
  903.   end;
  904.   TAuxCapsW = record
  905.     wMid: Word;                  { manufacturer ID }
  906.     wPid: Word;                  { product ID }
  907.     vDriverVersion: MMVERSION;        { version of the driver }
  908.     szPname: array[0..MAXPNAMELEN-1] of WideChar;  { product name (NULL terminated string) }
  909.     wTechnology: Word;           { type of device }
  910.     dwSupport: DWORD;            { functionality supported by driver }
  911.   end;
  912.   TAuxCaps = TAuxCapsA;
  913.  
  914. { flags for wTechnology field in AUXCAPS structure }
  915. const
  916.   AUXCAPS_CDAUDIO    = 1;       { audio from internal CD-ROM drive }
  917.   AUXCAPS_AUXIN      = 2;       { audio from auxiliary input jacks }
  918.  
  919. { flags for dwSupport field in AUXCAPS structure }
  920. const
  921.   AUXCAPS_VOLUME     = $0001;  { supports volume control }
  922.   AUXCAPS_LRVOLUME   = $0002;  { separate left-right volume control }
  923.  
  924. { auxiliary audio function prototypes }
  925. function auxGetNumDevs: UINT; stdcall;
  926. function auxGetDevCapsA(uDeviceID: UINT; lpCaps: PAuxCapsA; uSize: UINT): MMRESULT; stdcall;
  927. function auxGetDevCapsW(uDeviceID: UINT; lpCaps: PAuxCapsW; uSize: UINT): MMRESULT; stdcall;
  928. function auxGetDevCaps(uDeviceID: UINT; lpCaps: PAuxCaps; uSize: UINT): MMRESULT; stdcall;
  929. function auxSetVolume(uDeviceID: UINT; dwVolume: DWORD): MMRESULT; stdcall;
  930. function auxGetVolume(uDeviceID: UINT; lpdwVolume: PDWORD): MMRESULT; stdcall;
  931. function auxOutMessage(uDeviceID, uMessage: UINT; dw1, dw2: DWORD): MMRESULT; stdcall;
  932.  
  933.  
  934. {****************************************************************************
  935.  
  936.                             Mixer Support
  937.  
  938. ****************************************************************************}
  939.  
  940. type
  941.   PHMIXEROBJ = ^HMIXEROBJ;
  942.   HMIXEROBJ = Integer;
  943.  
  944.   PHMIXER = ^HMIXER;
  945.   HMIXER = Integer;
  946.  
  947. const
  948.   MIXER_SHORT_NAME_CHARS   = 16;
  949.   MIXER_LONG_NAME_CHARS    = 64;
  950.  
  951. { MMRESULT error return values specific to the mixer API }
  952.  
  953.   MIXERR_INVALLINE            = (MIXERR_BASE + 0);
  954.   MIXERR_INVALCONTROL         = (MIXERR_BASE + 1);
  955.   MIXERR_INVALVALUE           = (MIXERR_BASE + 2);
  956.   MIXERR_LASTERROR            = (MIXERR_BASE + 2);
  957.  
  958.   MIXER_OBJECTF_HANDLE    = $80000000;
  959.   MIXER_OBJECTF_MIXER     = $00000000;
  960.   MIXER_OBJECTF_HMIXER    = (MIXER_OBJECTF_HANDLE or MIXER_OBJECTF_MIXER);
  961.   MIXER_OBJECTF_WAVEOUT   = $10000000;
  962.   MIXER_OBJECTF_HWAVEOUT  = (MIXER_OBJECTF_HANDLE or MIXER_OBJECTF_WAVEOUT);
  963.   MIXER_OBJECTF_WAVEIN    = $20000000;
  964.   MIXER_OBJECTF_HWAVEIN   = (MIXER_OBJECTF_HANDLE or MIXER_OBJECTF_WAVEIN);
  965.   MIXER_OBJECTF_MIDIOUT   = $30000000;
  966.   MIXER_OBJECTF_HMIDIOUT  = (MIXER_OBJECTF_HANDLE or MIXER_OBJECTF_MIDIOUT);
  967.   MIXER_OBJECTF_MIDIIN    = $40000000;
  968.   MIXER_OBJECTF_HMIDIIN   = (MIXER_OBJECTF_HANDLE or MIXER_OBJECTF_MIDIIN);
  969.   MIXER_OBJECTF_AUX       = $50000000;
  970.  
  971. function mixerGetNumDevs: UINT; stdcall;
  972.  
  973. type
  974.   PMixerCapsA = ^TMixerCapsA;
  975.   PMixerCapsW = ^TMixerCapsW;
  976.   PMixerCaps = PMixerCapsA;
  977.   TMixerCapsA = record
  978.     wMid: WORD;                    { manufacturer id }
  979.     wPid: WORD;                    { product id }
  980.     vDriverVersion: MMVERSION;     { version of the driver }
  981.     szPname: array [0..MAXPNAMELEN - 1] of AnsiChar;   { product name }
  982.     fdwSupport: DWORD;             { misc. support bits }
  983.     cDestinations: DWORD;          { count of destinations }
  984.   end;
  985.   TMixerCapsW = record
  986.     wMid: WORD;                    { manufacturer id }
  987.     wPid: WORD;                    { product id }
  988.     vDriverVersion: MMVERSION;     { version of the driver }
  989.     szPname: array [0..MAXPNAMELEN - 1] of WideChar;   { product name }
  990.     fdwSupport: DWORD;             { misc. support bits }
  991.     cDestinations: DWORD;          { count of destinations }
  992.   end;
  993.   TMixerCaps = TMixerCapsA;
  994.  
  995. function mixerGetDevCapsA(uMxId: UINT; pmxcaps: PMixerCapsA; cbmxcaps: UINT): MMRESULT; stdcall;
  996. function mixerGetDevCapsW(uMxId: UINT; pmxcaps: PMixerCapsW; cbmxcaps: UINT): MMRESULT; stdcall;
  997. function mixerGetDevCaps(uMxId: UINT; pmxcaps: PMixerCaps; cbmxcaps: UINT): MMRESULT; stdcall;
  998. function mixerOpen(phmx: PHMIXER; uMxId: UINT; dwCallback, dwInstance, fdwOpen: DWORD): MMRESULT; stdcall;
  999. function mixerClose(hmx: HMIXER): MMRESULT; stdcall;
  1000. function mixerMessage(hmx: HMIXER; uMsg: UINT; dwParam1, dwParam2: DWORD): DWORD; stdcall;
  1001.  
  1002. type
  1003.   PMixerLineA = ^TMixerLineA;
  1004.   PMixerLineW = ^TMixerLineW;
  1005.   PMixerLine = PMixerLineA;
  1006.   TMixerLineA = record
  1007.     cbStruct: DWORD;               { size of MIXERLINE structure }
  1008.     dwDestination: DWORD;          { zero based destination index }
  1009.     dwSource: DWORD;               { zero based source index (if source) }
  1010.     dwLineID: DWORD;               { unique line id for mixer device }
  1011.     fdwLine: DWORD;                { state/information about line }
  1012.     dwUser: DWORD;                 { driver specific information }
  1013.     dwComponentType: DWORD;        { component type line connects to }
  1014.     cChannels: DWORD;              { number of channels line supports }
  1015.     cConnections: DWORD;           { number of connections [possible] }
  1016.     cControls: DWORD;              { number of controls at this line }
  1017.     szShortName: array[0..MIXER_SHORT_NAME_CHARS - 1] of AnsiChar;
  1018.     szName: array[0..MIXER_LONG_NAME_CHARS - 1] of AnsiChar;
  1019.     Target: record
  1020.       dwType: DWORD;                 { MIXERLINE_TARGETTYPE_xxxx }
  1021.       dwDeviceID: DWORD;             { target device ID of device type }
  1022.       wMid: WORD;                                   { of target device }
  1023.       wPid: WORD;                                   {      " }
  1024.       vDriverVersion: MMVERSION;                    {      " }
  1025.       szPname: array[0..MAXPNAMELEN - 1] of AnsiChar;  {      " }
  1026.          end;
  1027.   end;
  1028.   TMixerLineW = record
  1029.     cbStruct: DWORD;               { size of MIXERLINE structure }
  1030.     dwDestination: DWORD;          { zero based destination index }
  1031.     dwSource: DWORD;               { zero based source index (if source) }
  1032.     dwLineID: DWORD;               { unique line id for mixer device }
  1033.     fdwLine: DWORD;                { state/information about line }
  1034.     dwUser: DWORD;                 { driver specific information }
  1035.     dwComponentType: DWORD;        { component type line connects to }
  1036.     cChannels: DWORD;              { number of channels line supports }
  1037.     cConnections: DWORD;           { number of connections [possible] }
  1038.     cControls: DWORD;              { number of controls at this line }
  1039.     szShortName: array[0..MIXER_SHORT_NAME_CHARS - 1] of WideChar;
  1040.     szName: array[0..MIXER_LONG_NAME_CHARS - 1] of WideChar;
  1041.     Target: record
  1042.       dwType: DWORD;                 { MIXERLINE_TARGETTYPE_xxxx }
  1043.       dwDeviceID: DWORD;             { target device ID of device type }
  1044.       wMid: WORD;                                   { of target device }
  1045.       wPid: WORD;                                   {      " }
  1046.       vDriverVersion: MMVERSION;                    {      " }
  1047.       szPname: array[0..MAXPNAMELEN - 1] of WideChar;  {      " }
  1048.          end;
  1049.   end;
  1050.   TMixerLine = TMixerLineA;
  1051.  
  1052. const
  1053. { TMixerLine.fdwLine }
  1054.  
  1055.   MIXERLINE_LINEF_ACTIVE              = $00000001;
  1056.   MIXERLINE_LINEF_DISCONNECTED        = $00008000;
  1057.   MIXERLINE_LINEF_SOURCE              = $80000000;
  1058.  
  1059. { TMixerLine.dwComponentType
  1060.   component types for destinations and sources }
  1061.  
  1062.   MIXERLINE_COMPONENTTYPE_DST_FIRST       = $00000000;
  1063.   MIXERLINE_COMPONENTTYPE_DST_UNDEFINED   = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 0);
  1064.   MIXERLINE_COMPONENTTYPE_DST_DIGITAL     = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 1);
  1065.   MIXERLINE_COMPONENTTYPE_DST_LINE        = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 2);
  1066.   MIXERLINE_COMPONENTTYPE_DST_MONITOR     = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 3);
  1067.   MIXERLINE_COMPONENTTYPE_DST_SPEAKERS    = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 4);
  1068.   MIXERLINE_COMPONENTTYPE_DST_HEADPHONES  = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 5);
  1069.   MIXERLINE_COMPONENTTYPE_DST_TELEPHONE   = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 6);
  1070.   MIXERLINE_COMPONENTTYPE_DST_WAVEIN      = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 7);
  1071.   MIXERLINE_COMPONENTTYPE_DST_VOICEIN     = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 8);
  1072.   MIXERLINE_COMPONENTTYPE_DST_LAST        = (MIXERLINE_COMPONENTTYPE_DST_FIRST + 8);
  1073.  
  1074.   MIXERLINE_COMPONENTTYPE_SRC_FIRST       = $00001000;
  1075.   MIXERLINE_COMPONENTTYPE_SRC_UNDEFINED   = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 0);
  1076.   MIXERLINE_COMPONENTTYPE_SRC_DIGITAL     = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 1);
  1077.   MIXERLINE_COMPONENTTYPE_SRC_LINE        = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 2);
  1078.   MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE  = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 3);
  1079.   MIXERLINE_COMPONENTTYPE_SRC_SYNTHESIZER = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 4);
  1080.   MIXERLINE_COMPONENTTYPE_SRC_COMPACTDISC = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 5);
  1081.   MIXERLINE_COMPONENTTYPE_SRC_TELEPHONE   = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 6);
  1082.   MIXERLINE_COMPONENTTYPE_SRC_PCSPEAKER   = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 7);
  1083.   MIXERLINE_COMPONENTTYPE_SRC_WAVEOUT     = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 8);
  1084.   MIXERLINE_COMPONENTTYPE_SRC_AUXILIARY   = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 9);
  1085.   MIXERLINE_COMPONENTTYPE_SRC_ANALOG      = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 10);
  1086.   MIXERLINE_COMPONENTTYPE_SRC_LAST        = (MIXERLINE_COMPONENTTYPE_SRC_FIRST + 10);
  1087.  
  1088. { TMixerLine.Target.dwType }
  1089.  
  1090.   MIXERLINE_TARGETTYPE_UNDEFINED      = 0;
  1091.   MIXERLINE_TARGETTYPE_WAVEOUT        = 1;
  1092.   MIXERLINE_TARGETTYPE_WAVEIN         = 2;
  1093.   MIXERLINE_TARGETTYPE_MIDIOUT        = 3;
  1094.   MIXERLINE_TARGETTYPE_MIDIIN         = 4;
  1095.   MIXERLINE_TARGETTYPE_AUX            = 5;
  1096.  
  1097. function mixerGetLineInfoA(hmxobj: HMIXEROBJ; pmxl: PMixerLineA;
  1098.   fdwInfo: DWORD): MMRESULT; stdcall;
  1099. function mixerGetLineInfoW(hmxobj: HMIXEROBJ; pmxl: PMixerLineW;
  1100.   fdwInfo: DWORD): MMRESULT; stdcall;
  1101. function mixerGetLineInfo(hmxobj: HMIXEROBJ; pmxl: PMixerLine;
  1102.   fdwInfo: DWORD): MMRESULT; stdcall;
  1103.  
  1104. const
  1105.   MIXER_GETLINEINFOF_DESTINATION      = $00000000;
  1106.   MIXER_GETLINEINFOF_SOURCE           = $00000001;
  1107.   MIXER_GETLINEINFOF_LINEID           = $00000002;
  1108.   MIXER_GETLINEINFOF_COMPONENTTYPE    = $00000003;
  1109.   MIXER_GETLINEINFOF_TARGETTYPE       = $00000004;
  1110.  
  1111.   MIXER_GETLINEINFOF_QUERYMASK        = $0000000F;
  1112.  
  1113. function mixerGetID(hmxobj: HMIXEROBJ; var puMxId: UINT; fdwId: DWORD): MMRESULT; stdcall;
  1114.  
  1115. type
  1116.   PMixerControlA = ^TMixerControlA;
  1117.   PMixerControlW = ^TMixerControlW;
  1118.   PMixerControl = PMixerControlA;
  1119.   TMixerControlA = packed record
  1120.     cbStruct: DWORD;           { size in bytes of MIXERCONTROL }
  1121.     dwControlID: DWORD;        { unique control id for mixer device }
  1122.     dwControlType: DWORD;      { MIXERCONTROL_CONTROLTYPE_xxx }
  1123.     fdwControl: DWORD;         { MIXERCONTROL_CONTROLF_xxx }
  1124.     cMultipleItems: DWORD;     { if MIXERCONTROL_CONTROLF_MULTIPLE set }
  1125.     szShortName: array[0..MIXER_SHORT_NAME_CHARS - 1] of AnsiChar;
  1126.     szName: array[0..MIXER_LONG_NAME_CHARS - 1] of AnsiChar;
  1127.     Bounds: record
  1128.       case Integer of
  1129.         0: (lMinimum, lMaximum: Longint);
  1130.         1: (dwMinimum, dwMaximum: DWORD);
  1131.         2: (dwReserved: array[0..5] of DWORD);
  1132.     end;
  1133.     Metrics: record
  1134.       case Integer of
  1135.         0: (cSteps: DWORD);        { # of steps between min & max }
  1136.         1: (cbCustomData: DWORD);  { size in bytes of custom data }
  1137.         2: (dwReserved: array[0..5] of DWORD);
  1138.     end;
  1139.   end;  
  1140.   TMixerControlW = packed record
  1141.     cbStruct: DWORD;           { size in bytes of MIXERCONTROL }
  1142.     dwControlID: DWORD;        { unique control id for mixer device }
  1143.     dwControlType: DWORD;      { MIXERCONTROL_CONTROLTYPE_xxx }
  1144.     fdwControl: DWORD;         { MIXERCONTROL_CONTROLF_xxx }
  1145.     cMultipleItems: DWORD;     { if MIXERCONTROL_CONTROLF_MULTIPLE set }
  1146.     szShortName: array[0..MIXER_SHORT_NAME_CHARS - 1] of WideChar;
  1147.     szName: array[0..MIXER_LONG_NAME_CHARS - 1] of WideChar;
  1148.     Bounds: record
  1149.       case Integer of
  1150.         0: (lMinimum, lMaximum: Longint);
  1151.         1: (dwMinimum, dwMaximum: DWORD);
  1152.         2: (dwReserved: array[0..5] of DWORD);
  1153.     end;
  1154.     Metrics: record
  1155.       case Integer of
  1156.         0: (cSteps: DWORD);        { # of steps between min & max }
  1157.         1: (cbCustomData: DWORD);  { size in bytes of custom data }
  1158.         2: (dwReserved: array[0..5] of DWORD);
  1159.     end;
  1160.   end;  
  1161.   TMixerControl = TMixerControlA;
  1162.  
  1163. const
  1164. { TMixerControl.fdwControl }
  1165.  
  1166.   MIXERCONTROL_CONTROLF_UNIFORM   = $00000001;
  1167.   MIXERCONTROL_CONTROLF_MULTIPLE  = $00000002;
  1168.   MIXERCONTROL_CONTROLF_DISABLED  = $80000000;
  1169.  
  1170. { MIXERCONTROL_CONTROLTYPE_xxx building block defines }
  1171.  
  1172.   MIXERCONTROL_CT_CLASS_MASK          = $F0000000;
  1173.   MIXERCONTROL_CT_CLASS_CUSTOM        = $00000000;
  1174.   MIXERCONTROL_CT_CLASS_METER         = $10000000;
  1175.   MIXERCONTROL_CT_CLASS_SWITCH        = $20000000;
  1176.   MIXERCONTROL_CT_CLASS_NUMBER        = $30000000;
  1177.   MIXERCONTROL_CT_CLASS_SLIDER        = $40000000;
  1178.   MIXERCONTROL_CT_CLASS_FADER         = $50000000;
  1179.   MIXERCONTROL_CT_CLASS_TIME          = $60000000;
  1180.   MIXERCONTROL_CT_CLASS_LIST          = $70000000;
  1181.  
  1182.   MIXERCONTROL_CT_SUBCLASS_MASK       = $0F000000;
  1183.  
  1184.   MIXERCONTROL_CT_SC_SWITCH_BOOLEAN   = $00000000;
  1185.   MIXERCONTROL_CT_SC_SWITCH_BUTTON    = $01000000;
  1186.  
  1187.   MIXERCONTROL_CT_SC_METER_POLLED     = $00000000;
  1188.  
  1189.   MIXERCONTROL_CT_SC_TIME_MICROSECS   = $00000000;
  1190.   MIXERCONTROL_CT_SC_TIME_MILLISECS   = $01000000;
  1191.  
  1192.   MIXERCONTROL_CT_SC_LIST_SINGLE      = $00000000;
  1193.   MIXERCONTROL_CT_SC_LIST_MULTIPLE    = $01000000;
  1194.  
  1195.   MIXERCONTROL_CT_UNITS_MASK          = $00FF0000;
  1196.   MIXERCONTROL_CT_UNITS_CUSTOM        = $00000000;
  1197.   MIXERCONTROL_CT_UNITS_BOOLEAN       = $00010000;
  1198.   MIXERCONTROL_CT_UNITS_SIGNED        = $00020000;
  1199.   MIXERCONTROL_CT_UNITS_UNSIGNED      = $00030000;
  1200.   MIXERCONTROL_CT_UNITS_DECIBELS      = $00040000; { in 10ths }
  1201.   MIXERCONTROL_CT_UNITS_PERCENT       = $00050000; { in 10ths }
  1202.  
  1203. { Commonly used control types for specifying TMixerControl.dwControlType }
  1204.  
  1205.   MIXERCONTROL_CONTROLTYPE_CUSTOM         = (MIXERCONTROL_CT_CLASS_CUSTOM or MIXERCONTROL_CT_UNITS_CUSTOM);
  1206.   MIXERCONTROL_CONTROLTYPE_BOOLEANMETER   = (MIXERCONTROL_CT_CLASS_METER or MIXERCONTROL_CT_SC_METER_POLLED or MIXERCONTROL_CT_UNITS_BOOLEAN);
  1207.   MIXERCONTROL_CONTROLTYPE_SIGNEDMETER    = (MIXERCONTROL_CT_CLASS_METER or MIXERCONTROL_CT_SC_METER_POLLED or MIXERCONTROL_CT_UNITS_SIGNED);
  1208.   MIXERCONTROL_CONTROLTYPE_PEAKMETER      = (MIXERCONTROL_CONTROLTYPE_SIGNEDMETER + 1);
  1209.   MIXERCONTROL_CONTROLTYPE_UNSIGNEDMETER  = (MIXERCONTROL_CT_CLASS_METER or MIXERCONTROL_CT_SC_METER_POLLED or MIXERCONTROL_CT_UNITS_UNSIGNED);
  1210.   MIXERCONTROL_CONTROLTYPE_BOOLEAN        = (MIXERCONTROL_CT_CLASS_SWITCH or MIXERCONTROL_CT_SC_SWITCH_BOOLEAN or
  1211.     MIXERCONTROL_CT_UNITS_BOOLEAN);
  1212.   MIXERCONTROL_CONTROLTYPE_ONOFF          = (MIXERCONTROL_CONTROLTYPE_BOOLEAN + 1);
  1213.   MIXERCONTROL_CONTROLTYPE_MUTE           = (MIXERCONTROL_CONTROLTYPE_BOOLEAN + 2);
  1214.   MIXERCONTROL_CONTROLTYPE_MONO           = (MIXERCONTROL_CONTROLTYPE_BOOLEAN + 3);
  1215.   MIXERCONTROL_CONTROLTYPE_LOUDNESS       = (MIXERCONTROL_CONTROLTYPE_BOOLEAN + 4);
  1216.   MIXERCONTROL_CONTROLTYPE_STEREOENH      = (MIXERCONTROL_CONTROLTYPE_BOOLEAN + 5);
  1217.   MIXERCONTROL_CONTROLTYPE_BUTTON         = (MIXERCONTROL_CT_CLASS_SWITCH or MIXERCONTROL_CT_SC_SWITCH_BUTTON or
  1218.     MIXERCONTROL_CT_UNITS_BOOLEAN);
  1219.   MIXERCONTROL_CONTROLTYPE_DECIBELS       = (MIXERCONTROL_CT_CLASS_NUMBER or MIXERCONTROL_CT_UNITS_DECIBELS);
  1220.   MIXERCONTROL_CONTROLTYPE_SIGNED         = (MIXERCONTROL_CT_CLASS_NUMBER or MIXERCONTROL_CT_UNITS_SIGNED);
  1221.   MIXERCONTROL_CONTROLTYPE_UNSIGNED       = (MIXERCONTROL_CT_CLASS_NUMBER or MIXERCONTROL_CT_UNITS_UNSIGNED);
  1222.   MIXERCONTROL_CONTROLTYPE_PERCENT        = (MIXERCONTROL_CT_CLASS_NUMBER or MIXERCONTROL_CT_UNITS_PERCENT);
  1223.   MIXERCONTROL_CONTROLTYPE_SLIDER         = (MIXERCONTROL_CT_CLASS_SLIDER or MIXERCONTROL_CT_UNITS_SIGNED);
  1224.   MIXERCONTROL_CONTROLTYPE_PAN            = (MIXERCONTROL_CONTROLTYPE_SLIDER + 1);
  1225.   MIXERCONTROL_CONTROLTYPE_QSOUNDPAN      = (MIXERCONTROL_CONTROLTYPE_SLIDER + 2);
  1226.   MIXERCONTROL_CONTROLTYPE_FADER          = (MIXERCONTROL_CT_CLASS_FADER or MIXERCONTROL_CT_UNITS_UNSIGNED);
  1227.   MIXERCONTROL_CONTROLTYPE_VOLUME         = (MIXERCONTROL_CONTROLTYPE_FADER + 1);
  1228.   MIXERCONTROL_CONTROLTYPE_BASS           = (MIXERCONTROL_CONTROLTYPE_FADER + 2);
  1229.   MIXERCONTROL_CONTROLTYPE_TREBLE         = (MIXERCONTROL_CONTROLTYPE_FADER + 3);
  1230.   MIXERCONTROL_CONTROLTYPE_EQUALIZER      = (MIXERCONTROL_CONTROLTYPE_FADER + 4);
  1231.   MIXERCONTROL_CONTROLTYPE_SINGLESELECT   = (MIXERCONTROL_CT_CLASS_LIST or MIXERCONTROL_CT_SC_LIST_SINGLE or MIXERCONTROL_CT_UNITS_BOOLEAN);
  1232.   MIXERCONTROL_CONTROLTYPE_MUX            = (MIXERCONTROL_CONTROLTYPE_SINGLESELECT + 1);
  1233.   MIXERCONTROL_CONTROLTYPE_MULTIPLESELECT = (MIXERCONTROL_CT_CLASS_LIST or MIXERCONTROL_CT_SC_LIST_MULTIPLE or MIXERCONTROL_CT_UNITS_BOOLEAN);
  1234.   MIXERCONTROL_CONTROLTYPE_MIXER          = (MIXERCONTROL_CONTROLTYPE_MULTIPLESELECT + 1);
  1235.   MIXERCONTROL_CONTROLTYPE_MICROTIME      = (MIXERCONTROL_CT_CLASS_TIME or MIXERCONTROL_CT_SC_TIME_MICROSECS or
  1236.     MIXERCONTROL_CT_UNITS_UNSIGNED);
  1237.   MIXERCONTROL_CONTROLTYPE_MILLITIME      = (MIXERCONTROL_CT_CLASS_TIME or MIXERCONTROL_CT_SC_TIME_MILLISECS or
  1238.     MIXERCONTROL_CT_UNITS_UNSIGNED);
  1239.  
  1240.  
  1241. type
  1242.   PMixerLineControlsA = ^TMixerLineControlsA;
  1243.   PMixerLineControlsW = ^TMixerLineControlsW;
  1244.   PMixerLineControls = PMixerLineControlsA;
  1245.   TMixerLineControlsA = record
  1246.     cbStruct: DWORD;               { size in bytes of MIXERLINECONTROLS }
  1247.     dwLineID: DWORD;               { line id (from MIXERLINE.dwLineID) }
  1248.     case Integer of
  1249.       0: (dwControlID: DWORD);     { MIXER_GETLINECONTROLSF_ONEBYID }
  1250.       1: (dwControlType: DWORD;    { MIXER_GETLINECONTROLSF_ONEBYTYPE }
  1251.           cControls: DWORD;        { count of controls pmxctrl points to }
  1252.           cbmxctrl: DWORD;         { size in bytes of _one_ MIXERCONTROL }
  1253.           pamxctrl: PMixerControlA);   { pointer to first MIXERCONTROL array }
  1254.   end;
  1255.   TMixerLineControlsW = record
  1256.     cbStruct: DWORD;               { size in bytes of MIXERLINECONTROLS }
  1257.     dwLineID: DWORD;               { line id (from MIXERLINE.dwLineID) }
  1258.     case Integer of
  1259.       0: (dwControlID: DWORD);     { MIXER_GETLINECONTROLSF_ONEBYID }
  1260.       1: (dwControlType: DWORD;    { MIXER_GETLINECONTROLSF_ONEBYTYPE }
  1261.           cControls: DWORD;        { count of controls pmxctrl points to }
  1262.           cbmxctrl: DWORD;         { size in bytes of _one_ MIXERCONTROL }
  1263.           pamxctrl: PMixerControlW);   { pointer to first MIXERCONTROL array }
  1264.   end;
  1265.   TMixerLineControls = TMixerLineControlsA;
  1266.  
  1267. function mixerGetLineControlsA(hmxobj: HMIXEROBJ; pmxlc: PMixerLineControlsA; fdwControls: DWORD): MMRESULT; stdcall;
  1268. function mixerGetLineControlsW(hmxobj: HMIXEROBJ; pmxlc: PMixerLineControlsW; fdwControls: DWORD): MMRESULT; stdcall;
  1269. function mixerGetLineControls(hmxobj: HMIXEROBJ; pmxlc: PMixerLineControls; fdwControls: DWORD): MMRESULT; stdcall;
  1270.  
  1271. const
  1272.   MIXER_GETLINECONTROLSF_ALL          = $00000000;
  1273.   MIXER_GETLINECONTROLSF_ONEBYID      = $00000001;
  1274.   MIXER_GETLINECONTROLSF_ONEBYTYPE    = $00000002;
  1275.  
  1276.   MIXER_GETLINECONTROLSF_QUERYMASK    = $0000000F;
  1277.  
  1278. type
  1279.   PMixerControlDetails = ^TMixerControlDetails;
  1280.   TMixerControlDetails = record
  1281.     cbStruct: DWORD;       { size in bytes of MIXERCONTROLDETAILS }
  1282.     dwControlID: DWORD;    { control id to get/set details on }
  1283.     cChannels: DWORD;      { number of channels in paDetails array }
  1284.     case Integer of
  1285.            0: (hwndOwner: HWND);        { for MIXER_SETCONTROLDETAILSF_CUSTOM }
  1286.            1: (cMultipleItems: DWORD;   { if _MULTIPLE, the number of items per channel }
  1287.                cbDetails: DWORD;        { size of _one_ details_XX struct }
  1288.                paDetails: Pointer);     { pointer to array of details_XX structs }
  1289.   end;
  1290.  
  1291.   PMixerControlDetailsListTextA = ^TMixerControlDetailsListTextA;
  1292.   PMixerControlDetailsListTextW = ^TMixerControlDetailsListTextW;
  1293.   PMixerControlDetailsListText = PMixerControlDetailsListTextA;
  1294.   TMixerControlDetailsListTextA = record
  1295.     dwParam1: DWORD;
  1296.     dwParam2: DWORD;
  1297.     szName: array[0..MIXER_LONG_NAME_CHARS - 1] of AnsiChar;
  1298.   end;
  1299.   TMixerControlDetailsListTextW = record
  1300.     dwParam1: DWORD;
  1301.     dwParam2: DWORD;
  1302.     szName: array[0..MIXER_LONG_NAME_CHARS - 1] of WideChar;
  1303.   end;
  1304.   TMixerControlDetailsListText = TMixerControlDetailsListTextA;
  1305.  
  1306.   PMixerControlDetailsBoolean = ^TMixerControlDetailsBoolean;
  1307.   TMixerControlDetailsBoolean = record
  1308.     fValue: Longint;
  1309.   end;
  1310.  
  1311.   PMixerControlDetailsSigned = ^TMixerControlDetailsSigned;
  1312.   TMixerControlDetailsSigned = record
  1313.     lValue: Longint;
  1314.   end;
  1315.  
  1316.   PMixerControlDetailsUnsigned = ^TMixerControlDetailsUnsigned;
  1317.   TMixerControlDetailsUnsigned = record
  1318.     dwValue: DWORD;
  1319.   end;
  1320.  
  1321. function mixerGetControlDetailsA(hmxobj: HMIXEROBJ; pmxcd: PMixerControlDetails; fdwDetails: DWORD): MMRESULT; stdcall;
  1322. function mixerGetControlDetailsW(hmxobj: HMIXEROBJ; pmxcd: PMixerControlDetails; fdwDetails: DWORD): MMRESULT; stdcall;
  1323. function mixerGetControlDetails(hmxobj: HMIXEROBJ; pmxcd: PMixerControlDetails; fdwDetails: DWORD): MMRESULT; stdcall;
  1324.  
  1325. const
  1326.   MIXER_GETCONTROLDETAILSF_VALUE      = $00000000;
  1327.   MIXER_GETCONTROLDETAILSF_LISTTEXT   = $00000001;
  1328.  
  1329.   MIXER_GETCONTROLDETAILSF_QUERYMASK  = $0000000F;
  1330.  
  1331. function mixerSetControlDetails(hmxobj: HMIXEROBJ; pmxcd: PMixerControlDetails; fdwDetails: DWORD): MMRESULT; stdcall;
  1332.  
  1333. const
  1334.   MIXER_SETCONTROLDETAILSF_VALUE      = $00000000;
  1335.   MIXER_SETCONTROLDETAILSF_CUSTOM     = $00000001;
  1336.  
  1337.   MIXER_SETCONTROLDETAILSF_QUERYMASK  = $0000000F;
  1338.  
  1339. {***************************************************************************
  1340.  
  1341.                             Timer support
  1342.  
  1343. ***************************************************************************}
  1344.  
  1345. { timer error return values }
  1346. const
  1347.   TIMERR_NOERROR        = 0;                  { no error }
  1348.   TIMERR_NOCANDO        = TIMERR_BASE+1;      { request not completed }
  1349.   TIMERR_STRUCT         = TIMERR_BASE+33;     { time struct size }
  1350.  
  1351. { timer data types }
  1352. type
  1353.   TFNTimeCallBack = procedure(uTimerID, uMessage: UINT;
  1354.     dwUser, dw1, dw2: DWORD) stdcall;
  1355.  
  1356.  
  1357. { flags for wFlags parameter of timeSetEvent() function }
  1358. const
  1359.   TIME_ONESHOT    = 0;   { program timer for single event }
  1360.   TIME_PERIODIC   = 1;   { program for continuous periodic event }
  1361.   TIME_CALLBACK_FUNCTION    = $0000;  { callback is function }
  1362.   TIME_CALLBACK_EVENT_SET   = $0010;  { callback is event - use SetEvent }
  1363.   TIME_CALLBACK_EVENT_PULSE = $0020;  { callback is event - use PulseEvent }
  1364.  
  1365. { timer device capabilities data structure }
  1366. type
  1367.   PTimeCaps = ^TTimeCaps;
  1368.   TTimeCaps = record
  1369.     wPeriodMin: UINT;     { minimum period supported  }
  1370.     wPeriodMax: UINT;     { maximum period supported  }
  1371.   end;
  1372.  
  1373. { timer function prototypes }
  1374. function timeGetSystemTime(lpTime: PMMTime; uSize: Word): MMRESULT; stdcall;
  1375.  
  1376. function timeGetTime: DWORD; stdcall;
  1377. function timeSetEvent(uDelay, uResolution: UINT;
  1378.   lpFunction: TFNTimeCallBack; dwUser: DWORD; uFlags: UINT): MMRESULT; stdcall;
  1379. function timeKillEvent(uTimerID: UINT): MMRESULT; stdcall;
  1380. function timeGetDevCaps(lpTimeCaps: PTimeCaps; uSize: UINT): MMRESULT; stdcall;
  1381. function timeBeginPeriod(uPeriod: UINT): MMRESULT; stdcall;
  1382. function timeEndPeriod(uPeriod: UINT): MMRESULT; stdcall;
  1383.  
  1384.  
  1385. {***************************************************************************
  1386.  
  1387.                             Joystick support
  1388.  
  1389. ***************************************************************************}
  1390.  
  1391. { joystick error return values }
  1392. const
  1393.   JOYERR_NOERROR        = 0;                  { no error }
  1394.   JOYERR_PARMS          = JOYERR_BASE+5;      { bad parameters }
  1395.   JOYERR_NOCANDO        = JOYERR_BASE+6;      { request not completed }
  1396.   JOYERR_UNPLUGGED      = JOYERR_BASE+7;      { joystick is unplugged }
  1397.  
  1398. { constants used with TJoyInfo and TJoyInfoEx structure and MM_JOY* messages }
  1399. const
  1400.   JOY_BUTTON1         = $0001;
  1401.   JOY_BUTTON2         = $0002;
  1402.   JOY_BUTTON3         = $0004;
  1403.   JOY_BUTTON4         = $0008;
  1404.   JOY_BUTTON1CHG      = $0100;
  1405.   JOY_BUTTON2CHG      = $0200;
  1406.   JOY_BUTTON3CHG      = $0400;
  1407.   JOY_BUTTON4CHG      = $0800;
  1408.  
  1409. { constants used with TJoyInfoEx }
  1410.   JOY_BUTTON5         = $00000010;
  1411.   JOY_BUTTON6         = $00000020;
  1412.   JOY_BUTTON7         = $00000040;
  1413.   JOY_BUTTON8         = $00000080;
  1414.   JOY_BUTTON9         = $00000100;
  1415.   JOY_BUTTON10        = $00000200;
  1416.   JOY_BUTTON11        = $00000400;
  1417.   JOY_BUTTON12        = $00000800;
  1418.   JOY_BUTTON13        = $00001000;
  1419.   JOY_BUTTON14        = $00002000;
  1420.   JOY_BUTTON15        = $00004000;
  1421.   JOY_BUTTON16        = $00008000;
  1422.   JOY_BUTTON17        = $00010000;
  1423.   JOY_BUTTON18        = $00020000;
  1424.   JOY_BUTTON19        = $00040000;
  1425.   JOY_BUTTON20        = $00080000;
  1426.   JOY_BUTTON21        = $00100000;
  1427.   JOY_BUTTON22        = $00200000;
  1428.   JOY_BUTTON23        = $00400000;
  1429.   JOY_BUTTON24        = $00800000;
  1430.   JOY_BUTTON25        = $01000000;
  1431.   JOY_BUTTON26        = $02000000;
  1432.   JOY_BUTTON27        = $04000000;
  1433.   JOY_BUTTON28        = $08000000;
  1434.   JOY_BUTTON29        = $10000000;
  1435.   JOY_BUTTON30        = $20000000;
  1436.   JOY_BUTTON31        = $40000000;
  1437.   JOY_BUTTON32        = $80000000;
  1438.  
  1439. { constants used with TJoyInfoEx }
  1440.   JOY_POVCENTERED       = -1;
  1441.   JOY_POVFORWARD        = 0;
  1442.   JOY_POVRIGHT          = 9000;
  1443.   JOY_POVBACKWARD       = 18000;
  1444.   JOY_POVLEFT           = 27000;
  1445.  
  1446.   JOY_RETURNX           = $00000001;
  1447.   JOY_RETURNY           = $00000002;
  1448.   JOY_RETURNZ           = $00000004;
  1449.   JOY_RETURNR           = $00000008;
  1450.   JOY_RETURNU           = $00000010; { axis 5 }
  1451.   JOY_RETURNV           = $00000020; { axis 6 }
  1452.   JOY_RETURNPOV         = $00000040;
  1453.   JOY_RETURNBUTTONS     = $00000080;
  1454.   JOY_RETURNRAWDATA     = $00000100;
  1455.   JOY_RETURNPOVCTS      = $00000200;
  1456.   JOY_RETURNCENTERED    = $00000400;
  1457.   JOY_USEDEADZONE               = $00000800;
  1458.   JOY_RETURNALL  = (JOY_RETURNX or JOY_RETURNY or JOY_RETURNZ or
  1459.     JOY_RETURNR or JOY_RETURNU or JOY_RETURNV or
  1460.     JOY_RETURNPOV or JOY_RETURNBUTTONS);
  1461.   JOY_CAL_READALWAYS    = $00010000;
  1462.   JOY_CAL_READXYONLY    = $00020000;
  1463.   JOY_CAL_READ3         = $00040000;
  1464.   JOY_CAL_READ4         = $00080000;
  1465.   JOY_CAL_READXONLY     = $00100000;
  1466.   JOY_CAL_READYONLY     = $00200000;
  1467.   JOY_CAL_READ5         = $00400000;
  1468.   JOY_CAL_READ6         = $00800000;
  1469.   JOY_CAL_READZONLY     = $01000000;
  1470.   JOY_CAL_READRONLY     = $02000000;
  1471.   JOY_CAL_READUONLY     = $04000000;
  1472.   JOY_CAL_READVONLY     = $08000000;
  1473.  
  1474. { joystick ID constants }
  1475. const
  1476.   JOYSTICKID1         = 0;
  1477.   JOYSTICKID2         = 1;
  1478.  
  1479. { joystick driver capabilites }
  1480.   JOYCAPS_HASZ          = $000;
  1481.   JOYCAPS_HASR          = $0002;
  1482.   JOYCAPS_HASU          = $0004;
  1483.   JOYCAPS_HASV          = $0008;
  1484.   JOYCAPS_HASPOV                = $0010;
  1485.   JOYCAPS_POV4DIR               = $0020;
  1486.   JOYCAPS_POVCTS                = $0040;
  1487.  
  1488. { joystick device capabilities data structure }
  1489. type
  1490.   PJoyCapsA = ^TJoyCapsA;
  1491.   PJoyCapsW = ^TJoyCapsW;
  1492.   PJoyCaps = PJoyCapsA;
  1493.   TJoyCapsA = record
  1494.     wMid: Word;                  { manufacturer ID }
  1495.     wPid: Word;                  { product ID }
  1496.     szPname: array[0..MAXPNAMELEN-1] of AnsiChar;  { product name (NULL terminated string) }
  1497.     wXmin: UINT;                 { minimum x position value }
  1498.     wXmax: UINT;                 { maximum x position value }
  1499.     wYmin: UINT;                 { minimum y position value }
  1500.     wYmax: UINT;                 { maximum y position value }
  1501.     wZmin: UINT;                 { minimum z position value }
  1502.     wZmax: UINT;                 { maximum z position value }
  1503.     wNumButtons: UINT;           { number of buttons }
  1504.     wPeriodMin: UINT;            { minimum message period when captured }
  1505.     wPeriodMax: UINT;            { maximum message period when captured }
  1506.     wRmin: UINT;                 { minimum r position value }
  1507.     wRmax: UINT;                 { maximum r position value }
  1508.     wUmin: UINT;                 { minimum u (5th axis) position value }
  1509.     wUmax: UINT;                 { maximum u (5th axis) position value }
  1510.     wVmin: UINT;                 { minimum v (6th axis) position value }
  1511.     wVmax: UINT;                 { maximum v (6th axis) position value }
  1512.     wCaps: UINT;                 { joystick capabilites }
  1513.     wMaxAxes: UINT;             { maximum number of axes supported }
  1514.     wNumAxes: UINT;             { number of axes in use }
  1515.     wMaxButtons: UINT;          { maximum number of buttons supported }
  1516.     szRegKey: array[0..MAXPNAMELEN - 1] of AnsiChar; { registry key }
  1517.     szOEMVxD: array[0..MAX_JOYSTICKOEMVXDNAME - 1] of AnsiChar; { OEM VxD in use }
  1518.   end;
  1519.   TJoyCapsW = record
  1520.     wMid: Word;                  { manufacturer ID }
  1521.     wPid: Word;                  { product ID }
  1522.     szPname: array[0..MAXPNAMELEN-1] of WideChar;  { product name (NULL terminated string) }
  1523.     wXmin: UINT;                 { minimum x position value }
  1524.     wXmax: UINT;                 { maximum x position value }
  1525.     wYmin: UINT;                 { minimum y position value }
  1526.     wYmax: UINT;                 { maximum y position value }
  1527.     wZmin: UINT;                 { minimum z position value }
  1528.     wZmax: UINT;                 { maximum z position value }
  1529.     wNumButtons: UINT;           { number of buttons }
  1530.     wPeriodMin: UINT;            { minimum message period when captured }
  1531.     wPeriodMax: UINT;            { maximum message period when captured }
  1532.     wRmin: UINT;                 { minimum r position value }
  1533.     wRmax: UINT;                 { maximum r position value }
  1534.     wUmin: UINT;                 { minimum u (5th axis) position value }
  1535.     wUmax: UINT;                 { maximum u (5th axis) position value }
  1536.     wVmin: UINT;                 { minimum v (6th axis) position value }
  1537.     wVmax: UINT;                 { maximum v (6th axis) position value }
  1538.     wCaps: UINT;                 { joystick capabilites }
  1539.     wMaxAxes: UINT;             { maximum number of axes supported }
  1540.     wNumAxes: UINT;             { number of axes in use }
  1541.     wMaxButtons: UINT;          { maximum number of buttons supported }
  1542.     szRegKey: array[0..MAXPNAMELEN - 1] of WideChar; { registry key }
  1543.     szOEMVxD: array[0..MAX_JOYSTICKOEMVXDNAME - 1] of WideChar; { OEM VxD in use }
  1544.   end;
  1545.   TJoyCaps = TJoyCapsA;
  1546.  
  1547. { joystick information data structure }
  1548. type
  1549.   PJoyInfo = ^TJoyInfo;
  1550.   TJoyInfo = record
  1551.     wXpos: UINT;                 { x position }
  1552.     wYpos: UINT;                 { y position }
  1553.     wZpos: UINT;                 { z position }
  1554.     wButtons: UINT;              { button states }
  1555.   end;
  1556.  
  1557.   PJoyInfoEx = ^TJoyInfoEx;
  1558.   TJoyInfoEx = record
  1559.     dwSize: DWORD;               { size of structure }
  1560.     dwFlags: DWORD;              { flags to indicate what to return }
  1561.     wXpos: UINT;         { x position }
  1562.     wYpos: UINT;         { y position }
  1563.     wZpos: UINT;         { z position }
  1564.     dwRpos: DWORD;               { rudder/4th axis position }
  1565.     dwUpos: DWORD;               { 5th axis position }
  1566.     dwVpos: DWORD;               { 6th axis position }
  1567.     wButtons: UINT;      { button states }
  1568.     dwButtonNumber: DWORD;  { current button number pressed }
  1569.     dwPOV: DWORD;           { point of view state }
  1570.     dwReserved1: DWORD;          { reserved for communication between winmm & driver }
  1571.     dwReserved2: DWORD;          { reserved for future expansion }
  1572.   end;
  1573.  
  1574. { joystick function prototypes }
  1575. function joyGetNumDevs: UINT; stdcall;
  1576. function joyGetDevCapsA(uJoyID: UINT; lpCaps: PJoyCapsA; uSize: UINT): MMRESULT; stdcall;
  1577. function joyGetDevCapsW(uJoyID: UINT; lpCaps: PJoyCapsW; uSize: UINT): MMRESULT; stdcall;
  1578. function joyGetDevCaps(uJoyID: UINT; lpCaps: PJoyCaps; uSize: UINT): MMRESULT; stdcall;
  1579. function joyGetPos(uJoyID: UINT; lpInfo: PJoyInfo): MMRESULT; stdcall;
  1580. function joyGetPosEx(uJoyID: UINT; lpInfo: PJoyInfoEx): MMRESULT; stdcall;
  1581. function joyGetThreshold(uJoyID: UINT; lpuThreshold: PUINT): MMRESULT; stdcall;
  1582. function joyReleaseCapture(uJoyID: UINT): MMRESULT; stdcall;
  1583. function joySetCapture(Handle: HWND; uJoyID, uPeriod: UINT; bChanged: BOOL): MMRESULT; stdcall;
  1584. function joySetThreshold(uJoyID, uThreshold: UINT): MMRESULT; stdcall;
  1585.  
  1586. {***************************************************************************
  1587.  
  1588.                         Multimedia File I/O support
  1589.  
  1590. ***************************************************************************}
  1591.  
  1592. { MMIO error return values }
  1593. const
  1594.   MMIOERR_BASE            = 256;
  1595.   MMIOERR_FILENOTFOUND    = MMIOERR_BASE + 1;  { file not found }
  1596.   MMIOERR_OUTOFMEMORY     = MMIOERR_BASE + 2;  { out of memory }
  1597.   MMIOERR_CANNOTOPEN      = MMIOERR_BASE + 3;  { cannot open }
  1598.   MMIOERR_CANNOTCLOSE     = MMIOERR_BASE + 4;  { cannot close }
  1599.   MMIOERR_CANNOTREAD      = MMIOERR_BASE + 5;  { cannot read }
  1600.   MMIOERR_CANNOTWRITE     = MMIOERR_BASE + 6;  { cannot write }
  1601.   MMIOERR_CANNOTSEEK      = MMIOERR_BASE + 7;  { cannot seek }
  1602.   MMIOERR_CANNOTEXPAND    = MMIOERR_BASE + 8;  { cannot expand file }
  1603.   MMIOERR_CHUNKNOTFOUND   = MMIOERR_BASE + 9;  { chunk not found }
  1604.   MMIOERR_UNBUFFERED      = MMIOERR_BASE + 10; { file is unbuffered }
  1605.   MMIOERR_PATHNOTFOUND        = MMIOERR_BASE + 11;  { path incorrect }
  1606.   MMIOERR_ACCESSDENIED        = MMIOERR_BASE + 12;  { file was protected }
  1607.   MMIOERR_SHARINGVIOLATION    = MMIOERR_BASE + 13;  { file in use }
  1608.   MMIOERR_NETWORKERROR        = MMIOERR_BASE + 14;  { network not responding }
  1609.   MMIOERR_TOOMANYOPENFILES    = MMIOERR_BASE + 15;  { no more file handles  }
  1610.   MMIOERR_INVALIDFILE         = MMIOERR_BASE + 16;  { default error file error }
  1611.  
  1612. { MMIO constants }
  1613. const
  1614.   CFSEPCHAR       = '+';             { compound file name separator char. }
  1615.  
  1616. type
  1617. { MMIO data types }
  1618.   FOURCC = DWORD;                    { a four character code }
  1619.  
  1620.   PHMMIO = ^HMMIO;
  1621.   HMMIO = Integer;      { a handle to an open file }
  1622.  
  1623.   TFNMMIOProc = function(lpmmioinfo: PChar; uMessage: UINT; lParam1, lParam2: LPARAM): Longint stdcall;
  1624.  
  1625. { general MMIO information data structure }
  1626. type
  1627.   PMMIOInfo = ^TMMIOInfo;
  1628.   TMMIOInfo = record
  1629.     { general fields }
  1630.     dwFlags: DWORD;        { general status flags }
  1631.     fccIOProc: FOURCC;      { pointer to I/O procedure }
  1632.     pIOProc: TFNMMIOProc;        { pointer to I/O procedure }
  1633.     wErrorRet: UINT;      { place for error to be returned }
  1634.     hTask: HTASK;          { alternate local task }
  1635.  
  1636.     { fields maintained by MMIO functions during buffered I/O }
  1637.     cchBuffer: Longint;      { size of I/O buffer (or 0L) }
  1638.     pchBuffer: PChar;      { start of I/O buffer (or NULL) }
  1639.     pchNext: PChar;        { pointer to next byte to read/write }
  1640.     pchEndRead: PChar;     { pointer to last valid byte to read }
  1641.     pchEndWrite: PChar;    { pointer to last byte to write }
  1642.     lBufOffset: Longint;     { disk offset of start of buffer }
  1643.  
  1644.     { fields maintained by I/O procedure }
  1645.     lDiskOffset: Longint;    { disk offset of next read or write }
  1646.     adwInfo: array[0..2] of DWORD;     { data specific to type of MMIOPROC }
  1647.  
  1648.     { other fields maintained by MMIO }
  1649.     dwReserved1: DWORD;    { reserved for MMIO use }
  1650.     dwReserved2: DWORD;    { reserved for MMIO use }
  1651.     hmmio: HMMIO;          { handle to open file }
  1652.   end;
  1653.  
  1654.  
  1655. { RIFF chunk information data structure }
  1656. type
  1657.  
  1658.   PMMCKInfo = ^TMMCKInfo;
  1659.   TMMCKInfo = record
  1660.     ckid: FOURCC;           { chunk ID }
  1661.     cksize: DWORD;         { chunk size }
  1662.     fccType: FOURCC;        { form type or list type }
  1663.     dwDataOffset: DWORD;   { offset of data portion of chunk }
  1664.     dwFlags: DWORD;        { flags used by MMIO functions }
  1665.   end;
  1666.  
  1667. { bit field masks }
  1668. const
  1669.   MMIO_RWMODE     = $00000003;      { open file for reading/writing/both }
  1670.   MMIO_SHAREMODE  = $00000070;      { file sharing mode number }
  1671.  
  1672. { constants for dwFlags field of MMIOINFO }
  1673. const
  1674.   MMIO_CREATE    = $00001000;     { create new file (or truncate file) }
  1675.   MMIO_PARSE     = $00000100;     { parse new file returning path }
  1676.   MMIO_DELETE    = $00000200;     { create new file (or truncate file) }
  1677.   MMIO_EXIST     = $00004000;     { checks for existence of file }
  1678.   MMIO_ALLOCBUF  = $00010000;     { mmioOpen() should allocate a buffer }
  1679.   MMIO_GETTEMP   = $00020000;     { mmioOpen() should retrieve temp name }
  1680.  
  1681. const
  1682.   MMIO_DIRTY     = $10000000;     { I/O buffer is dirty }
  1683.  
  1684. { read/write mode numbers (bit field MMIO_RWMODE) }
  1685. const
  1686.   MMIO_READ       = $00000000;      { open file for reading only }
  1687.   MMIO_WRITE      = $00000001;      { open file for writing only }
  1688.   MMIO_READWRITE  = $00000002;      { open file for reading and writing }
  1689.  
  1690. { share mode numbers (bit field MMIO_SHAREMODE) }
  1691. const
  1692.   MMIO_COMPAT     = $00000000;      { compatibility mode }
  1693.   MMIO_EXCLUSIVE  = $00000010;      { exclusive-access mode }
  1694.   MMIO_DENYWRITE  = $00000020;      { deny writing to other processes }
  1695.   MMIO_DENYREAD   = $00000030;      { deny reading to other processes }
  1696.   MMIO_DENYNONE   = $00000040;      { deny nothing to other processes }
  1697.  
  1698. { various MMIO flags }
  1699. const
  1700.   MMIO_FHOPEN             = $0010;  { mmioClose: keep file handle open }
  1701.   MMIO_EMPTYBUF           = $0010;  { mmioFlush: empty the I/O buffer }
  1702.   MMIO_TOUPPER            = $0010;  { mmioStringToFOURCC: to u-case }
  1703.   MMIO_INSTALLPROC    = $00010000;  { mmioInstallIOProc: install MMIOProc }
  1704.   MMIO_GLOBALPROC     = $10000000;  { mmioInstallIOProc: install globally }
  1705.   MMIO_REMOVEPROC     = $00020000;  { mmioInstallIOProc: remove MMIOProc }
  1706.   MMIO_UNICODEPROC    = $01000000;  { mmioInstallIOProc: Unicode MMIOProc }
  1707.   MMIO_FINDPROC       = $00040000;  { mmioInstallIOProc: find an MMIOProc }
  1708.   MMIO_FINDCHUNK          = $0010;  { mmioDescend: find a chunk by ID }
  1709.   MMIO_FINDRIFF           = $0020;  { mmioDescend: find a LIST chunk }
  1710.   MMIO_FINDLIST           = $0040;  { mmioDescend: find a RIFF chunk }
  1711.   MMIO_CREATERIFF         = $0020;  { mmioCreateChunk: make a LIST chunk }
  1712.   MMIO_CREATELIST         = $0040;  { mmioCreateChunk: make a RIFF chunk }
  1713.  
  1714.  
  1715. { message numbers for MMIOPROC I/O procedure functions }
  1716. const
  1717.   MMIOM_READ      = MMIO_READ;       { read }
  1718.   MMIOM_WRITE    = MMIO_WRITE;       { write }
  1719.   MMIOM_SEEK              = 2;       { seek to a new position in file }
  1720.   MMIOM_OPEN              = 3;       { open file }
  1721.   MMIOM_CLOSE             = 4;       { close file }
  1722.   MMIOM_WRITEFLUSH        = 5;       { write and flush }
  1723.  
  1724. const
  1725.   MMIOM_RENAME            = 6;       { rename specified file }
  1726.  
  1727.   MMIOM_USER         = $8000;       { beginning of user-defined messages }
  1728.  
  1729. { standard four character codes }
  1730. const
  1731.   FOURCC_RIFF = $46464952;   { 'RIFF' }
  1732.   FOURCC_LIST = $5453494C;   { 'LIST' }
  1733.  
  1734. { four character codes used to identify standard built-in I/O procedures }
  1735. const
  1736.   FOURCC_DOS  = $20532F44;   { 'DOS '}
  1737.   FOURCC_MEM  = $204D454D;   { 'MEM '}
  1738.  
  1739. { flags for mmioSeek() }
  1740. const
  1741.   SEEK_SET        = 0;               { seek to an absolute position }
  1742.   SEEK_CUR        = 1;               { seek relative to current position }
  1743.   SEEK_END        = 2;               { seek relative to end of file }
  1744.  
  1745. { other constants }
  1746. const
  1747.   MMIO_DEFAULTBUFFER      = 8192;    { default buffer size }
  1748.  
  1749. { MMIO function prototypes }
  1750. function mmioStringToFOURCCA(sz: PAnsiChar; uFlags: UINT): FOURCC; stdcall;
  1751. function mmioStringToFOURCCW(sz: PWideChar; uFlags: UINT): FOURCC; stdcall;
  1752. function mmioStringToFOURCC(sz: PChar; uFlags: UINT): FOURCC; stdcall;
  1753. function mmioInstallIOProcA(fccIOProc: FOURCC; pIOProc: TFNMMIOProc;
  1754.   dwFlags: DWORD): TFNMMIOProc; stdcall;
  1755. function mmioInstallIOProcW(fccIOProc: FOURCC; pIOProc: TFNMMIOProc;
  1756.   dwFlags: DWORD): TFNMMIOProc; stdcall;
  1757. function mmioInstallIOProc(fccIOProc: FOURCC; pIOProc: TFNMMIOProc;
  1758.   dwFlags: DWORD): TFNMMIOProc; stdcall;
  1759. function mmioOpenA(szFileName: PChar; lpmmioinfo: PMMIOInfo;
  1760.   dwOpenFlags: DWORD): HMMIO; stdcall;
  1761. function mmioOpenW(szFileName: PChar; lpmmioinfo: PMMIOInfo;
  1762.   dwOpenFlags: DWORD): HMMIO; stdcall;
  1763. function mmioOpen(szFileName: PChar; lpmmioinfo: PMMIOInfo;
  1764.   dwOpenFlags: DWORD): HMMIO; stdcall;
  1765. function mmioRenameA(szFileName, szNewFileName: PAnsiChar;
  1766.   lpmmioinfo: PMMIOInfo; dwRenameFlags: DWORD): MMRESULT; stdcall;
  1767. function mmioRenameW(szFileName, szNewFileName: PWideChar;
  1768.   lpmmioinfo: PMMIOInfo; dwRenameFlags: DWORD): MMRESULT; stdcall;
  1769. function mmioRename(szFileName, szNewFileName: PChar;
  1770.   lpmmioinfo: PMMIOInfo; dwRenameFlags: DWORD): MMRESULT; stdcall;
  1771. function mmioClose(hmmio: HMMIO; uFlags: UINT): MMRESULT; stdcall;
  1772. function mmioRead(hmmio: HMMIO; pch: PChar; cch: Longint): Longint; stdcall;
  1773. function mmioWrite(hmmio: HMMIO; pch: PChar; cch: Longint): Longint; stdcall;
  1774. function mmioSeek(hmmio: HMMIO; lOffset: Longint;
  1775.   iOrigin: Integer): Longint; stdcall;
  1776. function mmioGetInfo(hmmio: HMMIO; lpmmioinfo: PMMIOInfo; uFlags: UINT): MMRESULT; stdcall;
  1777. function mmioSetInfo(hmmio: HMMIO; lpmmioinfo: PMMIOInfo; uFlags: UINT): MMRESULT; stdcall;
  1778. function mmioSetBuffer(hmmio: HMMIO; pchBuffer: PChar; cchBuffer: Longint;
  1779.   uFlags: Word): MMRESULT; stdcall;
  1780. function mmioFlush(hmmio: HMMIO; uFlags: UINT): MMRESULT; stdcall;
  1781. function mmioAdvance(hmmio: HMMIO; lpmmioinfo: PMMIOInfo; uFlags: UINT): MMRESULT; stdcall;
  1782. function mmioSendMessage(hmmio: HMMIO; uMessage: UINT;
  1783.   lParam1, lParam2: DWORD): Longint; stdcall;
  1784. function mmioDescend(hmmio: HMMIO; lpck: PMMCKInfo;
  1785.   lpckParent: PMMCKInfo; uFlags: UINT): MMRESULT; stdcall;
  1786. function mmioAscend(hmmio: HMMIO; lpck: PMMCKInfo; uFlags: UINT): MMRESULT; stdcall;
  1787. function mmioCreateChunk(hmmio: HMMIO; lpck: PMMCKInfo; uFlags: UINT): MMRESULT; stdcall;
  1788.  
  1789.  
  1790. {***************************************************************************
  1791.  
  1792.                             MCI support
  1793.  
  1794. ***************************************************************************}
  1795.  
  1796. type
  1797.   MCIERROR = DWORD;     { error return code, 0 means no error }
  1798.   MCIDEVICEID = UINT;   { MCI device ID type }
  1799.  
  1800.   TFNYieldProc = function(mciId: MCIDEVICEID; dwYieldData: DWORD): UINT stdcall;
  1801.  
  1802. { MCI function prototypes }
  1803. function mciSendCommandA(mciId: MCIDEVICEID; uMessage: UINT;
  1804.   dwParam1, dwParam2: DWORD): MCIERROR; stdcall;
  1805. function mciSendCommandW(mciId: MCIDEVICEID; uMessage: UINT;
  1806.   dwParam1, dwParam2: DWORD): MCIERROR; stdcall;
  1807. function mciSendCommand(mciId: MCIDEVICEID; uMessage: UINT;
  1808.   dwParam1, dwParam2: DWORD): MCIERROR; stdcall;
  1809. function mciSendStringA(lpstrCommand, lpstrReturnString: PAnsiChar;
  1810.   uReturnLength: UINT; hWndCallback: HWND): MCIERROR; stdcall;
  1811. function mciSendStringW(lpstrCommand, lpstrReturnString: PWideChar;
  1812.   uReturnLength: UINT; hWndCallback: HWND): MCIERROR; stdcall;
  1813. function mciSendString(lpstrCommand, lpstrReturnString: PChar;
  1814.   uReturnLength: UINT; hWndCallback: HWND): MCIERROR; stdcall;
  1815. function mciGetDeviceIDA(pszDevice: PAnsiChar): MCIDEVICEID; stdcall;
  1816. function mciGetDeviceIDW(pszDevice: PWideChar): MCIDEVICEID; stdcall;
  1817. function mciGetDeviceID(pszDevice: PChar): MCIDEVICEID; stdcall;
  1818. function mciGetDeviceIDFromElementIDA(dwElementID: DWORD; lpstrType: PAnsiChar): MCIDEVICEID; stdcall;
  1819. function mciGetDeviceIDFromElementIDW(dwElementID: DWORD; lpstrType: PWideChar): MCIDEVICEID; stdcall;
  1820. function mciGetDeviceIDFromElementID(dwElementID: DWORD; lpstrType: PChar): MCIDEVICEID; stdcall;
  1821. function mciGetErrorStringA(mcierr: MCIERROR; pszText: PAnsiChar; uLength: UINT): BOOL; stdcall;
  1822. function mciGetErrorStringW(mcierr: MCIERROR; pszText: PWideChar; uLength: UINT): BOOL; stdcall;
  1823. function mciGetErrorString(mcierr: MCIERROR; pszText: PChar; uLength: UINT): BOOL; stdcall;
  1824. function mciSetYieldProc(mcierr: MCIERROR; fpYieldProc: TFNYieldProc;
  1825.   dwYieldData: DWORD): BOOL; stdcall;
  1826. function mciGetCreatorTask(mcierr: MCIERROR): HTASK; stdcall;
  1827. function mciGetYieldProc(mcierr: MCIERROR; lpdwYieldData: PDWORD): TFNYieldProc; stdcall;
  1828. function mciExecute(pszCommand: LPCSTR): BOOL; stdcall;
  1829.  
  1830.  
  1831. { MCI error return values }
  1832. const
  1833.   MCIERR_INVALID_DEVICE_ID        = MCIERR_BASE + 1;
  1834.   MCIERR_UNRECOGNIZED_KEYWORD     = MCIERR_BASE + 3;
  1835.   MCIERR_UNRECOGNIZED_COMMAND     = MCIERR_BASE + 5;
  1836.   MCIERR_HARDWARE                 = MCIERR_BASE + 6;
  1837.   MCIERR_INVALID_DEVICE_NAME      = MCIERR_BASE + 7;
  1838.   MCIERR_OUT_OF_MEMORY            = MCIERR_BASE + 8;
  1839.   MCIERR_DEVICE_OPEN              = MCIERR_BASE + 9;
  1840.   MCIERR_CANNOT_LOAD_DRIVER       = MCIERR_BASE + 10;
  1841.   MCIERR_MISSING_COMMAND_STRING   = MCIERR_BASE + 11;
  1842.   MCIERR_PARAM_OVERFLOW           = MCIERR_BASE + 12;
  1843.   MCIERR_MISSING_STRING_ARGUMENT  = MCIERR_BASE + 13;
  1844.   MCIERR_BAD_INTEGER              = MCIERR_BASE + 14;
  1845.   MCIERR_PARSER_INTERNAL          = MCIERR_BASE + 15;
  1846.   MCIERR_DRIVER_INTERNAL          = MCIERR_BASE + 16;
  1847.   MCIERR_MISSING_PARAMETER        = MCIERR_BASE + 17;
  1848.   MCIERR_UNSUPPORTED_FUNCTION     = MCIERR_BASE + 18;
  1849.   MCIERR_FILE_NOT_FOUND           = MCIERR_BASE + 19;
  1850.   MCIERR_DEVICE_NOT_READY         = MCIERR_BASE + 20;
  1851.   MCIERR_INTERNAL                 = MCIERR_BASE + 21;
  1852.   MCIERR_DRIVER                   = MCIERR_BASE + 22;
  1853.   MCIERR_CANNOT_USE_ALL           = MCIERR_BASE + 23;
  1854.   MCIERR_MULTIPLE                 = MCIERR_BASE + 24;
  1855.   MCIERR_EXTENSION_NOT_FOUND      = MCIERR_BASE + 25;
  1856.   MCIERR_OUTOFRANGE               = MCIERR_BASE + 26;
  1857.   MCIERR_FLAGS_NOT_COMPATIBLE     = MCIERR_BASE + 28;
  1858.   MCIERR_FILE_NOT_SAVED           = MCIERR_BASE + 30;
  1859.   MCIERR_DEVICE_TYPE_REQUIRED     = MCIERR_BASE + 31;
  1860.   MCIERR_DEVICE_LOCKED            = MCIERR_BASE + 32;
  1861.   MCIERR_DUPLICATE_ALIAS          = MCIERR_BASE + 33;
  1862.   MCIERR_BAD_CONSTANT             = MCIERR_BASE + 34;
  1863.   MCIERR_MUST_USE_SHAREABLE       = MCIERR_BASE + 35;
  1864.   MCIERR_MISSING_DEVICE_NAME      = MCIERR_BASE + 36;
  1865.   MCIERR_BAD_TIME_FORMAT          = MCIERR_BASE + 37;
  1866.   MCIERR_NO_CLOSING_QUOTE         = MCIERR_BASE + 38;
  1867.   MCIERR_DUPLICATE_FLAGS          = MCIERR_BASE + 39;
  1868.   MCIERR_INVALID_FILE             = MCIERR_BASE + 40;
  1869.   MCIERR_NULL_PARAMETER_BLOCK     = MCIERR_BASE + 41;
  1870.   MCIERR_UNNAMED_RESOURCE         = MCIERR_BASE + 42;
  1871.   MCIERR_NEW_REQUIRES_ALIAS       = MCIERR_BASE + 43;
  1872.   MCIERR_NOTIFY_ON_AUTO_OPEN      = MCIERR_BASE + 44;
  1873.   MCIERR_NO_ELEMENT_ALLOWED       = MCIERR_BASE + 45;
  1874.   MCIERR_NONAPPLICABLE_FUNCTION   = MCIERR_BASE + 46;
  1875.   MCIERR_ILLEGAL_FOR_AUTO_OPEN    = MCIERR_BASE + 47;
  1876.   MCIERR_FILENAME_REQUIRED        = MCIERR_BASE + 48;
  1877.   MCIERR_EXTRA_CHARACTERS         = MCIERR_BASE + 49;
  1878.   MCIERR_DEVICE_NOT_INSTALLED     = MCIERR_BASE + 50;
  1879.   MCIERR_GET_CD                   = MCIERR_BASE + 51;
  1880.   MCIERR_SET_CD                   = MCIERR_BASE + 52;
  1881.   MCIERR_SET_DRIVE                = MCIERR_BASE + 53;
  1882.   MCIERR_DEVICE_LENGTH            = MCIERR_BASE + 54;
  1883.   MCIERR_DEVICE_ORD_LENGTH        = MCIERR_BASE + 55;
  1884.   MCIERR_NO_INTEGER               = MCIERR_BASE + 56;
  1885.  
  1886. const
  1887.   MCIERR_WAVE_OUTPUTSINUSE        = MCIERR_BASE + 64;
  1888.   MCIERR_WAVE_SETOUTPUTINUSE      = MCIERR_BASE + 65;
  1889.   MCIERR_WAVE_INPUTSINUSE         = MCIERR_BASE + 66;
  1890.   MCIERR_WAVE_SETINPUTINUSE       = MCIERR_BASE + 67;
  1891.   MCIERR_WAVE_OUTPUTUNSPECIFIED   = MCIERR_BASE + 68;
  1892.   MCIERR_WAVE_INPUTUNSPECIFIED    = MCIERR_BASE + 69;
  1893.   MCIERR_WAVE_OUTPUTSUNSUITABLE   = MCIERR_BASE + 70;
  1894.   MCIERR_WAVE_SETOUTPUTUNSUITABLE = MCIERR_BASE + 71;
  1895.   MCIERR_WAVE_INPUTSUNSUITABLE    = MCIERR_BASE + 72;
  1896.   MCIERR_WAVE_SETINPUTUNSUITABLE  = MCIERR_BASE + 73;
  1897.  
  1898.   MCIERR_SEQ_DIV_INCOMPATIBLE     = MCIERR_BASE + 80;
  1899.   MCIERR_SEQ_PORT_INUSE           = MCIERR_BASE + 81;
  1900.   MCIERR_SEQ_PORT_NONEXISTENT     = MCIERR_BASE + 82;
  1901.   MCIERR_SEQ_PORT_MAPNODEVICE     = MCIERR_BASE + 83;
  1902.   MCIERR_SEQ_PORT_MISCERROR       = MCIERR_BASE + 84;
  1903.   MCIERR_SEQ_TIMER                = MCIERR_BASE + 85;
  1904.   MCIERR_SEQ_PORTUNSPECIFIED      = MCIERR_BASE + 86;
  1905.   MCIERR_SEQ_NOMIDIPRESENT        = MCIERR_BASE + 87;
  1906.  
  1907.   MCIERR_NO_WINDOW                = MCIERR_BASE + 90;
  1908.   MCIERR_CREATEWINDOW             = MCIERR_BASE + 91;
  1909.   MCIERR_FILE_READ                = MCIERR_BASE + 92;
  1910.   MCIERR_FILE_WRITE               = MCIERR_BASE + 93;
  1911.  
  1912.   MCIERR_NO_IDENTITY              = MCIERR_BASE + 94;
  1913.  
  1914. { all custom device driver errors must be >= this value }
  1915. const
  1916.   MCIERR_CUSTOM_DRIVER_BASE       = mcierr_Base + 256;
  1917.  
  1918. { MCI command message identifiers }
  1919. const
  1920.   MCI_OPEN       = $0803;
  1921.   MCI_CLOSE      = $0804;
  1922.   MCI_ESCAPE     = $0805;
  1923.   MCI_PLAY       = $0806;
  1924.   MCI_SEEK       = $0807;
  1925.   MCI_STOP       = $0808;
  1926.   MCI_PAUSE      = $0809;
  1927.   MCI_INFO       = $080A;
  1928.   MCI_GETDEVCAPs = $080B;
  1929.   MCI_SPIN       = $080C;
  1930.   MCI_SET        = $080D;
  1931.   MCI_STEP       = $080E;
  1932.   MCI_RECORD     = $080F;
  1933.   MCI_SYSINFO    = $0810;
  1934.   MCI_BREAK      = $0811;
  1935.   MCI_SOUND      = $0812;
  1936.   MCI_SAVE       = $0813;
  1937.   MCI_STATUS     = $0814;
  1938.   MCI_CUE        = $0830;
  1939.   MCI_REALIZE    = $0840;
  1940.   MCI_WINDOW     = $0841;
  1941.   MCI_PUT        = $0842;
  1942.   MCI_WHERE      = $0843;
  1943.   MCI_FREEZE     = $0844;
  1944.   MCI_UNFREEZE   = $0845;
  1945.   MCI_LOAD       = $0850;
  1946.   MCI_CUT        = $0851;
  1947.   MCI_COPY       = $0852;
  1948.   MCI_PASTE      = $0853;
  1949.   MCI_UPDATE     = $0854;
  1950.   MCI_RESUME     = $0855;
  1951.   MCI_DELETE     = $0856;
  1952.  
  1953. { all custom MCI command messages must be >= this value }
  1954. const
  1955.   MCI_USER_MESSAGES               = $400 + drv_MCI_First;
  1956.   MCI_LAST                        = $0FFF;
  1957.  
  1958. { device ID for "all devices" }
  1959. const
  1960.   MCI_ALL_DEVICE_ID               = UINT(-1);
  1961.  
  1962. { constants for predefined MCI device types }
  1963. const
  1964.   MCI_DEVTYPE_VCR                 = MCI_STRING_OFFSET + 1;
  1965.   MCI_DEVTYPE_VIDEODISC           = MCI_STRING_OFFSET + 2;
  1966.   MCI_DEVTYPE_OVERLAY             = MCI_STRING_OFFSET + 3;
  1967.   MCI_DEVTYPE_CD_AUDIO            = MCI_STRING_OFFSET + 4;
  1968.   MCI_DEVTYPE_DAT                 = MCI_STRING_OFFSET + 5;
  1969.   MCI_DEVTYPE_SCANNER             = MCI_STRING_OFFSET + 6;
  1970.   MCI_DEVTYPE_ANIMATION           = MCI_STRING_OFFSET + 7;
  1971.   MCI_DEVTYPE_DIGITAL_VIDEO       = MCI_STRING_OFFSET + 8;
  1972.   MCI_DEVTYPE_OTHER               = MCI_STRING_OFFSET + 9;
  1973.   MCI_DEVTYPE_WAVEFORM_AUDIO      = MCI_STRING_OFFSET + 10;
  1974.   MCI_DEVTYPE_SEQUENCER           = MCI_STRING_OFFSET + 11;
  1975.  
  1976.   MCI_DEVTYPE_FIRST              = MCI_DEVTYPE_VCR;
  1977.   MCI_DEVTYPE_LAST               = MCI_DEVTYPE_SEQUENCER;
  1978.  
  1979.   MCI_DEVTYPE_FIRST_USER         = 1000;
  1980.  
  1981. { return values for 'status mode' command }
  1982. const
  1983.   MCI_MODE_NOT_READY              = MCI_STRING_OFFSET + 12;
  1984.   MCI_MODE_STOP                   = MCI_STRING_OFFSET + 13;
  1985.   MCI_MODE_PLAY                   = MCI_STRING_OFFSET + 14;
  1986.   MCI_MODE_RECORD                 = MCI_STRING_OFFSET + 15;
  1987.   MCI_MODE_SEEK                   = MCI_STRING_OFFSET + 16;
  1988.   MCI_MODE_PAUSE                  = MCI_STRING_OFFSET + 17;
  1989.   MCI_MODE_OPEN                   = MCI_STRING_OFFSET + 18;
  1990.  
  1991. { constants used in 'set time format' and 'status time format' commands }
  1992. const
  1993.   MCI_FORMAT_MILLISECONDS         = 0;
  1994.   MCI_FORMAT_HMS                  = 1;
  1995.   MCI_FORMAT_MSF                  = 2;
  1996.   MCI_FORMAT_FRAMES               = 3;
  1997.   MCI_FORMAT_SMPTE_24             = 4;
  1998.   MCI_FORMAT_SMPTE_25             = 5;
  1999.   MCI_FORMAT_SMPTE_30             = 6;
  2000.   MCI_FORMAT_SMPTE_30DROP         = 7;
  2001.   MCI_FORMAT_BYTES                = 8;
  2002.   MCI_FORMAT_SAMPLES              = 9;
  2003.   MCI_FORMAT_TMSF                 = 10;
  2004.  
  2005. { MCI time format conversion macros }
  2006.  
  2007. function mci_MSF_Minute(msf: Longint): Byte;
  2008. function mci_MSF_Second(msf: Longint): Byte;
  2009. function mci_MSF_Frame(msf: Longint): Byte;
  2010. function mci_Make_MSF(m, s, f: Byte): Longint;
  2011. function mci_TMSF_Track(tmsf: Longint): Byte;
  2012. function mci_TMSF_Minute(tmsf: Longint): Byte;
  2013. function mci_TMSF_Second(tmsf: Longint): Byte;
  2014. function mci_TMSF_Frame(tmsf: Longint): Byte;
  2015. function mci_Make_TMSF(t, m, s, f: Byte): Longint;
  2016. function mci_HMS_Hour(hms: Longint): Byte;
  2017. function mci_HMS_Minute(hms: Longint): Byte;
  2018. function mci_HMS_Second(hms: Longint): Byte;
  2019. function mci_Make_HMS(h, m, s: Byte): Longint;
  2020.  
  2021. { flags for wParam of MM_MCINOTIFY message }
  2022. const
  2023.   MCI_NOTIFY_SUCCESSFUL           = $0001;
  2024.   MCI_NOTIFY_SUPERSEDED           = $0002;
  2025.   MCI_NOTIFY_ABORTED              = $0004;
  2026.   MCI_NOTIFY_FAILURE              = $0008;
  2027.  
  2028. { common flags for dwFlags parameter of MCI command messages }
  2029. const
  2030.   MCI_NOTIFY                      = $00000001;
  2031.   MCI_WAIT                        = $00000002;
  2032.   MCI_FROM                        = $00000004;
  2033.   MCI_TO                          = $00000008;
  2034.   MCI_TRACK                       = $00000010;
  2035.  
  2036. { flags for dwFlags parameter of MCI_OPEN command message }
  2037. const
  2038.   MCI_OPEN_SHAREABLE              = $00000100;
  2039.   MCI_OPEN_ELEMENT                = $00000200;
  2040.   MCI_OPEN_ALIAS                  = $00000400;
  2041.   MCI_OPEN_ELEMENT_ID             = $00000800;
  2042.   MCI_OPEN_TYPE_ID                = $00001000;
  2043.   MCI_OPEN_TYPE                   = $00002000;
  2044.  
  2045. { flags for dwFlags parameter of MCI_SEEK command message }
  2046. const
  2047.   MCI_SEEK_TO_START               = $00000100;
  2048.   MCI_SEEK_TO_END                 = $00000200;
  2049.  
  2050. { flags for dwFlags parameter of MCI_STATUS command message }
  2051. const
  2052.   MCI_STATUS_ITEM                 = $00000100;
  2053.   MCI_STATUS_START                = $00000200;
  2054.  
  2055. { flags for dwItem field of the MCI_STATUS_PARMS parameter block }
  2056. const
  2057.   MCI_STATUS_LENGTH               = $00000001;
  2058.   MCI_STATUS_POSITION             = $00000002;
  2059.   MCI_STATUS_NUMBER_OF_TRACKS     = $00000003;
  2060.   MCI_STATUS_MODE                 = $00000004;
  2061.   MCI_STATUS_MEDIA_PRESENT        = $00000005;
  2062.   MCI_STATUS_TIME_FORMAT          = $00000006;
  2063.   MCI_STATUS_READY                = $00000007;
  2064.   MCI_STATUS_CURRENT_TRACK        = $00000008;
  2065.  
  2066. { flags for dwFlags parameter of MCI_INFO command message }
  2067. const
  2068.   MCI_INFO_PRODUCT                = $00000100;
  2069.   MCI_INFO_FILE                   = $00000200;
  2070.   MCI_INFO_MEDIA_UPC              = $00000400;
  2071.   MCI_INFO_MEDIA_IDENTITY         = $00000800;
  2072.   MCI_INFO_NAME                   = $00001000;
  2073.   MCI_INFO_COPYRIGHT              = $00002000;
  2074.  
  2075. { flags for dwFlags parameter of MCI_GETDEVCAPS command message }
  2076. const
  2077.   MCI_GETDEVCAPS_ITEM             = $00000100;
  2078.  
  2079. { flags for dwItem field of the MCI_GETDEVCAPS_PARMS parameter block }
  2080. const
  2081.   MCI_GETDEVCAPS_CAN_RECORD       = $00000001;
  2082.   MCI_GETDEVCAPS_HAS_AUDIO        = $00000002;
  2083.   MCI_GETDEVCAPS_HAS_VIDEO        = $00000003;
  2084.   MCI_GETDEVCAPS_DEVICE_TYPE      = $00000004;
  2085.   MCI_GETDEVCAPS_USES_FILES       = $00000005;
  2086.   MCI_GETDEVCAPS_COMPOUND_DEVICE  = $00000006;
  2087.   MCI_GETDEVCAPS_CAN_EJECT        = $00000007;
  2088.   MCI_GETDEVCAPS_CAN_PLAY         = $00000008;
  2089.   MCI_GETDEVCAPS_CAN_SAVE         = $00000009;
  2090.  
  2091. { flags for dwFlags parameter of MCI_SYSINFO command message }
  2092. const
  2093.   MCI_SYSINFO_QUANTITY            = $00000100;
  2094.   MCI_SYSINFO_OPEN                = $00000200;
  2095.   MCI_SYSINFO_NAME                = $00000400;
  2096.   MCI_SYSINFO_INSTALLNAME         = $00000800;
  2097.  
  2098. { flags for dwFlags parameter of MCI_SET command message }
  2099. const
  2100.   MCI_SET_DOOR_OPEN               = $00000100;
  2101.   MCI_SET_DOOR_CLOSED             = $00000200;
  2102.   MCI_SET_TIME_FORMAT             = $00000400;
  2103.   MCI_SET_AUDIO                   = $00000800;
  2104.   MCI_SET_VIDEO                   = $00001000;
  2105.   MCI_SET_ON                      = $00002000;
  2106.   MCI_SET_OFF                     = $00004000;
  2107.  
  2108. { flags for dwAudio field of MCI_SET_PARMS or MCI_SEQ_SET_PARMS }
  2109. const
  2110.   MCI_SET_AUDIO_ALL               = $00000000;
  2111.   MCI_SET_AUDIO_LEFT              = $00000001;
  2112.   MCI_SET_AUDIO_RIGHT             = $00000002;
  2113.  
  2114. { flags for dwFlags parameter of MCI_BREAK command message }
  2115. const
  2116.   MCI_BREAK_KEY                   = $00000100;
  2117.   MCI_BREAK_HWND                  = $00000200;
  2118.   MCI_BREAK_OFF                   = $00000400;
  2119.  
  2120. { flags for dwFlags parameter of MCI_RECORD command message }
  2121. const
  2122.   MCI_RECORD_INSERT               = $00000100;
  2123.   MCI_RECORD_OVERWRITE            = $00000200;
  2124.  
  2125. { flags for dwFlags parameter of MCI_SOUND command message }
  2126. const
  2127.   MCI_SOUND_NAME                  = $00000100;
  2128.  
  2129. { flags for dwFlags parameter of MCI_SAVE command message }
  2130. const
  2131.   MCI_SAVE_FILE                   = $00000100;
  2132.  
  2133. { flags for dwFlags parameter of MCI_LOAD command message }
  2134. const
  2135.   MCI_LOAD_FILE                   = $00000100;
  2136.  
  2137. { generic parameter block for MCI command messages with no special parameters }
  2138. type
  2139.   PMCI_Generic_Parms = ^TMCI_Generic_Parms;
  2140.   TMCI_Generic_Parms = record
  2141.     dwCallback: DWORD;
  2142.   end;
  2143.  
  2144. { parameter block for MCI_OPEN command message }
  2145. type
  2146.   PMCI_Open_ParmsA = ^TMCI_Open_ParmsA;
  2147.   PMCI_Open_ParmsW = ^TMCI_Open_ParmsW;
  2148.   PMCI_Open_Parms = PMCI_Open_ParmsA;
  2149.   TMCI_Open_ParmsA = record
  2150.     dwCallback: DWORD;
  2151.     wDeviceID: MCIDEVICEID;
  2152.     lpstrDeviceType: PAnsiChar;
  2153.     lpstrElementName: PAnsiChar;
  2154.     lpstrAlias: PAnsiChar;
  2155.   end;
  2156.   TMCI_Open_ParmsW = record
  2157.     dwCallback: DWORD;
  2158.     wDeviceID: MCIDEVICEID;
  2159.     lpstrDeviceType: PWideChar;
  2160.     lpstrElementName: PWideChar;
  2161.     lpstrAlias: PWideChar;
  2162.   end;
  2163.   TMCI_Open_Parms = TMCI_Open_ParmsA;
  2164.  
  2165. { parameter block for MCI_PLAY command message }
  2166. type
  2167.   PMCI_Play_Parms = ^TMCI_Play_Parms;
  2168.   TMCI_Play_Parms = record
  2169.     dwCallback: DWORD;
  2170.     dwFrom: DWORD;
  2171.     dwTo: DWORD;
  2172.   end;
  2173.  
  2174. { parameter block for MCI_SEEK command message }
  2175. type
  2176.   PMCI_Seek_Parms = ^TMCI_Seek_Parms;
  2177.   TMCI_Seek_Parms = record
  2178.     dwCallback: DWORD;
  2179.     dwTo: DWORD;
  2180.   end;
  2181.  
  2182.  
  2183. { parameter block for MCI_STATUS command message }
  2184. type
  2185.   PMCI_Status_Parms = ^TMCI_Status_Parms;
  2186.   TMCI_Status_Parms = record
  2187.     dwCallback: DWORD;
  2188.     dwReturn: DWORD;
  2189.     dwItem: DWORD;
  2190.     dwTrack: DWORD;
  2191.   end;
  2192.  
  2193. { parameter block for MCI_INFO command message }
  2194. type
  2195.   PMCI_Info_ParmsA = ^TMCI_Info_ParmsA;
  2196.   PMCI_Info_ParmsW = ^TMCI_Info_ParmsW;
  2197.   PMCI_Info_Parms = PMCI_Info_ParmsA;
  2198.   TMCI_Info_ParmsA = record
  2199.     dwCallback: DWORD;
  2200.     lpstrReturn: PAnsiChar;
  2201.     dwRetSize: DWORD;
  2202.   end;
  2203.   TMCI_Info_ParmsW = record
  2204.     dwCallback: DWORD;
  2205.     lpstrReturn: PWideChar;
  2206.     dwRetSize: DWORD;
  2207.   end;
  2208.   TMCI_Info_Parms = TMCI_Info_ParmsA;
  2209.  
  2210. { parameter block for MCI_GETDEVCAPS command message }
  2211. type
  2212.   PMCI_GetDevCaps_Parms = ^TMCI_GetDevCaps_Parms;
  2213.   TMCI_GetDevCaps_Parms = record
  2214.     dwCallback: DWORD;
  2215.     dwReturn: DWORD;
  2216.     dwItem: DWORD;
  2217.   end;
  2218.  
  2219. { parameter block for MCI_SYSINFO command message }
  2220. type
  2221.   PMCI_SysInfo_ParmsA = ^TMCI_SysInfo_ParmsA;
  2222.   PMCI_SysInfo_ParmsW = ^TMCI_SysInfo_ParmsW;
  2223.   PMCI_SysInfo_Parms = PMCI_SysInfo_ParmsA;
  2224.   TMCI_SysInfo_ParmsA = record
  2225.     dwCallback: DWORD;
  2226.     lpstrReturn: PAnsiChar;
  2227.     dwRetSize: DWORD;
  2228.     dwNumber: DWORD;
  2229.     wDeviceType: UINT;
  2230.   end;
  2231.   TMCI_SysInfo_ParmsW = record
  2232.     dwCallback: DWORD;
  2233.     lpstrReturn: PWideChar;
  2234.     dwRetSize: DWORD;
  2235.     dwNumber: DWORD;
  2236.     wDeviceType: UINT;
  2237.   end;
  2238.   TMCI_SysInfo_Parms = TMCI_SysInfo_ParmsA;
  2239.  
  2240. { parameter block for MCI_SET command message }
  2241. type
  2242.   PMCI_Set_Parms = ^TMCI_Set_Parms;
  2243.   TMCI_Set_Parms = record
  2244.     dwCallback: DWORD;
  2245.     dwTimeFormat: DWORD;
  2246.     dwAudio: DWORD;
  2247.   end;
  2248.  
  2249.  
  2250. { parameter block for MCI_BREAK command message }
  2251. type
  2252.   PMCI_Break_Parms = ^TMCI_BReak_Parms;
  2253.   TMCI_BReak_Parms = record
  2254.     dwCallback: DWORD;
  2255.     nVirtKey: Integer;
  2256.     hWndBreak: HWND;
  2257.   end;
  2258.  
  2259. { parameter block for MCI_SOUND command message }
  2260. type
  2261.   PMCI_Sound_Parms = ^TMCI_Sound_Parms;
  2262.   TMCI_Sound_Parms = record
  2263.     dwCallback: Longint;
  2264.     lpstrSoundName: PChar;
  2265.   end;
  2266.  
  2267. { parameter block for MCI_SAVE command message }
  2268. type
  2269.   PMCI_Save_ParmsA = ^TMCI_SaveParmsA;
  2270.   PMCI_Save_ParmsW = ^TMCI_SaveParmsW;
  2271.   PMCI_Save_Parms = PMCI_Save_ParmsA;
  2272.   TMCI_SaveParmsA = record
  2273.     dwCallback: DWORD;
  2274.     lpfilename: PAnsiChar;
  2275.   end;
  2276.   TMCI_SaveParmsW = record
  2277.     dwCallback: DWORD;
  2278.     lpfilename: PWideChar;
  2279.   end;
  2280.   TMCI_SaveParms = TMCI_SaveParmsA;
  2281.  
  2282. { parameter block for MCI_LOAD command message }
  2283. type
  2284.   PMCI_Load_ParmsA = ^TMCI_Load_ParmsA;
  2285.   PMCI_Load_ParmsW = ^TMCI_Load_ParmsW;
  2286.   PMCI_Load_Parms = PMCI_Load_ParmsA;
  2287.   TMCI_Load_ParmsA = record
  2288.     dwCallback: DWORD;
  2289.     lpfilename: PAnsiChar;
  2290.   end;
  2291.   TMCI_Load_ParmsW = record
  2292.     dwCallback: DWORD;
  2293.     lpfilename: PWideChar;
  2294.   end;
  2295.   TMCI_Load_Parms = TMCI_Load_ParmsA;
  2296.  
  2297. { parameter block for MCI_RECORD command message }
  2298. type
  2299.   PMCI_Record_Parms = ^TMCI_Record_Parms;
  2300.   TMCI_Record_Parms = record
  2301.     dwCallback: DWORD;
  2302.     dwFrom: DWORD;
  2303.     dwTo: DWORD;
  2304.   end;
  2305.  
  2306.  
  2307. { MCI extensions for videodisc devices }
  2308.  
  2309. { flag for dwReturn field of MCI_STATUS_PARMS }
  2310. { MCI_STATUS command, (dwItem == MCI_STATUS_MODE) }
  2311. const
  2312.   MCI_VD_MODE_PARK                = MCI_VD_OFFSET + 1;
  2313.  
  2314. { flag for dwReturn field of MCI_STATUS_PARMS }
  2315. { MCI_STATUS command, (dwItem == MCI_VD_STATUS_MEDIA_TYPE) }
  2316. const
  2317.   MCI_VD_MEDIA_CLV                = MCI_VD_OFFSET + 2;
  2318.   MCI_VD_MEDIA_CAV                = MCI_VD_OFFSET + 3;
  2319.   MCI_VD_MEDIA_OTHER              = MCI_VD_OFFSET + 4;
  2320.  
  2321. const
  2322.   MCI_VD_FORMAT_TRACK             = $4001;
  2323.  
  2324. { flags for dwFlags parameter of MCI_PLAY command message }
  2325. const
  2326.   MCI_VD_PLAY_REVERSE             = $00010000;
  2327.   MCI_VD_PLAY_FAST                = $00020000;
  2328.   MCI_VD_PLAY_SPEED               = $00040000;
  2329.   MCI_VD_PLAY_SCAN                = $00080000;
  2330.   MCI_VD_PLAY_SLOW                = $00100000;
  2331.  
  2332. { flag for dwFlags parameter of MCI_SEEK command message }
  2333. const
  2334.   MCI_VD_SEEK_REVERSE             = $00010000;
  2335.  
  2336. { flags for dwItem field of MCI_STATUS_PARMS parameter block }
  2337. const
  2338.   MCI_VD_STATUS_SPEED             = $00004002;
  2339.   MCI_VD_STATUS_FORWARD           = $00004003;
  2340.   MCI_VD_STATUS_MEDIA_TYPE        = $00004004;
  2341.   MCI_VD_STATUS_SIDE              = $00004005;
  2342.   MCI_VD_STATUS_DISC_SIZE         = $00004006;
  2343.  
  2344. { flags for dwFlags parameter of MCI_GETDEVCAPS command message }
  2345. const
  2346.   MCI_VD_GETDEVCAPS_CLV           = $00010000;
  2347.   MCI_VD_GETDEVCAPS_CAV           = $00020000;
  2348.  
  2349.   MCI_VD_SPIN_UP                  = $00010000;
  2350.   MCI_VD_SPIN_DOWN                = $00020000;
  2351.  
  2352. { flags for dwItem field of MCI_GETDEVCAPS_PARMS parameter block }
  2353. const
  2354.   MCI_VD_GETDEVCAPS_CAN_REVERSE   = $00004002;
  2355.   MCI_VD_GETDEVCAPS_FAST_RATE     = $00004003;
  2356.   MCI_VD_GETDEVCAPS_SLOW_RATE     = $00004004;
  2357.   MCI_VD_GETDEVCAPS_NORMAL_RATE   = $00004005;
  2358.  
  2359. { flags for the dwFlags parameter of MCI_STEP command message }
  2360. const
  2361.   MCI_VD_STEP_FRAMES              = $00010000;
  2362.   MCI_VD_STEP_REVERSE             = $00020000;
  2363.  
  2364. { flag for the MCI_ESCAPE command message }
  2365. const
  2366.   MCI_VD_ESCAPE_STRING            = $00000100;
  2367.  
  2368. { parameter block for MCI_PLAY command message }
  2369. type
  2370.   PMCI_VD_Play_Parms = ^TMCI_VD_Play_Parms;
  2371.   TMCI_VD_Play_Parms = record
  2372.     dwCallback: DWORD;
  2373.     dwFrom: DWORD;
  2374.     dwTo: DWORD;
  2375.     dwSpeed: DWORD;
  2376.   end;
  2377.  
  2378. { parameter block for MCI_STEP command message }
  2379. type
  2380.   PMCI_VD_Step_Parms = ^TMCI_VD_Step_Parms;
  2381.   TMCI_VD_Step_Parms = record
  2382.     dwCallback: DWORD;
  2383.     dwFrames: DWORD;
  2384.   end;
  2385.  
  2386. { parameter block for MCI_ESCAPE command message }
  2387. type
  2388.   PMCI_VD_Escape_ParmsA = ^TMCI_VD_Escape_ParmsA;
  2389.   PMCI_VD_Escape_ParmsW = ^TMCI_VD_Escape_ParmsW;
  2390.   PMCI_VD_Escape_Parms = PMCI_VD_Escape_ParmsA;
  2391.   TMCI_VD_Escape_ParmsA = record
  2392.     dwCallback: DWORD;
  2393.     lpstrCommand: PAnsiChar;
  2394.   end;
  2395.   TMCI_VD_Escape_ParmsW = record
  2396.     dwCallback: DWORD;
  2397.     lpstrCommand: PWideChar;
  2398.   end;
  2399.   TMCI_VD_Escape_Parms = TMCI_VD_Escape_ParmsA;
  2400.  
  2401. { MCI extensions for CD audio devices }
  2402.  
  2403. { flags for the dwItem field of the MCI_STATUS_PARMS parameter block }
  2404. const
  2405.   MCI_CDA_STATUS_TYPE_TRACK       = 00004001;
  2406.  
  2407. { flags for the dwReturn field of MCI_STATUS_PARMS parameter block }
  2408. { MCI_STATUS command, (dwItem == MCI_CDA_STATUS_TYPE_TRACK) }
  2409.   MCI_CDA_TRACK_AUDIO             = MCI_CD_OFFSET + 0;
  2410.   MCI_CDA_TRACK_OTHER             = MCI_CD_OFFSET + 1;
  2411.  
  2412. { MCI extensions for waveform audio devices }
  2413.   MCI_WAVE_PCM                    = MCI_WAVE_OFFSET + 0;
  2414.   MCI_WAVE_MAPPER                 = MCI_WAVE_OFFSET + 1;
  2415.  
  2416. { flags for the dwFlags parameter of MCI_OPEN command message }
  2417. const
  2418.   MCI_WAVE_OPEN_BUFFER            = $00010000;
  2419.  
  2420. { flags for the dwFlags parameter of MCI_SET command message }
  2421. const
  2422.   MCI_WAVE_SET_FORMATTAG          = $00010000;
  2423.   MCI_WAVE_SET_CHANNELS           = $00020000;
  2424.   MCI_WAVE_SET_SAMPLESPERSEC      = $00040000;
  2425.   MCI_WAVE_SET_AVGBYTESPERSEC     = $00080000;
  2426.   MCI_WAVE_SET_BLOCKALIGN         = $00100000;
  2427.   MCI_WAVE_SET_BITSPERSAMPLE      = $00200000;
  2428.  
  2429. { flags for the dwFlags parameter of MCI_STATUS, MCI_SET command messages }
  2430. const
  2431.   MCI_WAVE_INPUT                  = $00400000;
  2432.   MCI_WAVE_OUTPUT                 = $00800000;
  2433.  
  2434. { flags for the dwItem field of MCI_STATUS_PARMS parameter block }
  2435. const
  2436.   MCI_WAVE_STATUS_FORMATTAG       = $00004001;
  2437.   MCI_WAVE_STATUS_CHANNELS        = $00004002;
  2438.   MCI_WAVE_STATUS_SAMPLESPERSEC   = $00004003;
  2439.   MCI_WAVE_STATUS_AVGBYTESPERSEC  = $00004004;
  2440.   MCI_WAVE_STATUS_BLOCKALIGN      = $00004005;
  2441.   MCI_WAVE_STATUS_BITSPERSAMPLE   = $00004006;
  2442.   MCI_WAVE_STATUS_LEVEL           = $00004007;
  2443.  
  2444. { flags for the dwFlags parameter of MCI_SET command message }
  2445. const
  2446.   MCI_WAVE_SET_ANYINPUT           = $04000000;
  2447.   MCI_WAVE_SET_ANYOUTPUT          = $08000000;
  2448.  
  2449. { flags for the dwFlags parameter of MCI_GETDEVCAPS command message }
  2450. const
  2451.   MCI_WAVE_GETDEVCAPS_INPUTS      = $00004001;
  2452.   MCI_WAVE_GETDEVCAPS_OUTPUTS     = $00004002;
  2453.  
  2454. { parameter block for MCI_OPEN command message }
  2455. type
  2456.   PMCI_Wave_Open_ParmsA = ^TMCI_Wave_Open_ParmsA;
  2457.   PMCI_Wave_Open_ParmsW = ^TMCI_Wave_Open_ParmsW;
  2458.   PMCI_Wave_Open_Parms = PMCI_Wave_Open_ParmsA;
  2459.   TMCI_Wave_Open_ParmsA = record
  2460.     dwCallback: DWORD;
  2461.     wDeviceID: MCIDEVICEID;
  2462.     lpstrDeviceType: PAnsiChar;
  2463.     lpstrElementName: PAnsiChar;
  2464.     lpstrAlias: PAnsiChar;
  2465.     dwBufferSeconds: DWORD;
  2466.   end;
  2467.   TMCI_Wave_Open_ParmsW = record
  2468.     dwCallback: DWORD;
  2469.     wDeviceID: MCIDEVICEID;
  2470.     lpstrDeviceType: PWideChar;
  2471.     lpstrElementName: PWideChar;
  2472.     lpstrAlias: PWideChar;
  2473.     dwBufferSeconds: DWORD;
  2474.   end;
  2475.   TMCI_Wave_Open_Parms = TMCI_Wave_Open_ParmsA;
  2476.  
  2477. { parameter block for MCI_DELETE command message }
  2478. type
  2479.   PMCI_Wave_Delete_Parms = ^TMCI_Wave_Delete_Parms;
  2480.   TMCI_Wave_Delete_Parms = record
  2481.     dwCallback: DWORD;
  2482.     dwFrom: DWORD;
  2483.     dwTo: DWORD;
  2484.   end;
  2485.  
  2486. { parameter block for MCI_SET command message }
  2487. type
  2488.   PMCI_Wave_Set_Parms = ^TMCI_Wave_Set_Parms;
  2489.   TMCI_Wave_Set_Parms = record
  2490.     dwCallback: DWORD;
  2491.     dwTimeFormat: DWORD;
  2492.     dwAudio: DWORD;
  2493.     wInput: UINT;
  2494.     wOutput: UINT;
  2495.     wFormatTag: Word;
  2496.     wReserved2: Word;
  2497.     nChannels: Word;
  2498.     wReserved3: Word;
  2499.     nSamplesPerSec: DWORD;
  2500.     nAvgBytesPerSec: DWORD;
  2501.     nBlockAlign: Word;
  2502.     wReserved4: Word;
  2503.     wBitsPerSample: Word;
  2504.     wReserved5: Word;
  2505.   end;
  2506.  
  2507.  
  2508. { MCI extensions for MIDI sequencer devices }
  2509.  
  2510. { flags for the dwReturn field of MCI_STATUS_PARMS parameter block }
  2511. { MCI_STATUS command, (dwItem == MCI_SEQ_STATUS_DIVTYPE) }
  2512. const
  2513.   MCI_SEQ_DIV_PPQN            = 0 + MCI_SEQ_OFFSET;
  2514.   MCI_SEQ_DIV_SMPTE_24        = 1 + MCI_SEQ_OFFSET;
  2515.   MCI_SEQ_DIV_SMPTE_25        = 2 + MCI_SEQ_OFFSET;
  2516.   MCI_SEQ_DIV_SMPTE_30DROP    = 3 + MCI_SEQ_OFFSET;
  2517.   MCI_SEQ_DIV_SMPTE_30        = 4 + MCI_SEQ_OFFSET;
  2518.  
  2519. { flags for the dwMaster field of MCI_SEQ_SET_PARMS parameter block }
  2520. { MCI_SET command, (dwFlags == MCI_SEQ_SET_MASTER) }
  2521. const
  2522.   MCI_SEQ_FORMAT_SONGPTR      = $4001;
  2523.   MCI_SEQ_FILE                = $4002;
  2524.   MCI_SEQ_MIDI                = $4003;
  2525.   MCI_SEQ_SMPTE               = $4004;
  2526.   MCI_SEQ_NONE                = 65533;
  2527.   MCI_SEQ_MAPPER              = 65535;
  2528.  
  2529. { flags for the dwItem field of MCI_STATUS_PARMS parameter block }
  2530. const
  2531.   MCI_SEQ_STATUS_TEMPO            = $00004002;
  2532.   MCI_SEQ_STATUS_PORT             = $00004003;
  2533.   MCI_SEQ_STATUS_SLAVE            = $00004007;
  2534.   MCI_SEQ_STATUS_MASTER           = $00004008;
  2535.   MCI_SEQ_STATUS_OFFSET           = $00004009;
  2536.   MCI_SEQ_STATUS_DIVTYPE          = $0000400A;
  2537.   MCI_SEQ_STATUS_NAME             = $0000400B;
  2538.   MCI_SEQ_STATUS_COPYRIGHT        = $0000400C;
  2539.  
  2540. { flags for the dwFlags parameter of MCI_SET command message }
  2541. const
  2542.   MCI_SEQ_SET_TEMPO               = $00010000;
  2543.   MCI_SEQ_SET_PORT                = $00020000;
  2544.   MCI_SEQ_SET_SLAVE               = $00040000;
  2545.   MCI_SEQ_SET_MASTER              = $00080000;
  2546.   MCI_SEQ_SET_OFFSET              = $01000000;
  2547.  
  2548. { parameter block for MCI_SET command message }
  2549. type
  2550.   PMCI_Seq_Set_Parms = ^TMCI_Seq_Set_Parms;
  2551.   TMCI_Seq_Set_Parms = record
  2552.     dwCallback: DWORD;
  2553.     dwTimeFormat: DWORD;
  2554.     dwAudio: DWORD;
  2555.     dwTempo: DWORD;
  2556.     dwPort: DWORD;
  2557.     dwSlave: DWORD;
  2558.     dwMaster: DWORD;
  2559.     dwOffset: DWORD;
  2560.   end;
  2561.  
  2562. { MCI extensions for animation devices }
  2563.  
  2564. { flags for dwFlags parameter of MCI_OPEN command message }
  2565. const
  2566.   MCI_ANIM_OPEN_WS                = $00010000;
  2567.   MCI_ANIM_OPEN_PARENT            = $00020000;
  2568.   MCI_ANIM_OPEN_NOSTATIC          = $00040000;
  2569.  
  2570. { flags for dwFlags parameter of MCI_PLAY command message }
  2571. const
  2572.   MCI_ANIM_PLAY_SPEED             = $00010000;
  2573.   MCI_ANIM_PLAY_REVERSE           = $00020000;
  2574.   MCI_ANIM_PLAY_FAST              = $00040000;
  2575.   MCI_ANIM_PLAY_SLOW              = $00080000;
  2576.   MCI_ANIM_PLAY_SCAN              = $00100000;
  2577.  
  2578. { flags for dwFlags parameter of MCI_STEP command message }
  2579. const
  2580.   MCI_ANIM_STEP_REVERSE           = $00010000;
  2581.   MCI_ANIM_STEP_FRAMES            = $00020000;
  2582.  
  2583. { flags for dwItem field of MCI_STATUS_PARMS parameter block }
  2584. const
  2585.   MCI_ANIM_STATUS_SPEED           = $00004001;
  2586.   MCI_ANIM_STATUS_FORWARD         = $00004002;
  2587.   MCI_ANIM_STATUS_HWND            = $00004003;
  2588.   MCI_ANIM_STATUS_HPAL            = $00004004;
  2589.   MCI_ANIM_STATUS_STRETCH         = $00004005;
  2590.  
  2591. { flags for the dwFlags parameter of MCI_INFO command message }
  2592. const
  2593.   MCI_ANIM_INFO_TEXT              = $00010000;
  2594.  
  2595. { flags for dwItem field of MCI_GETDEVCAPS_PARMS parameter block }
  2596. const
  2597.   MCI_ANIM_GETDEVCAPS_CAN_REVERSE = $00004001;
  2598.   MCI_ANIM_GETDEVCAPS_FAST_RATE   = $00004002;
  2599.   MCI_ANIM_GETDEVCAPS_SLOW_RATE   = $00004003;
  2600.   MCI_ANIM_GETDEVCAPS_NORMAL_RATE = $00004004;
  2601.   MCI_ANIM_GETDEVCAPS_PALETTES    = $00004006;
  2602.   MCI_ANIM_GETDEVCAPS_CAN_STRETCH = $00004007;
  2603.   MCI_ANIM_GETDEVCAPS_MAX_WINDOWS = $00004008;
  2604.  
  2605. { flags for the MCI_REALIZE command message }
  2606. const
  2607.   MCI_ANIM_REALIZE_NORM           = $00010000;
  2608.   MCI_ANIM_REALIZE_BKGD           = $00020000;
  2609.  
  2610. { flags for dwFlags parameter of MCI_WINDOW command message }
  2611. const
  2612.   MCI_ANIM_WINDOW_HWND            = $00010000;
  2613.   MCI_ANIM_WINDOW_STATE           = $00040000;
  2614.   MCI_ANIM_WINDOW_TEXT            = $00080000;
  2615.   MCI_ANIM_WINDOW_ENABLE_STRETCH  = $00100000;
  2616.   MCI_ANIM_WINDOW_DISABLE_STRETCH = $00200000;
  2617.  
  2618. { flags for hWnd field of MCI_ANIM_WINDOW_PARMS parameter block }
  2619. { MCI_WINDOW command message, (dwFlags == MCI_ANIM_WINDOW_HWND) }
  2620. const
  2621.   MCI_ANIM_WINDOW_DEFAULT         = $00000000;
  2622.  
  2623. { flags for dwFlags parameter of MCI_PUT command message }
  2624. const
  2625.   MCI_ANIM_RECT                   = $00010000;
  2626.   MCI_ANIM_PUT_SOURCE             = $00020000;
  2627.   MCI_ANIM_PUT_DESTINATION        = $00040000;
  2628.  
  2629. { flags for dwFlags parameter of MCI_WHERE command message }
  2630. const
  2631.   MCI_ANIM_WHERE_SOURCE           = $00020000;
  2632.   MCI_ANIM_WHERE_DESTINATION      = $00040000;
  2633.  
  2634. { flags for dwFlags parameter of MCI_UPDATE command message }
  2635. const
  2636.   MCI_ANIM_UPDATE_HDC             = $00020000;
  2637.  
  2638. { parameter block for MCI_OPEN command message }
  2639. type
  2640.   PMCI_Anim_Open_ParmsA = ^TMCI_Anim_Open_ParmsA;
  2641.   PMCI_Anim_Open_ParmsW = ^TMCI_Anim_Open_ParmsW;
  2642.   PMCI_Anim_Open_Parms = PMCI_Anim_Open_ParmsA;
  2643.   TMCI_Anim_Open_ParmsA = record
  2644.     dwCallback: DWORD;
  2645.     wDeviceID: MCIDEVICEID;
  2646.     lpstrDeviceType: PAnsiChar;
  2647.     lpstrElementName: PAnsiChar;
  2648.     lpstrAlias: PAnsiChar;
  2649.     dwStyle: DWORD;
  2650.     hWndParent: HWND;
  2651.   end;
  2652.   TMCI_Anim_Open_ParmsW = record
  2653.     dwCallback: DWORD;
  2654.     wDeviceID: MCIDEVICEID;
  2655.     lpstrDeviceType: PWideChar;
  2656.     lpstrElementName: PWideChar;
  2657.     lpstrAlias: PWideChar;
  2658.     dwStyle: DWORD;
  2659.     hWndParent: HWND;
  2660.   end;
  2661.   TMCI_Anim_Open_Parms = TMCI_Anim_Open_ParmsA;
  2662.  
  2663. { parameter block for MCI_PLAY command message }
  2664. type
  2665.   PMCI_Anim_Play_Parms = ^TMCI_Anim_Play_Parms;
  2666.   TMCI_Anim_Play_Parms = record
  2667.     dwCallback: DWORD;
  2668.     dwFrom: DWORD;
  2669.     dwTo: DWORD;
  2670.     dwSpeed: DWORD;
  2671.   end;
  2672.  
  2673. { parameter block for MCI_STEP command message }
  2674. type
  2675.   PMCI_Anim_Step_Parms = ^TMCI_Anim_Step_Parms;
  2676.   TMCI_Anim_Step_Parms = record
  2677.     dwCallback: DWORD;
  2678.     dwFrames: DWORD;
  2679.   end;
  2680.  
  2681. { parameter block for MCI_WINDOW command message }
  2682. type
  2683.   PMCI_Anim_Window_ParmsA = ^TMCI_Anim_Window_ParmsA;
  2684.   PMCI_Anim_Window_ParmsW = ^TMCI_Anim_Window_ParmsW;
  2685.   PMCI_Anim_Window_Parms = PMCI_Anim_Window_ParmsA;
  2686.   TMCI_Anim_Window_ParmsA = record
  2687.     dwCallback: DWORD;
  2688.     Wnd: HWND;  { formerly "hWnd" }
  2689.     nCmdShow: UINT;
  2690.     lpstrText: PAnsiChar;
  2691.   end;
  2692.   TMCI_Anim_Window_ParmsW = record
  2693.     dwCallback: DWORD;
  2694.     Wnd: HWND;  { formerly "hWnd" }
  2695.     nCmdShow: UINT;
  2696.     lpstrText: PWideChar;
  2697.   end;
  2698.   TMCI_Anim_Window_Parms = TMCI_Anim_Window_ParmsA;
  2699.  
  2700. { parameter block for MCI_PUT, MCI_UPDATE, MCI_WHERE command messages }
  2701. type
  2702.   PMCI_Anim_Rect_Parms = ^ TMCI_Anim_Rect_Parms;
  2703.   TMCI_Anim_Rect_Parms = record
  2704.     dwCallback: DWORD;
  2705.     rc: TRect;
  2706.   end;
  2707.  
  2708. { parameter block for MCI_UPDATE PARMS }
  2709. type
  2710.   PMCI_Anim_Update_Parms = ^TMCI_Anim_Update_Parms;
  2711.   TMCI_Anim_Update_Parms = record
  2712.     dwCallback: DWORD;
  2713.     rc: TRect;
  2714.     hDC: HDC;
  2715.   end;
  2716.  
  2717. { MCI extensions for video overlay devices }
  2718.  
  2719. { flags for dwFlags parameter of MCI_OPEN command message }
  2720. const
  2721.   MCI_OVLY_OPEN_WS                = $00010000;
  2722.   MCI_OVLY_OPEN_PARENT            = $00020000;
  2723.  
  2724. { flags for dwFlags parameter of MCI_STATUS command message }
  2725. const
  2726.   MCI_OVLY_STATUS_HWND            = $00004001;
  2727.   MCI_OVLY_STATUS_STRETCH         = $00004002;
  2728.  
  2729. { flags for dwFlags parameter of MCI_INFO command message }
  2730. const
  2731.   MCI_OVLY_INFO_TEXT              = $00010000;
  2732.  
  2733. { flags for dwItem field of MCI_GETDEVCAPS_PARMS parameter block }
  2734. const
  2735.   MCI_OVLY_GETDEVCAPS_CAN_STRETCH = $00004001;
  2736.   MCI_OVLY_GETDEVCAPS_CAN_FREEZE  = $00004002;
  2737.   MCI_OVLY_GETDEVCAPS_MAX_WINDOWS = $00004003;
  2738.  
  2739. { flags for dwFlags parameter of MCI_WINDOW command message }
  2740. const
  2741.   MCI_OVLY_WINDOW_HWND            = $00010000;
  2742.   MCI_OVLY_WINDOW_STATE           = $00040000;
  2743.   MCI_OVLY_WINDOW_TEXT            = $00080000;
  2744.   MCI_OVLY_WINDOW_ENABLE_STRETCH  = $00100000;
  2745.   MCI_OVLY_WINDOW_DISABLE_STRETCH = $00200000;
  2746.  
  2747. { flags for hWnd parameter of MCI_OVLY_WINDOW_PARMS parameter block }
  2748. const
  2749.   MCI_OVLY_WINDOW_DEFAULT         = $00000000;
  2750.  
  2751. { flags for dwFlags parameter of MCI_PUT command message }
  2752. const
  2753.   MCI_OVLY_RECT                   = $00010000;
  2754.   MCI_OVLY_PUT_SOURCE             = $00020000;
  2755.   MCI_OVLY_PUT_DESTINATION        = $00040000;
  2756.   MCI_OVLY_PUT_FRAME              = $00080000;
  2757.   MCI_OVLY_PUT_VIDEO              = $00100000;
  2758.  
  2759. { flags for dwFlags parameter of MCI_WHERE command message }
  2760. const
  2761.   MCI_OVLY_WHERE_SOURCE           = $00020000;
  2762.   MCI_OVLY_WHERE_DESTINATION      = $00040000;
  2763.   MCI_OVLY_WHERE_FRAME            = $00080000;
  2764.   MCI_OVLY_WHERE_VIDEO            = $00100000;
  2765.  
  2766. { parameter block for MCI_OPEN command message }
  2767. type
  2768.   PMCI_Ovly_Open_ParmsA = ^TMCI_Ovly_Open_ParmsA;
  2769.   PMCI_Ovly_Open_ParmsW = ^TMCI_Ovly_Open_ParmsW;
  2770.   PMCI_Ovly_Open_Parms = PMCI_Ovly_Open_ParmsA;
  2771.   TMCI_Ovly_Open_ParmsA = record
  2772.     dwCallback: DWORD;
  2773.     wDeviceID: MCIDEVICEID;
  2774.     lpstrDeviceType: PAnsiChar;
  2775.     lpstrElementName: PAnsiChar;
  2776.     lpstrAlias: PAnsiChar;
  2777.     dwStyle: DWORD;
  2778.     hWndParent: HWND;
  2779.   end;
  2780.   TMCI_Ovly_Open_ParmsW = record
  2781.     dwCallback: DWORD;
  2782.     wDeviceID: MCIDEVICEID;
  2783.     lpstrDeviceType: PWideChar;
  2784.     lpstrElementName: PWideChar;
  2785.     lpstrAlias: PWideChar;
  2786.     dwStyle: DWORD;
  2787.     hWndParent: HWND;
  2788.   end;
  2789.   TMCI_Ovly_Open_Parms = TMCI_Ovly_Open_ParmsA;
  2790.  
  2791. { parameter block for MCI_WINDOW command message }
  2792. type
  2793.   PMCI_Ovly_Window_ParmsA = ^TMCI_Ovly_Window_ParmsA;
  2794.   PMCI_Ovly_Window_ParmsW = ^TMCI_Ovly_Window_ParmsW;
  2795.   PMCI_Ovly_Window_Parms = PMCI_Ovly_Window_ParmsA;
  2796.   TMCI_Ovly_Window_ParmsA = record
  2797.     dwCallback: DWORD;
  2798.     WHandle: HWND; { formerly "hWnd"}
  2799.     nCmdShow: UINT;
  2800.     lpstrText: PAnsiChar;
  2801.   end;
  2802.   TMCI_Ovly_Window_ParmsW = record
  2803.     dwCallback: DWORD;
  2804.     WHandle: HWND; { formerly "hWnd"}
  2805.     nCmdShow: UINT;
  2806.     lpstrText: PWideChar;
  2807.   end;
  2808.   TMCI_Ovly_Window_Parms = TMCI_Ovly_Window_ParmsA;
  2809.  
  2810. { parameter block for MCI_PUT, MCI_UPDATE, and MCI_WHERE command messages }
  2811. type
  2812.   PMCI_Ovly_Rect_Parms = ^ TMCI_Ovly_Rect_Parms;
  2813.   TMCI_Ovly_Rect_Parms = record
  2814.     dwCallback: DWORD;
  2815.     rc: TRect;
  2816.   end;
  2817.  
  2818. { parameter block for MCI_SAVE command message }
  2819. type
  2820.   PMCI_Ovly_Save_ParmsA = ^TMCI_Ovly_Save_ParmsA;
  2821.   PMCI_Ovly_Save_ParmsW = ^TMCI_Ovly_Save_ParmsW;
  2822.   PMCI_Ovly_Save_Parms = PMCI_Ovly_Save_ParmsA;
  2823.   TMCI_Ovly_Save_ParmsA = record
  2824.     dwCallback: DWORD;
  2825.     lpfilename: PAnsiChar;
  2826.     rc: TRect;
  2827.   end;
  2828.   TMCI_Ovly_Save_ParmsW = record
  2829.     dwCallback: DWORD;
  2830.     lpfilename: PWideChar;
  2831.     rc: TRect;
  2832.   end;
  2833.   TMCI_Ovly_Save_Parms = TMCI_Ovly_Save_ParmsA;
  2834.  
  2835. { parameter block for MCI_LOAD command message }
  2836. type
  2837.   PMCI_Ovly_Load_ParmsA = ^TMCI_Ovly_Load_ParmsA;
  2838.   PMCI_Ovly_Load_ParmsW = ^TMCI_Ovly_Load_ParmsW;
  2839.   PMCI_Ovly_Load_Parms = PMCI_Ovly_Load_ParmsA;
  2840.   TMCI_Ovly_Load_ParmsA = record
  2841.     dwCallback: DWORD;
  2842.     lpfilename: PAnsiChar;
  2843.     rc: TRect;
  2844.   end;
  2845.   TMCI_Ovly_Load_ParmsW = record
  2846.     dwCallback: DWORD;
  2847.     lpfilename: PWideChar;
  2848.     rc: TRect;
  2849.   end;
  2850.   TMCI_Ovly_Load_Parms = TMCI_Ovly_Load_ParmsA;
  2851.  
  2852.  
  2853. {***************************************************************************
  2854.  
  2855.                         DISPLAY Driver extensions
  2856.  
  2857. ***************************************************************************}
  2858.  
  2859. const
  2860.   NEWTRANSPARENT  = 3;           { use with SetBkMode() }
  2861.   QUERYROPSUPPORT = 40;          { use to determine ROP support }
  2862.  
  2863. {***************************************************************************
  2864.  
  2865.                         DIB Driver extensions
  2866.  
  2867. ***************************************************************************}
  2868. const
  2869.   SELECTDIB       = 41;                      { DIB.DRV select dib escape }
  2870.  
  2871. function DIBIndex(N: Integer): Longint;
  2872.  
  2873. {***************************************************************************
  2874.  
  2875.                         ScreenSaver support
  2876.  
  2877.     The current application will receive a syscommand of SC_SCREENSAVE just
  2878.     before the screen saver is invoked.  If the app wishes to prevent a
  2879.     screen save, return a non-zero value, otherwise call DefWindowProc().
  2880.  
  2881. ***************************************************************************}
  2882.  
  2883. const
  2884.   SC_SCREENSAVE   = $F140;
  2885.  
  2886.   mmsyst = 'winmm.dll';
  2887.  
  2888. implementation
  2889.  
  2890. function auxGetDevCapsA; external mmsyst name 'auxGetDevCapsA';
  2891. function auxGetDevCapsW; external mmsyst name 'auxGetDevCapsW';
  2892. function auxGetDevCaps; external mmsyst name 'auxGetDevCapsA';
  2893. function auxGetNumDevs; external mmsyst name 'auxGetNumDevs';
  2894. function auxGetVolume; external mmsyst name 'auxGetVolume';
  2895. function auxOutMessage; external mmsyst name 'auxOutMessage';
  2896. function auxSetVolume; external mmsyst name 'auxSetVolume';
  2897. function CloseDriver; external mmsyst name 'CloseDriver';
  2898. function DefDriverProc; external mmsyst name 'DefDriverProc';
  2899. function DrvGetModuleHandle; external mmsyst name 'DrvGetModuleHandle';
  2900. function GetDriverModuleHandle; external mmsyst name 'GetDriverModuleHandle';
  2901. function joyGetDevCapsA; external mmsyst name 'joyGetDevCapsA';
  2902. function joyGetDevCapsW; external mmsyst name 'joyGetDevCapsW';
  2903. function joyGetDevCaps; external mmsyst name 'joyGetDevCapsA';
  2904. function joyGetNumDevs; external mmsyst name 'joyGetNumDevs';
  2905. function joyGetPos; external mmsyst name 'joyGetPos';
  2906. function joyGetPosEx; external mmsyst name 'joyGetPosEx';
  2907. function joyGetThreshold; external mmsyst name 'joyGetThreshold';
  2908. function joyReleaseCapture; external mmsyst name 'joyReleaseCapture';
  2909. function joySetCapture; external mmsyst name 'joySetCapture';
  2910. function joySetThreshold; external mmsyst name 'joySetThreshold';
  2911. function mciExecute; external mmsyst name 'mciExecute';
  2912. function mciGetCreatorTask; external mmsyst name 'mciGetCreatorTask';
  2913. function mciGetDeviceIDA; external mmsyst name 'mciGetDeviceIDA';
  2914. function mciGetDeviceIDW; external mmsyst name 'mciGetDeviceIDW';
  2915. function mciGetDeviceID; external mmsyst name 'mciGetDeviceIDA';
  2916. function mciGetDeviceIDFromElementIDA; external mmsyst name 'mciGetDeviceIDFromElementIDA';
  2917. function mciGetDeviceIDFromElementIDW; external mmsyst name 'mciGetDeviceIDFromElementIDW';
  2918. function mciGetDeviceIDFromElementID; external mmsyst name 'mciGetDeviceIDFromElementIDA';
  2919. function mciGetErrorStringA; external mmsyst name 'mciGetErrorStringA';
  2920. function mciGetErrorStringW; external mmsyst name 'mciGetErrorStringW';
  2921. function mciGetErrorString; external mmsyst name 'mciGetErrorStringA';
  2922. function mciGetYieldProc; external mmsyst name 'mciGetYieldProc';
  2923. function mciSendCommandA; external mmsyst name 'mciSendCommandA';
  2924. function mciSendCommandW; external mmsyst name 'mciSendCommandW';
  2925. function mciSendCommand; external mmsyst name 'mciSendCommandA';
  2926. function mciSendStringA; external mmsyst name 'mciSendStringA';
  2927. function mciSendStringW; external mmsyst name 'mciSendStringW';
  2928. function mciSendString; external mmsyst name 'mciSendStringA';
  2929. function mciSetYieldProc; external mmsyst name 'mciSetYieldProc';
  2930. function midiConnect; external mmsyst name 'midiConnect';
  2931. function midiDisconnect; external mmsyst name 'midiDisconnect';
  2932. function midiInAddBuffer; external mmsyst name 'midiInAddBuffer';
  2933. function midiInClose; external mmsyst name 'midiInClose';
  2934. function midiInGetDevCapsA; external mmsyst name 'midiInGetDevCapsA';
  2935. function midiInGetDevCapsW; external mmsyst name 'midiInGetDevCapsW';
  2936. function midiInGetDevCaps; external mmsyst name 'midiInGetDevCapsA';
  2937. function midiInGetErrorTextA; external mmsyst name 'midiInGetErrorTextA';
  2938. function midiInGetErrorTextW; external mmsyst name 'midiInGetErrorTextW';
  2939. function midiInGetErrorText; external mmsyst name 'midiInGetErrorTextA';
  2940. function midiInGetID; external mmsyst name 'midiInGetID';
  2941. function midiInGetNumDevs; external mmsyst name 'midiInGetNumDevs';
  2942. function midiInMessage; external mmsyst name 'midiInMessage';
  2943. function midiInOpen; external mmsyst name 'midiInOpen';
  2944. function midiInPrepareHeader; external mmsyst name 'midiInPrepareHeader';
  2945. function midiInReset; external mmsyst name 'midiInReset';
  2946. function midiInStart; external mmsyst name 'midiInStart';
  2947. function midiInStop; external mmsyst name 'midiInStop';
  2948. function midiInUnprepareHeader; external mmsyst name 'midiInUnprepareHeader';
  2949. function midiOutCacheDrumPatches; external mmsyst name 'midiOutCacheDrumPatches';
  2950. function midiOutCachePatches; external mmsyst name 'midiOutCachePatches';
  2951. function midiOutClose; external mmsyst name 'midiOutClose';
  2952. function midiOutGetDevCapsA; external mmsyst name 'midiOutGetDevCapsA';
  2953. function midiOutGetDevCapsW; external mmsyst name 'midiOutGetDevCapsW';
  2954. function midiOutGetDevCaps; external mmsyst name 'midiOutGetDevCapsA';
  2955. function midiOutGetErrorTextA; external mmsyst name 'midiOutGetErrorTextA';
  2956. function midiOutGetErrorTextW; external mmsyst name 'midiOutGetErrorTextW';
  2957. function midiOutGetErrorText; external mmsyst name 'midiOutGetErrorTextA';
  2958. function midiOutGetID; external mmsyst name 'midiOutGetID';
  2959. function midiOutGetNumDevs; external mmsyst name 'midiOutGetNumDevs';
  2960. function midiOutGetVolume; external mmsyst name 'midiOutGetVolume';
  2961. function midiOutLongMsg; external mmsyst name 'midiOutLongMsg';
  2962. function midiOutMessage; external mmsyst name 'midiOutMessage';
  2963. function midiOutOpen; external mmsyst name 'midiOutOpen';
  2964. function midiOutPrepareHeader; external mmsyst name 'midiOutPrepareHeader';
  2965. function midiOutReset; external mmsyst name 'midiOutReset';
  2966. function midiOutSetVolume; external mmsyst name 'midiOutSetVolume';
  2967. function midiOutShortMsg; external mmsyst name 'midiOutShortMsg';
  2968. function midiOutUnprepareHeader; external mmsyst name 'midiOutUnprepareHeader';
  2969. function midiStreamClose; external mmsyst name 'midiStreamClose';
  2970. function midiStreamOpen; external mmsyst name 'midiStreamOpen';
  2971. function midiStreamOut; external mmsyst name 'midiStreamOut';
  2972. function midiStreamPause; external mmsyst name 'midiStreamPause';
  2973. function midiStreamPosition; external mmsyst name 'midiStreamPosition';
  2974. function midiStreamProperty; external mmsyst name 'midiStreamProperty';
  2975. function midiStreamRestart; external mmsyst name 'midiStreamRestart';
  2976. function midiStreamStop; external mmsyst name 'midiStreamStop';
  2977. function mixerClose; external mmsyst name 'mixerClose';
  2978. function mixerGetControlDetailsA; external mmsyst name 'mixerGetControlDetailsA';
  2979. function mixerGetControlDetailsW; external mmsyst name 'mixerGetControlDetailsW';
  2980. function mixerGetControlDetails; external mmsyst name 'mixerGetControlDetailsA';
  2981. function mixerGetDevCapsA; external mmsyst name 'mixerGetDevCapsA';
  2982. function mixerGetDevCapsW; external mmsyst name 'mixerGetDevCapsW';
  2983. function mixerGetDevCaps; external mmsyst name 'mixerGetDevCapsA';
  2984. function mixerGetID; external mmsyst name 'mixerGetID';
  2985. function mixerGetLineControlsA; external mmsyst name 'mixerGetLineControlsA';
  2986. function mixerGetLineControlsW; external mmsyst name 'mixerGetLineControlsW';
  2987. function mixerGetLineControls; external mmsyst name 'mixerGetLineControlsA';
  2988. function mixerGetLineInfoA; external mmsyst name 'mixerGetLineInfoA';
  2989. function mixerGetLineInfoW; external mmsyst name 'mixerGetLineInfoW';
  2990. function mixerGetLineInfo; external mmsyst name 'mixerGetLineInfoA';
  2991. function mixerGetNumDevs; external mmsyst name 'mixerGetNumDevs';
  2992. function mixerMessage; external mmsyst name 'mixerMessage';
  2993. function mixerOpen; external mmsyst name 'mixerOpen';
  2994. function mixerSetControlDetails; external mmsyst name 'mixerSetControlDetails';
  2995. function mmioAdvance; external mmsyst name 'mmioAdvance';
  2996. function mmioAscend; external mmsyst name 'mmioAscend';
  2997. function mmioClose; external mmsyst name 'mmioClose';
  2998. function mmioCreateChunk; external mmsyst name 'mmioCreateChunk';
  2999. function mmioDescend; external mmsyst name 'mmioDescend';
  3000. function mmioFlush; external mmsyst name 'mmioFlush';
  3001. function mmioGetInfo; external mmsyst name 'mmioGetInfo';
  3002. function mmioInstallIOProcA; external mmsyst name 'mmioInstallIOProcA';
  3003. function mmioInstallIOProcW; external mmsyst name 'mmioInstallIOProcW';
  3004. function mmioInstallIOProc; external mmsyst name 'mmioInstallIOProcA';
  3005. function mmioOpenA; external mmsyst name 'mmioOpenA';
  3006. function mmioOpenW; external mmsyst name 'mmioOpenW';
  3007. function mmioOpen; external mmsyst name 'mmioOpenA';
  3008. function mmioRead; external mmsyst name 'mmioRead';
  3009. function mmioRenameA; external mmsyst name 'mmioRenameA';
  3010. function mmioRenameW; external mmsyst name 'mmioRenameW';
  3011. function mmioRename; external mmsyst name 'mmioRenameA';
  3012. function mmioSeek; external mmsyst name 'mmioSeek';
  3013. function mmioSendMessage; external mmsyst name 'mmioSendMessage';
  3014. function mmioSetBuffer; external mmsyst name 'mmioSetBuffer';
  3015. function mmioSetInfo; external mmsyst name 'mmioSetInfo';
  3016. function mmioStringToFOURCCA; external mmsyst name 'mmioStringToFOURCCA';
  3017. function mmioStringToFOURCCW; external mmsyst name 'mmioStringToFOURCCW';
  3018. function mmioStringToFOURCC; external mmsyst name 'mmioStringToFOURCCA';
  3019. function mmioWrite; external mmsyst name 'mmioWrite';
  3020. function mmsystemGetVersion; external mmsyst name 'mmsystemGetVersion';
  3021. function OpenDriver; external mmsyst name 'OpenDriver';
  3022. function PlaySoundA; external mmsyst name 'PlaySoundA';
  3023. function PlaySoundW; external mmsyst name 'PlaySoundW';
  3024. function PlaySound; external mmsyst name 'PlaySoundA';
  3025. function SendDriverMessage; external mmsyst name 'SendDriverMessage';
  3026. function sndPlaySoundA; external mmsyst name 'sndPlaySoundA';
  3027. function sndPlaySoundW; external mmsyst name 'sndPlaySoundW';
  3028. function sndPlaySound; external mmsyst name 'sndPlaySoundA';
  3029. function timeBeginPeriod; external mmsyst name 'timeBeginPeriod';
  3030. function timeEndPeriod; external mmsyst name 'timeEndPeriod';
  3031. function timeGetDevCaps; external mmsyst name 'timeGetDevCaps';
  3032. function timeGetSystemTime; external mmsyst name 'timeGetSystemTime';
  3033. function timeGetTime; external mmsyst name 'timeGetTime';
  3034. function timeKillEvent; external mmsyst name 'timeKillEvent';
  3035. function timeSetEvent; external mmsyst name 'timeSetEvent';
  3036. function waveInAddBuffer; external mmsyst name 'waveInAddBuffer';
  3037. function waveInClose; external mmsyst name 'waveInClose';
  3038. function waveInGetDevCapsA; external mmsyst name 'waveInGetDevCapsA';
  3039. function waveInGetDevCapsW; external mmsyst name 'waveInGetDevCapsW';
  3040. function waveInGetDevCaps; external mmsyst name 'waveInGetDevCapsA';
  3041. function waveInGetErrorTextA; external mmsyst name 'waveInGetErrorTextA';
  3042. function waveInGetErrorTextW; external mmsyst name 'waveInGetErrorTextW';
  3043. function waveInGetErrorText; external mmsyst name 'waveInGetErrorTextA';
  3044. function waveInGetID; external mmsyst name 'waveInGetID';
  3045. function waveInGetNumDevs; external mmsyst name 'waveInGetNumDevs';
  3046. function waveInGetPosition; external mmsyst name 'waveInGetPosition';
  3047. function waveInMessage; external mmsyst name 'waveInMessage';
  3048. function waveInOpen; external mmsyst name 'waveInOpen';
  3049. function waveInPrepareHeader; external mmsyst name 'waveInPrepareHeader';
  3050. function waveInReset; external mmsyst name 'waveInReset';
  3051. function waveInStart; external mmsyst name 'waveInStart';
  3052. function waveInStop; external mmsyst name 'waveInStop';
  3053. function waveInUnprepareHeader; external mmsyst name 'waveInUnprepareHeader';
  3054. function waveOutBreakLoop; external mmsyst name 'waveOutBreakLoop';
  3055. function waveOutClose; external mmsyst name 'waveOutClose';
  3056. function waveOutGetDevCapsA; external mmsyst name 'waveOutGetDevCapsA';
  3057. function waveOutGetDevCapsW; external mmsyst name 'waveOutGetDevCapsW';
  3058. function waveOutGetDevCaps; external mmsyst name 'waveOutGetDevCapsA';
  3059. function waveOutGetErrorTextA; external mmsyst name 'waveOutGetErrorTextA';
  3060. function waveOutGetErrorTextW; external mmsyst name 'waveOutGetErrorTextW';
  3061. function waveOutGetErrorText; external mmsyst name 'waveOutGetErrorTextA';
  3062. function waveOutGetID; external mmsyst name 'waveOutGetID';
  3063. function waveOutGetNumDevs; external mmsyst name 'waveOutGetNumDevs';
  3064. function waveOutGetPitch; external mmsyst name 'waveOutGetPitch';
  3065. function waveOutGetPlaybackRate; external mmsyst name 'waveOutGetPlaybackRate';
  3066. function waveOutGetPosition; external mmsyst name 'waveOutGetPosition';
  3067. function waveOutGetVolume; external mmsyst name 'waveOutGetVolume';
  3068. function waveOutMessage; external mmsyst name 'waveOutMessage';
  3069. function waveOutOpen; external mmsyst name 'waveOutOpen';
  3070. function waveOutPause; external mmsyst name 'waveOutPause';
  3071. function waveOutPrepareHeader; external mmsyst name 'waveOutPrepareHeader';
  3072. function waveOutReset; external mmsyst name 'waveOutReset';
  3073. function waveOutRestart; external mmsyst name 'waveOutRestart';
  3074. function waveOutSetPitch; external mmsyst name 'waveOutSetPitch';
  3075. function waveOutSetPlaybackRate; external mmsyst name 'waveOutSetPlaybackRate';
  3076. function waveOutSetVolume; external mmsyst name 'waveOutSetVolume';
  3077. function waveOutUnprepareHeader; external mmsyst name 'waveOutUnprepareHeader';
  3078. function waveOutWrite; external mmsyst name 'waveOutWrite';
  3079.  
  3080. function mci_MSF_Minute(msf: Longint): Byte;
  3081. begin
  3082.   Result := LoByte(LoWord(msf));
  3083. end;
  3084.  
  3085. function mci_MSF_Second(msf: Longint): Byte;
  3086. begin
  3087.   Result := HiByte(LoWord(msf));
  3088. end;
  3089.  
  3090. function mci_MSF_Frame(msf: Longint): Byte;
  3091. begin
  3092.   Result := LoByte(HiWord(msf));
  3093. end;
  3094.  
  3095. function mci_Make_MSF(m, s, f: Byte): Longint;
  3096. begin
  3097.   Result := Longint(m or (s shl 8) or (f shl 16));
  3098. end;
  3099.  
  3100. function mci_TMSF_Track(tmsf: Longint): Byte;
  3101. begin
  3102.   Result := LoByte(LoWord(tmsf));
  3103. end;
  3104.  
  3105. function mci_TMSF_Minute(tmsf: Longint): Byte;
  3106. begin
  3107.   Result := HiByte(LoWord(tmsf));
  3108. end;
  3109.  
  3110. function mci_TMSF_Second(tmsf: Longint): Byte;
  3111. begin
  3112.   Result := LoByte(HiWord(tmsf));
  3113. end;
  3114.  
  3115. function mci_TMSF_Frame(tmsf: Longint): Byte;
  3116. begin
  3117.   Result := HiByte(HiWord(tmsf));
  3118. end;
  3119.  
  3120. function mci_Make_TMSF(t, m, s, f: Byte): Longint;
  3121. begin
  3122.   Result := Longint(t or (m shl 8) or (s shl 16) or (f shl 24));
  3123. end;
  3124.  
  3125. function mci_HMS_Hour(hms: Longint): Byte;
  3126. begin
  3127.   Result := LoByte(LoWord(hms));
  3128. end;
  3129.  
  3130. function mci_HMS_Minute(hms: Longint): Byte;
  3131. begin
  3132.   Result := HiByte(LoWord(hms));
  3133. end;
  3134.  
  3135. function mci_HMS_Second(hms: Longint): Byte;
  3136. begin
  3137.   Result := LoByte(HiWord(hms));
  3138. end;
  3139.  
  3140. function mci_Make_HMS(h, m, s: Byte): Longint;
  3141. begin
  3142.   Result := Longint(h or (m shl 8) or (s shl 16));
  3143. end;
  3144.  
  3145. function DIBIndex(N: Integer): Longint;
  3146. begin
  3147.   Result := MakeLong(N, $10FF);
  3148. end;
  3149.  
  3150. end.
  3151.