开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 多媒体 > DVD > 查看源码
MSAcm.pas
资源名称：freeburner.rar　[点击查看]
上传用户：wanyu_2000
上传日期：2021-02-21
资源大小：527k
文件大小：53k
源码类别：

DVD

开发平台：

Delphi

MSAcm.pas：源码内容
  1. {******************************************************************}
  2. {                                                           }
  3. {       Borland Delphi Runtime Library                      }
  4. {       Microsoft Audio Compression Manager interface unit         }
  5. {     }
  6. { Portions created by Microsoft are     }
  7. { Copyright (C) 1995-1999 Microsoft Corporation.     }
  8. { All Rights Reserved.     }
  9. {     }
  10. { The original file is: msacm.h, released 9 March 1999.            }
  11. { The original Pascal code is: MSAcm.pas, released 21 July 1999.   }
  12. { The initial developer of the Pascal code is Francois Piette      }
  13. { francois.piette@swing.be, http://www.rtfm.be/fpiette/indexuk.htm }
  14. { rue de Grady 24, 4053 Embourg, Belgium                           }
  15. {     }
  16. { Portions created by Francois Piette are    }
  17. { Copyright (C) 1999 Francois Piette.                }
  18. {     }
  19. { Contributor(s): Marcel van Brakel (brakelm@bart.nl)              }
  20. {     }
  21. { Obtained through:                                           }
  22. { Joint Endeavour of Delphi Innovators (Project JEDI)              }
  23. {    }
  24. { You may retrieve the latest version of this file at the Project  }
  25. { JEDI home page, located at http://delphi-jedi.org                }
  26. {    }
  27. { The contents of this file are used with permission, subject to   }
  28. { the Mozilla Public License Version 1.1 (the "License"); you may  }
  29. { not use this file except in compliance with the License. You may }
  30. { obtain a copy of the License at                                  }
  31. { http://www.mozilla.org/NPL/NPL-1_1Final.html                     }
  32. {                                                                  }
  33. { Software distributed under the License is distributed on an     }
  34. { "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or   }
  35. { implied. See the License for the specific language governing     }
  36. { rights and limitations under the License.     }
  37. {     }
  38. {******************************************************************}
  40. unit MSAcm;
  42. {$WEAKPACKAGEUNIT}
  44. interface
  46. {$HPPEMIT ''}
  47. {$HPPEMIT '#include "MSAcm.h"'}
  48. {$HPPEMIT ''}
  50. uses
  51.   Windows, MMSystem;
  53. type
  54.   PWaveFilter = ^TWaveFilter;
  55.   // Defined in mmreg.h
  56.   WAVEFILTER = packed record
  57.     cbStruct: DWORD;                    // Size of the filter in bytes
  58.     dwFilterTag: DWORD;                 // filter type
  59.     fdwFilter: DWORD;                   // Flags for the filter (Universal Dfns)
  60.     dwReserved: array [0..4] of DWORD;  // Reserved for system use
  61.   end;
  62.   TWaveFilter = WAVEFILTER;
  64. const
  65.   DRV_MAPPER_PREFERRED_INPUT_GET  = DRV_USER + 0;
  66.   {$EXTERNALSYM DRV_MAPPER_PREFERRED_INPUT_GET}
  67.   DRV_MAPPER_PREFERRED_OUTPUT_GET = DRV_USER + 2;
  68.   {$EXTERNALSYM DRV_MAPPER_PREFERRED_OUTPUT_GET}
  69.   DRVM_MAPPER_STATUS              = $2000;
  70.   {$EXTERNALSYM DRVM_MAPPER_STATUS}
  71.   WIDM_MAPPER_STATUS              = DRVM_MAPPER_STATUS + 0;
  72.   {$EXTERNALSYM WIDM_MAPPER_STATUS}
  73.   WAVEIN_MAPPER_STATUS_DEVICE     = 0;
  74.   {$EXTERNALSYM WAVEIN_MAPPER_STATUS_DEVICE}
  75.   WAVEIN_MAPPER_STATUS_MAPPED     = 1;
  76.   {$EXTERNALSYM WAVEIN_MAPPER_STATUS_MAPPED}
  77.   WAVEIN_MAPPER_STATUS_FORMAT     = 2;
  78.   {$EXTERNALSYM WAVEIN_MAPPER_STATUS_FORMAT}
  79.   WODM_MAPPER_STATUS              = DRVM_MAPPER_STATUS + 0;
  80.   {$EXTERNALSYM WODM_MAPPER_STATUS}
  81.   WAVEOUT_MAPPER_STATUS_DEVICE    = 0;
  82.   {$EXTERNALSYM WAVEOUT_MAPPER_STATUS_DEVICE}
  83.   WAVEOUT_MAPPER_STATUS_MAPPED    = 1;
  84.   {$EXTERNALSYM WAVEOUT_MAPPER_STATUS_MAPPED}
  85.   WAVEOUT_MAPPER_STATUS_FORMAT    = 2;
  86.   {$EXTERNALSYM WAVEOUT_MAPPER_STATUS_FORMAT}
  88. //--------------------------------------------------------------------------
  89. //
  90. //  ACM General API's and Defines
  91. //
  92. //--------------------------------------------------------------------------
  94. //  there are four types of 'handles' used by the ACM. the first three
  95. //  are unique types that define specific objects:
  96. //
  97. //  HACMDRIVERID: used to _identify_ an ACM driver. this identifier can be
  98. //  used to _open_ the driver for querying details, etc about the driver.
  99. //
  100. //  HACMDRIVER: used to manage a driver (codec, filter, etc). this handle
  101. //  is much like a handle to other media drivers--you use it to send
  102. //  messages to the converter, query for capabilities, etc.
  103. //
  104. //  HACMSTREAM: used to manage a 'stream' (conversion channel) with the
  105. //  ACM. you use a stream handle to convert data from one format/type
  106. //  to another--much like dealing with a file handle.
  107. //
  108. //
  109. //  the fourth handle type is a generic type used on ACM functions that
  110. //  can accept two or more of the above handle types (for example the
  111. //  acmMetrics and acmDriverID functions).
  112. //
  113. //  HACMOBJ: used to identify ACM objects. this handle is used on functions
  114. //  that can accept two or more ACM handle types.
  116. type
  117.   HACMDRIVERID__ = record
  118.     Unused: Integer;
  119.   end;
  120.   {$EXTERNALSYM HACMDRIVERID__}
  121.   HACMDRIVERID = ^HACMDRIVERID__;
  122.   {$EXTERNALSYM HACMDRIVERID}
  123.   PHACMDRIVERID = ^HACMDRIVERID;
  124.   {$EXTERNALSYM PHACMDRIVERID}
  125.   LPHACMDRIVERID = ^HACMDRIVERID;
  126.   {$EXTERNALSYM LPHACMDRIVERID}
  128.   HACMDRIVER__ = record
  129.     Unused: Integer;
  130.   end;
  131.   {$EXTERNALSYM HACMDRIVER__}
  132.   HACMDRIVER = ^HACMDRIVER__;
  133.   {$EXTERNALSYM HACMDRIVER}
  134.   PHACMDRIVER = ^HACMDRIVER;
  135.   {$EXTERNALSYM PHACMDRIVER}
  136.   LPHACMDRIVER = ^HACMDRIVER;
  137.   {$EXTERNALSYM LPHACMDRIVER}
  139.   HACMSTREAM__ = record
  140.     Unused: Integer;
  141.   end;
  142.   {$EXTERNALSYM HACMSTREAM__}
  143.   HACMSTREAM = ^HACMSTREAM__;
  144.   {$EXTERNALSYM HACMSTREAM}
  145.   PHACMSTREAM = ^HACMSTREAM;
  146.   {$EXTERNALSYM PHACMSTREAM}
  147.   LPHACMSTREAM = ^HACMSTREAM;
  148.   {$EXTERNALSYM LPHACMSTREAM}
  150.   HACMOBJ__ = record
  151.     Unused: Integer;
  152.   end;
  153.   {$EXTERNALSYM HACMOBJ__}
  154.   HACMOBJ = ^HACMOBJ__;
  155.   {$EXTERNALSYM HACMOBJ}
  156.   PHACMOBJ = ^HACMOBJ;
  157.   {$EXTERNALSYM PHACMOBJ}
  158.   LPHACMOBJ = ^HACMOBJ;
  159.   {$EXTERNALSYM LPHACMOBJ}
  161. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  162. //
  163. //  ACM Error Codes
  164. //
  165. //  Note that these error codes are specific errors that apply to the ACM
  166. //  directly--general errors are defined as MMSYSERR_*.
  167. //
  168. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  170. type
  171.   MMRESULT = UINT;
  172.   {$EXTERNALSYM MMRESULT}
  174. const
  175.   ACMERR_BASE        = 512;
  176.   {$EXTERNALSYM ACMERR_BASE}
  177.   ACMERR_NOTPOSSIBLE = (ACMERR_BASE + 0);
  178.   {$EXTERNALSYM ACMERR_NOTPOSSIBLE}
  179.   ACMERR_BUSY        = (ACMERR_BASE + 1);
  180.   {$EXTERNALSYM ACMERR_BUSY}
  181.   ACMERR_UNPREPARED  = (ACMERR_BASE + 2);
  182.   {$EXTERNALSYM ACMERR_UNPREPARED}
  183.   ACMERR_CANCELED    = (ACMERR_BASE + 3);
  184.   {$EXTERNALSYM ACMERR_CANCELED}
  186. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  187. //
  188. //  ACM Window Messages
  189. //
  190. //  These window messages are sent by the ACM or ACM drivers to notify
  191. //  applications of events.
  192. //
  193. //  Note that these window message numbers will also be defined in
  194. //  mmsystem.
  195. //
  196. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  198. const
  199.   MM_ACM_OPEN  = MM_STREAM_OPEN;     // conversion callback messages
  200.   {$EXTERNALSYM MM_ACM_OPEN}
  201.   MM_ACM_CLOSE = MM_STREAM_CLOSE;
  202.   {$EXTERNALSYM MM_ACM_CLOSE}
  203.   MM_ACM_DONE  = MM_STREAM_DONE;
  204.   {$EXTERNALSYM MM_ACM_DONE}
  206. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  207. //
  208. //  acmGetVersion()
  209. //
  210. //  the ACM version is a 32 bit number that is broken into three parts as
  211. //  follows:
  212. //
  213. //      bits 24 - 31:   8 bit _major_ version number
  214. //      bits 16 - 23:   8 bit _minor_ version number
  215. //      bits  0 - 15:   16 bit build number
  216. //
  217. //  this is then displayed as follows:
  218. //
  219. //      bMajor = (BYTE)(dwVersion >> 24)
  220. //      bMinor = (BYTE)(dwVersion >> 16) &
  221. //      wBuild = LOWORD(dwVersion)
  222. //
  223. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  225. function acmGetVersion: DWORD; stdcall;
  226. {$EXTERNALSYM acmGetVersion}
  228. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  229. //
  230. //  acmMetrics()
  231. //
  232. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  234. function acmMetrics(hao: HACMOBJ; uMetric: UINT; var pMetric): MMRESULT; stdcall;
  235. {$EXTERNALSYM acmMetrics}
  237. const
  238.   ACM_METRIC_COUNT_DRIVERS          = 1;
  239.   {$EXTERNALSYM ACM_METRIC_COUNT_DRIVERS}
  240.   ACM_METRIC_COUNT_CODECS           = 2;
  241.   {$EXTERNALSYM ACM_METRIC_COUNT_CODECS}
  242.   ACM_METRIC_COUNT_CONVERTERS       = 3;
  243.   {$EXTERNALSYM ACM_METRIC_COUNT_CONVERTERS}
  244.   ACM_METRIC_COUNT_FILTERS          = 4;
  245.   {$EXTERNALSYM ACM_METRIC_COUNT_FILTERS}
  246.   ACM_METRIC_COUNT_DISABLED         = 5;
  247.   {$EXTERNALSYM ACM_METRIC_COUNT_DISABLED}
  248.   ACM_METRIC_COUNT_HARDWARE         = 6;
  249.   {$EXTERNALSYM ACM_METRIC_COUNT_HARDWARE}
  250.   ACM_METRIC_COUNT_LOCAL_DRIVERS    = 20;
  251.   {$EXTERNALSYM ACM_METRIC_COUNT_LOCAL_DRIVERS}
  252.   ACM_METRIC_COUNT_LOCAL_CODECS     = 21;
  253.   {$EXTERNALSYM ACM_METRIC_COUNT_LOCAL_CODECS}
  254.   ACM_METRIC_COUNT_LOCAL_CONVERTERS = 22;
  255.   {$EXTERNALSYM ACM_METRIC_COUNT_LOCAL_CONVERTERS}
  256.   ACM_METRIC_COUNT_LOCAL_FILTERS    = 23;
  257.   {$EXTERNALSYM ACM_METRIC_COUNT_LOCAL_FILTERS}
  258.   ACM_METRIC_COUNT_LOCAL_DISABLED   = 24;
  259.   {$EXTERNALSYM ACM_METRIC_COUNT_LOCAL_DISABLED}
  260.   ACM_METRIC_HARDWARE_WAVE_INPUT    = 30;
  261.   {$EXTERNALSYM ACM_METRIC_HARDWARE_WAVE_INPUT}
  262.   ACM_METRIC_HARDWARE_WAVE_OUTPUT   = 31;
  263.   {$EXTERNALSYM ACM_METRIC_HARDWARE_WAVE_OUTPUT}
  264.   ACM_METRIC_MAX_SIZE_FORMAT        = 50;
  265.   {$EXTERNALSYM ACM_METRIC_MAX_SIZE_FORMAT}
  266.   ACM_METRIC_MAX_SIZE_FILTER        = 51;
  267.   {$EXTERNALSYM ACM_METRIC_MAX_SIZE_FILTER}
  268.   ACM_METRIC_DRIVER_SUPPORT         = 100;
  269.   {$EXTERNALSYM ACM_METRIC_DRIVER_SUPPORT}
  270.   ACM_METRIC_DRIVER_PRIORITY        = 101;
  271.   {$EXTERNALSYM ACM_METRIC_DRIVER_PRIORITY}
  273. //--------------------------------------------------------------------------;
  274. //
  275. //  ACM Drivers
  276. //
  277. //--------------------------------------------------------------------------;
  279. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  280. //
  281. //  acmDriverEnum()
  282. //
  283. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  285. type
  286.   ACMDRIVERENUMCB = function (hadif: HACMDRIVERID; dwInstance, fdwSupport: DWORD): BOOL; stdcall;
  287.   {$EXTERNALSYM ACMDRIVERENUMCB}
  289. function acmDriverEnum(fnCallback: ACMDRIVERENUMCB; dwInstance: DWORD;
  290.   fdwEnum: DWORD): MMRESULT; stdcall;
  291. {$EXTERNALSYM acmDriverEnum}
  293. const
  294.   ACM_DRIVERENUMF_NOLOCAL  = $40000000;
  295.   {$EXTERNALSYM ACM_DRIVERENUMF_NOLOCAL}
  296.   ACM_DRIVERENUMF_DISABLED = $80000000;
  297.   {$EXTERNALSYM ACM_DRIVERENUMF_DISABLED}
  299. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  300. //
  301. //  acmDriverID()
  302. //
  303. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  305. function acmDriverID(hao: HACMOBJ; var phadid: HACMDRIVERID; fdwDriverID: DWORD): MMRESULT; stdcall;
  306. {$EXTERNALSYM acmDriverID}
  308. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  309. //
  310. //  acmDriverAdd()
  311. //
  312. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  314. function acmDriverAddA(var phadid: HACMDRIVERID; hinstModule: HINST; Param: LPARAM;
  315.   dwPriority: DWORD; fdwAdd: DWORD): MMRESULT; stdcall;
  316. {$EXTERNALSYM acmDriverAddA}
  317. function acmDriverAddW(var phadid: HACMDRIVERID; hinstModule: HINST; Param: LPARAM;
  318.   dwPriority: DWORD; fdwAdd: DWORD): MMRESULT; stdcall;
  319. {$EXTERNALSYM acmDriverAddW}
  320. function acmDriverAdd(var phadid: HACMDRIVERID; hinstModule: HINST; Param: LPARAM;
  321.   dwPriority: DWORD; fdwAdd: DWORD): MMRESULT; stdcall;
  322. {$EXTERNALSYM acmDriverAdd}
  324. const
  325.   ACM_DRIVERADDF_FUNCTION   = $00000003; // lParam is a procedure
  326.   {$EXTERNALSYM ACM_DRIVERADDF_FUNCTION}
  327.   ACM_DRIVERADDF_NOTIFYHWND = $00000004; // lParam is notify hwnd
  328.   {$EXTERNALSYM ACM_DRIVERADDF_NOTIFYHWND}
  329.   ACM_DRIVERADDF_TYPEMASK   = $00000007; // driver type mask
  330.   {$EXTERNALSYM ACM_DRIVERADDF_TYPEMASK}
  331.   ACM_DRIVERADDF_LOCAL      = $00000000; // is local to current task
  332.   {$EXTERNALSYM ACM_DRIVERADDF_LOCAL}
  333.   ACM_DRIVERADDF_GLOBAL     = $00000008; // is global
  334.   {$EXTERNALSYM ACM_DRIVERADDF_GLOBAL}
  336. //
  337. //  prototype for ACM driver procedures that are installed as _functions_
  338. //  or _notifations_ instead of as a standalone installable driver.
  339. //
  340. type
  341.   ACMDRIVERPROC = function (dwID: DWORD; hdrvr: HACMDRIVERID; uMsg: UINT;
  342.     lParam1: LPARAM; lParam2: LPARAM) : LRESULT; stdcall;
  343.   {$EXTERNALSYM ACMDRIVERPROC}
  344.   LPACMDRIVERPROC = ^ACMDRIVERPROC;
  345.   {$EXTERNALSYM LPACMDRIVERPROC}
  347. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  348. //
  349. //  acmDriverRemove()
  350. //
  351. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  353. function acmDriverRemove(hadid: HACMDRIVERID; fdwRemove: DWORD): MMRESULT; stdcall;
  354. {$EXTERNALSYM acmDriverRemove}
  356. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  357. //
  358. //  acmDriverOpen()
  359. //
  360. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  362. function acmDriverOpen(var phad: HACMDRIVER; hadid: HACMDRIVERID; fdwOpen: DWORD): MMRESULT; stdcall;
  363. {$EXTERNALSYM acmDriverOpen}
  365. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  366. //
  367. //  acmDriverClose()
  368. //
  369. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  371. function acmDriverClose(had: HACMDRIVER; fdwClose: DWORD): MMRESULT; stdcall;
  372. {$EXTERNALSYM acmDriverClose}
  374. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  375. //
  376. //  acmDriverMessage()
  377. //
  378. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  380. function acmDriverMessage(had: HACMDRIVER; uMsg: UINT; Param1, Param2: LPARAM): LRESULT; stdcall;
  381. {$EXTERNALSYM acmDriverMessage}
  383. const
  384.   ACMDM_USER          = DRV_USER + $0000;
  385.   {$EXTERNALSYM ACMDM_USER}
  386.   ACMDM_RESERVED_LOW  = DRV_USER + $2000;
  387.   {$EXTERNALSYM ACMDM_RESERVED_LOW}
  388.   ACMDM_RESERVED_HIGH = DRV_USER + $2FFF;
  389.   {$EXTERNALSYM ACMDM_RESERVED_HIGH}
  391.   ACMDM_BASE          = ACMDM_RESERVED_LOW;
  392.   {$EXTERNALSYM ACMDM_BASE}
  394.   ACMDM_DRIVER_ABOUT  = ACMDM_BASE + 11;
  395.   {$EXTERNALSYM ACMDM_DRIVER_ABOUT}
  397. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  398. //
  399. //  acmDriverPriority
  400. //
  401. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  403. function acmDriverPriority(hadid: HACMDRIVERID; dwPriority, fdwPriority: DWORD): MMRESULT; stdcall;
  404. {$EXTERNALSYM acmDriverPriority}
  406. const
  407.   ACM_DRIVERPRIORITYF_ENABLE    = $00000001;
  408.   {$EXTERNALSYM ACM_DRIVERPRIORITYF_ENABLE}
  409.   ACM_DRIVERPRIORITYF_DISABLE   = $00000002;
  410.   {$EXTERNALSYM ACM_DRIVERPRIORITYF_DISABLE}
  411.   ACM_DRIVERPRIORITYF_ABLEMASK  = $00000003;
  412.   {$EXTERNALSYM ACM_DRIVERPRIORITYF_ABLEMASK}
  413.   ACM_DRIVERPRIORITYF_BEGIN     = $00010000;
  414.   {$EXTERNALSYM ACM_DRIVERPRIORITYF_BEGIN}
  415.   ACM_DRIVERPRIORITYF_END       = $00020000;
  416.   {$EXTERNALSYM ACM_DRIVERPRIORITYF_END}
  417.   ACM_DRIVERPRIORITYF_DEFERMASK = $00030000;
  418.   {$EXTERNALSYM ACM_DRIVERPRIORITYF_DEFERMASK}
  420. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  421. //
  422. //  acmDriverDetails()
  423. //
  424. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  426. //
  427. //  ACMDRIVERDETAILS
  428. //
  429. //  the ACMDRIVERDETAILS structure is used to get various capabilities from
  430. //  an ACM driver (codec, converter, filter).
  431. //
  433. const
  434.   ACMDRIVERDETAILS_SHORTNAME_CHARS = 32;
  435.   {$EXTERNALSYM ACMDRIVERDETAILS_SHORTNAME_CHARS}
  436.   ACMDRIVERDETAILS_LONGNAME_CHARS  = 128;
  437.   {$EXTERNALSYM ACMDRIVERDETAILS_LONGNAME_CHARS}
  438.   ACMDRIVERDETAILS_COPYRIGHT_CHARS = 80;
  439.   {$EXTERNALSYM ACMDRIVERDETAILS_COPYRIGHT_CHARS}
  440.   ACMDRIVERDETAILS_LICENSING_CHARS = 128;
  441.   {$EXTERNALSYM ACMDRIVERDETAILS_LICENSING_CHARS}
  442.   ACMDRIVERDETAILS_FEATURES_CHARS  = 512;
  443.   {$EXTERNALSYM ACMDRIVERDETAILS_FEATURES_CHARS}
  445. type
  446.   PAcmDriverDetailsA = ^TAcmDriverDetailsA;
  447.   PAcmDriverDetailsW = ^TAcmDriverDetailsW;
  448.   PAcmDriverDetails = PAcmDriverDetailsA;
  449.   _ACMDRIVERDETAILSA = packed record
  450.     cbStruct: DWORD;
  451.     fccType: FOURCC;
  452.     fccComp: FOURCC;
  453.     wMid: Word;
  454.     wPid: Word;
  455.     vdwACM: DWORD;
  456.     vdwDriver: DWORD;
  457.     fdwSupport: DWORD;
  458.     cFormatTags: DWORD;
  459.     cFilterTags: DWORD;
  460.     hicon: HICON;
  461.     szShortName: array [0..ACMDRIVERDETAILS_SHORTNAME_CHARS - 1] of AnsiChar;
  462.     szLongName: array [0..ACMDRIVERDETAILS_LONGNAME_CHARS - 1]  of AnsiChar;
  463.     szCopyright: array [0..ACMDRIVERDETAILS_COPYRIGHT_CHARS - 1] of AnsiChar;
  464.     szLicensing: array [0..ACMDRIVERDETAILS_LICENSING_CHARS - 1] of AnsiChar;
  465.     szFeatures: array [0..ACMDRIVERDETAILS_FEATURES_CHARS - 1]  of AnsiChar;
  466.   end;
  467.   {$EXTERNALSYM _ACMDRIVERDETAILSA}
  468.   _ACMDRIVERDETAILSW = packed record
  469.     cbStruct: DWORD;
  470.     fccType: FOURCC;
  471.     fccComp: FOURCC;
  472.     wMid: Word;
  473.     wPid: Word;
  474.     vdwACM: DWORD;
  475.     vdwDriver: DWORD;
  476.     fdwSupport: DWORD;
  477.     cFormatTags: DWORD;
  478.     cFilterTags: DWORD;
  479.     hicon: HICON;
  480.     szShortName: array [0..ACMDRIVERDETAILS_SHORTNAME_CHARS - 1] of WideChar;
  481.     szLongName: array [0..ACMDRIVERDETAILS_LONGNAME_CHARS - 1]  of WideChar;
  482.     szCopyright: array [0..ACMDRIVERDETAILS_COPYRIGHT_CHARS - 1] of WideChar;
  483.     szLicensing: array [0..ACMDRIVERDETAILS_LICENSING_CHARS - 1] of WideChar;
  484.     szFeatures: array [0..ACMDRIVERDETAILS_FEATURES_CHARS - 1]  of WideChar;
  485.   end;
  486.   {$EXTERNALSYM _ACMDRIVERDETAILSW}
  487.   _ACMDRIVERDETAILS = _ACMDRIVERDETAILSA;
  488.   TAcmDriverDetailsA = _ACMDRIVERDETAILSA;
  489.   TAcmDriverDetailsW = _ACMDRIVERDETAILSW;
  490.   TAcmDriverDetails = TAcmDriverDetailsA;
  492. //
  493. //  ACMDRIVERDETAILS.fccType
  494. //
  495. //  ACMDRIVERDETAILS_FCCTYPE_AUDIOCODEC: the FOURCC used in the fccType
  496. //  field of the ACMDRIVERDETAILS structure to specify that this is an ACM
  497. //  codec designed for audio.
  498. //
  499. //
  500. //  ACMDRIVERDETAILS.fccComp
  501. //
  502. //  ACMDRIVERDETAILS_FCCCOMP_UNDEFINED: the FOURCC used in the fccComp
  503. //  field of the ACMDRIVERDETAILS structure. this is currently an unused
  504. //  field.
  505. //
  507. const
  508.   ACMDRIVERDETAILS_FCCTYPE_AUDIOCODEC = $63647561;   // 'audc';
  509.   {$EXTERNALSYM ACMDRIVERDETAILS_FCCTYPE_AUDIOCODEC}
  510.   ACMDRIVERDETAILS_FCCCOMP_UNDEFINED  = 0;           // '0000';
  511.   {$EXTERNALSYM ACMDRIVERDETAILS_FCCCOMP_UNDEFINED}
  513. //
  514. //  the following flags are used to specify the type of conversion(s) that
  515. //  the converter/codec/filter supports. these are placed in the fdwSupport
  516. //  field of the ACMDRIVERDETAILS structure. note that a converter can
  517. //  support one or more of these flags in any combination.
  518. //
  519. //  ACMDRIVERDETAILS_SUPPORTF_CODEC: this flag is set if the driver supports
  520. //  conversions from one format tag to another format tag. for example, if a
  521. //  converter compresses WAVE_FORMAT_PCM to WAVE_FORMAT_ADPCM, then this bit
  522. //  should be set.
  523. //
  524. //  ACMDRIVERDETAILS_SUPPORTF_CONVERTER: this flags is set if the driver
  525. //  supports conversions on the same format tag. as an example, the PCM
  526. //  converter that is built into the ACM sets this bit (and only this bit)
  527. //  because it converts only PCM formats (bits, sample rate).
  528. //
  529. //  ACMDRIVERDETAILS_SUPPORTF_FILTER: this flag is set if the driver supports
  530. //  transformations on a single format. for example, a converter that changed
  531. //  the 'volume' of PCM data would set this bit. 'echo' and 'reverb' are
  532. //  also filter types.
  533. //
  534. //  ACMDRIVERDETAILS_SUPPORTF_HARDWARE: this flag is set if the driver supports
  535. //  hardware input and/or output through a waveform device.
  536. //
  537. //  ACMDRIVERDETAILS_SUPPORTF_ASYNC: this flag is set if the driver supports
  538. //  async conversions.
  539. //
  540. //
  541. //  ACMDRIVERDETAILS_SUPPORTF_LOCAL: this flag is set _by the ACM_ if a
  542. //  driver has been installed local to the current task. this flag is also
  543. //  set in the fdwSupport argument to the enumeration callback function
  544. //  for drivers.
  545. //
  546. //  ACMDRIVERDETAILS_SUPPORTF_DISABLED: this flag is set _by the ACM_ if a
  547. //  driver has been disabled. this flag is also passed set in the fdwSupport
  548. //  argument to the enumeration callback function for drivers.
  549. //
  551. const
  552.   ACMDRIVERDETAILS_SUPPORTF_CODEC     = $00000001;
  553.   {$EXTERNALSYM ACMDRIVERDETAILS_SUPPORTF_CODEC}
  554.   ACMDRIVERDETAILS_SUPPORTF_CONVERTER = $00000002;
  555.   {$EXTERNALSYM ACMDRIVERDETAILS_SUPPORTF_CONVERTER}
  556.   ACMDRIVERDETAILS_SUPPORTF_FILTER    = $00000004;
  557.   {$EXTERNALSYM ACMDRIVERDETAILS_SUPPORTF_FILTER}
  558.   ACMDRIVERDETAILS_SUPPORTF_HARDWARE  = $00000008;
  559.   {$EXTERNALSYM ACMDRIVERDETAILS_SUPPORTF_HARDWARE}
  560.   ACMDRIVERDETAILS_SUPPORTF_ASYNC     = $00000010;
  561.   {$EXTERNALSYM ACMDRIVERDETAILS_SUPPORTF_ASYNC}
  562.   ACMDRIVERDETAILS_SUPPORTF_LOCAL     = $40000000;
  563.   {$EXTERNALSYM ACMDRIVERDETAILS_SUPPORTF_LOCAL}
  564.   ACMDRIVERDETAILS_SUPPORTF_DISABLED  = $80000000;
  565.   {$EXTERNALSYM ACMDRIVERDETAILS_SUPPORTF_DISABLED}
  567. function acmDriverDetailsA(hadid: HACMDRIVERID; var padd: TAcmDriverDetailsA;
  568.   fdwDetails: DWORD): MMRESULT; stdcall;
  569. {$EXTERNALSYM acmDriverDetailsA}
  570. function acmDriverDetailsW(hadid: HACMDRIVERID; var padd: TAcmDriverDetailsW;
  571.   fdwDetails: DWORD): MMRESULT; stdcall;
  572. {$EXTERNALSYM acmDriverDetailsW}
  573. function acmDriverDetails(hadid: HACMDRIVERID; var padd: TAcmDriverDetails;
  574.   fdwDetails: DWORD): MMRESULT; stdcall;
  575. {$EXTERNALSYM acmDriverDetails}
  577. //--------------------------------------------------------------------------;
  578. //
  579. //  ACM Format Tags
  580. //
  581. //--------------------------------------------------------------------------;
  583. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  584. //
  585. //  acmFormatTagDetails()
  586. //
  587. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  589. const
  590.   ACMFORMATTAGDETAILS_FORMATTAG_CHARS = 48;
  591.   {$EXTERNALSYM ACMFORMATTAGDETAILS_FORMATTAG_CHARS}
  593. type
  594.   PAcmFormatTagDetailsA = ^TAcmFormatTagDetailsA;
  595.   PAcmFormatTagDetailsW = ^TAcmFormatTagDetailsW;
  596.   PAcmFormatTagDetails = PAcmFormatTagDetailsA;
  597.   _ACMFORMATTAGDETAILSA = packed record
  598.     cbStruct: DWORD;
  599.     dwFormatTagIndex: DWORD;
  600.     dwFormatTag: DWORD;
  601.     cbFormatSize: DWORD;
  602.     fdwSupport: DWORD;
  603.     cStandardFormats: DWORD;
  604.     szFormatTag: array [0..ACMFORMATTAGDETAILS_FORMATTAG_CHARS - 1] of AnsiChar;
  605.   end;
  606.   {$EXTERNALSYM _ACMFORMATTAGDETAILSA}
  607.   _ACMFORMATTAGDETAILSW = packed record
  608.     cbStruct: DWORD;
  609.     dwFormatTagIndex: DWORD;
  610.     dwFormatTag: DWORD;
  611.     cbFormatSize: DWORD;
  612.     fdwSupport: DWORD;
  613.     cStandardFormats: DWORD;
  614.     szFormatTag: array [0..ACMFORMATTAGDETAILS_FORMATTAG_CHARS - 1] of WideChar;
  615.   end;
  616.   {$EXTERNALSYM _ACMFORMATTAGDETAILSW}
  617.   _ACMFORMATTAGDETAILS = _ACMFORMATTAGDETAILSA;
  618.   TAcmFormatTagDetailsA = _ACMFORMATTAGDETAILSA;
  619.   TAcmFormatTagDetailsW = _ACMFORMATTAGDETAILSW;
  620.   TAcmFormatTagDetails = TAcmFormatTagDetailsA;
  622. function acmFormatTagDetailsA(had: HACMDRIVER; var paftd: TAcmFormatTagDetailsA;
  623.   fdwDetails: DWORD): MMRESULT; stdcall;
  624. {$EXTERNALSYM acmFormatTagDetailsA}
  625. function acmFormatTagDetailsW(had: HACMDRIVER; var paftd: TAcmFormatTagDetailsW;
  626.   fdwDetails: DWORD): MMRESULT; stdcall;
  627. {$EXTERNALSYM acmFormatTagDetailsW}
  628. function acmFormatTagDetails(had: HACMDRIVER; var paftd: TAcmFormatTagDetails;
  629.   fdwDetails: DWORD): MMRESULT; stdcall;
  630. {$EXTERNALSYM acmFormatTagDetails}
  632. const
  633.   ACM_FORMATTAGDETAILSF_INDEX       = $00000000;
  634.   {$EXTERNALSYM ACM_FORMATTAGDETAILSF_INDEX}
  635.   ACM_FORMATTAGDETAILSF_FORMATTAG   = $00000001;
  636.   {$EXTERNALSYM ACM_FORMATTAGDETAILSF_FORMATTAG}
  637.   ACM_FORMATTAGDETAILSF_LARGESTSIZE = $00000002;
  638.   {$EXTERNALSYM ACM_FORMATTAGDETAILSF_LARGESTSIZE}
  639.   ACM_FORMATTAGDETAILSF_QUERYMASK   = $0000000F;
  640.   {$EXTERNALSYM ACM_FORMATTAGDETAILSF_QUERYMASK}
  642. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  643. //
  644. //  acmFormatTagEnum()
  645. //
  646. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  648. type
  649.   ACMFORMATTAGENUMCBA = function (hadid: HACMDRIVERID; paftd: PAcmFormatTagDetailsA;
  650.     dwInstance: DWORD; fdwSupport: DWORD): BOOL; stdcall;
  651.   {$EXTERNALSYM ACMFORMATTAGENUMCBA}
  652.   ACMFORMATTAGENUMCBW = function (hadid: HACMDRIVERID; paftd: PAcmFormatTagDetailsW;
  653.     dwInstance: DWORD; fdwSupport: DWORD): BOOL; stdcall;
  654.   {$EXTERNALSYM ACMFORMATTAGENUMCBW}
  655.   ACMFORMATTAGENUMCB = ACMFORMATTAGENUMCBA;
  657. function acmFormatTagEnumA(had: HACMDRIVER; var paftd: TAcmFormatTagDetailsA;
  658.   fnCallback: ACMFORMATTAGENUMCBA; dwInstance: DWORD; fdwEnum: DWORD): MMRESULT; stdcall;
  659. {$EXTERNALSYM acmFormatTagEnumA}
  660. function acmFormatTagEnumW(had: HACMDRIVER; var paftd: TAcmFormatTagDetailsW;
  661.   fnCallback: ACMFORMATTAGENUMCBW; dwInstance: DWORD; fdwEnum: DWORD): MMRESULT; stdcall;
  662. {$EXTERNALSYM acmFormatTagEnumW}
  663. function acmFormatTagEnum(had: HACMDRIVER; var paftd: TAcmFormatTagDetails;
  664.   fnCallback: ACMFORMATTAGENUMCB; dwInstance: DWORD; fdwEnum: DWORD): MMRESULT; stdcall;
  665. {$EXTERNALSYM acmFormatTagEnum}
  667. //--------------------------------------------------------------------------;
  668. //
  669. //  ACM Formats
  670. //
  671. //--------------------------------------------------------------------------;
  673. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  674. //
  675. //  acmFormatDetails()
  676. //
  677. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  679. const
  680.   ACMFORMATDETAILS_FORMAT_CHARS = 128;
  681.   {$EXTERNALSYM ACMFORMATDETAILS_FORMAT_CHARS}
  683. type
  684.   PAcmFormatDetailsA = ^TAcmFormatDetailsA;
  685.   PAcmFormatDetailsW = ^TAcmFormatDetailsW;
  686.   PAcmFormatDetails = PAcmFormatDetailsA;
  687.   _ACMFORMATDETAILSA = packed record
  688.     cbStruct: DWORD;
  689.     dwFormatIndex: DWORD;
  690.     dwFormatTag: DWORD;
  691.     fdwSupport: DWORD;
  692.     pwfx: PWAVEFORMATEX;
  693.     cbwfx: DWORD;
  694.     szFormat: array [0..ACMFORMATDETAILS_FORMAT_CHARS - 1] of AnsiChar;
  695.   end;
  696.   {$EXTERNALSYM _ACMFORMATDETAILSA}
  697.   _ACMFORMATDETAILSW = packed record
  698.     cbStruct: DWORD;
  699.     dwFormatIndex: DWORD;
  700.     dwFormatTag: DWORD;
  701.     fdwSupport: DWORD;
  702.     pwfx: PWAVEFORMATEX;
  703.     cbwfx: DWORD;
  704.     szFormat: array [0..ACMFORMATDETAILS_FORMAT_CHARS - 1] of WideChar;
  705.   end;
  706.   {$EXTERNALSYM _ACMFORMATDETAILSW}
  707.   _ACMFORMATDETAILS = _ACMFORMATDETAILSA;
  708.   TAcmFormatDetailsA = _ACMFORMATDETAILSA;
  709.   TAcmFormatDetailsW = _ACMFORMATDETAILSW;
  710.   TAcmFormatDetails = TAcmFormatDetailsA;
  712. function acmFormatDetailsA(had: HACMDRIVER; var pafd: TAcmFormatDetailsA;
  713.   fdwDetails: DWORD): MMRESULT; stdcall;
  714. {$EXTERNALSYM acmFormatDetailsA}
  715. function acmFormatDetailsW(had: HACMDRIVER; var pafd: TAcmFormatDetailsW;
  716.   fdwDetails: DWORD): MMRESULT; stdcall;
  717. {$EXTERNALSYM acmFormatDetailsW}
  718. function acmFormatDetails(had: HACMDRIVER; var pafd: TAcmFormatDetails;
  719.   fdwDetails: DWORD): MMRESULT; stdcall;
  720. {$EXTERNALSYM acmFormatDetails}
  722. const
  723.   ACM_FORMATDETAILSF_INDEX     = $00000000;
  724.   {$EXTERNALSYM ACM_FORMATDETAILSF_INDEX}
  725.   ACM_FORMATDETAILSF_FORMAT    = $00000001;
  726.   {$EXTERNALSYM ACM_FORMATDETAILSF_FORMAT}
  727.   ACM_FORMATDETAILSF_QUERYMASK = $0000000F;
  728.   {$EXTERNALSYM ACM_FORMATDETAILSF_QUERYMASK}
  730. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  731. //
  732. //  acmFormatEnum()
  733. //
  734. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  736. type
  737.   ACMFORMATENUMCBA = function (hadid:HACMDRIVERID; pafd: PAcmFormatDetailsA;
  738.     dwInstance: DWORD; fdwSupport: DWORD): BOOL; stdcall;
  739.   {$EXTERNALSYM ACMFORMATENUMCBA}
  740.   ACMFORMATENUMCBW = function (hadid:HACMDRIVERID; pafd: PAcmFormatDetailsW;
  741.     dwInstance: DWORD; fdwSupport: DWORD): BOOL; stdcall;
  742.   {$EXTERNALSYM ACMFORMATENUMCBW}
  743.   ACMFORMATENUMCB = ACMFORMATENUMCBA;
  745. function acmFormatEnumA(had: HACMDRIVER; var pafd: TAcmFormatDetailsA;
  746.   fnCallback: ACMFORMATENUMCBA; dwInstance, fdwEnum: DWORD): MMRESULT; stdcall;
  747. {$EXTERNALSYM acmFormatEnumA}
  748. function acmFormatEnumW(had: HACMDRIVER; var pafd: TAcmFormatDetailsW;
  749.   fnCallback: ACMFORMATENUMCBW; dwInstance, fdwEnum: DWORD): MMRESULT; stdcall;
  750. {$EXTERNALSYM acmFormatEnumW}
  751. function acmFormatEnum(had: HACMDRIVER; var pafd: TAcmFormatDetails;
  752.   fnCallback: ACMFORMATENUMCB; dwInstance, fdwEnum: DWORD): MMRESULT; stdcall;
  753. {$EXTERNALSYM acmFormatEnum}
  755. const
  756.   ACM_FORMATENUMF_WFORMATTAG     = $00010000;
  757.   {$EXTERNALSYM ACM_FORMATENUMF_WFORMATTAG}
  758.   ACM_FORMATENUMF_NCHANNELS      = $00020000;
  759.   {$EXTERNALSYM ACM_FORMATENUMF_NCHANNELS}
  760.   ACM_FORMATENUMF_NSAMPLESPERSEC = $00040000;
  761.   {$EXTERNALSYM ACM_FORMATENUMF_NSAMPLESPERSEC}
  762.   ACM_FORMATENUMF_WBITSPERSAMPLE = $00080000;
  763.   {$EXTERNALSYM ACM_FORMATENUMF_WBITSPERSAMPLE}
  764.   ACM_FORMATENUMF_CONVERT        = $00100000;
  765.   {$EXTERNALSYM ACM_FORMATENUMF_CONVERT}
  766.   ACM_FORMATENUMF_SUGGEST        = $00200000;
  767.   {$EXTERNALSYM ACM_FORMATENUMF_SUGGEST}
  768.   ACM_FORMATENUMF_HARDWARE       = $00400000;
  769.   {$EXTERNALSYM ACM_FORMATENUMF_HARDWARE}
  770.   ACM_FORMATENUMF_INPUT          = $00800000;
  771.   {$EXTERNALSYM ACM_FORMATENUMF_INPUT}
  772.   ACM_FORMATENUMF_OUTPUT         = $01000000;
  773.   {$EXTERNALSYM ACM_FORMATENUMF_OUTPUT}
  775. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  776. //
  777. //  acmFormatSuggest()
  778. //
  779. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  781. function acmFormatSuggest(had: HACMDRIVER; var pwfxSrc: TWAVEFORMATEX;
  782.   var pwfxDst: TWAVEFORMATEX; cbwfxDst: DWORD; fdwSuggest: DWORD): MMRESULT; stdcall;
  783. {$EXTERNALSYM acmFormatSuggest}
  785. const
  786.   ACM_FORMATSUGGESTF_WFORMATTAG     = $00010000;
  787.   {$EXTERNALSYM ACM_FORMATSUGGESTF_WFORMATTAG}
  788.   ACM_FORMATSUGGESTF_NCHANNELS      = $00020000;
  789.   {$EXTERNALSYM ACM_FORMATSUGGESTF_NCHANNELS}
  790.   ACM_FORMATSUGGESTF_NSAMPLESPERSEC = $00040000;
  791.   {$EXTERNALSYM ACM_FORMATSUGGESTF_NSAMPLESPERSEC}
  792.   ACM_FORMATSUGGESTF_WBITSPERSAMPLE = $00080000;
  793.   {$EXTERNALSYM ACM_FORMATSUGGESTF_WBITSPERSAMPLE}
  795.   ACM_FORMATSUGGESTF_TYPEMASK       = $00FF0000;
  796.   {$EXTERNALSYM ACM_FORMATSUGGESTF_TYPEMASK}
  798. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  799. //
  800. //  acmFormatChoose()
  801. //
  802. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  804. const
  805.   ACMHELPMSGSTRINGA      = 'acmchoose_help';
  806.   {$EXTERNALSYM ACMHELPMSGSTRINGA}
  807.   ACMHELPMSGSTRINGW      = 'acmchoose_help';
  808.   {$EXTERNALSYM ACMHELPMSGSTRINGW}
  809.   ACMHELPMSGSTRING = ACMHELPMSGSTRINGA;
  810.   ACMHELPMSGCONTEXTMENUA = 'acmchoose_contextmenu';
  811.   {$EXTERNALSYM ACMHELPMSGCONTEXTMENUA}
  812.   ACMHELPMSGCONTEXTMENUW = 'acmchoose_contextmenu';
  813.   {$EXTERNALSYM ACMHELPMSGCONTEXTMENUW}
  814.   ACMHELPMSGCONTEXTMENU = ACMHELPMSGCONTEXTMENUA;
  815.   ACMHELPMSGCONTEXTHELPA = 'acmchoose_contexthelp';
  816.   {$EXTERNALSYM ACMHELPMSGCONTEXTHELPA}
  817.   ACMHELPMSGCONTEXTHELPW = 'acmchoose_contexthelp';
  818.   {$EXTERNALSYM ACMHELPMSGCONTEXTHELPW}
  819.   ACMHELPMSGCONTEXTHELP = ACMHELPMSGCONTEXTHELPA;
  821. //
  822. //  MM_ACM_FORMATCHOOSE is sent to hook callbacks by the Format Chooser
  823. //  Dialog...
  824. //
  826. const
  827.   MM_ACM_FORMATCHOOSE           = $8000;
  828.   {$EXTERNALSYM MM_ACM_FORMATCHOOSE}
  830.   FORMATCHOOSE_MESSAGE          = 0;
  831.   {$EXTERNALSYM FORMATCHOOSE_MESSAGE}
  832.   FORMATCHOOSE_FORMATTAG_VERIFY = FORMATCHOOSE_MESSAGE + 0;
  833.   {$EXTERNALSYM FORMATCHOOSE_FORMATTAG_VERIFY}
  834.   FORMATCHOOSE_FORMAT_VERIFY    = FORMATCHOOSE_MESSAGE + 1;
  835.   {$EXTERNALSYM FORMATCHOOSE_FORMAT_VERIFY}
  836.   FORMATCHOOSE_CUSTOM_VERIFY    = FORMATCHOOSE_MESSAGE + 2;
  837.   {$EXTERNALSYM FORMATCHOOSE_CUSTOM_VERIFY}
  839. type
  840.   ACMFORMATCHOOSEHOOKPROCA = function (hwnd: HWND; uMsg: UINT; wParam: WPARAM;
  841.     lParam: LPARAM): UINT; stdcall;
  842.   {$EXTERNALSYM ACMFORMATCHOOSEHOOKPROCA}
  843.   ACMFORMATCHOOSEHOOKPROCW = function (hwnd: HWND; uMsg: UINT; wParam: WPARAM;
  844.     lParam: LPARAM): UINT; stdcall;
  845.   {$EXTERNALSYM ACMFORMATCHOOSEHOOKPROCW}
  846.   ACMFORMATCHOOSEHOOKPROC = ACMFORMATCHOOSEHOOKPROCA;
  848.   PAcmFormatChooseA = ^TAcmFormatChooseA;
  849.   PAcmFormatChooseW = ^TAcmFormatChooseW;
  850.   PAcmFormatChoose = PAcmFormatChooseA;
  851.   _ACMFORMATCHOOSEA = packed record
  852.     cbStruct: DWORD;
  853.     fdwStyle: DWORD;
  854.     hwndOwner: HWND;
  855.     pwfx: PWAVEFORMATEX;
  856.     cbwfx: DWORD;
  857.     pszTitle: PAnsiChar;
  858.     szFormatTag: array [0..ACMFORMATTAGDETAILS_FORMATTAG_CHARS-1] of AnsiChar;
  859.     szFormat: array [0..ACMFORMATDETAILS_FORMAT_CHARS-1] of AnsiChar;
  860.     pszName: PAnsiChar;
  861.     cchName: DWORD;
  862.     fdwEnum: DWORD;
  863.     pwfxEnum: PWAVEFORMATEX;
  864.     hInstance: HINST;
  865.     pszTemplateName: PAnsiChar;
  866.     lCustData: LPARAM;
  867.     pfnHook: ACMFORMATCHOOSEHOOKPROCA;
  868.   end;
  869.   {$EXTERNALSYM _ACMFORMATCHOOSEA}
  870.   _ACMFORMATCHOOSEW = packed record
  871.     cbStruct: DWORD;
  872.     fdwStyle: DWORD;
  873.     hwndOwner: HWND;
  874.     pwfx: PWAVEFORMATEX;
  875.     cbwfx: DWORD;
  876.     pszTitle: PWideChar;
  877.     szFormatTag: array [0..ACMFORMATTAGDETAILS_FORMATTAG_CHARS-1] of WideChar;
  878.     szFormat: array [0..ACMFORMATDETAILS_FORMAT_CHARS-1] of WideChar;
  879.     pszName: PWideChar;
  880.     cchName: DWORD;
  881.     fdwEnum: DWORD;
  882.     pwfxEnum: PWAVEFORMATEX;
  883.     hInstance: HINST;
  884.     pszTemplateName: PWideChar;
  885.     lCustData: LPARAM;
  886.     pfnHook: ACMFORMATCHOOSEHOOKPROCW;
  887.   end;
  888.   {$EXTERNALSYM _ACMFORMATCHOOSEW}
  889.   _ACMFORMATCHOOSE = _ACMFORMATCHOOSEA;
  890.   TAcmFormatChooseA = _ACMFORMATCHOOSEA;
  891.   TAcmFormatChooseW = _ACMFORMATCHOOSEW;
  892.   TAcmFormatChoose = TAcmFormatChooseA;
  894. //
  895. //  ACMFORMATCHOOSE.fdwStyle
  896. //
  898. const
  899.   ACMFORMATCHOOSE_STYLEF_SHOWHELP             = $00000004;
  900.   {$EXTERNALSYM ACMFORMATCHOOSE_STYLEF_SHOWHELP}
  901.   ACMFORMATCHOOSE_STYLEF_ENABLEHOOK           = $00000008;
  902.   {$EXTERNALSYM ACMFORMATCHOOSE_STYLEF_ENABLEHOOK}
  903.   ACMFORMATCHOOSE_STYLEF_ENABLETEMPLATE       = $00000010;
  904.   {$EXTERNALSYM ACMFORMATCHOOSE_STYLEF_ENABLETEMPLATE}
  905.   ACMFORMATCHOOSE_STYLEF_ENABLETEMPLATEHANDLE = $00000020;
  906.   {$EXTERNALSYM ACMFORMATCHOOSE_STYLEF_ENABLETEMPLATEHANDLE}
  907.   ACMFORMATCHOOSE_STYLEF_INITTOWFXSTRUCT      = $00000040;
  908.   {$EXTERNALSYM ACMFORMATCHOOSE_STYLEF_INITTOWFXSTRUCT}
  909.   ACMFORMATCHOOSE_STYLEF_CONTEXTHELP          = $00000080;
  910.   {$EXTERNALSYM ACMFORMATCHOOSE_STYLEF_CONTEXTHELP}
  912. function acmFormatChooseA(var pafmtc: TAcmFormatChooseA): MMRESULT; stdcall;
  913. {$EXTERNALSYM acmFormatChooseA}
  914. function acmFormatChooseW(var pafmtc: TAcmFormatChooseW): MMRESULT; stdcall;
  915. {$EXTERNALSYM acmFormatChooseW}
  916. function acmFormatChoose(var pafmtc: TAcmFormatChoose): MMRESULT; stdcall;
  917. {$EXTERNALSYM acmFormatChoose}
  919. //--------------------------------------------------------------------------;
  920. //
  921. //  ACM Filter Tags
  922. //
  923. //--------------------------------------------------------------------------;
  925. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  926. //
  927. //  acmFilterTagDetails()
  928. //
  929. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  931. const
  932.   ACMFILTERTAGDETAILS_FILTERTAG_CHARS = 48;
  933.   {$EXTERNALSYM ACMFILTERTAGDETAILS_FILTERTAG_CHARS}
  935. type
  936.   PAcmFilterTagDetailsA = ^TAcmFilterTagDetailsA;
  937.   PAcmFilterTagDetailsW = ^TAcmFilterTagDetailsW;
  938.   PAcmFilterTagDetails = PAcmFilterTagDetailsA;
  939.   _ACMFILTERTAGDETAILSA = packed record
  940.     cbStruct: DWORD;
  941.     dwFilterTagIndex: DWORD;
  942.     dwFilterTag: DWORD;
  943.     cbFilterSize: DWORD;
  944.     fdwSupport: DWORD;
  945.     cStandardFilters: DWORD;
  946.     szFilterTag: array [0..ACMFILTERTAGDETAILS_FILTERTAG_CHARS-1] of AnsiChar;
  947.   end;
  948.   {$EXTERNALSYM _ACMFILTERTAGDETAILSA}
  949.   _ACMFILTERTAGDETAILSW = packed record
  950.     cbStruct: DWORD;
  951.     dwFilterTagIndex: DWORD;
  952.     dwFilterTag: DWORD;
  953.     cbFilterSize: DWORD;
  954.     fdwSupport: DWORD;
  955.     cStandardFilters: DWORD;
  956.     szFilterTag: array [0..ACMFILTERTAGDETAILS_FILTERTAG_CHARS-1] of WideChar;
  957.   end;
  958.   {$EXTERNALSYM _ACMFILTERTAGDETAILSW}
  959.   _ACMFILTERTAGDETAILS = _ACMFILTERTAGDETAILSA;
  960.   TAcmFilterTagDetailsA = _ACMFILTERTAGDETAILSA;
  961.   TAcmFilterTagDetailsW = _ACMFILTERTAGDETAILSW;
  962.   TAcmFilterTagDetails = TAcmFilterTagDetailsA;
  964. function acmFilterTagDetailsA(had: HACMDRIVER; var paftd: TAcmFilterTagDetailsA;
  965.   fdwDetails: DWORD): MMRESULT; stdcall;
  966. {$EXTERNALSYM acmFilterTagDetailsA}
  967. function acmFilterTagDetailsW(had: HACMDRIVER; var paftd: TAcmFilterTagDetailsW;
  968.   fdwDetails: DWORD): MMRESULT; stdcall;
  969. {$EXTERNALSYM acmFilterTagDetailsW}
  970. function acmFilterTagDetails(had: HACMDRIVER; var paftd: TAcmFilterTagDetails;
  971.   fdwDetails: DWORD): MMRESULT; stdcall;
  972. {$EXTERNALSYM acmFilterTagDetails}
  974. const
  975.   ACM_FILTERTAGDETAILSF_INDEX       = $00000000;
  976.   {$EXTERNALSYM ACM_FILTERTAGDETAILSF_INDEX}
  977.   ACM_FILTERTAGDETAILSF_FILTERTAG   = $00000001;
  978.   {$EXTERNALSYM ACM_FILTERTAGDETAILSF_FILTERTAG}
  979.   ACM_FILTERTAGDETAILSF_LARGESTSIZE = $00000002;
  980.   {$EXTERNALSYM ACM_FILTERTAGDETAILSF_LARGESTSIZE}
  981.   ACM_FILTERTAGDETAILSF_QUERYMASK   = $0000000F;
  982.   {$EXTERNALSYM ACM_FILTERTAGDETAILSF_QUERYMASK}
  984. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  985. //
  986. //  acmFilterTagEnum()
  987. //
  988. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  990. type
  991.   ACMFILTERTAGENUMCBA = function (hadid: HACMDRIVERID; paftd: PAcmFilterTagDetailsA;
  992.     dwInstance: DWORD; fdwSupport: DWORD) : BOOL; stdcall;
  993.   {$EXTERNALSYM ACMFILTERTAGENUMCBA}
  994.   ACMFILTERTAGENUMCBW = function (hadid: HACMDRIVERID; paftd: PAcmFilterTagDetailsW;
  995.     dwInstance: DWORD; fdwSupport: DWORD) : BOOL; stdcall;
  996.   {$EXTERNALSYM ACMFILTERTAGENUMCBW}
  997.   ACMFILTERTAGENUMCB = ACMFILTERTAGENUMCBA;
  999. function acmFilterTagEnumA(had: HACMDRIVER; var paftd: TAcmFilterTagDetailsA;
  1000.   fnCallback: ACMFILTERTAGENUMCBA; dwInstance: DWORD; fdwEnum: DWORD): MMRESULT; stdcall;
  1001. {$EXTERNALSYM acmFilterTagEnumA}
  1002. function acmFilterTagEnumW(had: HACMDRIVER; var paftd: TAcmFilterTagDetailsW;
  1003.   fnCallback: ACMFILTERTAGENUMCBW; dwInstance: DWORD; fdwEnum: DWORD): MMRESULT; stdcall;
  1004. {$EXTERNALSYM acmFilterTagEnumW}
  1005. function acmFilterTagEnum(had: HACMDRIVER; var paftd: TAcmFilterTagDetails;
  1006.   fnCallback: ACMFILTERTAGENUMCB; dwInstance: DWORD; fdwEnum: DWORD): MMRESULT; stdcall;
  1007. {$EXTERNALSYM acmFilterTagEnum}
  1009. //--------------------------------------------------------------------------;
  1010. //
  1011. //  ACM Filters
  1012. //
  1013. //--------------------------------------------------------------------------;
  1015. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  1016. //
  1017. //  acmFilterDetails()
  1018. //
  1019. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  1021. const
  1022.   ACMFILTERDETAILS_FILTER_CHARS = 128;
  1023.   {$EXTERNALSYM ACMFILTERDETAILS_FILTER_CHARS}
  1025. type
  1026.   PAcmFilterDetailsA = ^TAcmFilterDetailsA;
  1027.   PAcmFilterDetailsW = ^TAcmFilterDetailsW;
  1028.   PAcmFilterDetails = PAcmFilterDetailsA;
  1029.   _ACMFILTERDETAILSA = packed record
  1030.     cbStruct: DWORD;
  1031.     dwFilterIndex: DWORD;
  1032.     dwFilterTag: DWORD;
  1033.     fdwSupport: DWORD;
  1034.     pwfltr: PWAVEFILTER;
  1035.     cbwfltr: DWORD;
  1036.     szFilter: array [0..ACMFILTERDETAILS_FILTER_CHARS - 1] of AnsiChar;
  1037.   end;
  1038.   {$EXTERNALSYM _ACMFILTERDETAILSA}
  1039.   _ACMFILTERDETAILSW = packed record
  1040.     cbStruct: DWORD;
  1041.     dwFilterIndex: DWORD;
  1042.     dwFilterTag: DWORD;
  1043.     fdwSupport: DWORD;
  1044.     pwfltr: PWAVEFILTER;
  1045.     cbwfltr: DWORD;
  1046.     szFilter: array [0..ACMFILTERDETAILS_FILTER_CHARS - 1] of WideChar;
  1047.   end;
  1048.   {$EXTERNALSYM _ACMFILTERDETAILSW}
  1049.   _ACMFILTERDETAILS = _ACMFILTERDETAILSA;
  1050.   TAcmFilterDetailsA = _ACMFILTERDETAILSA;
  1051.   TAcmFilterDetailsW = _ACMFILTERDETAILSW;
  1052.   TAcmFilterDetails = TAcmFilterDetailsA;
  1054. function acmFilterDetailsA(had: HACMDRIVER; var pafd: TAcmFilterDetailsA;
  1055.   fdwDetails: DWORD): MMRESULT; stdcall;
  1056. {$EXTERNALSYM acmFilterDetailsA}
  1057. function acmFilterDetailsW(had: HACMDRIVER; var pafd: TAcmFilterDetailsW;
  1058.   fdwDetails: DWORD): MMRESULT; stdcall;
  1059. {$EXTERNALSYM acmFilterDetailsW}
  1060. function acmFilterDetails(had: HACMDRIVER; var pafd: TAcmFilterDetails;
  1061.   fdwDetails: DWORD): MMRESULT; stdcall;
  1062. {$EXTERNALSYM acmFilterDetails}
  1064. const
  1065.   ACM_FILTERDETAILSF_INDEX     = $00000000;
  1066.   {$EXTERNALSYM ACM_FILTERDETAILSF_INDEX}
  1067.   ACM_FILTERDETAILSF_FILTER    = $00000001;
  1068.   {$EXTERNALSYM ACM_FILTERDETAILSF_FILTER}
  1069.   ACM_FILTERDETAILSF_QUERYMASK = $0000000F;
  1070.   {$EXTERNALSYM ACM_FILTERDETAILSF_QUERYMASK}
  1072. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  1073. //
  1074. //  acmFilterEnum()
  1075. //
  1076. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  1078. type
  1079.   ACMFILTERENUMCBA = function (hadid: HACMDRIVERID; pafd: PAcmFilterDetailsA;
  1080.     dwInstance: DWORD; fdwSupport: DWORD) : BOOL; stdcall;
  1081.   ACMFILTERENUMCBW = function (hadid: HACMDRIVERID; pafd: PAcmFilterDetailsW;
  1082.     dwInstance: DWORD; fdwSupport: DWORD) : BOOL; stdcall;
  1083.   ACMFILTERENUMCB = ACMFILTERENUMCBA;
  1085. function acmFilterEnumA(had: HACMDRIVER; var pafd: TAcmFilterDetailsA;
  1086.   fnCallback: ACMFILTERENUMCBA; dwInstance: DWORD; fdwEnum: DWORD): MMRESULT; stdcall;
  1087. {$EXTERNALSYM acmFilterEnumA}
  1088. function acmFilterEnumW(had: HACMDRIVER; var pafd: TAcmFilterDetailsW;
  1089.   fnCallback: ACMFILTERENUMCBW; dwInstance: DWORD; fdwEnum: DWORD): MMRESULT; stdcall;
  1090. {$EXTERNALSYM acmFilterEnumW}
  1091. function acmFilterEnum(had: HACMDRIVER; var pafd: TAcmFilterDetails;
  1092.   fnCallback: ACMFILTERENUMCB; dwInstance: DWORD; fdwEnum: DWORD): MMRESULT; stdcall;
  1093. {$EXTERNALSYM acmFilterEnum}
  1095. const
  1096.   ACM_FILTERENUMF_DWFILTERTAG = $00010000;
  1097.   {$EXTERNALSYM ACM_FILTERENUMF_DWFILTERTAG}
  1099. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  1100. //
  1101. //  acmFilterChoose()
  1102. //
  1103. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  1105. //
  1106. //  MM_ACM_FILTERCHOOSE is sent to hook callbacks by the Filter Chooser
  1107. //  Dialog...
  1108. //
  1110. const
  1111.   MM_ACM_FILTERCHOOSE           = $8000;
  1112.   {$EXTERNALSYM MM_ACM_FILTERCHOOSE}
  1114.   FILTERCHOOSE_MESSAGE          = 0;
  1115.   {$EXTERNALSYM FILTERCHOOSE_MESSAGE}
  1116.   FILTERCHOOSE_FILTERTAG_VERIFY = FILTERCHOOSE_MESSAGE + 0;
  1117.   {$EXTERNALSYM FILTERCHOOSE_FILTERTAG_VERIFY}
  1118.   FILTERCHOOSE_FILTER_VERIFY    = FILTERCHOOSE_MESSAGE + 1;
  1119.   {$EXTERNALSYM FILTERCHOOSE_FILTER_VERIFY}
  1120.   FILTERCHOOSE_CUSTOM_VERIFY    = FILTERCHOOSE_MESSAGE + 2;
  1121.   {$EXTERNALSYM FILTERCHOOSE_CUSTOM_VERIFY}
  1123. type
  1124.   ACMFILTERCHOOSEHOOKPROCA = function (hwd: HWND; uMsg: UINT; wParam: WPARAM;
  1125.     lParam: LPARAM): UINT; stdcall;
  1126.   {$EXTERNALSYM ACMFILTERCHOOSEHOOKPROCA}
  1127.   ACMFILTERCHOOSEHOOKPROCW = function (hwd: HWND; uMsg: UINT; wParam: WPARAM;
  1128.     lParam: LPARAM): UINT; stdcall;
  1129.   {$EXTERNALSYM ACMFILTERCHOOSEHOOKPROCW}
  1130.   ACMFILTERCHOOSEHOOKPROC = ACMFILTERCHOOSEHOOKPROCA;
  1132. //
  1133. //  ACMFILTERCHOOSE
  1134. //
  1135. //
  1137. type
  1138.   PAcmFilterChooseA = ^TAcmFilterChooseA;
  1139.   PAcmFilterChooseW = ^TAcmFilterChooseW;
  1140.   PAcmFilterChoose = PAcmFilterChooseA;
  1141.   _ACMFILTERCHOOSEA = packed record
  1142.     cbStruct: DWORD;
  1143.     fdwStyle: DWORD;
  1144.     hwndOwner: HWND;
  1145.     pwfltr: PWAVEFILTER;
  1146.     cbwfltr: DWORD;
  1147.     pszTitle: PAnsiChar;
  1148.     szFilterTag: array [0..ACMFILTERTAGDETAILS_FILTERTAG_CHARS - 1] of AnsiChar;
  1149.     szFilter: array [0..ACMFILTERDETAILS_FILTER_CHARS - 1] of AnsiChar;
  1150.     pszName: PAnsiChar;
  1151.     cchName: DWORD;
  1152.     fdwEnum: DWORD;
  1153.     pwfltrEnum: PWAVEFILTER;
  1154.     hInstance: HINST;
  1155.     pszTemplateName: PAnsiChar;
  1156.     lCustData: LPARAM;
  1157.     pfnHook: ACMFILTERCHOOSEHOOKPROCA;
  1158.   end;
  1159.   {$EXTERNALSYM _ACMFILTERCHOOSEA}
  1160.   _ACMFILTERCHOOSEW = packed record
  1161.     cbStruct: DWORD;
  1162.     fdwStyle: DWORD;
  1163.     hwndOwner: HWND;
  1164.     pwfltr: PWAVEFILTER;
  1165.     cbwfltr: DWORD;
  1166.     pszTitle: PWideChar;
  1167.     szFilterTag: array [0..ACMFILTERTAGDETAILS_FILTERTAG_CHARS - 1] of WideChar;
  1168.     szFilter: array [0..ACMFILTERDETAILS_FILTER_CHARS - 1] of WideChar;
  1169.     pszName: PWideChar;
  1170.     cchName: DWORD;
  1171.     fdwEnum: DWORD;
  1172.     pwfltrEnum: PWAVEFILTER;
  1173.     hInstance: HINST;
  1174.     pszTemplateName: PWideChar;
  1175.     lCustData: LPARAM;
  1176.     pfnHook: ACMFILTERCHOOSEHOOKPROCW;
  1177.   end;
  1178.   {$EXTERNALSYM _ACMFILTERCHOOSEW}
  1179.   _ACMFILTERCHOOSE = _ACMFILTERCHOOSEA;
  1180.   TAcmFilterChooseA = _ACMFILTERCHOOSEA;
  1181.   TAcmFilterChooseW = _ACMFILTERCHOOSEW;
  1182.   TAcmFilterChoose = TAcmFilterChooseA;
  1184. //
  1185. //  ACMFILTERCHOOSE.fdwStyle
  1186. //
  1188. const
  1189.   ACMFILTERCHOOSE_STYLEF_SHOWHELP             = $00000004;
  1190.   {$EXTERNALSYM ACMFILTERCHOOSE_STYLEF_SHOWHELP}
  1191.   ACMFILTERCHOOSE_STYLEF_ENABLEHOOK           = $00000008;
  1192.   {$EXTERNALSYM ACMFILTERCHOOSE_STYLEF_ENABLEHOOK}
  1193.   ACMFILTERCHOOSE_STYLEF_ENABLETEMPLATE       = $00000010;
  1194.   {$EXTERNALSYM ACMFILTERCHOOSE_STYLEF_ENABLETEMPLATE}
  1195.   ACMFILTERCHOOSE_STYLEF_ENABLETEMPLATEHANDLE = $00000020;
  1196.   {$EXTERNALSYM ACMFILTERCHOOSE_STYLEF_ENABLETEMPLATEHANDLE}
  1197.   ACMFILTERCHOOSE_STYLEF_INITTOFILTERSTRUCT   = $00000040;
  1198.   {$EXTERNALSYM ACMFILTERCHOOSE_STYLEF_INITTOFILTERSTRUCT}
  1199.   ACMFILTERCHOOSE_STYLEF_CONTEXTHELP          = $00000080;
  1200.   {$EXTERNALSYM ACMFILTERCHOOSE_STYLEF_CONTEXTHELP}
  1202. function acmFilterChooseA(var pafltrc: TAcmFilterChooseA): MMRESULT; stdcall;
  1203. {$EXTERNALSYM acmFilterChooseA}
  1204. function acmFilterChooseW(var pafltrc: TAcmFilterChooseW): MMRESULT; stdcall;
  1205. {$EXTERNALSYM acmFilterChooseW}
  1206. function acmFilterChoose(var pafltrc: TAcmFilterChoose): MMRESULT; stdcall;
  1207. {$EXTERNALSYM acmFilterChoose}
  1209. //--------------------------------------------------------------------------;
  1210. //
  1211. //  ACM Stream API's
  1212. //
  1213. //--------------------------------------------------------------------------;
  1215. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  1216. //
  1217. //  acmStreamOpen()
  1218. //
  1219. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  1221. type
  1222.   PAcmStreamHeader = ^TAcmStreamHeader;
  1223.   ACMSTREAMHEADER = packed record
  1224.     cbStruct: DWORD;
  1225.     fdwStatus: DWORD;
  1226.     dwUser: DWORD;
  1227.     pbSrc: PBYTE;
  1228.     cbSrcLength: DWORD;
  1229.     cbSrcLengthUsed: DWORD;
  1230.     dwSrcUser: DWORD;
  1231.     pbDst: PBYTE;
  1232.     cbDstLength: DWORD;
  1233.     cbDstLengthUsed: DWORD;
  1234.     dwDstUser: DWORD;
  1235.     dwReservedDriver: array [0..10 - 1] of DWORD;
  1236.   end;
  1237.   {$EXTERNALSYM tACMSTREAMHEADER}
  1238.   TAcmStreamHeader = ACMSTREAMHEADER;
  1240. //
  1241. //  ACMSTREAMHEADER.fdwStatus
  1242. //
  1243. //  ACMSTREAMHEADER_STATUSF_DONE: done bit for async conversions.
  1244. //
  1246. const
  1247.   ACMSTREAMHEADER_STATUSF_DONE     = $00010000;
  1248.   {$EXTERNALSYM ACMSTREAMHEADER_STATUSF_DONE}
  1249.   ACMSTREAMHEADER_STATUSF_PREPARED = $00020000;
  1250.   {$EXTERNALSYM ACMSTREAMHEADER_STATUSF_PREPARED}
  1251.   ACMSTREAMHEADER_STATUSF_INQUEUE  = $00100000;
  1252.   {$EXTERNALSYM ACMSTREAMHEADER_STATUSF_INQUEUE}
  1254. function acmStreamOpen(var phas: HACMSTREAM; had: HACMDRIVER; var pwfxSrc: TWAVEFORMATEX;
  1255.   var pwfxDst: TWAVEFORMATEX; pwfltr: PWAVEFILTER; dwCallback: DWORD; dwInstance: DWORD;
  1256.   fdwOpen: DWORD): MMRESULT; stdcall;
  1257. {$EXTERNALSYM acmStreamOpen}
  1259. const
  1260.   ACM_STREAMOPENF_QUERY       = $00000001;
  1261.   {$EXTERNALSYM ACM_STREAMOPENF_QUERY}
  1262.   ACM_STREAMOPENF_ASYNC       = $00000002;
  1263.   {$EXTERNALSYM ACM_STREAMOPENF_ASYNC}
  1264.   ACM_STREAMOPENF_NONREALTIME = $00000004;
  1265.   {$EXTERNALSYM ACM_STREAMOPENF_NONREALTIME}
  1267. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  1268. //
  1269. //  acmStreamClose()
  1270. //
  1271. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  1273. function acmStreamClose(has: HACMSTREAM; fdwClose: DWORD): MMRESULT; stdcall;
  1274. {$EXTERNALSYM acmStreamClose}
  1276. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  1277. //
  1278. //  acmStreamSize()
  1279. //
  1280. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  1282. function acmStreamSize(has: HACMSTREAM; cbInput: DWORD; var pdwOutputBytes: DWORD;
  1283.   fdwSize: DWORD): MMRESULT; stdcall;
  1284. {$EXTERNALSYM acmStreamSize}
  1286. const
  1287.   ACM_STREAMSIZEF_SOURCE      = $00000000;
  1288.   {$EXTERNALSYM ACM_STREAMSIZEF_SOURCE}
  1289.   ACM_STREAMSIZEF_DESTINATION = $00000001;
  1290.   {$EXTERNALSYM ACM_STREAMSIZEF_DESTINATION}
  1291.   ACM_STREAMSIZEF_QUERYMASK   = $0000000F;
  1292.   {$EXTERNALSYM ACM_STREAMSIZEF_QUERYMASK}
  1294. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  1295. //
  1296. //  acmStreamReset()
  1297. //
  1298. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  1300. function acmStreamReset(has: HACMSTREAM; fdwReset: DWORD): MMRESULT; stdcall;
  1301. {$EXTERNALSYM acmStreamReset}
  1303. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  1304. //
  1305. //  acmStreamMessage()
  1306. //
  1307. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  1309. function acmStreamMessage(has: HACMSTREAM; uMsg: UINT; var lParam1: LPARAM;
  1310.   var lParam2: LPARAM): MMRESULT; stdcall;
  1311. {$EXTERNALSYM acmStreamMessage}
  1313. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  1314. //
  1315. //  acmStreamConvert()
  1316. //
  1317. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  1319. function acmStreamConvert(has: HACMSTREAM; var pash: TAcmStreamHeader;
  1320.   fdwConvert: DWORD): MMRESULT; stdcall;
  1321. {$EXTERNALSYM acmStreamConvert}
  1323. const
  1324.   ACM_STREAMCONVERTF_BLOCKALIGN = $00000004;
  1325.   {$EXTERNALSYM ACM_STREAMCONVERTF_BLOCKALIGN}
  1326.   ACM_STREAMCONVERTF_START      = $00000010;
  1327.   {$EXTERNALSYM ACM_STREAMCONVERTF_START}
  1328.   ACM_STREAMCONVERTF_END        = $00000020;
  1329.   {$EXTERNALSYM ACM_STREAMCONVERTF_END}
  1331. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  1332. //
  1333. //  acmStreamPrepareHeader()
  1334. //
  1335. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  1337. function acmStreamPrepareHeader(has: HACMSTREAM; var pash: TAcmStreamHeader;
  1338.   fdwPrepare: DWORD): MMRESULT; stdcall;
  1339. {$EXTERNALSYM acmStreamPrepareHeader}
  1341. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  1342. //
  1343. //  acmStreamUnprepareHeader()
  1344. //
  1345. //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
  1347. function acmStreamUnprepareHeader(has: HACMSTREAM; var pash: TAcmStreamHeader;
  1348.   fdwUnprepare: DWORD): MMRESULT; stdcall;
  1349. {$EXTERNALSYM acmStreamUnprepareHeader}
  1351. implementation
  1353. const
  1354.   msacm32 = 'msacm32.dll';
  1356. function acmGetVersion;            external msacm32 name 'acmGetVersion';
  1357. function acmMetrics;               external msacm32 name 'acmMetrics';
  1358. function acmDriverEnum;            external msacm32 name 'acmDriverEnum';
  1359. function acmDriverID;              external msacm32 name 'acmDriverID';
  1360. function acmDriverAddA;          external msacm32 name 'acmDriverAddA';
  1361. function acmDriverAddW;          external msacm32 name 'acmDriverAddW';
  1362. function acmDriverAdd;          external msacm32 name 'acmDriverAddA';
  1363. function acmDriverRemove;          external msacm32 name 'acmDriverRemove';
  1364. function acmDriverOpen;            external msacm32 name 'acmDriverOpen';
  1365. function acmDriverClose;           external msacm32 name 'acmDriverClose';
  1366. function acmDriverMessage;         external msacm32 name 'acmDriverMessage';
  1367. function acmDriverPriority;        external msacm32 name 'acmDriverPriority';
  1368. function acmDriverDetailsA;      external msacm32 name 'acmDriverDetailsA';
  1369. function acmDriverDetailsW;      external msacm32 name 'acmDriverDetailsW';
  1370. function acmDriverDetails;      external msacm32 name 'acmDriverDetailsA';
  1371. function acmFormatTagDetailsA;   external msacm32 name 'acmFormatTagDetailsA';
  1372. function acmFormatTagDetailsW;   external msacm32 name 'acmFormatTagDetailsW';
  1373. function acmFormatTagDetails;   external msacm32 name 'acmFormatTagDetailsA';
  1374. function acmFormatDetailsA;      external msacm32 name 'acmFormatDetailsA';
  1375. function acmFormatDetailsW;      external msacm32 name 'acmFormatDetailsW';
  1376. function acmFormatDetails;      external msacm32 name 'acmFormatDetailsA';
  1377. function acmFormatChooseA;       external msacm32 name 'acmFormatChooseA';
  1378. function acmFormatChooseW;       external msacm32 name 'acmFormatChooseW';
  1379. function acmFormatChoose;       external msacm32 name 'acmFormatChooseA';
  1380. function acmFormatEnumA;         external msacm32 name 'acmFormatEnumA';
  1381. function acmFormatEnumW;         external msacm32 name 'acmFormatEnumW';
  1382. function acmFormatEnum;         external msacm32 name 'acmFormatEnumA';
  1383. function acmFormatTagEnumA;      external msacm32 name 'acmFormatTagEnumA';
  1384. function acmFormatTagEnumW;      external msacm32 name 'acmFormatTagEnumW';
  1385. function acmFormatTagEnum;      external msacm32 name 'acmFormatTagEnumA';
  1386. function acmFormatSuggest;         external msacm32 name 'acmFormatSuggest';
  1387. function acmFilterTagDetailsA;   external msacm32 name 'acmFilterTagDetailsA';
  1388. function acmFilterTagDetailsW;   external msacm32 name 'acmFilterTagDetailsW';
  1389. function acmFilterTagDetails;   external msacm32 name 'acmFilterTagDetailsA';
  1390. function acmFilterTagEnumA;      external msacm32 name 'acmFilterTagEnumA';
  1391. function acmFilterTagEnumW;      external msacm32 name 'acmFilterTagEnumW';
  1392. function acmFilterTagEnum;      external msacm32 name 'acmFilterTagEnumA';
  1393. function acmFilterDetailsA;      external msacm32 name 'acmFilterDetailsA';
  1394. function acmFilterDetailsW;      external msacm32 name 'acmFilterDetailsW';
  1395. function acmFilterDetails;      external msacm32 name 'acmFilterDetailsA';
  1396. function acmFilterEnumA;         external msacm32 name 'acmFilterEnumA';
  1397. function acmFilterEnumW;         external msacm32 name 'acmFilterEnumW';
  1398. function acmFilterEnum;         external msacm32 name 'acmFilterEnumA';
  1399. function acmFilterChooseA;       external msacm32 name 'acmFilterChooseA';
  1400. function acmFilterChooseW;       external msacm32 name 'acmFilterChooseW';
  1401. function acmFilterChoose;       external msacm32 name 'acmFilterChooseA';
  1402. function acmStreamOpen;            external msacm32 name 'acmStreamOpen';
  1403. function acmStreamClose;           external msacm32 name 'acmStreamClose';
  1404. function acmStreamSize;            external msacm32 name 'acmStreamSize';
  1405. function acmStreamReset;           external msacm32 name 'acmStreamReset';
  1406. function acmStreamMessage;         external msacm32 name 'acmStreamMessage';
  1407. function acmStreamConvert;         external msacm32 name 'acmStreamConvert';
  1408. function acmStreamPrepareHeader;   external msacm32 name 'acmStreamPrepareHeader';
  1409. function acmStreamUnprepareHeader; external msacm32 name 'acmStreamUnprepareHeader';
  1411. end.