home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / TURBO_P / TPW_MMEX.ZIP / MMSYSTEM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-12-18  |  17.1 KB  |  313 lines
  1. {***********************************************************************}
  2. {                                                                       }
  3. {  Microsoft Multimedia System Function Prototypes                      }
  4. {  Links to the mmsystem.dll in the Microsoft Multimedia Extensions     }
  5. {  Converted by Steve Milton @ ISOMEDIA, Inc. for use with              }
  6. {  Borland's Turbo Pascal for Windows                                   }
  7. {                                                                       }
  8. {  These units are provided as-is with no warranty.  Any damages to     }
  9. {  equipment, peripherals, software, or anything else is solely the     }
  10. {  responsibility of the user.                                          }
  11. {                                                                       }
  12. {  Microsoft Multimedia Extensions is a trademark of Microsoft, Corp.   }
  13. {  Turbo Pascal for Windows is a trademakr of Borland International     }
  14. {                                                                       }
  15. {***********************************************************************}
  16.  
  17. UNIT MMSYSTEM;
  18.  
  19. INTERFACE
  20.  
  21. USES WinTypes, MMTypes;
  22.  
  23. { installable driver function prototypes}
  24. FUNCTION DrvClose(hDriver : THandle; lParam1: LONGINT; lParam2: LONGINT) : LONGINT;
  25. FUNCTION DrvOpen(szDriverName: PChar; szSectionName: PChar;
  26.     lParam2: LONGINT) : THandle;
  27. FUNCTION DrvSendMessage(hDriver: THandle; message: WORD; lParam1: LONGINT;
  28.     lParam2: LONGINT) : LONGINT;
  29. FUNCTION DrvGetModuleHandle(hDriver: THandle) : THandle;
  30. FUNCTION DefDriverProc(dwDriverIdentifier: LONGINT; driverID: THandle;
  31.     message: WORD; lParam1: LONGINT; lParam2: LONGINT) : LONGINT;
  32.  
  33. {***************************************************************************
  34.  
  35.                     General MMSYSTEM support
  36.  
  37. ***************************************************************************}
  38.  
  39. FUNCTION mmsystemGetVersion : WORD;
  40. {PROCEDURE OutputDebugStr(OutStr : PChar);}
  41.  
  42. {***************************************************************************
  43.  
  44.                             Sound support
  45.  
  46. ***************************************************************************}
  47.  
  48. FUNCTION sndPlaySound(lpszSoundName: PChar; wFlags: WORD) : BOOLEAN;
  49.  
  50. { waveform audio functiron prototypes      }
  51. FUNCTION waveOutGetNumDevs : WORD;
  52. FUNCTION waveOutGetDevCaps(wDeviceID: WORD; lpCaps: LP_WAVEOUTCAPS;
  53.     wSize: WORD) : WORD;
  54. FUNCTION waveOutGetVolume(wDeviceID: WORD; lpdwVolume: LP_Longint) : WORD;
  55. FUNCTION waveOutSetVolume(wDeviceID: WORD; dwVolume: LONGINT) : WORD;
  56. FUNCTION waveOutGetErrorText(wError: WORD; lpText: PChar; wSize: WORD) : WORD;
  57. FUNCTION waveOutOpen(lphWaveOut: LPH_WAVEOUT; wDeviceID: WORD;
  58.     lpFormat: LP_WAVEFORMAT; dwCallback: LONGINT; dwInstance: LONGINT; dwFlags: LONGINT) : WORD;
  59. FUNCTION waveOutClose(hWaveOut: H_WAVEOUT) : WORD;
  60. FUNCTION waveOutPrepareHeader(hWaveOut: H_WAVEOUT;
  61.      lpWaveOutHdr: LP_WAVEHDR; wSize: WORD) : WORD;
  62. FUNCTION waveOutUnprepareHeader(hWaveOut: H_WAVEOUT;
  63.     lpWaveOutHdr: LP_WAVEHDR ; wSize: WORD) : WORD;
  64. FUNCTION waveOutWrite(hWaveOut: H_WAVEOUT; lpWaveOutHdr: LP_WAVEHDR;
  65.     wSize: WORD) : WORD;
  66. FUNCTION waveOutPause(hWaveOut: H_WAVEOUT) : WORD;
  67. FUNCTION waveOutRestart(hWaveOut: H_WAVEOUT) : WORD;
  68. FUNCTION waveOutReset(hWaveOut: H_WAVEOUT) : WORD;
  69. FUNCTION waveOutBreakLoop(hWaveOut: H_WAVEOUT) : WORD;
  70. FUNCTION waveOutGetPosition(hWaveOut: H_WAVEOUT; lpInfo: LP_MMTIME;
  71.     wSize: WORD) : WORD;
  72. FUNCTION waveOutGetPitch(hWaveOut: H_WAVEOUT; lpdwPitch: LP_Longint) : WORD;
  73. FUNCTION waveOutSetPitch(hWaveOut: H_WAVEOUT; dwPitch: LONGINT) : WORD;
  74. FUNCTION waveOutGetPlaybackRate(hWaveOut: H_WAVEOUT; lpdwRate: LP_Longint) : WORD;
  75. FUNCTION waveOutSetPlaybackRate(hWaveOut: H_WAVEOUT; dwRate: LONGINT) : WORD;
  76. FUNCTION waveOutGetID(hWaveOut: H_WAVEOUT; lpwDeviceID: LP_WORD) : WORD;
  77.  
  78. FUNCTION waveInGetNumDevs : WORD;
  79. FUNCTION waveInGetDevCaps(wDeviceID: WORD; lpCaps: LP_WAVEINCAPS;
  80.     wSize: WORD) : WORD;
  81. FUNCTION waveInGetErrorText(wError: WORD; lpText: PChar; wSize: WORD) : WORD;
  82. FUNCTION waveInOpen(lphWaveIn: LPH_WAVEIN; wDeviceID: WORD;
  83.     lpFormat: LP_WAVEFORMAT; dwCallback: LONGINT; dwInstance: LONGINT; dwFlags: LONGINT) : WORD;
  84. FUNCTION waveInClose(hWaveIn: H_WAVEIN) : WORD;
  85. FUNCTION waveInPrepareHeader(hWaveIn: H_WAVEIN;
  86.     lpWaveInHdr: LP_WAVEHDR; wSize: WORD) : WORD;
  87. FUNCTION waveInUnprepareHeader(hWaveIn: H_WAVEIN;
  88.     lpWaveInHdr: LP_WAVEHDR; wSize: WORD)  : WORD;
  89. FUNCTION waveInAddBuffer(hWaveIn: H_WAVEIN;
  90.     lpWaveInHdr: LP_WAVEHDR; wSize: WORD) : WORD;
  91. FUNCTION waveInStart(hWaveIn: H_WAVEIN) : WORD;
  92. FUNCTION waveInStop(hWaveIn: H_WAVEIN) : WORD;
  93. FUNCTION waveInReset(hWaveIn: H_WAVEIN) : WORD;
  94. FUNCTION waveInGetPosition(hWaveIn: H_WAVEIN; lpInfo: LP_MMTIME;
  95.     wSize: WORD) : WORD;
  96. FUNCTION waveInGetID(hWaveIn: H_WAVEIN; lpwDeviceID: LP_WORD) : WORD;
  97.  
  98. { MIDI function prototypes                        }
  99. FUNCTION midiOutGetNumDevs : WORD;
  100. FUNCTION midiOutGetDevCaps(wDeviceID: WORD;
  101.     lpCaps: LP_MIDIOUTCAPS; wSize: WORD) : WORD;
  102. FUNCTION midiOutGetVolume(wDeviceID: WORD; lpdwVolume: LP_Longint) : WORD;
  103. FUNCTION midiOutSetVolume(wDeviceID: WORD; dwVolume: LONGINT) : WORD;
  104. FUNCTION midiOutGetErrorText(wError: WORD; lpText: PChar; wSize : WORD) : WORD;
  105. FUNCTION midiOutOpen(lphMidiOut: LP_HMIDIOUT; wDeviceID: WORD;
  106.     dwCallback: LONGINT; dwInstance: LONGINT; dwFlags: LONGINT) : WORD;
  107. FUNCTION midiOutClose(hMidiOut: H_MIDIOUT) : WORD;
  108. FUNCTION midiOutPrepareHeader(hMidiOut: H_MIDIOUT;
  109.     lpMidiOutHdr: LP_MIDIHDR; wSize: WORD) : WORD;
  110. FUNCTION midiOutUnprepareHeader(hMidiOut: H_MIDIOUT;
  111.     lpMidiOutHdr: LP_MIDIHDR; wSize: WORD) : WORD;
  112. FUNCTION midiOutShortMsg(hMidiOut: H_MIDIOUT; dwMsg: LONGINT) : WORD;
  113. FUNCTION midiOutLongMsg(hMidiOut: H_MIDIOUT;
  114.     lpMidiOutHdr: LP_MIDIHDR; wSize: WORD) : WORD;
  115. FUNCTION midiOutReset(hMidiOut: H_MIDIOUT) : WORD;
  116. FUNCTION midiOutGetID(hMidiOut: H_MIDIOUT; lpwDeviceID: LP_WORD) : WORD;
  117.  
  118. FUNCTION midiInGetNumDevs : WORD;
  119. FUNCTION midiInGetDevCaps(wDeviceID: WORD;
  120.     lpCaps: LP_MIDIINCAPS; wSize: WORD) : WORD;
  121. FUNCTION midiInGetErrorText(wError: WORD; lpText: PChar; wSize: WORD) : WORD;
  122. FUNCTION midiInOpen(lphMidiIn: LPH_MIDIIN; wDeviceID: WORD;
  123.     dwCallback: LONGINT; dwInstance: LONGINT; dwFlags: LONGINT) : WORD;
  124. FUNCTION midiInClose(hMidiIn: H_MIDIIN) : WORD;
  125. FUNCTION midiInPrepareHeader(hMidiIn: H_MIDIIN;
  126.     lpMidiInHdr: LP_MIDIHDR; wSize: WORD) : WORD;
  127. FUNCTION midiInUnprepareHeader(hMidiIn: H_MIDIIN;
  128.     lpMidiInHdr: LP_MIDIHDR; wSize: WORD) : WORD;
  129. FUNCTION midiInAddBuffer(hMidiIn: H_MIDIIN;
  130.     lpMidiInHdr: LP_MIDIHDR; wSize: WORD) : WORD;
  131. FUNCTION midiInStart(hMidiIn: H_MIDIIN) : WORD;
  132. FUNCTION midiInStop(hMidiIn: H_MIDIIN) : WORD;
  133. FUNCTION midiInReset(hMidiIn: H_MIDIIN) : WORD;
  134. FUNCTION midiInGetID(hMidiIn: H_MIDIIN; lpwDeviceID: LP_WORD) : WORD;
  135.  
  136. { auxiliary audio function prototypes         }
  137. FUNCTION auxGetNumDevs : WORD;
  138. FUNCTION auxGetDevCaps(wDeviceID: WORD; lpCaps: LP_AUXCAPS; wSize: WORD) : WORD;
  139. FUNCTION auxSetVolume(wDeviceID: WORD; dwVolume: LONGINT) : WORD;
  140. FUNCTION auxGetVolume(wDeviceID: WORD; lpdwVolume: LP_Longint) : WORD;
  141.  
  142. { timer function prototypes                      }
  143. FUNCTION timeGetSystemTime(lpTime: LP_MMTIME; wSize: WORD) : WORD;
  144. FUNCTION timeGetTime : LONGINT;
  145. FUNCTION timeSetEvent(wDelay: WORD; wResolution: WORD;
  146.     lpFunction: LP_TIMECALLBACK; dwUser: LONGINT; wFlags: WORD) : WORD;
  147. FUNCTION timeKillEvent(wId: WORD) : WORD;
  148. FUNCTION timeGetDevCaps(lpTimeCaps: LP_TIMECAPS; wSize: WORD) : WORD;
  149. PROCEDURE timeBeginPeriod(wPeriod: WORD);
  150. PROCEDURE timeEndPeriod(wPeriod: WORD);
  151.  
  152. { joystick function prototypes                    }
  153. FUNCTION joyGetDevCaps(id: WORD; lpCaps: LP_JOYCAPS; wSize: WORD) : WORD;
  154. FUNCTION joyGetNumDevs : WORD;
  155. FUNCTION joyGetPos(id: WORD; lpInfo: LP_JOYINFO) : WORD;
  156. FUNCTION joyGetThreshold(id: WORD;lpwThreshold: LP_WORD) : WORD;
  157. FUNCTION joyReleaseCapture(id: WORD) : WORD;
  158. FUNCTION joySetCapture(hwnd: HWND; wId: WORD; wPeriod: WORD;
  159.     bChanged: BOOL) : WORD;
  160. FUNCTION joySetThreshold(id: WORD; wThreshold: WORD) : WORD;
  161.  
  162. { MMIO function prototypes                             }
  163. FUNCTION mmioStringToFOURCC(sz: PChar; wFlags: WORD) : FOURCC;
  164. FUNCTION mmioInstallIOProc(fccIOProc: FOURCC; pIOProc: LP_MMIOPROC;
  165.     dwFlags: LONGINT) : LP_MMIOPROC;
  166. FUNCTION mmioOpen(szFileName: PChar; lpmmioinfo: LP_MMIOINFO;
  167.     dwOpenFlags: LONGINT) : H_MMIO;
  168. FUNCTION mmioClose(hmmio: H_MMIO; wFlags: WORD) : WORD;
  169. FUNCTION mmioRead(hmmio: H_MMIO; pch: H_PSTR; cch: LONGINT) : LONGINT;
  170. FUNCTION mmioWrite(hmmio: H_MMIO; pch: H_PSTR; cch: LONGINT) : LONGINT;
  171. FUNCTION mmioSeek(hmmio: H_MMIO; lOffset: LONGINT; iOrigin: INTEGER) : LONGINT;
  172. FUNCTION mmioGetInfo(hmmio: H_MMIO; lpmmioinfo: LP_MMIOINFO; wFlags: WORD) : WORD;
  173. FUNCTION mmioSetInfo(hmmio: H_MMIO; lpmmioinfo: LP_MMIOINFO; wFlags: WORD) : WORD;
  174. FUNCTION mmioSetBuffer(hmmio: H_MMIO; pchBuffer: PChar; cchBuffer: LONGINT;
  175.     wFlags: WORD) : WORD;
  176. FUNCTION mmioFlush(hmmio: H_MMIO; wFlags: WORD) : WORD;
  177. FUNCTION mmioAdvance(hmmio: H_MMIO; lpmmioinfo: LP_MMIOINFO; wFlags: WORD) : WORD;
  178. FUNCTION mmioSendMessage(hmmio: THandle; wMsg: WORD;
  179.     lParam1: LONGINT; lParam2: LONGINT) : LONGINT;
  180. FUNCTION mmioDescend(hmmio: THandle; lpck: LP_MMCKINFO;
  181.     lpckParent: LP_MMCKINFO; wFlags: WORD) : WORD;
  182. FUNCTION mmioAscend(hmmio: THandle; lpck: LP_MMCKINFO; wFlags: WORD) : WORD;
  183. FUNCTION mmioCreateChunk(hmmio: THandle; lpck: LP_MMCKINFO; wFlags: WORD) : WORD;
  184.  
  185. { MCI function prototypes                              }
  186. FUNCTION mciSendCommand (wDeviceID: WORD; wMessage: WORD;
  187.     dwParam1: LONGINT; dwParam2: LONGINT) : LONGINT;
  188. FUNCTION mciSendString (lpstrCommand: Pointer;
  189.     lpstrReturnString: Pointer; wReturnLength: WORD; hCallback: THandle) : LONGINT;
  190. FUNCTION mciGetDeviceID (lpstrName: pointer) : WORD;
  191. FUNCTION mciGetDeviceIDFromElementID (dwElementID: LONGINT;
  192.     lpstrType: pointer) : WORD;
  193. FUNCTION mciGetErrorString (wError: LONGINT; lpstrBuffer: pointer;
  194.     wLength: WORD) : WORD;
  195. FUNCTION mciExecute (lpstrCommand: Pointer) : BOOLEAN;
  196. FUNCTION mciSetYieldProc (wDeviceID: WORD; fpYieldProc: YIELDPROC;
  197.     dwYieldData: LONGINT) : WORD;
  198.  
  199.  
  200. IMPLEMENTATION
  201.  
  202. FUNCTION AUXGETDEVCAPS          ; EXTERNAL 'MMSYSTEM' INDEX   351;
  203. FUNCTION AUXGETNUMDEVS          ; EXTERNAL 'MMSYSTEM' INDEX   350;
  204. FUNCTION AUXGETVOLUME           ; EXTERNAL 'MMSYSTEM' INDEX   352;
  205. FUNCTION AUXSETVOLUME           ; EXTERNAL 'MMSYSTEM' INDEX   353;
  206. FUNCTION DEFDRIVERPROC          ; EXTERNAL 'MMSYSTEM' INDEX  1104;
  207. FUNCTION DRVCLOSE               ; EXTERNAL 'MMSYSTEM' INDEX  1101;
  208. FUNCTION DRVGETMODULEHANDLE     ; EXTERNAL 'MMSYSTEM' INDEX  1103;
  209. FUNCTION DRVOPEN                ; EXTERNAL 'MMSYSTEM' INDEX  1100;
  210. FUNCTION DRVSENDMESSAGE         ; EXTERNAL 'MMSYSTEM' INDEX  1102;
  211. FUNCTION JOYGETDEVCAPS          ; EXTERNAL 'MMSYSTEM' INDEX   102;
  212. FUNCTION JOYGETNUMDEVS          ; EXTERNAL 'MMSYSTEM' INDEX   101;
  213. FUNCTION JOYGETPOS              ; EXTERNAL 'MMSYSTEM' INDEX   103;
  214. FUNCTION JOYGETTHRESHOLD        ; EXTERNAL 'MMSYSTEM' INDEX   104;
  215. FUNCTION JOYRELEASECAPTURE      ; EXTERNAL 'MMSYSTEM' INDEX   105;
  216. FUNCTION JOYSETCAPTURE          ; EXTERNAL 'MMSYSTEM' INDEX   106;
  217. FUNCTION JOYSETTHRESHOLD        ; EXTERNAL 'MMSYSTEM' INDEX   107;
  218. FUNCTION MCIEXECUTE             ; EXTERNAL 'MMSYSTEM' INDEX   712;
  219. FUNCTION MCIGETDEVICEID         ; EXTERNAL 'MMSYSTEM' INDEX   703;
  220. FUNCTION MCIGETDEVICEIDFROMELEMENTID   ; EXTERNAL 'MMSYSTEM' INDEX   715;
  221. FUNCTION MCIGETERRORSTRING      ; EXTERNAL 'MMSYSTEM' INDEX   706;
  222. FUNCTION MCISENDCOMMAND         ; EXTERNAL 'MMSYSTEM' INDEX   701;
  223. FUNCTION MCISENDSTRING          ; EXTERNAL 'MMSYSTEM' INDEX   702;
  224. FUNCTION MCISETYIELDPROC        ; EXTERNAL 'MMSYSTEM' INDEX   714;
  225. FUNCTION MIDIINADDBUFFER        ; EXTERNAL 'MMSYSTEM' INDEX   308;
  226. FUNCTION MIDIINCLOSE            ; EXTERNAL 'MMSYSTEM' INDEX   305;
  227. FUNCTION MIDIINGETDEVCAPS       ; EXTERNAL 'MMSYSTEM' INDEX   302;
  228. FUNCTION MIDIINGETERRORTEXT     ; EXTERNAL 'MMSYSTEM' INDEX   303;
  229. FUNCTION MIDIINGETID            ; EXTERNAL 'MMSYSTEM' INDEX   312;
  230. FUNCTION MIDIINGETNUMDEVS       ; EXTERNAL 'MMSYSTEM' INDEX   301;
  231. FUNCTION MIDIINOPEN             ; EXTERNAL 'MMSYSTEM' INDEX   304;
  232. FUNCTION MIDIINPREPAREHEADER    ; EXTERNAL 'MMSYSTEM' INDEX   306;
  233. FUNCTION MIDIINRESET            ; EXTERNAL 'MMSYSTEM' INDEX   311;
  234. FUNCTION MIDIINSTART            ; EXTERNAL 'MMSYSTEM' INDEX   309;
  235. FUNCTION MIDIINSTOP             ; EXTERNAL 'MMSYSTEM' INDEX   310;
  236. FUNCTION MIDIINUNPREPAREHEADER   ; EXTERNAL 'MMSYSTEM' INDEX   307;
  237. FUNCTION MIDIOUTCLOSE           ; EXTERNAL 'MMSYSTEM' INDEX   205;
  238. FUNCTION MIDIOUTGETDEVCAPS      ; EXTERNAL 'MMSYSTEM' INDEX   202;
  239. FUNCTION MIDIOUTGETERRORTEXT    ; EXTERNAL 'MMSYSTEM' INDEX   203;
  240. FUNCTION MIDIOUTGETID           ; EXTERNAL 'MMSYSTEM' INDEX   215;
  241. FUNCTION MIDIOUTGETNUMDEVS      ; EXTERNAL 'MMSYSTEM' INDEX   201;
  242. FUNCTION MIDIOUTGETVOLUME       ; EXTERNAL 'MMSYSTEM' INDEX   211;
  243. FUNCTION MIDIOUTLONGMSG         ; EXTERNAL 'MMSYSTEM' INDEX   209;
  244. FUNCTION MIDIOUTOPEN            ; EXTERNAL 'MMSYSTEM' INDEX   204;
  245. FUNCTION MIDIOUTPREPAREHEADER   ; EXTERNAL 'MMSYSTEM' INDEX   206;
  246. FUNCTION MIDIOUTRESET           ; EXTERNAL 'MMSYSTEM' INDEX   210;
  247. FUNCTION MIDIOUTSETVOLUME       ; EXTERNAL 'MMSYSTEM' INDEX   212;
  248. FUNCTION MIDIOUTSHORTMSG        ; EXTERNAL 'MMSYSTEM' INDEX   208;
  249. FUNCTION MIDIOUTUNPREPAREHEADER   ; EXTERNAL 'MMSYSTEM' INDEX   207;
  250. FUNCTION MMIOADVANCE            ; EXTERNAL 'MMSYSTEM' INDEX  1219;
  251. FUNCTION MMIOASCEND             ; EXTERNAL 'MMSYSTEM' INDEX  1224;
  252. FUNCTION MMIOCLOSE              ; EXTERNAL 'MMSYSTEM' INDEX  1211;
  253. FUNCTION MMIOCREATECHUNK        ; EXTERNAL 'MMSYSTEM' INDEX  1225;
  254. FUNCTION MMIODESCEND            ; EXTERNAL 'MMSYSTEM' INDEX  1223;
  255. FUNCTION MMIOFLUSH              ; EXTERNAL 'MMSYSTEM' INDEX  1218;
  256. FUNCTION MMIOGETINFO            ; EXTERNAL 'MMSYSTEM' INDEX  1215;
  257. FUNCTION MMIOINSTALLIOPROC      ; EXTERNAL 'MMSYSTEM' INDEX  1221;
  258. FUNCTION MMIOOPEN               ; EXTERNAL 'MMSYSTEM' INDEX  1210;
  259. FUNCTION MMIOREAD               ; EXTERNAL 'MMSYSTEM' INDEX  1212;
  260. FUNCTION MMIOSEEK               ; EXTERNAL 'MMSYSTEM' INDEX  1214;
  261. FUNCTION MMIOSENDMESSAGE        ; EXTERNAL 'MMSYSTEM' INDEX  1222;
  262. FUNCTION MMIOSETBUFFER          ; EXTERNAL 'MMSYSTEM' INDEX  1217;
  263. FUNCTION MMIOSETINFO            ; EXTERNAL 'MMSYSTEM' INDEX  1216;
  264. FUNCTION MMIOSTRINGTOFOURCC     ; EXTERNAL 'MMSYSTEM' INDEX  1220;
  265. FUNCTION MMIOWRITE              ; EXTERNAL 'MMSYSTEM' INDEX  1213;
  266. FUNCTION MMSYSTEMGETVERSION     ; EXTERNAL 'MMSYSTEM' INDEX     5;
  267. FUNCTION SNDPLAYSOUND           ; EXTERNAL 'MMSYSTEM' INDEX     2;
  268. PROCEDURE TIMEBEGINPERIOD;  EXTERNAL 'MMSYSTEM' INDEX 605;
  269. PROCEDURE TIMEENDPERIOD;  EXTERNAL 'MMSYSTEM' INDEX 606;
  270. FUNCTION TIMEGETDEVCAPS         ; EXTERNAL 'MMSYSTEM' INDEX   604;
  271. FUNCTION TIMEGETSYSTEMTIME      ; EXTERNAL 'MMSYSTEM' INDEX   601;
  272. FUNCTION TIMEGETTIME            ; EXTERNAL 'MMSYSTEM' INDEX   607;
  273. FUNCTION TIMEKILLEVENT          ; EXTERNAL 'MMSYSTEM' INDEX   603;
  274. FUNCTION TIMESETEVENT           ; EXTERNAL 'MMSYSTEM' INDEX   602;
  275. FUNCTION WAVEINADDBUFFER        ; EXTERNAL 'MMSYSTEM' INDEX   508;
  276. FUNCTION WAVEINCLOSE            ; EXTERNAL 'MMSYSTEM' INDEX   505;
  277. FUNCTION WAVEINGETDEVCAPS       ; EXTERNAL 'MMSYSTEM' INDEX   502;
  278. FUNCTION WAVEINGETERRORTEXT     ; EXTERNAL 'MMSYSTEM' INDEX   503;
  279. FUNCTION WAVEINGETID            ; EXTERNAL 'MMSYSTEM' INDEX   513;
  280. FUNCTION WAVEINGETNUMDEVS       ; EXTERNAL 'MMSYSTEM' INDEX   501;
  281. FUNCTION WAVEINGETPOSITION      ; EXTERNAL 'MMSYSTEM' INDEX   512;
  282. FUNCTION WAVEINOPEN             ; EXTERNAL 'MMSYSTEM' INDEX   504;
  283. FUNCTION WAVEINPREPAREHEADER    ; EXTERNAL 'MMSYSTEM' INDEX   506;
  284. FUNCTION WAVEINRESET            ; EXTERNAL 'MMSYSTEM' INDEX   511;
  285. FUNCTION WAVEINSTART            ; EXTERNAL 'MMSYSTEM' INDEX   509;
  286. FUNCTION WAVEINSTOP             ; EXTERNAL 'MMSYSTEM' INDEX   510;
  287. FUNCTION WAVEINUNPREPAREHEADER   ; EXTERNAL 'MMSYSTEM' INDEX   507;
  288. FUNCTION WAVEOUTBREAKLOOP       ; EXTERNAL 'MMSYSTEM' INDEX   419;
  289. FUNCTION WAVEOUTCLOSE           ; EXTERNAL 'MMSYSTEM' INDEX   405;
  290. FUNCTION WAVEOUTGETDEVCAPS      ; EXTERNAL 'MMSYSTEM' INDEX   402;
  291. FUNCTION WAVEOUTGETERRORTEXT    ; EXTERNAL 'MMSYSTEM' INDEX   403;
  292. FUNCTION WAVEOUTGETID           ; EXTERNAL 'MMSYSTEM' INDEX   420;
  293. FUNCTION WAVEOUTGETNUMDEVS      ; EXTERNAL 'MMSYSTEM' INDEX   401;
  294. FUNCTION WAVEOUTGETPITCH        ; EXTERNAL 'MMSYSTEM' INDEX   413;
  295. FUNCTION WAVEOUTGETPLAYBACKRATE   ; EXTERNAL 'MMSYSTEM' INDEX   417;
  296. FUNCTION WAVEOUTGETPOSITION     ; EXTERNAL 'MMSYSTEM' INDEX   412;
  297. FUNCTION WAVEOUTGETVOLUME       ; EXTERNAL 'MMSYSTEM' INDEX   415;
  298. FUNCTION WAVEOUTOPEN            ; EXTERNAL 'MMSYSTEM' INDEX   404;
  299. FUNCTION WAVEOUTPAUSE           ; EXTERNAL 'MMSYSTEM' INDEX   409;
  300. FUNCTION WAVEOUTPREPAREHEADER   ; EXTERNAL 'MMSYSTEM' INDEX   406;
  301. FUNCTION WAVEOUTRESET           ; EXTERNAL 'MMSYSTEM' INDEX   411;
  302. FUNCTION WAVEOUTRESTART         ; EXTERNAL 'MMSYSTEM' INDEX   410;
  303. FUNCTION WAVEOUTSETPITCH        ; EXTERNAL 'MMSYSTEM' INDEX   414;
  304. FUNCTION WAVEOUTSETPLAYBACKRATE   ; EXTERNAL 'MMSYSTEM' INDEX   418;
  305. FUNCTION WAVEOUTSETVOLUME       ; EXTERNAL 'MMSYSTEM' INDEX   416;
  306. FUNCTION WAVEOUTUNPREPAREHEADER   ; EXTERNAL 'MMSYSTEM' INDEX   407;
  307. FUNCTION WAVEOUTWRITE           ; EXTERNAL 'MMSYSTEM' INDEX   408;
  308.  
  309.  
  310. BEGIN
  311. END.
  312.  
  313.