summaryrefslogtreecommitdiff
path: root/packages/winceunits/src
diff options
context:
space:
mode:
authoryury <yury@3ad0048d-3df7-0310-abae-a5850022a9f2>2008-10-16 11:43:01 +0000
committeryury <yury@3ad0048d-3df7-0310-abae-a5850022a9f2>2008-10-16 11:43:01 +0000
commita762f3d3ffe55fe07c562bb9fa51f1e37c5d782c (patch)
tree2e1056810bfd5d7cc648efc44fd3f02b0f9ba902 /packages/winceunits/src
parentb16b6d2b84b1d34da73c548a8c9901f0587fce9c (diff)
downloadfpc-a762f3d3ffe55fe07c562bb9fa51f1e37c5d782c.tar.gz
+ New wince api units and some fixes to existing api units by Vasil Maximov.
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@11904 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/winceunits/src')
-rw-r--r--packages/winceunits/src/aygshell.pp1
-rw-r--r--packages/winceunits/src/buildwinceunits.pp3
-rw-r--r--packages/winceunits/src/connmgr.pp713
-rw-r--r--packages/winceunits/src/devload.pp227
-rw-r--r--packages/winceunits/src/devmgmt.pp60
-rw-r--r--packages/winceunits/src/mmreg.pp3122
-rw-r--r--packages/winceunits/src/mmsystem.pp1868
-rw-r--r--packages/winceunits/src/msacm.pp1169
-rw-r--r--packages/winceunits/src/wininet.pp4349
9 files changed, 11510 insertions, 2 deletions
diff --git a/packages/winceunits/src/aygshell.pp b/packages/winceunits/src/aygshell.pp
index 83dc1012d5..7a5d2ba121 100644
--- a/packages/winceunits/src/aygshell.pp
+++ b/packages/winceunits/src/aygshell.pp
@@ -43,7 +43,6 @@
29 ComboEditAutoComplete
45 ComboSubProc
190 CreateImageCache
- 2021 DMProcessConfigXML
330 DPI_ExtractIconEx
311 DPI_LoadImageFile
310 DPI_LoadLibraryRes
diff --git a/packages/winceunits/src/buildwinceunits.pp b/packages/winceunits/src/buildwinceunits.pp
index aa8e9a12ee..2a4eb192a6 100644
--- a/packages/winceunits/src/buildwinceunits.pp
+++ b/packages/winceunits/src/buildwinceunits.pp
@@ -24,7 +24,8 @@ uses
aygshell,commctrl,commdlg,iphlpapi,notify,oleauto,power,shellapi,simmgr,tapi,
gpsapi,todaycmn,windbase,cesync,gx,winioctl,msgqueue,pm,service,htmlctrl,
sipapi, cpl, bt_api, bt_sdp, bthapi, bthutil, pimstore, ril, sms, ws2bth,
- keybd, nled, phone;
+ keybd, nled, phone, connmgr, devload, devmgmt, mmreg, mmsystem, msacm,
+ wininet;
implementation
diff --git a/packages/winceunits/src/connmgr.pp b/packages/winceunits/src/connmgr.pp
new file mode 100644
index 0000000000..5529816100
--- /dev/null
+++ b/packages/winceunits/src/connmgr.pp
@@ -0,0 +1,713 @@
+//
+// Module Name:
+//
+// connmgr.h
+//
+// DESCRIPTION from MSDN:
+// The Connection Manager API is used to centralize and automate the establishment
+// and management of the network connections on a Windows Mobile-based device.
+// Mobile device applications use Connection Manager to establish or schedule a
+// network connection, and Connection Manager handles the details of the connection.
+// The application simply informs Connection Manager of the network type to use
+// for the connection (the Internet, for example).
+// When an application requests a network connection, Connection Manager first
+// retrieves all of the possible connections from a set of Connection Service
+// Providers (CSPs). Connection Manager then associates a set of costs with these
+// routes and ultimately determines the optimal connection based on cost, latency,
+// bandwidth, and other factors. Finally, Connection Manager queues the requested
+// connection and uses the CSPs to establish the connection at the appropriate
+// time.
+//
+
+//
+// Microsoft Windows Mobile 6.0 for PocketPC SDK.
+//
+
+unit connmgr;
+
+{$CALLING cdecl}
+
+interface
+
+uses Windows, WinSock2;
+
+const
+ CellcoreDLL = 'cellcore.dll';
+
+// - connmgr_conntypes.h
+
+// -----------------------------------------------------------------------------
+//
+// @doc EXTERNAL
+//
+// @constants Connection types | Describes possible connection types and subtypes
+//
+// @comm none
+//
+// -----------------------------------------------------------------------------
+const
+ CM_CONNTYPE_UNKNOWN = 0;
+ CM_CONNTYPE_CELLULAR = 1;
+ CM_CONNTYPE_NIC = 2;
+ CM_CONNTYPE_BLUETOOTH = 3;
+ CM_CONNTYPE_UNIMODEM = 4;
+ CM_CONNTYPE_VPN = 5;
+ CM_CONNTYPE_PROXY = 6;
+ CM_CONNTYPE_PC = 7;
+ CM_CONNTYPE_MAX = 8;
+
+ CM_CONNSUBTYPE_UNKNOWN = 0;
+
+ CM_CONNSUBTYPE_CELLULAR_UNKNOWN = 0;
+ CM_CONNSUBTYPE_CELLULAR_CSD = 1;
+ CM_CONNSUBTYPE_CELLULAR_GPRS = 2;
+ CM_CONNSUBTYPE_CELLULAR_1XRTT = 3; // @constdefine Not distinct from CSD.
+ CM_CONNSUBTYPE_CELLULAR_1XEVDO = 4; // @constdefine Not distinct from CSD.
+ CM_CONNSUBTYPE_CELLULAR_1XEVDV = 5; // @constdefine Not distinct from CSD.
+ CM_CONNSUBTYPE_CELLULAR_EDGE = 6; // @constdefine Not distinct from GPRS.
+ CM_CONNSUBTYPE_CELLULAR_UMTS = 7; // @constdefine Not distinct from GPRS.
+ CM_CONNSUBTYPE_CELLULAR_VOICE = 8;
+ CM_CONNSUBTYPE_CELLULAR_PTT = 9; // @constdefine Push-to-Talk, not supported.
+ CM_CONNSUBTYPE_CELLULAR_HSDPA = 10; // @constdefine High-Speed Downlink Packet Access (3.5G).
+ CM_CONNSUBTYPE_CELLULAR_MAX = 11;
+
+ CM_CONNSUBTYPE_NIC_UNKNOWN = 0;
+ CM_CONNSUBTYPE_NIC_ETHERNET = 1;
+ CM_CONNSUBTYPE_NIC_WIFI = 2;
+ CM_CONNSUBTYPE_NIC_MAX = 3;
+
+ CM_CONNSUBTYPE_BLUETOOTH_UNKNOWN = 0;
+ CM_CONNSUBTYPE_BLUETOOTH_RAS = 1;
+ CM_CONNSUBTYPE_BLUETOOTH_PAN = 2;
+ CM_CONNSUBTYPE_BLUETOOTH_MAX = 3;
+
+ CM_CONNSUBTYPE_UNIMODEM_UNKNOWN = 0;
+ CM_CONNSUBTYPE_UNIMODEM_CSD = 1;
+ CM_CONNSUBTYPE_UNIMODEM_OOB_CSD = 2;
+//
+// Derived from unimodem device types
+//
+const
+ CM_CONNSUBTYPE_UNIMODEM_NULL_MODEM = 3; // Direct Cable Connect (DCC)
+ CM_CONNSUBTYPE_UNIMODEM_EXTERNAL_MODEM = 4; // Serial port attached modem
+ CM_CONNSUBTYPE_UNIMODEM_INTERNAL_MODEM = 5;
+ CM_CONNSUBTYPE_UNIMODEM_PCMCIA_MODEM = 6;
+ CM_CONNSUBTYPE_UNIMODEM_IRCOMM_MODEM = 7; // DCC over Irda
+ CM_CONNSUBTYPE_UNIMODEM_DYNAMIC_MODEM = 8; // Bluetooth modem
+ CM_CONNSUBTYPE_UNIMODEM_DYNAMIC_PORT = 9; // DCC over Bluetooth
+ CM_CONNSUBTYPE_UNIMODEM_MAX = 10;
+
+
+ CM_CONNSUBTYPE_VPN_UNKNOWN = 0;
+ CM_CONNSUBTYPE_VPN_L2TP = 1;
+ CM_CONNSUBTYPE_VPN_PPTP = 2;
+ CM_CONNSUBTYPE_VPN_MAX = 3;
+
+ CM_CONNSUBTYPE_PROXY_UNKNOWN = 0;
+ CM_CONNSUBTYPE_PROXY_NULL = 1;
+ CM_CONNSUBTYPE_PROXY_HTTP = 2;
+ CM_CONNSUBTYPE_PROXY_WAP = 3;
+ CM_CONNSUBTYPE_PROXY_SOCKS4 = 4;
+ CM_CONNSUBTYPE_PROXY_SOCKS5 = 5;
+ CM_CONNSUBTYPE_PROXY_MAX = 6;
+
+ CM_CONNSUBTYPE_PC_UNKNOWN = 0;
+ CM_CONNSUBTYPE_PC_DESKTOPPASSTHROUGH = 1;
+ CM_CONNSUBTYPE_PC_IR = 2;
+ CM_CONNSUBTYPE_PC_MODEM_LINK = 3;
+ CM_CONNSUBTYPE_PC_MAX = 4;
+
+// -----------------------------------------------------------------------------
+//
+// @doc EXTERNAL
+//
+// @constants Connection options | Describes possible connection options
+//
+// @comm none
+//
+// -----------------------------------------------------------------------------
+const
+ CM_DSF_BILLBYTIME = $00000001; // @constdefine Connection is billed by time.
+ CM_DSF_ALWAYSON = $00000002; // @constdefine Connection is always on.
+ CM_DSF_SUSPENDRESUME = $00000004; // @constdefine Connection is suspend/resume capable.
+
+// - end of connmgr_conntypes.h
+
+
+// - connmgr_status.h
+
+// -----------------------------------------------------------------------------
+//
+// @doc EXTERNAL
+//
+// @struct CONNMGR_CONNECTION_IPADDR | Address information for an active connection
+//
+// @comm None
+//
+// -----------------------------------------------------------------------------
+type
+ _CONNMGR_CONNECTION_IPADDR = record
+ cIPAddr:DWORD; // @field Count of addresses in array.
+ IPAddr:array[0..0] of SOCKADDR_STORAGE; // @field Array of IPv4 and/or IPv6 addresses.
+ end;
+ CONNMGR_CONNECTION_IPADDR = _CONNMGR_CONNECTION_IPADDR;
+ LPCONNMGR_CONNECTION_IPADDR = ^_CONNMGR_CONNECTION_IPADDR;
+
+// -----------------------------------------------------------------------------
+//
+// @doc EXTERNAL
+//
+// @struct CONNMGR_CONNECTION_DETAILED_STATUS | Information about available connections
+//
+// @comm None
+//
+// -----------------------------------------------------------------------------
+const
+ CONNMGRDETAILEDSTATUS_VERSION = 1;
+
+ CONNMGRDETAILEDSTATUS_PARAM_TYPE = $00000001;
+ CONNMGRDETAILEDSTATUS_PARAM_SUBTYPE = $00000002;
+ CONNMGRDETAILEDSTATUS_PARAM_DESTNET = $00000004;
+ CONNMGRDETAILEDSTATUS_PARAM_SOURCENET = $00000008;
+ CONNMGRDETAILEDSTATUS_PARAM_FLAGS = $00000010;
+ CONNMGRDETAILEDSTATUS_PARAM_SECURE = $00000020;
+ CONNMGRDETAILEDSTATUS_PARAM_DESCRIPTION = $00000040;
+ CONNMGRDETAILEDSTATUS_PARAM_ADAPTERNAME = $00000080;
+ CONNMGRDETAILEDSTATUS_PARAM_CONNSTATUS = $00000100;
+ CONNMGRDETAILEDSTATUS_PARAM_LASTCONNECT = $00000200;
+ CONNMGRDETAILEDSTATUS_PARAM_SIGNALQUALITY = $00000400;
+ CONNMGRDETAILEDSTATUS_PARAM_IPADDR = $00000800;
+
+type
+ LPCONNMGR_CONNECTION_DETAILED_STATUS = ^_CONNMGR_CONNECTION_DETAILED_STATUS;
+ _CONNMGR_CONNECTION_DETAILED_STATUS = record
+ pNext:LPCONNMGR_CONNECTION_DETAILED_STATUS;
+
+ dwVer:DWORD; // @field Structure version; current is CONNMGRDETAILEDSTATUS_VERSION.
+ dwParams:DWORD; // @field Combination of CONNMGRDETAILEDSTATUS_PARAM_* values.
+
+ dwType:DWORD; // @field One of CM_CONNTYPE_* values.
+ dwSubtype:DWORD; // @field One of CM_CONNSUBTYPE_* values.
+
+ dwFlags:DWORD; // @field Combination of CM_DSF_* flags.
+ dwSecure:DWORD; // @field Secure level (0 == not-secure) of connection.
+
+ guidDestNet:GUID; // @field GUID of destination network.
+ guidSourceNet:GUID; // @field GUID of source network.
+
+ szDescription:PTCHAR; // @field Name of connection, 0-terminated string or NULL if N/A.
+ szAdapterName:GUID; // @field Name of adapter, 0-terminated or NULL if N/A.
+
+ dwConnectionStatus:DWORD; // @field One of CONNMGR_STATUS_*.
+ LastConnectTime:SYSTEMTIME; // @field Time connection was last established.
+ dwSignalQuality:DWORD; // @field Signal quality normalized in the range 0-255.
+
+ pIPAddr:LPCONNMGR_CONNECTION_IPADDR; // @field Available IP addrs, or NULL if N/A.
+ end;
+ CONNMGR_CONNECTION_DETAILED_STATUS = _CONNMGR_CONNECTION_DETAILED_STATUS;
+// End of version 1 fields.
+
+
+// -----------------------------------------------------------------------------
+//
+// @doc EXTERNAL
+//
+// @func ConnMgrQueryDetailedStatus | Returns detailed information about all existing connections.
+//
+// @comm Standard semantics here, call once to find out buffer size, then call
+// again to get array of CONNMGR_CONNECTION_DETAILED_STATUS structures.
+// Note: since connections can change often, make sure to allow for possibility
+// that between first and second call, the necessary amount of space needed for
+// the return structure changes.
+//
+// -----------------------------------------------------------------------------
+
+function ConnMgrQueryDetailedStatus(pStatusBuffer:LPCONNMGR_CONNECTION_DETAILED_STATUS; // @parm Pointer to buffer to be filled status info.
+ pcbBufferSize:LPDWORD // @parm IN: Size of buffer. OUT: size of buffer needed.
+ ):HRESULT; external CellcoreDLL name 'ConnMgrQueryDetailedStatus';
+
+// -----------------------------------------------------------------------------
+//
+// @doc EXTERNAL
+//
+// @func ConnMgrRegisterForStatusNotification | Registers a window handle for connection status notifications.
+//
+// @comm Will post a notification when,
+// 1) an inactive connection is created or deleted, ex. via user input.
+// 2) any of of the active connections changes connection state, i.e.
+// active to inactive, or inactive to active.
+// Note: Notifications will not be generated for other changes, ex. change in
+// signal quality.
+//
+// -----------------------------------------------------------------------------
+
+const
+ CONNMGR_STATUS_CHANGE_NOTIFICATION_MSG = 'CONNMGR_STATUS_CHANGE_NOTIFICATION_MSG';
+
+function ConnMgrRegisterForStatusChangeNotification(fEnable:BOOL; // @parm Turn on or turn off notifications
+ _hWnd:HWND // @parm Window to post status change notifications to
+ ):HRESULT; external CellcoreDLL name 'ConnMgrRegisterForStatusChangeNotification';
+
+// - end of connmgr_status.h
+
+
+// - connmgr_proxy.h
+
+// Proxy CSP config/settings
+const
+ IID_ConnPrv_IProxyExtension:TIID = '{AF96B0BD-A481-482C-A094-A8448767A0C0}';
+
+const
+ CMPROXY_PROXYSERVER_MAXSIZE = 256;
+ CMPROXY_USERNAME_MAXSIZE = 32;
+ CMPROXY_PASSWORD_MAXSIZE = 32;
+ CMPROXY_EXTRAINFO_MAXSIZE = 256;
+ CMPROXY_PROXYOVERRIDE_MAXSIZE = 64;
+
+type
+ _PROXY_CONFIG = record
+ dwType:DWORD;
+ dwEnable:DWORD;
+ szProxyServer:array[0..CMPROXY_PROXYSERVER_MAXSIZE-1] of TCHAR;
+ szUsername:array[0..CMPROXY_USERNAME_MAXSIZE-1] of TCHAR;
+ szPassword:array[0..CMPROXY_PASSWORD_MAXSIZE-1] of TCHAR;
+ szProxyOverride:array[0..CMPROXY_PROXYOVERRIDE_MAXSIZE-1] of TCHAR;
+ szExtraInfo:array[0..CMPROXY_EXTRAINFO_MAXSIZE-1] of TCHAR;
+ end;
+ PROXY_CONFIG = _PROXY_CONFIG;
+ LPPROXY_CONFIG = ^_PROXY_CONFIG;
+
+// - end of connmgr_proxy.h
+
+// - connmgr.h
+
+const
+ IID_DestNetInternet:TIID = '{436EF144-B4FB-4863-A041-8F905A62C572}';
+
+ IID_DestNetCorp:TIID = '{A1182988-0D73-439e-87AD-2A5B369F808B}';
+
+ IID_DestNetWAP = '{7022E968-5A97-4051-BC1C-C578E2FBA5D9}';
+
+ IID_DestNetSecureWAP:TIID = '{F28D1F74-72BE-4394-A4A7-4E296219390C}';
+
+//
+// Connection Manager
+//
+
+//
+// Client API
+//
+
+// -----------------------------------------------------------------------------
+//
+// @doc EXTERNAL
+//
+// @constants Valid Params | Defines valid parameters in CONNMGR_CONNECTIONINFO
+//
+// @comm The following flags in the dwParams field of the CONNMGR_CONNECTIONINFO structure
+// define which optional parameters are valid.
+//
+// -----------------------------------------------------------------------------
+const
+ CONNMGR_PARAM_GUIDDESTNET = $01; // @constdefine guidDestNet field is valid
+ CONNMGR_PARAM_MAXCOST = $02; // @constdefine MaxCost field is valid
+ CONNMGR_PARAM_MINRCVBW = $04; // @constdefine MinRcvBw field is valid
+ CONNMGR_PARAM_MAXCONNLATENCY = $08; // @constdefine MaxConnLatency field is valid
+
+// -----------------------------------------------------------------------------
+//
+// @doc EXTERNAL
+//
+// @constants Proxy flags | Defines which proxies the application supports
+//
+// @comm The following flags in the dwFlags field of the CONNMGR_CONNECTIONINFO structure
+// define special connection properties supported by client apps, typically which proxies are
+// supported by each app. For example, each CONNMGR_FLAG_PROXY_* specifies that this connection
+// can be specified by configuring an appropriate proxy server. e.g. HTTP this is appropriate
+// for Internet Explorer and other HTTP based protocols, including HTTP-DAV synchronization.
+// If none of these flags are specified, then only a direct IP connection (or tunnel) will be attempted.
+//
+// -----------------------------------------------------------------------------
+const
+ CONNMGR_FLAG_PROXY_HTTP = $01; // @constdefine HTTP Proxy supported
+ CONNMGR_FLAG_PROXY_WAP = $02; // @constdefine WAP Proxy (gateway) supported
+ CONNMGR_FLAG_PROXY_SOCKS4 = $04; // @constdefine SOCKS4 Proxy supported
+ CONNMGR_FLAG_PROXY_SOCKS5 = $08; // @constdefine SOCKS5 Proxy supported
+
+// -----------------------------------------------------------------------------
+//
+// @doc EXTERNAL
+//
+// @constants Control flags | Defines connection properties
+//
+// @comm The following flags in the dwFlags field of the CONNMGR_CONNECTIONINFO structure
+// define special connection properties supported by client apps,
+//
+// -----------------------------------------------------------------------------
+const
+ CONNMGR_FLAG_SUSPEND_AWARE = $10; // @constdefine suspended connections supported
+ CONNMGR_FLAG_REGISTERED_HOME = $20; // @constdefine only dial out if we're registered on the home network
+ CONNMGR_FLAG_NO_ERROR_MSGS = $40; // @constdefine don't show any error messages for failed connections
+ CONNMGR_FLAG_WAKE_ON_INCOMING = $80; // @constdefine to satisfy request use only those interfaces that can wake the system on incoming traffic
+
+// -----------------------------------------------------------------------------
+//
+// @doc EXTERNAL
+//
+// @constants Priority | Defines which priority of the applications connections
+//
+// @comm The following flags in the dwPriority field of the CONNMGR_CONNECTIONINFO structure
+// define the priority of the connection. Connection manager arbitrates among multiple connections,
+// satisfying as many as possible at a time but giving preference to higher priorities
+//
+// -----------------------------------------------------------------------------
+const
+ CONNMGR_PRIORITY_VOICE = $00020000;
+// @constdefine Voice, highest priority, reserved for internal use only.
+
+ CONNMGR_PRIORITY_USERINTERACTIVE = $00008000;
+// @constdefine User initiated action caused this request, and UI is
+// currently pending on the creation of this connection.
+// This is appropriate for an interactive browsing session,
+// or if the user selects "MORE" at the bottom of a truncated
+// mail message, etc.
+
+
+ CONNMGR_PRIORITY_USERBACKGROUND = $00002000;
+// @constdefine User initiated connection which has recently become idle.
+// A connection should be marked as idle when it is no
+// longer the user's current task.
+
+ CONNMGR_PRIORITY_USERIDLE = $00000800;
+// @constdefine Interactive user task which has been idle for an application
+// specified time. The application should toggle the state
+// between CONNMGR_PRIORITY_USERIDLE and CONNMGR_PRIORITY_USERINTERACTIVE as the user
+// uses the application. This helps ConnectionManager
+// optimize responsiveness to the interactive application,
+// while sharing the connection with background applications.
+
+ CONNMGR_PRIORITY_HIPRIBKGND = $00000200;
+// @constdefine High priority background connection
+
+ CONNMGR_PRIORITY_IDLEBKGND = $00000080;
+// @constdefine Idle priority background connection
+
+ CONNMGR_PRIORITY_EXTERNALINTERACTIVE = $00000020;
+// @constdefine Connection is requested on behalf of an external entity, but
+// is an interactive session (e.g. AT Command Iterpreter)
+
+ CONNMGR_PRIORITY_LOWBKGND = $00000008;
+// @constdefine Lowest priority. Only connects if another higher priority client is already using the same path.
+
+ CONNMGR_PRIORITY_CACHED = $00000002;
+// @constdefine Cached connection, reserved for internal use only.
+
+ CONNMGR_PRIORITY_ALWAYS_ON = $00000001;
+// @constdefine Always on connection, reserved for internal use only.
+
+// -----------------------------------------------------------------------------
+//
+// @doc EXTERNAL
+//
+// @struct CONNMGR_CONNECTIONINFO | Information about connection request
+//
+// @comm None
+//
+// -----------------------------------------------------------------------------
+type
+ _CONNMGR_CONNECTIONINFO = record
+ cbSize:DWORD; // @field Size of this structure
+ dwParams:DWORD; // @field Valid parms, set of CONNMGR_PARAM_*
+ dwFlags:DWORD; // @field Connection flags, set of CONNMGR_FLAG_*
+ dwPriority:DWORD; // @field Priority, one of CONNMGR_PRIORITY_*
+ bExclusive:BOOL; // @field Connection is exclusive, see comments
+ bDisabled:BOOL; // @field Don't actually connect
+ guidDestNet:GUID; // @field GUID of network to connect to
+ _hWnd:HWND; // @field hWnd to post status change messages to
+ uMsg:UINT; // @field Msg to use when posting status changes
+ lParam:LPARAM; // @field lParam to use when posting status changes
+ ulMaxCost:ULONG; // @field Max acceptable cost of connection
+ ulMinRcvBw:ULONG; // @field Min acceptable receive bandwidth of connection
+ ulMaxConnLatency:ULONG; // @field Max acceptable connect latency
+ end;
+ CONNMGR_CONNECTIONINFO = _CONNMGR_CONNECTIONINFO;
+ LPCONNMGR_CONNECTIONINFO = ^_CONNMGR_CONNECTIONINFO;
+
+// @comm bExclusive: If false, the connection is shared among all applications, and other
+// applications with an interest in a connection to this network will be notified that
+// the connection is available. If true, then this connection can not be shared with other
+// applications, and no other applications will be notified, and any application requesting
+// a connection to the same network will be treated as a contender for
+// the same resource, and not permitted to share the existing connection. A decision will be made
+// between this connection and the others based on connection priority.
+
+// -----------------------------------------------------------------------------
+//
+// @doc EXTERNAL
+//
+// @func Creates a connection request.
+//
+// @comm Return Value: S_OK if success, error code otherwise
+//
+// -----------------------------------------------------------------------------
+function ConnMgrEstablishConnection(pConnInfo:LPCONNMGR_CONNECTIONINFO; // @parm Params describing requested connection
+ phConnection:LPHANDLE // @parm Returned connection handle
+ ):HRESULT; external CellcoreDLL name 'ConnMgrEstablishConnection';
+
+// -----------------------------------------------------------------------------
+//
+// @doc EXTERNAL
+//
+// @func Creates a connection request.
+//
+// @comm Return Value: Same as ConnMgrEstablishConnection, but doesn't return
+// until connection has either been established or failed.
+//
+// -----------------------------------------------------------------------------
+function ConnMgrEstablishConnectionSync(pConnInfo:LPCONNMGR_CONNECTIONINFO; // @parm Params describing requested connection
+ phConnection:LPHANDLE; // @parm Returned connection handle
+ dwTimeout:DWORD; // @parm Timeout
+ pdwStatus:LPDWORD // @parm Final status value, one of CONNMGR_STATUS_*
+ ):HRESULT; external CellcoreDLL name 'ConnMgrEstablishConnectionSync';
+
+// -----------------------------------------------------------------------------
+//
+// @doc EXTERNAL
+//
+// @constants Status values | Describes the current status of the connection
+//
+// @comm none
+//
+// -----------------------------------------------------------------------------
+const
+ CONNMGR_STATUS_UNKNOWN = $00; // @constdefine Unknown status
+
+ CONNMGR_STATUS_CONNECTED = $10; // @constdefine Connection is up
+ CONNMGR_STATUS_SUSPENDED = $11; // @constdefine Connection is up but suspended
+
+ CONNMGR_STATUS_DISCONNECTED = $20; // @constdefine Connection is disconnected
+ CONNMGR_STATUS_CONNECTIONFAILED = $21; // @constdefine Connection failed and cannot not be reestablished
+ CONNMGR_STATUS_CONNECTIONCANCELED = $22; // @constdefine User aborted connection
+ CONNMGR_STATUS_CONNECTIONDISABLED = $23; // @constdefine Connection is ready to connect but disabled
+ CONNMGR_STATUS_NOPATHTODESTINATION = $24; // @constdefine No path could be found to destination
+ CONNMGR_STATUS_WAITINGFORPATH = $25; // @constdefine Waiting for a path to the destination
+ CONNMGR_STATUS_WAITINGFORPHONE = $26; // @constdefine Voice call is in progress
+ CONNMGR_STATUS_PHONEOFF = $27; // @constdefine Phone resource needed and phone is off
+ CONNMGR_STATUS_EXCLUSIVECONFLICT = $28; // @constdefine the connection could not be established because it would multi-home an exclusive connection
+ CONNMGR_STATUS_NORESOURCES = $29; // @constdefine Failed to allocate resources to make the connection.
+ CONNMGR_STATUS_CONNECTIONLINKFAILED = $2A; // @constdefine Connection link disconnected prematurely.
+ CONNMGR_STATUS_AUTHENTICATIONFAILED = $2B; // @constdefine Failed to authenticate user.
+ CONNMGR_STATUS_NOPATHWITHPROPERTY = $2C; // @constdefine Path with connection having requested property, ex. WAKE_ON_INCOMING, is not available.
+
+ CONNMGR_STATUS_WAITINGCONNECTION = $40; // @constdefine Attempting to connect
+ CONNMGR_STATUS_WAITINGFORRESOURCE = $41; // @constdefine Resource is in use by another connection
+ CONNMGR_STATUS_WAITINGFORNETWORK = $42; // @constdefine Network is used by higher priority thread or device is roaming.
+
+ CONNMGR_STATUS_WAITINGDISCONNECTION = $80; // @constdefine Connection is being brought down
+ CONNMGR_STATUS_WAITINGCONNECTIONABORT = $81; // @constdefine Aborting connection attempt
+
+
+// -----------------------------------------------------------------------------
+//
+// @doc EXTERNAL
+//
+// @func Returns status about the current connection.
+//
+// @comm none
+//
+// -----------------------------------------------------------------------------
+function ConnMgrConnectionStatus(hConnection:HANDLE; // @parm Handle to connection, returned from ConnMgrEstablishConnection
+ pdwStatus:LPDWORD // @parm Returns current connection status, one of CONNMGR_STATUS_*
+ ):HRESULT; external CellcoreDLL name 'ConnMgrConnectionStatus';
+
+// -----------------------------------------------------------------------------
+//
+// @doc EXTERNAL
+//
+// @func Deletes specified connection request, potentially dropping the physical connection.
+//
+// @comm none
+//
+// -----------------------------------------------------------------------------
+function ConnMgrReleaseConnection(hConnection:HANDLE; // @parm Handle to connection, returned from ConnMgrEstablishConnection
+ bCache:BOOL // @parm ConnMgr can cache connection
+ ):HRESULT; external CellcoreDLL name 'ConnMgrReleaseConnection';
+
+// -----------------------------------------------------------------------------
+//
+// @doc EXTERNAL
+//
+// @func Changes a connection's priority.
+//
+// @comm none
+//
+// -----------------------------------------------------------------------------
+function ConnMgrSetConnectionPriority(hConnection:HANDLE; // @parm Handle to connection, returned from ConnMgrEstablishConnection
+ dwPriority:DWORD // @parm New priority
+ ):HRESULT; external CellcoreDLL name 'ConnMgrSetConnectionPriority';
+
+// -----------------------------------------------------------------------------
+//
+// @doc EXTERNAL
+//
+// @func General purpose (backdoor) API for exchanging information with planner or providers.
+//
+// @comm none
+//
+// -----------------------------------------------------------------------------
+function ConnMgrProviderMessage(hConnection:HANDLE; // @parm Optional, Handle to connection
+ pguidProvider:LPGUID; // @parm Provider GUID
+ pdwIndex:LPDWORD; // @parm Optional index, used to address multiple providers associated with connection
+ dwMsg1:DWORD; // @parm General param 1
+ dwMsg2:DWORD; // @parm General param 2
+ pParams:PBYTE; // @param Pointer to params structure
+ cbParamSize:ULONG // @param size of params structure
+ ):HRESULT; external CellcoreDLL name 'ConnMgrProviderMessage';
+
+const
+ CONNMGR_MAX_DESC = 128; // @constdefine Max size of a network description
+
+// -----------------------------------------------------------------------------
+//
+// @doc EXTERNAL
+//
+// @struct CONNMGR_DESTINATION_INFO | Information about a specific network
+//
+// @comm None
+//
+// -----------------------------------------------------------------------------
+type
+ _CONNMGR_DESTINATION_INFO = record
+ _guid:GUID; // @field GUID associated with network
+ szDescription:array[0..CONNMGR_MAX_DESC-1] of TCHAR; // @field Description of network
+ fSecure:BOOL; // @field Is it OK to allow multi-homing on the network
+ end;
+ CONNMGR_DESTINATION_INFO = _CONNMGR_DESTINATION_INFO;
+ LPCONNMGR_DESTINATION_INFO = ^_CONNMGR_DESTINATION_INFO;
+
+
+// -----------------------------------------------------------------------------
+//
+// @doc EXTERNAL
+//
+// @func Enumerates available networks.
+//
+// @comm none
+//
+// -----------------------------------------------------------------------------
+function ConnMgrEnumDestinations(nIndex:longint; // @param Index of network
+ pDestInfo:LPCONNMGR_DESTINATION_INFO // @param ptr to structure to fill in with info about network
+ ):HRESULT; external CellcoreDLL name 'ConnMgrEnumDestinations';
+
+// -----------------------------------------------------------------------------
+//
+// @doc EXTERNAL
+//
+// @struct SCHEDULEDCONNECTIONINFO | Information about a scheduled connection
+//
+// @comm None
+//
+// -----------------------------------------------------------------------------
+type
+ _SCHEDULEDCONNECTIONINFO = record
+ guidDest:GUID; // @field Guid of network
+ uiStartTime:UINT64; // @field Starting time, same ref as filetime
+ uiEndTime:UINT64; // @field Ending time, same ref as filetime
+ uiPeriod:UINT64; // @field Period between schedule attempts
+ szAppName:array[0..MAX_PATH-1] of TCHAR; // @field App name to execute when scheduled
+ szCmdLine:array[0..MAX_PATH-1] of TCHAR; // @field Cmd line to execute when scheduled
+ szToken:array[0..31] of TCHAR; // @field Unique token identifying this scheduled connection
+ bPiggyback:BOOL; // @field If true, execute app whenever network is available
+ end;
+ SCHEDULEDCONNECTIONINFO = _SCHEDULEDCONNECTIONINFO;
+ LPSCHEDULEDCONNECTIONINFO = ^_SCHEDULEDCONNECTIONINFO;
+
+// -----------------------------------------------------------------------------
+//
+// @doc EXTERNAL
+//
+// @func Registers a scheduled connection
+//
+// @comm none
+//
+// -----------------------------------------------------------------------------
+function ConnMgrRegisterScheduledConnection(pSCI:SCHEDULEDCONNECTIONINFO // @param Ptr to struct describing scheduled connection
+ ):HRESULT; external CellcoreDLL name 'ConnMgrRegisterScheduledConnection';
+
+// -----------------------------------------------------------------------------
+//
+// @doc EXTERNAL
+//
+// @func Unregisters a scheduled connection
+//
+// @comm none
+//
+// -----------------------------------------------------------------------------
+function ConnMgrUnregisterScheduledConnection(pwszToken:LPCTSTR // @param Token of scheduled connection to unregister
+ ):HRESULT; external CellcoreDLL name 'ConnMgrUnregisterScheduledConnection';
+
+// -----------------------------------------------------------------------------
+//
+// @doc EXTERNAL
+//
+// @func Maps a URL to a destination network GUID
+//
+// @comm none
+//
+// -----------------------------------------------------------------------------
+function ConnMgrMapURL(pwszURL:LPCTSTR; // @parm URL to map
+ pguid:LPGUID; // @parm Returned network GUID
+ pdwIndex:LPDWORD // @parm Index in table for next search
+ ):HRESULT; external CellcoreDLL name 'ConnMgrMapURL';
+
+// -----------------------------------------------------------------------------
+//
+// @doc EXTERNAL
+//
+// @func Returns a handle to an event which becomes signaled when the ConnMgr API
+// is ready to be used. Caller is responsible for calling CloseHandle on the returned event.
+//
+// @comm none
+//
+// -----------------------------------------------------------------------------
+function ConnMgrApiReadyEvent:HANDLE; external CellcoreDLL name 'ConnMgrApiReadyEvent';
+
+// -----------------------------------------------------------------------------
+//
+// @doc EXTERNAL
+//
+// @constants Defines the type of a connection reference
+//
+// @comm none
+//
+// -----------------------------------------------------------------------------
+
+{$PACKENUM 4}
+type
+ _ConnMgrConRefTypeEnum = (ConRefType_NAP := 0, // @constdefine NAP connection reference
+ ConRefType_PROXY // @constdefine PROXY connection reference
+ );
+ ConnMgrConRefTypeEnum = _ConnMgrConRefTypeEnum;
+{$PACKENUM DEFAULT}
+
+// -----------------------------------------------------------------------------
+//
+// @doc EXTERNAL
+//
+// @func Maps a connection reference to its corresponding GUID
+//
+// @comm none
+//
+// -----------------------------------------------------------------------------
+
+function ConnMgrMapConRef(e:ConnMgrConRefTypeEnum; // @parm Specify type of connection reference
+ szConRef:LPCTSTR; // @parm Connection reference to map
+ pGUID:LPGUID // @parm Returned connection reference GUID
+ ):HRESULT; external CellcoreDLL name 'ConnMgrMapConRef';
+
+
+// - end of connmgr.h
+
+implementation
+
+end. \ No newline at end of file
diff --git a/packages/winceunits/src/devload.pp b/packages/winceunits/src/devload.pp
new file mode 100644
index 0000000000..70422f5b86
--- /dev/null
+++ b/packages/winceunits/src/devload.pp
@@ -0,0 +1,227 @@
+//
+// Module Name:
+//
+// devload.h
+//
+// Abstract:
+//
+// Device loader structures and defines
+//
+
+//
+// Microsoft Windows Mobile 6.0 for PocketPC SDK.
+//
+
+unit devload;
+
+{$CALLING cdecl}
+
+interface
+
+uses Windows;
+
+// @doc DRIVERS
+
+//
+// These keys are under HKEY_LOCAL_MACHINE
+//
+const
+ DEVLOAD_DRIVERS_KEY = 'Drivers';
+ DEVLOAD_BUILT_IN_KEY = 'Drivers\BuiltIn';
+ DEVLOAD_PCMCIA_KEY = 'Drivers\PCMCIA';
+ DEVLOAD_ACTIVE_KEY = 'Drivers\Active';
+ DEVLOAD_DETECT_KEY = DEVLOAD_PCMCIA_KEY + '\Detect';
+
+//
+// These are the required and optional values under a device key.
+//
+const
+ DEVLOAD_DLLNAME_VALNAME = 'Dll'; // DLL name (required)
+ DEVLOAD_DLLNAME_VALTYPE = REG_SZ;
+ DEVLOAD_ICLASS_VALNAME = 'IClass'; // Class(es) of device interface (semi-required)
+ DEVLOAD_ICLASS_VALTYPE = REG_MULTI_SZ;
+ DEVLOAD_LOADORDER_VALNAME = 'Order'; // LoadOrder (optional)
+ DEVLOAD_LOADORDER_VALTYPE = REG_DWORD;
+ DEVLOAD_ENTRYPOINT_VALNAME = 'Entry'; // Entrypoint name (deprecated)
+ DEVLOAD_ENTRYPOINT_VALTYPE = REG_SZ;
+ DEVLOAD_PREFIX_VALNAME = 'Prefix'; // Device prefix (optional)
+ DEVLOAD_PREFIX_VALTYPE = REG_SZ;
+ DEVLOAD_INDEX_VALNAME = 'Index'; // Device index (optional)
+ DEVLOAD_INDEX_VALTYPE = REG_DWORD;
+ DEVLOAD_CONTEXT_VALNAME = 'Context'; // Device context (optional)
+ DEVLOAD_CONTEXT_VALTYPE = REG_DWORD;
+ DEVLOAD_INITCODE_VALNAME = 'Ioctl'; // Device IO control code to indicate context (deprecated)
+ DEVLOAD_INITCODE_VALTYPE = REG_DWORD;
+ DEVLOAD_BUSINITCODE_VALNAME = 'BusIoctl'; // Bus IO control code to indicate context
+ DEVLOAD_BUSINITCODE_VALTYPE = REG_DWORD;
+ DEVLOAD_FLAGS_VALNAME = 'Flags'; // Flag to control loading/unloading (optional)
+ DEVLOAD_FLAGS_VALTYPE = REG_DWORD;
+ DEVLOAD_INTRPEND_VALNAME = 'NoIntrPend'; // Is the interrupt pending flag invalid (optional)
+ DEVLOAD_INTRPEND_VALTYPE = REG_DWORD;
+ DEVLOAD_REPARMS_VALNAME = 'RegenumParms'; // Regenum parms passed into Active\xx
+ DEVLOAD_REPARMS_VALTYPE = REG_MULTI_SZ;
+
+ DEVLOAD_MEMBASE_VALNAME = 'MemBase'; // Memory base (optional)
+ DEVLOAD_MEMLEN_VALNAME = 'MemLen'; // Memory length (optional)
+ DEVLOAD_IOBASE_VALNAME = 'IoBase'; // IO base (optional)
+ DEVLOAD_IOLEN_VALNAME = 'IoLen'; // IO length (optional)
+ DEVLOAD_SYSINTR_VALNAME = 'SysIntr'; // System interrupt number (optional)
+ DEVLOAD_IRQ_VALNAME = 'Irq'; // Irq number (optional)
+ DEVLOAD_IFCTYPE_VALNAME = 'InterfaceType'; // Bus interface type (i.e. PCIbus, ISA, etc) (optional)
+ DEVLOAD_BUSNUMBER_VALNAME = 'BusNumber'; // Bus number (relevant for PCIbus) (optional)
+ DEVLOAD_ISRDLL_VALNAME = 'IsrDll'; // DLL name of ISR (optional)
+ DEVLOAD_ISRHANDLER_VALNAME = 'IsrHandler'; // ISR handler function name (optional)
+
+//
+// The presence of the value "Keep" will cause device.exe to skip the call to
+// FreeLibrary after calling the specified entrypoint. This only affects
+// builtin drivers that specify an entrypoint. (This usage is deprecated -
+// make appropriate use of the UNLOAD flag instead).
+//
+const
+ DEVLOAD_KEEPLIB_VALNAME = 'Keep'; // (deprecated - see above)
+ DEVLOAD_KEEPLIB_VALTYPE = REG_DWORD;
+
+//
+// Flag values.
+//
+const
+ DEVFLAGS_NONE = $00000000; // No flags defined
+ DEVFLAGS_UNLOAD = $00000001; // Unload driver after call to entry point returns
+ DEVFLAGS_LOADLIBRARY = $00000002; // Use LoadLibrary instead of LoadDriver
+ DEVFLAGS_NOLOAD = $00000004; // Don't load Dll
+ DEVFLAGS_NAKEDENTRIES = $00000008; // Entry points don't have Prefix prepended
+ DEVFLAGS_BOOTPHASE_1 = $00001000; // This driver only load at system phase 1
+ DEVFLAGS_IRQ_EXCLUSIVE = $00000100; // This driver only can be load when it has exclusive access for IRQ.
+ DEVFLAGS_TRUSTEDCALLERONLY = $00010000; // This driver only can be opened by trusted application.
+
+//
+// Structure passed in the input buffer of DeviceIoControl() for the
+// post initialization ioctl
+//
+type
+ _POST_INIT_BUF = record
+ p_hDevice:HANDLE; // device handle from RegisterDevice
+ p_hDeviceKey:HKEY; // open registry handle to the driver's device key
+ end;
+ POST_INIT_BUF = _POST_INIT_BUF;
+ PPOST_INIT_BUF = ^POST_INIT_BUF;
+
+
+//
+// For passing additional registry settings to ActivateDeviceEx()
+//
+type
+ _REGINI = record
+ lpszVal:LPCWSTR;
+ pData:LPBYTE;
+ dwLen:DWORD;
+ dwType:DWORD;
+ end;
+ REGINI = _REGINI;
+ LPCREGINI = ^_REGINI;
+
+//
+// These values reside under a device's active key
+//
+const
+ DEVLOAD_CLIENTINFO_VALNAME = 'ClientInfo'; // ClientInfo DWORD from ActivateDriver
+ DEVLOAD_CLIENTINFO_VALTYPE = REG_DWORD;
+ DEVLOAD_HANDLE_VALNAME = 'Hnd'; // Device handle (from RegisterDevice)
+ DEVLOAD_HANDLE_VALTYPE = REG_DWORD;
+ DEVLOAD_DEVNAME_VALNAME = 'Name'; // Device name (i.e "COM1:")
+ DEVLOAD_DEVNAME_VALTYPE = REG_SZ;
+ DEVLOAD_DEVKEY_VALNAME = 'Key'; // Device key in \Drivers\(Built-In or PCMCIA)
+ DEVLOAD_DEVKEY_VALTYPE = REG_SZ;
+ DEVLOAD_PNPID_VALNAME = 'PnpId'; // Plug and Play Id (PCMCIA, optional)
+ DEVLOAD_PNPID_VALTYPE = REG_SZ;
+ DEVLOAD_SOCKET_VALNAME = 'Sckt'; // PCMCIA socket (optional)
+ DEVLOAD_SOCKET_VALTYPE = REG_DWORD; // Actually a CARD_SOCKET_HANDLE
+ DEVLOAD_INTERFACETYPE_VALNAME = 'InterfaceType'; // Bus Type
+ DEVLOAD_INTERFACETYPE_VALTYPE = REG_DWORD;
+
+
+//
+// These values reside under a device's active key. They are provided by the device's bus
+// driver. All values are optional. The BusParent tells the Device Manager which device
+// driver loaded the new driver. The BusPrefix is used to specify DLL entry point decoration
+// for devices that do not expose a stream interface to applications (via the legacy or $device
+// namespaces). If a Prefix value is specified in the device's device key and a BusPrefix value
+// is specified, they must match. The BusName provides the Device Manager with the name that the
+// device driver will expose in the $bus namespace. This name must be unique and is completely
+// specified by the bus driver; it is not decorated with an instance index; if a duplicate name
+// is found, the driver will not load.
+//
+const
+ DEVLOAD_BUSPARENT_VALNAME = 'BusParent'; // parent bus driver handle
+ DEVLOAD_BUSPARENT_VALTYPE = REG_DWORD;
+ DEVLOAD_BUSPREFIX_VALNAME = 'BusPrefix'; // DLL entry point decoration -- must match "Prefix" if present in device key
+ DEVLOAD_BUSPREFIX_VALTYPE = REG_SZ;
+ DEVLOAD_BUSNAME_VALNAME = 'BusName'; // device's name on the parent bus
+ DEVLOAD_BUSNAME_VALTYPE = REG_SZ;
+
+//
+// TAPI Pnp support
+//
+const
+ DEVLOAD_TSPDLL_VALNAME = 'Tsp'; // TAPI Service Provider DLL
+ DEVLOAD_TSPDLL_VALTYPE = REG_SZ;
+ DEVLOAD_TSPDEV_VALNAME = 'THnd'; // TAPI device index
+ DEVLOAD_TSPDEV_VALTYPE = REG_DWORD;
+
+//
+// Prototype for the optional device driver entrypoint
+//
+type
+ PFN_DEV_ENTRY = function(param1:LPTSTR):DWORD; cdecl; // Parameter is registry path of device's key
+
+const
+ DEVKEY_LEN = 256; // Max length of registry key path name
+ DEVNAME_LEN = 16; // Max length of device name
+ DEVDLL_LEN = 64; // Max length of device driver DLL name
+ DEVENTRY_LEN = 64; // Max length of device driver entrypoint name
+ DEVPREFIX_LEN = 8; // Max length of device prefix
+
+
+//
+// Device APIs: EnumPnpIds, EnumDevices, GetDeviceKeys and OpenDeviceKey
+// (in coredll.dll)
+//
+function EnumPnpIds(PnpList:LPTSTR; lpBuflen:LPDWORD):DWORD; external KernelDLL name 'EnumPnpIds'; // index BE
+function EnumDevices(DevList:LPTSTR; lpBuflen:LPDWORD):DWORD; external KernelDLL name 'EnumDevices'; // index BF
+function GetDeviceKeys(DevName:LPCTSTR; ActiveKey:LPTSTR; lpActiveLen:LPDWORD;
+ DriverKey:LPTSTR; lpDriverLen:LPDWORD):DWORD; external KernelDLL name 'GetDeviceKeys'; // index C0
+function OpenDeviceKey(ActiveKey:LPCTSTR):HKEY; external KernelDLL name 'OpenDeviceKey'; // index C1
+function GetDeviceHandleFromContext(pContext:LPCTSTR):HANDLE; external KernelDLL name 'GetDeviceHandleFromContext';
+
+
+const
+ DevMgrDLL = 'devmgr.dll';
+//
+// Device Manager APIs located in devmgr.dll. These APIs are only available to drivers
+// loaded in the Device Manager's process context.
+//
+function DmAdvertiseInterface(hDevice:HANDLE; const devclass:LPGUID; name:LPCWSTR; fAdd:BOOL):DWORD; external DevMgrDLL name 'DmAdvertiseInterface';
+
+//
+// This interface GUID indicates that the device supports differentiating the $bus and $device
+// (and legacy) namespaces. Devices must advertise this GUID via IClass or calls to
+// DmAdvertiseInterface() before CreateFile() requests on their $bus names will succeed. The GUID
+// must be associated with their bus name, not their $device or legacy name.
+//
+const
+ DMCLASS_PROTECTEDBUSNAMESPACE = '{6F40791D-300E-44E4-BC38-E0E63CA8375C}';
+
+//
+// Drivers that advertise DMCLASS_PROTECTEDBUSNAMESPACE will have this bit set in the dwAccess
+// parameter to their XXX_Open() entry point when a handle is opened using the $bus namespace.
+// This allows them to know which handles are allowed to carry out privileged operations. If they
+// advertise DMCLASS_PROTECTEDBUSNAMESPACE, they are required to block privileged operations on
+// handles opened in the $device or legacy namespaces.
+//
+const
+ DEVACCESS_BUSNAMESPACE = FILE_WRITE_ATTRIBUTES;
+
+implementation
+
+end. \ No newline at end of file
diff --git a/packages/winceunits/src/devmgmt.pp b/packages/winceunits/src/devmgmt.pp
new file mode 100644
index 0000000000..d834b08e3e
--- /dev/null
+++ b/packages/winceunits/src/devmgmt.pp
@@ -0,0 +1,60 @@
+//
+// Module Name:
+//
+// devmgmt.h
+//
+// DESCRIPTION:
+// Device Management APIs
+//
+
+//
+// Included Module Name:
+//
+// cfgmgrapi.h
+//
+// DESCRIPTION:
+// Configmanager API to process XML configuration files
+//
+
+//
+// Microsoft Windows Mobile 6.0 for PocketPC SDK.
+//
+
+unit devmgmt;
+
+{$CALLING cdecl}
+
+interface
+
+uses Windows, aygshell;
+
+// - cfgmgrapi.h
+
+// Possible error codes returned by Configmanager
+const
+ CONFIG_E_OBJECTBUSY = HRESULT($80042001);
+ CONFIG_E_CANCELTIMEOUT = HRESULT($80042002);
+ CONFIG_E_ENTRYNOTFOUND = HRESULT($80042004);
+ CONFIG_S_PROCESSINGCANCELED = HRESULT($00042005);
+ CONFIG_E_CSPEXCEPTION = HRESULT($80042007);
+ CONFIG_E_TRANSACTIONINGFAILURE = HRESULT($80042008);
+ CONFIG_E_BAD_XML = HRESULT($80042009);
+
+// Configmanager flags
+const
+ CFGFLAG_PROCESS = $0001;
+ CFGFLAG_METADATA = $0002;
+
+function DMProcessConfigXML(pszWXMLin:LPCWSTR; dwFlags:DWORD; ppszwXMLout:PLPWSTR):HRESULT; external UserDLLAyg name 'DMProcessConfigXML'; // index 7E5
+
+// - end of cfgmgrapi.h
+
+// - devmgmt.h
+
+function QueryPolicy(dwPolicyId:DWORD; pdwPolicyValue:PDWORD):HRESULT; external UserDLLAyg name 'QueryPolicy';
+
+// - end of devmgmt.h
+
+implementation
+
+end. \ No newline at end of file
diff --git a/packages/winceunits/src/mmreg.pp b/packages/winceunits/src/mmreg.pp
new file mode 100644
index 0000000000..b4d990da64
--- /dev/null
+++ b/packages/winceunits/src/mmreg.pp
@@ -0,0 +1,3122 @@
+//
+// Module Name:
+//
+// mmreg.h
+//
+// Abstract:
+//
+// Multimedia Registration
+//
+
+//
+// Microsoft Windows Mobile 6.0 for PocketPC SDK.
+//
+
+unit mmreg;
+
+interface
+
+uses Windows;
+
+{
+ Automatically converted by H2Pas 1.0.0 from mmreg.h
+ The following command line parameters were used:
+ -d
+ -w
+ -D
+ -l
+ mmreg.h
+}
+
+{ Define the following to skip definitions }
+{ }
+{ NOMMIDS Multimedia IDs are not defined }
+{ NONEWWAVE No new waveform types are defined except WAVEFORMATEX }
+{ NONEWRIFF No new RIFF forms are defined }
+{ NOJPEGDIB No JPEG DIB definitions }
+{ NONEWIC No new Image Compressor types are defined }
+{ NOBITMAP No extended bitmap info header definition }
+
+{$PACKRECORDS 1} // {#include "pshpack1.h" /* Assume byte packing throughout */ }
+
+
+type
+ FOURCC = DWORD; //* a four character code */
+
+{$IFNDEF NOMMIDS}
+// manufacturer IDs
+const
+ MM_MICROSOFT = 1; // Microsoft Corporation
+
+ MM_CREATIVE = 2; // Creative Labs, Inc
+ { Media Vision, Inc. }
+ MM_MEDIAVISION = 3;
+ { Fujitsu Corp. }
+ MM_FUJITSU = 4;
+ { Artisoft, Inc. }
+ MM_ARTISOFT = 20;
+ { Turtle Beach, Inc. }
+ MM_TURTLE_BEACH = 21;
+ { IBM Corporation }
+ MM_IBM = 22;
+ { Vocaltec LTD. }
+ MM_VOCALTEC = 23;
+ { Roland }
+ MM_ROLAND = 24;
+ { DSP Solutions, Inc. }
+ MM_DSP_SOLUTIONS = 25;
+ { NEC }
+ MM_NEC = 26;
+ { ATI }
+ MM_ATI = 27;
+ { Wang Laboratories, Inc }
+ MM_WANGLABS = 28;
+ { Tandy Corporation }
+ MM_TANDY = 29;
+ { Voyetra }
+ MM_VOYETRA = 30;
+ { Antex Electronics Corporation }
+ MM_ANTEX = 31;
+ { ICL Personal Systems }
+ MM_ICL_PS = 32;
+ { Intel Corporation }
+ MM_INTEL = 33;
+ { Advanced Gravis }
+ MM_GRAVIS = 34;
+ { Video Associates Labs, Inc. }
+ MM_VAL = 35;
+ { InterActive Inc }
+ MM_INTERACTIVE = 36;
+ { Yamaha Corporation of America }
+ MM_YAMAHA = 37;
+ { Everex Systems, Inc }
+ MM_EVEREX = 38;
+ { Echo Speech Corporation }
+ MM_ECHO = 39;
+ { Sierra Semiconductor Corp }
+ MM_SIERRA = 40;
+ { Computer Aided Technologies }
+ MM_CAT = 41;
+ { APPS Software International }
+ MM_APPS = 42;
+ { DSP Group, Inc }
+ MM_DSP_GROUP = 43;
+ { microEngineering Labs }
+ MM_MELABS = 44;
+ { Computer Friends, Inc. }
+ MM_COMPUTER_FRIENDS = 45;
+ { ESS Technology }
+ MM_ESS = 46;
+ { Audio, Inc. }
+ MM_AUDIOFILE = 47;
+ { Motorola, Inc. }
+ MM_MOTOROLA = 48;
+ { Canopus, co., Ltd. }
+ MM_CANOPUS = 49;
+ { Seiko Epson Corporation }
+ MM_EPSON = 50;
+ { Truevision }
+ MM_TRUEVISION = 51;
+ { Aztech Labs, Inc. }
+ MM_AZTECH = 52;
+ { Videologic }
+ MM_VIDEOLOGIC = 53;
+ { SCALACS }
+ MM_SCALACS = 54;
+ { Korg Inc. }
+ MM_KORG = 55;
+ { Audio Processing Technology }
+ MM_APT = 56;
+ { Integrated Circuit Systems, Inc. }
+ MM_ICS = 57;
+ { Iterated Systems, Inc. }
+ MM_ITERATEDSYS = 58;
+ { Metheus }
+ MM_METHEUS = 59;
+ { Logitech, Inc. }
+ MM_LOGITECH = 60;
+ { Winnov, Inc. }
+ MM_WINNOV = 61;
+ { NCR Corporation }
+ MM_NCR = 62;
+ { EXAN }
+ MM_EXAN = 63;
+ { AST Research Inc. }
+ MM_AST = 64;
+ { Willow Pond Corporation }
+ MM_WILLOWPOND = 65;
+ { Sonic Foundry }
+ MM_SONICFOUNDRY = 66;
+ { Vitec Multimedia }
+ MM_VITEC = 67;
+ { MOSCOM Corporation }
+ MM_MOSCOM = 68;
+ { Silicon Soft, Inc. }
+ MM_SILICONSOFT = 69;
+ { Supermac }
+ MM_SUPERMAC = 73;
+ { Audio Processing Technology }
+ MM_AUDIOPT = 74;
+ { Speech Compression }
+ MM_SPEECHCOMP = 76;
+ { Ahead, Inc. }
+ MM_AHEAD = 77;
+ { Dolby Laboratories }
+ MM_DOLBY = 78;
+ { OKI }
+ MM_OKI = 79;
+ { AuraVision Corporation }
+ MM_AURAVISION = 80;
+ { Ing C. Olivetti & C., S.p.A. }
+ MM_OLIVETTI = 81;
+ { I/O Magic Corporation }
+ MM_IOMAGIC = 82;
+ { Matsushita Electric Industrial Co., LTD. }
+ MM_MATSUSHITA = 83;
+ { Control Resources Limited }
+ MM_CONTROLRES = 84;
+ { Xebec Multimedia Solutions Limited }
+ MM_XEBEC = 85;
+ { New Media Corporation }
+ MM_NEWMEDIA = 86;
+ { Natural MicroSystems }
+ MM_NMS = 87;
+ { Lyrrus Inc. }
+ MM_LYRRUS = 88;
+ { Compusic }
+ MM_COMPUSIC = 89;
+ { OPTi Computers Inc. }
+ MM_OPTI = 90;
+ { Adlib Accessories Inc. }
+ MM_ADLACC = 91;
+ { Compaq Computer Corp. }
+ MM_COMPAQ = 92;
+ { Dialogic Corporation }
+ MM_DIALOGIC = 93;
+ { InSoft, Inc. }
+ MM_INSOFT = 94;
+ { M.P. Technologies, Inc. }
+ MM_MPTUS = 95;
+ { Weitek }
+ MM_WEITEK = 96;
+ { Lernout & Hauspie }
+ MM_LERNOUT_AND_HAUSPIE = 97;
+ { Quanta Computer Inc. }
+ MM_QCIAR = 98;
+ { Apple Computer, Inc. }
+ MM_APPLE = 99;
+ { Digital Equipment Corporation }
+ MM_DIGITAL = 100;
+ { Mark of the Unicorn }
+ MM_MOTU = 101;
+ { Workbit Corporation }
+ MM_WORKBIT = 102;
+ { Ositech Communications Inc. }
+ MM_OSITECH = 103;
+ { miro Computer Products AG }
+ MM_MIRO = 104;
+ { Cirrus Logic }
+ MM_CIRRUSLOGIC = 105;
+ { ISOLUTION B.V. }
+ MM_ISOLUTION = 106;
+ { Horizons Technology, Inc }
+ MM_HORIZONS = 107;
+ { Computer Concepts Ltd }
+ MM_CONCEPTS = 108;
+ { Voice Technologies Group, Inc. }
+ MM_VTG = 109;
+ { Radius }
+ MM_RADIUS = 110;
+ { Rockwell International }
+ MM_ROCKWELL = 111;
+ { Co. XYZ for testing }
+ MM_XYz = 112;
+ { Opcode Systems }
+ MM_OPCODE = 113;
+ { Voxware Inc }
+ MM_VOXWARE = 114;
+ { Northern Telecom Limited }
+ MM_NORTHERN_TELECOM = 115;
+ { APICOM }
+ MM_APICOM = 116;
+ { Grande Software }
+ MM_GRANDE = 117;
+ { ADDX }
+ MM_ADDX = 118;
+ { Wildcat Canyon Software }
+ MM_WILDCAT = 119;
+ { Rhetorex Inc }
+ MM_RHETOREX = 120;
+ { Brooktree Corporation }
+ MM_BROOKTREE = 121;
+ { ENSONIQ Corporation }
+ MM_ENSONIQ = 125;
+ { ///FAST Multimedia AG }
+ MM_FAST = 126;
+ { NVidia Corporation }
+ MM_NVIDIA = 127;
+ { OKSORI Co., Ltd. }
+ MM_OKSORI = 128;
+ { DiAcoustics, Inc. }
+ MM_DIACOUSTICS = 129;
+ { Gulbransen, Inc. }
+ MM_GULBRANSEN = 130;
+ { Kay Elemetrics, Inc. }
+ MM_KAY_ELEMETRICS = 131;
+ { Crystal Semiconductor Corporation }
+ MM_CRYSTAL = 132;
+ { Splash Studios }
+ MM_SPLASH_STUDIOS = 133;
+ { Quarterdeck Corporation }
+ MM_QUARTERDECK = 134;
+ { TDK Corporation }
+ MM_TDK = 135;
+ { Digital Audio Labs, Inc. }
+ MM_DIGITAL_AUDIO_LABS = 136;
+ { Seer Systems, Inc. }
+ MM_SEERSYS = 137;
+ { PictureTel Corporation }
+ MM_PICTURETEL = 138;
+ { AT&T Microelectronics }
+ MM_ATT_MICROELECTRONICS = 139;
+ { Osprey Technologies, Inc. }
+ MM_OSPREY = 140;
+ { Mediatrix Peripherals }
+ MM_MEDIATRIX = 141;
+ { SounDesignS M.C.S. Ltd. }
+ MM_SOUNDESIGNS = 142;
+ { A.L. Digital Ltd. }
+ MM_ALDIGITAL = 143;
+ { Spectrum Signal Processing, Inc. }
+ MM_SPECTRUM_SIGNAL_PROCESSING = 144;
+ { Electronic Courseware Systems, Inc. }
+ MM_ECS = 145;
+ { AMD }
+ MM_AMD = 146;
+ { Core Dynamics }
+ MM_COREDYNAMICS = 147;
+ { CANAM Computers }
+ MM_CANAM = 148;
+ { Softsound, Ltd. }
+ MM_SOFTSOUND = 149;
+ { Norris Communications, Inc. }
+ MM_NORRIS = 150;
+ { Danka Data Devices }
+ MM_DDD = 151;
+ { EuPhonics }
+ MM_EUPHONICS = 152;
+ { Precept Software, Inc. }
+ MM_PRECEPT = 153;
+ { Crystal Net Corporation }
+ MM_CRYSTAL_NET = 154;
+ { Chromatic Research, Inc }
+ MM_CHROMATIC = 155;
+ { Voice Information Systems, Inc }
+ MM_VOICEINFO = 156;
+ { Vienna Systems }
+ MM_VIENNASYS = 157;
+ { Connectix Corporation }
+ MM_CONNECTIX = 158;
+ { Gadget Labs LLC }
+ MM_GADGETLABS = 159;
+ { Frontier Design Group LLC }
+ MM_FRONTIER = 160;
+ { Viona Development GmbH }
+ MM_VIONA = 161;
+ { Casio Computer Co., LTD }
+ MM_CASIO = 162;
+ { Diamond Multimedia }
+ MM_DIAMONDMM = 163;
+ { S3 }
+ MM_S3 = 164;
+ { Fraunhofer }
+ MM_FRAUNHOFER_IIS = 172;
+
+
+{ MM_MICROSOFT product IDs }
+{$IFNDEF MM_MIDI_MAPPER}
+ const
+ MM_MIDI_MAPPER = 1; // Midi Mapper
+ { Wave Mapper }
+ MM_WAVE_MAPPER = 2;
+ { Sound Blaster MIDI output port }
+ MM_SNDBLST_MIDIOUT = 3;
+ { Sound Blaster MIDI input port }
+ MM_SNDBLST_MIDIIN = 4;
+ { Sound Blaster internal synth }
+ MM_SNDBLST_SYNTH = 5;
+ { Sound Blaster waveform output }
+ MM_SNDBLST_WAVEOUT = 6;
+ { Sound Blaster waveform input }
+ MM_SNDBLST_WAVEIN = 7;
+ { Ad Lib Compatible synth }
+ MM_ADLIB = 9;
+ { MPU 401 compatible MIDI output port }
+ MM_MPU401_MIDIOUT = 10;
+ { MPU 401 compatible MIDI input port }
+ MM_MPU401_MIDIIN = 11;
+ { Joystick adapter }
+ MM_PC_JOYSTICK = 12;
+{$ENDIF MM_MIDI_MAPPER}
+
+ const
+ MM_PCSPEAKER_WAVEOUT = 13; { PC speaker waveform output }
+ { MS Audio Board waveform input }
+ MM_MSFT_WSS_WAVEIN = 14;
+ { MS Audio Board waveform output }
+ MM_MSFT_WSS_WAVEOUT = 15;
+ { MS Audio Board Stereo FM synth }
+ MM_MSFT_WSS_FMSYNTH_STEREO = 16;
+ { MS Audio Board Mixer Driver }
+ MM_MSFT_WSS_MIXER = 17;
+ { MS OEM Audio Board waveform input }
+ MM_MSFT_WSS_OEM_WAVEIN = 18;
+ { MS OEM Audio Board waveform output }
+ MM_MSFT_WSS_OEM_WAVEOUT = 19;
+ { MS OEM Audio Board Stereo FM Synth }
+ MM_MSFT_WSS_OEM_FMSYNTH_STEREO = 20;
+ { MS Audio Board Aux. Port }
+ MM_MSFT_WSS_AUX = 21;
+ { MS OEM Audio Aux Port }
+ MM_MSFT_WSS_OEM_AUX = 22;
+ { MS Vanilla driver waveform input }
+ MM_MSFT_GENERIC_WAVEIN = 23;
+ { MS Vanilla driver wavefrom output }
+ MM_MSFT_GENERIC_WAVEOUT = 24;
+ { MS Vanilla driver MIDI in }
+ MM_MSFT_GENERIC_MIDIIN = 25;
+ { MS Vanilla driver MIDI external out }
+ MM_MSFT_GENERIC_MIDIOUT = 26;
+ { MS Vanilla driver MIDI synthesizer }
+ MM_MSFT_GENERIC_MIDISYNTH = 27;
+ { MS Vanilla driver aux (line in) }
+ MM_MSFT_GENERIC_AUX_LINE = 28;
+ { MS Vanilla driver aux (mic) }
+ MM_MSFT_GENERIC_AUX_MIC = 29;
+ { MS Vanilla driver aux (CD) }
+ MM_MSFT_GENERIC_AUX_CD = 30;
+ { MS OEM Audio Board Mixer Driver }
+ MM_MSFT_WSS_OEM_MIXER = 31;
+ { MS Audio Compression Manager }
+ MM_MSFT_MSACM = 32;
+ { MS ADPCM Codec }
+ MM_MSFT_ACM_MSADPCM = 33;
+ { IMA ADPCM Codec }
+ MM_MSFT_ACM_IMAADPCM = 34;
+ { MS Filter }
+ MM_MSFT_ACM_MSFILTER = 35;
+ { GSM 610 codec }
+ MM_MSFT_ACM_GSM610 = 36;
+ { G.711 codec }
+ MM_MSFT_ACM_G711 = 37;
+ { PCM converter }
+ MM_MSFT_ACM_PCM = 38;
+
+
+ { Microsoft Windows Sound System drivers }
+ { Sound Blaster 16 waveform input }
+ MM_WSS_SB16_WAVEIN = 39;
+ { Sound Blaster 16 waveform output }
+ MM_WSS_SB16_WAVEOUT = 40;
+ { Sound Blaster 16 midi-in }
+ MM_WSS_SB16_MIDIIN = 41;
+ { Sound Blaster 16 midi out }
+ MM_WSS_SB16_MIDIOUT = 42;
+ { Sound Blaster 16 FM Synthesis }
+ MM_WSS_SB16_SYNTH = 43;
+ { Sound Blaster 16 aux (line in) }
+ MM_WSS_SB16_AUX_LINE = 44;
+ { Sound Blaster 16 aux (CD) }
+ MM_WSS_SB16_AUX_CD = 45;
+ { Sound Blaster 16 mixer device }
+ MM_WSS_SB16_MIXER = 46;
+ { Sound Blaster Pro waveform input }
+ MM_WSS_SBPRO_WAVEIN = 47;
+ { Sound Blaster Pro waveform output }
+ MM_WSS_SBPRO_WAVEOUT = 48;
+ { Sound Blaster Pro midi in }
+ MM_WSS_SBPRO_MIDIIN = 49;
+ { Sound Blaster Pro midi out }
+ MM_WSS_SBPRO_MIDIOUT = 50;
+ { Sound Blaster Pro FM synthesis }
+ MM_WSS_SBPRO_SYNTH = 51;
+ { Sound Blaster Pro aux (line in ) }
+ MM_WSS_SBPRO_AUX_LINE = 52;
+ { Sound Blaster Pro aux (CD) }
+ MM_WSS_SBPRO_AUX_CD = 53;
+ { Sound Blaster Pro mixer }
+ MM_WSS_SBPRO_MIXER = 54;
+ { WSS NT wave in }
+ MM_MSFT_WSS_NT_WAVEIN = 55;
+ { WSS NT wave out }
+ MM_MSFT_WSS_NT_WAVEOUT = 56;
+ { WSS NT FM synth }
+ MM_MSFT_WSS_NT_FMSYNTH_STEREO = 57;
+ { WSS NT mixer }
+ MM_MSFT_WSS_NT_MIXER = 58;
+ { WSS NT aux }
+ MM_MSFT_WSS_NT_AUX = 59;
+ { Sound Blaster 16 waveform input }
+ MM_MSFT_SB16_WAVEIN = 60;
+ { Sound Blaster 16 waveform output }
+ MM_MSFT_SB16_WAVEOUT = 61;
+ { Sound Blaster 16 midi-in }
+ MM_MSFT_SB16_MIDIIN = 62;
+ { Sound Blaster 16 midi out }
+ MM_MSFT_SB16_MIDIOUT = 63;
+ { Sound Blaster 16 FM Synthesis }
+ MM_MSFT_SB16_SYNTH = 64;
+ { Sound Blaster 16 aux (line in) }
+ MM_MSFT_SB16_AUX_LINE = 65;
+ { Sound Blaster 16 aux (CD) }
+ MM_MSFT_SB16_AUX_CD = 66;
+ { Sound Blaster 16 mixer device }
+ MM_MSFT_SB16_MIXER = 67;
+ { Sound Blaster Pro waveform input }
+ MM_MSFT_SBPRO_WAVEIN = 68;
+ { Sound Blaster Pro waveform output }
+ MM_MSFT_SBPRO_WAVEOUT = 69;
+ { Sound Blaster Pro midi in }
+ MM_MSFT_SBPRO_MIDIIN = 70;
+ { Sound Blaster Pro midi out }
+ MM_MSFT_SBPRO_MIDIOUT = 71;
+ { Sound Blaster Pro FM synthesis }
+ MM_MSFT_SBPRO_SYNTH = 72;
+ { Sound Blaster Pro aux (line in ) }
+ MM_MSFT_SBPRO_AUX_LINE = 73;
+ { Sound Blaster Pro aux (CD) }
+ MM_MSFT_SBPRO_AUX_CD = 74;
+ { Sound Blaster Pro mixer }
+ MM_MSFT_SBPRO_MIXER = 75;
+ { Yamaha OPL2/OPL3 compatible FM synthesis }
+ MM_MSFT_MSOPL_SYNTH = 76;
+ { Voice Modem Serial Line Wave Input }
+ MM_MSFT_VMDMS_LINE_WAVEIN = 80;
+ { Voice Modem Serial Line Wave Output }
+ MM_MSFT_VMDMS_LINE_WAVEOUT = 81;
+ { Voice Modem Serial Handset Wave Input }
+ MM_MSFT_VMDMS_HANDSET_WAVEIN = 82;
+ { Voice Modem Serial Handset Wave Output }
+ MM_MSFT_VMDMS_HANDSET_WAVEOUT = 83;
+ { Voice Modem Wrapper Line Wave Input }
+ MM_MSFT_VMDMW_LINE_WAVEIN = 84;
+ { Voice Modem Wrapper Line Wave Output }
+ MM_MSFT_VMDMW_LINE_WAVEOUT = 85;
+ { Voice Modem Wrapper Handset Wave Input }
+ MM_MSFT_VMDMW_HANDSET_WAVEIN = 86;
+ { Voice Modem Wrapper Handset Wave Output }
+ MM_MSFT_VMDMW_HANDSET_WAVEOUT = 87;
+ { Voice Modem Wrapper Mixer }
+ MM_MSFT_VMDMW_MIXER = 88;
+ { Voice Modem Game Compatible Wave Device }
+ MM_MSFT_VMDM_GAME_WAVEOUT = 89;
+ { Voice Modem Game Compatible Wave Device }
+ MM_MSFT_VMDM_GAME_WAVEIN = 90;
+ { }
+ MM_MSFT_ACM_MSNAUDIO = 91;
+ { }
+ MM_MSFT_ACM_MSG723 = 92;
+ { Generic id for WDM Audio drivers }
+ MM_MSFT_WDMAUDIO_WAVEOUT = 100;
+ { Generic id for WDM Audio drivers }
+ MM_MSFT_WDMAUDIO_WAVEIN = 101;
+ { Generic id for WDM Audio drivers }
+ MM_MSFT_WDMAUDIO_MIDIOUT = 102;
+ { Generic id for WDM Audio drivers }
+ MM_MSFT_WDMAUDIO_MIDIIN = 103;
+ { Generic id for WDM Audio drivers }
+ MM_MSFT_WDMAUDIO_MIXER = 104;
+
+ { MM_CREATIVE product IDs }
+ MM_CREATIVE_SB15_WAVEIN = 1; { SB (r) 1.5 waveform input }
+ MM_CREATIVE_SB20_WAVEIN = 2;
+ MM_CREATIVE_SBPRO_WAVEIN = 3;
+ MM_CREATIVE_SBP16_WAVEIN = 4;
+ MM_CREATIVE_PHNBLST_WAVEIN = 5;
+ MM_CREATIVE_SB15_WAVEOUT = 101;
+ MM_CREATIVE_SB20_WAVEOUT = 102;
+ MM_CREATIVE_SBPRO_WAVEOUT = 103;
+ MM_CREATIVE_SBP16_WAVEOUT = 104;
+ MM_CREATIVE_PHNBLST_WAVEOUT = 105;
+ { SB (r) }
+ MM_CREATIVE_MIDIOUT = 201;
+ { SB (r) }
+ MM_CREATIVE_MIDIIN = 202;
+ { SB (r) }
+ MM_CREATIVE_FMSYNTH_MONO = 301;
+ { SB Pro (r) stereo synthesizer }
+ MM_CREATIVE_FMSYNTH_STEREO = 302;
+ MM_CREATIVE_MIDI_AWE32 = 303;
+ { SB Pro (r) aux (CD) }
+ MM_CREATIVE_AUX_CD = 401;
+ { SB Pro (r) aux (Line in ) }
+ MM_CREATIVE_AUX_LINE = 402;
+ { SB Pro (r) aux (mic) }
+ MM_CREATIVE_AUX_MIC = 403;
+ MM_CREATIVE_AUX_MASTER = 404;
+ MM_CREATIVE_AUX_PCSPK = 405;
+ MM_CREATIVE_AUX_WAVE = 406;
+ MM_CREATIVE_AUX_MIDI = 407;
+ MM_CREATIVE_SBPRO_MIXER = 408;
+ MM_CREATIVE_SB16_MIXER = 409;
+
+ { MM_MEDIAVISION product IDs }
+ { Pro Audio Spectrum }
+ MM_MEDIAVISION_PROAUDIO = $10;
+ MM_PROAUD_MIDIOUT = MM_MEDIAVISION_PROAUDIO+1;
+ MM_PROAUD_MIDIIN = MM_MEDIAVISION_PROAUDIO+2;
+ MM_PROAUD_SYNTH = MM_MEDIAVISION_PROAUDIO+3;
+ MM_PROAUD_WAVEOUT = MM_MEDIAVISION_PROAUDIO+4;
+ MM_PROAUD_WAVEIN = MM_MEDIAVISION_PROAUDIO+5;
+ MM_PROAUD_MIXER = MM_MEDIAVISION_PROAUDIO+6;
+ MM_PROAUD_AUX = MM_MEDIAVISION_PROAUDIO+7;
+
+ { Thunder Board }
+ MM_MEDIAVISION_THUNDER = $20;
+ MM_THUNDER_SYNTH = MM_MEDIAVISION_THUNDER+3;
+ MM_THUNDER_WAVEOUT = MM_MEDIAVISION_THUNDER+4;
+ MM_THUNDER_WAVEIN = MM_MEDIAVISION_THUNDER+5;
+ MM_THUNDER_AUX = MM_MEDIAVISION_THUNDER+7;
+
+ { Audio Port }
+ MM_MEDIAVISION_TPORT = $40;
+ MM_TPORT_WAVEOUT = MM_MEDIAVISION_TPORT+1;
+ MM_TPORT_WAVEIN = MM_MEDIAVISION_TPORT+2;
+ MM_TPORT_SYNTH = MM_MEDIAVISION_TPORT+3;
+
+ { Pro Audio Spectrum Plus }
+ MM_MEDIAVISION_PROAUDIO_PLUS = $50;
+ MM_PROAUD_PLUS_MIDIOUT = MM_MEDIAVISION_PROAUDIO_PLUS+1;
+ MM_PROAUD_PLUS_MIDIIN = MM_MEDIAVISION_PROAUDIO_PLUS+2;
+ MM_PROAUD_PLUS_SYNTH = MM_MEDIAVISION_PROAUDIO_PLUS+3;
+ MM_PROAUD_PLUS_WAVEOUT = MM_MEDIAVISION_PROAUDIO_PLUS+4;
+ MM_PROAUD_PLUS_WAVEIN = MM_MEDIAVISION_PROAUDIO_PLUS+5;
+ MM_PROAUD_PLUS_MIXER = MM_MEDIAVISION_PROAUDIO_PLUS+6;
+ MM_PROAUD_PLUS_AUX = MM_MEDIAVISION_PROAUDIO_PLUS+7;
+
+ { Pro Audio Spectrum 16 }
+ MM_MEDIAVISION_PROAUDIO_16 = $60;
+ MM_PROAUD_16_MIDIOUT = MM_MEDIAVISION_PROAUDIO_16+1;
+ MM_PROAUD_16_MIDIIN = MM_MEDIAVISION_PROAUDIO_16+2;
+ MM_PROAUD_16_SYNTH = MM_MEDIAVISION_PROAUDIO_16+3;
+ MM_PROAUD_16_WAVEOUT = MM_MEDIAVISION_PROAUDIO_16+4;
+ MM_PROAUD_16_WAVEIN = MM_MEDIAVISION_PROAUDIO_16+5;
+ MM_PROAUD_16_MIXER = MM_MEDIAVISION_PROAUDIO_16+6;
+ MM_PROAUD_16_AUX = MM_MEDIAVISION_PROAUDIO_16+7;
+
+ { Pro Audio Studio 16 }
+ MM_MEDIAVISION_PROSTUDIO_16 = $60;
+ MM_STUDIO_16_MIDIOUT = MM_MEDIAVISION_PROSTUDIO_16+1;
+ MM_STUDIO_16_MIDIIN = MM_MEDIAVISION_PROSTUDIO_16+2;
+ MM_STUDIO_16_SYNTH = MM_MEDIAVISION_PROSTUDIO_16+3;
+ MM_STUDIO_16_WAVEOUT = MM_MEDIAVISION_PROSTUDIO_16+4;
+ MM_STUDIO_16_WAVEIN = MM_MEDIAVISION_PROSTUDIO_16+5;
+ MM_STUDIO_16_MIXER = MM_MEDIAVISION_PROSTUDIO_16+6;
+ MM_STUDIO_16_AUX = MM_MEDIAVISION_PROSTUDIO_16+7;
+
+ { CDPC }
+ MM_MEDIAVISION_CDPC = $70;
+ MM_CDPC_MIDIOUT = MM_MEDIAVISION_CDPC+1;
+ MM_CDPC_MIDIIN = MM_MEDIAVISION_CDPC+2;
+ MM_CDPC_SYNTH = MM_MEDIAVISION_CDPC+3;
+ MM_CDPC_WAVEOUT = MM_MEDIAVISION_CDPC+4;
+ MM_CDPC_WAVEIN = MM_MEDIAVISION_CDPC+5;
+ MM_CDPC_MIXER = MM_MEDIAVISION_CDPC+6;
+ MM_CDPC_AUX = MM_MEDIAVISION_CDPC+7;
+
+ { Opus MV 1208 Chipsent }
+ MM_MEDIAVISION_OPUS1208 = $80;
+ MM_OPUS401_MIDIOUT = MM_MEDIAVISION_OPUS1208+1;
+ MM_OPUS401_MIDIIN = MM_MEDIAVISION_OPUS1208+2;
+ MM_OPUS1208_SYNTH = MM_MEDIAVISION_OPUS1208+3;
+ MM_OPUS1208_WAVEOUT = MM_MEDIAVISION_OPUS1208+4;
+ MM_OPUS1208_WAVEIN = MM_MEDIAVISION_OPUS1208+5;
+ MM_OPUS1208_MIXER = MM_MEDIAVISION_OPUS1208+6;
+ MM_OPUS1208_AUX = MM_MEDIAVISION_OPUS1208+7;
+
+ { Opus MV 1216 chipset }
+ MM_MEDIAVISION_OPUS1216 = $90;
+ MM_OPUS1216_MIDIOUT = MM_MEDIAVISION_OPUS1216+1;
+ MM_OPUS1216_MIDIIN = MM_MEDIAVISION_OPUS1216+2;
+ MM_OPUS1216_SYNTH = MM_MEDIAVISION_OPUS1216+3;
+ MM_OPUS1216_WAVEOUT = MM_MEDIAVISION_OPUS1216+4;
+ MM_OPUS1216_WAVEIN = MM_MEDIAVISION_OPUS1216+5;
+ MM_OPUS1216_MIXER = MM_MEDIAVISION_OPUS1216+6;
+ MM_OPUS1216_AUX = MM_MEDIAVISION_OPUS1216+7;
+
+ { MM_ARTISOFT product IDs }
+ { Artisoft sounding Board waveform input }
+ MM_ARTISOFT_SBWAVEIN = 1;
+ { Artisoft sounding Board waveform output }
+ MM_ARTISOFT_SBWAVEOUT = 2;
+
+ { MM_IBM product IDs }
+ { IBM M-Motion Auxiliary Device }
+ MM_MMOTION_WAVEAUX = 1;
+ { IBM M-Motion Waveform output }
+ MM_MMOTION_WAVEOUT = 2;
+ { IBM M-Motion Waveform Input }
+ MM_MMOTION_WAVEIN = 3;
+ { IBM waveform input }
+ MM_IBM_PCMCIA_WAVEIN = 11;
+ { IBM Waveform output }
+ MM_IBM_PCMCIA_WAVEOUT = 12;
+ { IBM Midi Synthesis }
+ MM_IBM_PCMCIA_SYNTH = 13;
+ { IBM external MIDI in }
+ MM_IBM_PCMCIA_MIDIIN = 14;
+ { IBM external MIDI out }
+ MM_IBM_PCMCIA_MIDIOUT = 15;
+ { IBM auxiliary control }
+ MM_IBM_PCMCIA_AUX = 16;
+ MM_IBM_THINKPAD200 = 17;
+ MM_IBM_MWAVE_WAVEIN = 18;
+ MM_IBM_MWAVE_WAVEOUT = 19;
+ MM_IBM_MWAVE_MIXER = 20;
+ MM_IBM_MWAVE_MIDIIN = 21;
+ MM_IBM_MWAVE_MIDIOUT = 22;
+ MM_IBM_MWAVE_AUX = 23;
+ MM_IBM_WC_MIDIOUT = 30;
+ MM_IBM_WC_WAVEOUT = 31;
+ MM_IBM_WC_MIXEROUT = 33;
+
+ { MM_VOCALTEC product IDs }
+ MM_VOCALTEC_WAVEOUT = 1;
+ MM_VOCALTEC_WAVEIN = 2;
+
+ { MM_ROLAND product IDs }
+ { MM_ROLAND_RAP10 }
+ MM_ROLAND_RAP10_MIDIOUT = 10;
+ { MM_ROLAND_RAP10 }
+ MM_ROLAND_RAP10_MIDIIN = 11;
+ { MM_ROLAND_RAP10 }
+ MM_ROLAND_RAP10_SYNTH = 12;
+ { MM_ROLAND_RAP10 }
+ MM_ROLAND_RAP10_WAVEOUT = 13;
+ { MM_ROLAND_RAP10 }
+ MM_ROLAND_RAP10_WAVEIN = 14;
+ MM_ROLAND_MPU401_MIDIOUT = 15;
+ MM_ROLAND_MPU401_MIDIIN = 16;
+ MM_ROLAND_SMPU_MIDIOUTA = 17;
+ MM_ROLAND_SMPU_MIDIOUTB = 18;
+ MM_ROLAND_SMPU_MIDIINA = 19;
+ MM_ROLAND_SMPU_MIDIINB = 20;
+ MM_ROLAND_SC7_MIDIOUT = 21;
+ MM_ROLAND_SC7_MIDIIN = 22;
+ MM_ROLAND_SERIAL_MIDIOUT = 23;
+ MM_ROLAND_SERIAL_MIDIIN = 24;
+ MM_ROLAND_SCP_MIDIOUT = 38;
+ MM_ROLAND_SCP_MIDIIN = 39;
+ MM_ROLAND_SCP_WAVEOUT = 40;
+ MM_ROLAND_SCP_WAVEIN = 41;
+ MM_ROLAND_SCP_MIXER = 42;
+ MM_ROLAND_SCP_AUX = 48;
+
+ { MM_DSP_SOLUTIONS product IDs }
+ MM_DSP_SOLUTIONS_WAVEOUT = 1;
+ MM_DSP_SOLUTIONS_WAVEIN = 2;
+ MM_DSP_SOLUTIONS_SYNTH = 3;
+ MM_DSP_SOLUTIONS_AUX = 4;
+
+ { MM_WANGLABS product IDs }
+ { Input audio wave on CPU board models: Exec 4010, 4030, 3450; PC 251/25c, pc 461/25s , pc 461/33c }
+ MM_WANGLABS_WAVEIN1 = 1;
+ MM_WANGLABS_WAVEOUT1 = 2;
+
+ { MM_TANDY product IDs }
+ MM_TANDY_VISWAVEIN = 1;
+ MM_TANDY_VISWAVEOUT = 2;
+ MM_TANDY_VISBIOSSYNTH = 3;
+ MM_TANDY_SENS_MMAWAVEIN = 4;
+ MM_TANDY_SENS_MMAWAVEOUT = 5;
+ MM_TANDY_SENS_MMAMIDIIN = 6;
+ MM_TANDY_SENS_MMAMIDIOUT = 7;
+ MM_TANDY_SENS_VISWAVEOUT = 8;
+ MM_TANDY_PSSJWAVEIN = 9;
+ MM_TANDY_PSSJWAVEOUT = 10;
+
+ { product IDs }
+ { HID2 WaveAudio Driver }
+ MM_INTELOPD_WAVEIN = 1;
+ { HID2 }
+ MM_INTELOPD_WAVEOUT = 101;
+ { HID2 for mixing }
+ MM_INTELOPD_AUX = 401;
+ MM_INTEL_NSPMODEMLINE = 501;
+
+ { MM_INTERACTIVE product IDs }
+ MM_INTERACTIVE_WAVEIN = $45;
+ MM_INTERACTIVE_WAVEOUT = $45;
+
+ { MM_YAMAHA product IDs }
+ MM_YAMAHA_GSS_SYNTH = $01;
+ MM_YAMAHA_GSS_WAVEOUT = $02;
+ MM_YAMAHA_GSS_WAVEIN = $03;
+ MM_YAMAHA_GSS_MIDIOUT = $04;
+ MM_YAMAHA_GSS_MIDIIN = $05;
+ MM_YAMAHA_GSS_AUX = $06;
+ MM_YAMAHA_SERIAL_MIDIOUT = $07;
+ MM_YAMAHA_SERIAL_MIDIIN = $08;
+ MM_YAMAHA_OPL3SA_WAVEOUT = $10;
+ MM_YAMAHA_OPL3SA_WAVEIN = $11;
+ MM_YAMAHA_OPL3SA_FMSYNTH = $12;
+ MM_YAMAHA_OPL3SA_YSYNTH = $13;
+ MM_YAMAHA_OPL3SA_MIDIOUT = $14;
+ MM_YAMAHA_OPL3SA_MIDIIN = $15;
+ MM_YAMAHA_OPL3SA_MIXER = $17;
+ MM_YAMAHA_OPL3SA_JOYSTICK = $18;
+
+ { MM_EVEREX product IDs }
+ MM_EVEREX_CARRIER = $01;
+
+ { MM_ECHO product IDs }
+ MM_ECHO_SYNTH = $01;
+ MM_ECHO_WAVEOUT = $02;
+ MM_ECHO_WAVEIN = $03;
+ MM_ECHO_MIDIOUT = $04;
+ MM_ECHO_MIDIIN = $05;
+ MM_ECHO_AUX = $06;
+
+ { MM_SIERRA product IDs }
+ MM_SIERRA_ARIA_MIDIOUT = $14;
+ MM_SIERRA_ARIA_MIDIIN = $15;
+ MM_SIERRA_ARIA_SYNTH = $16;
+ MM_SIERRA_ARIA_WAVEOUT = $17;
+ MM_SIERRA_ARIA_WAVEIN = $18;
+ MM_SIERRA_ARIA_AUX = $19;
+ MM_SIERRA_ARIA_AUX2 = $20;
+ MM_SIERRA_QUARTET_WAVEIN = $50;
+ MM_SIERRA_QUARTET_WAVEOUT = $51;
+ MM_SIERRA_QUARTET_MIDIIN = $52;
+ MM_SIERRA_QUARTET_MIDIOUT = $53;
+ MM_SIERRA_QUARTET_SYNTH = $54;
+ MM_SIERRA_QUARTET_AUX_CD = $55;
+ MM_SIERRA_QUARTET_AUX_LINE = $56;
+ MM_SIERRA_QUARTET_AUX_MODEM = $57;
+ MM_SIERRA_QUARTET_MIXER = $58;
+
+ { MM_CAT product IDs }
+ MM_CAT_WAVEOUT = 1;
+
+ { MM_DSP_GROUP product IDs }
+ MM_DSP_GROUP_TRUESPEECH = $01;
+
+ { MM_MELABS product IDs }
+ MM_MELABS_MIDI2GO = $01;
+
+ { MM_ESS product IDs }
+ MM_ESS_AMWAVEOUT = $01;
+ MM_ESS_AMWAVEIN = $02;
+ MM_ESS_AMAUX = $03;
+ MM_ESS_AMSYNTH = $04;
+ MM_ESS_AMMIDIOUT = $05;
+ MM_ESS_AMMIDIIN = $06;
+ MM_ESS_MIXER = $07;
+ MM_ESS_AUX_CD = $08;
+ MM_ESS_MPU401_MIDIOUT = $09;
+ MM_ESS_MPU401_MIDIIN = $0A;
+ MM_ESS_ES488_WAVEOUT = $10;
+ MM_ESS_ES488_WAVEIN = $11;
+ MM_ESS_ES488_MIXER = $12;
+ MM_ESS_ES688_WAVEOUT = $13;
+ MM_ESS_ES688_WAVEIN = $14;
+ MM_ESS_ES688_MIXER = $15;
+ MM_ESS_ES1488_WAVEOUT = $16;
+ MM_ESS_ES1488_WAVEIN = $17;
+ MM_ESS_ES1488_MIXER = $18;
+ MM_ESS_ES1688_WAVEOUT = $19;
+ MM_ESS_ES1688_WAVEIN = $1A;
+ MM_ESS_ES1688_MIXER = $1B;
+ MM_ESS_ES1788_WAVEOUT = $1C;
+ MM_ESS_ES1788_WAVEIN = $1D;
+ MM_ESS_ES1788_MIXER = $1E;
+ MM_ESS_ES1888_WAVEOUT = $1F;
+ MM_ESS_ES1888_WAVEIN = $20;
+ MM_ESS_ES1888_MIXER = $21;
+ MM_ESS_ES1868_WAVEOUT = $22;
+ MM_ESS_ES1868_WAVEIN = $23;
+ MM_ESS_ES1868_MIXER = $24;
+ MM_ESS_ES1878_WAVEOUT = $25;
+ MM_ESS_ES1878_WAVEIN = $26;
+ MM_ESS_ES1878_MIXER = $27;
+
+ { product IDs }
+ MM_EPS_FMSND = 1;
+
+ { MM_TRUEVISION product IDs }
+ MM_TRUEVISION_WAVEIN1 = 1;
+ MM_TRUEVISION_WAVEOUT1 = 2;
+
+ { MM_AZTECH product IDs }
+ MM_AZTECH_MIDIOUT = 3;
+ MM_AZTECH_MIDIIN = 4;
+ MM_AZTECH_WAVEIN = 17;
+ MM_AZTECH_WAVEOUT = 18;
+ MM_AZTECH_FMSYNTH = 20;
+ MM_AZTECH_MIXER = 21;
+ MM_AZTECH_PRO16_WAVEIN = 33;
+ MM_AZTECH_PRO16_WAVEOUT = 34;
+ MM_AZTECH_PRO16_FMSYNTH = 38;
+ MM_AZTECH_DSP16_WAVEIN = 65;
+ MM_AZTECH_DSP16_WAVEOUT = 66;
+ MM_AZTECH_DSP16_FMSYNTH = 68;
+ MM_AZTECH_DSP16_WAVESYNTH = 70;
+ MM_AZTECH_NOVA16_WAVEIN = 71;
+ MM_AZTECH_NOVA16_WAVEOUT = 72;
+ MM_AZTECH_NOVA16_MIXER = 73;
+ MM_AZTECH_WASH16_WAVEIN = 74;
+ MM_AZTECH_WASH16_WAVEOUT = 75;
+ MM_AZTECH_WASH16_MIXER = 76;
+ MM_AZTECH_AUX_CD = 401;
+ MM_AZTECH_AUX_LINE = 402;
+ MM_AZTECH_AUX_MIC = 403;
+ MM_AZTECH_AUX = 404;
+
+ { MM_VIDEOLOGIC product IDs }
+ MM_VIDEOLOGIC_MSWAVEIN = 1;
+ MM_VIDEOLOGIC_MSWAVEOUT = 2;
+
+ { MM_KORG product IDs }
+ MM_KORG_PCIF_MIDIOUT = 1;
+ MM_KORG_PCIF_MIDIIN = 2;
+
+ { MM_APT product IDs }
+ MM_APT_ACE100CD = 1;
+
+ { MM_ICS product IDs }
+ { MS WSS compatible card and driver }
+ MM_ICS_WAVEDECK_WAVEOUT = 1;
+ MM_ICS_WAVEDECK_WAVEIN = 2;
+ MM_ICS_WAVEDECK_MIXER = 3;
+ MM_ICS_WAVEDECK_AUX = 4;
+ MM_ICS_WAVEDECK_SYNTH = 5;
+ MM_ICS_WAVEDEC_SB_WAVEOUT = 6;
+ MM_ICS_WAVEDEC_SB_WAVEIN = 7;
+ MM_ICS_WAVEDEC_SB_FM_MIDIOUT = 8;
+ MM_ICS_WAVEDEC_SB_MPU401_MIDIOUT = 9;
+ MM_ICS_WAVEDEC_SB_MPU401_MIDIIN = 10;
+ MM_ICS_WAVEDEC_SB_MIXER = 11;
+ MM_ICS_WAVEDEC_SB_AUX = 12;
+ MM_ICS_2115_LITE_MIDIOUT = 13;
+ MM_ICS_2120_LITE_MIDIOUT = 14;
+
+ { MM_ITERATEDSYS product IDs }
+ MM_ITERATEDSYS_FUFCODEC = 1;
+
+ { MM_METHEUS product IDs }
+ MM_METHEUS_ZIPPER = 1;
+
+ { MM_WINNOV product IDs }
+ MM_WINNOV_CAVIAR_WAVEIN = 1;
+ MM_WINNOV_CAVIAR_WAVEOUT = 2;
+ MM_WINNOV_CAVIAR_VIDC = 3;
+ { Fourcc is CHAM }
+ MM_WINNOV_CAVIAR_CHAMPAGNE = 4;
+ { Fourcc is YUV8 }
+ MM_WINNOV_CAVIAR_YUV8 = 5;
+
+ { MM_NCR product IDs }
+ MM_NCR_BA_WAVEIN = 1;
+ MM_NCR_BA_WAVEOUT = 2;
+ MM_NCR_BA_SYNTH = 3;
+ MM_NCR_BA_AUX = 4;
+ MM_NCR_BA_MIXER = 5;
+
+ { MM_VITEC product IDs }
+ MM_VITEC_VMAKER = 1;
+ MM_VITEC_VMPRO = 2;
+
+ { MM_MOSCOM product IDs }
+ { Four Port Voice Processing / Voice Recognition Board }
+ MM_MOSCOM_VPC2400_IN = 1;
+ { VPC2400 }
+ MM_MOSCOM_VPC2400_OUT = 2;
+
+ { MM_SILICONSOFT product IDs }
+ { Waveform in , high sample rate }
+ MM_SILICONSOFT_SC1_WAVEIN = 1;
+ { Waveform out , high sample rate }
+ MM_SILICONSOFT_SC1_WAVEOUT = 2;
+ { Waveform in 2 channels, high sample rate }
+ MM_SILICONSOFT_SC2_WAVEIN = 3;
+ { Waveform out 2 channels, high sample rate }
+ MM_SILICONSOFT_SC2_WAVEOUT = 4;
+ { Waveform out, self powered, efficient }
+ MM_SILICONSOFT_SOUNDJR2_WAVEOUT = 5;
+ { Waveform in, self powered, efficient }
+ MM_SILICONSOFT_SOUNDJR2PR_WAVEIN = 6;
+ { Waveform out 2 channels, self powered, efficient }
+ MM_SILICONSOFT_SOUNDJR2PR_WAVEOUT = 7;
+ { Waveform in 2 channels, self powered, efficient }
+ MM_SILICONSOFT_SOUNDJR3_WAVEOUT = 8;
+
+ { MM_OLIVETTI product IDs }
+ MM_OLIVETTI_WAVEIN = 1;
+ MM_OLIVETTI_WAVEOUT = 2;
+ MM_OLIVETTI_MIXER = 3;
+ MM_OLIVETTI_AUX = 4;
+ MM_OLIVETTI_MIDIIN = 5;
+ MM_OLIVETTI_MIDIOUT = 6;
+ MM_OLIVETTI_SYNTH = 7;
+ MM_OLIVETTI_JOYSTICK = 8;
+ MM_OLIVETTI_ACM_GSM = 9;
+ MM_OLIVETTI_ACM_ADPCM = 10;
+ MM_OLIVETTI_ACM_CELP = 11;
+ MM_OLIVETTI_ACM_SBC = 12;
+ MM_OLIVETTI_ACM_OPR = 13;
+
+ { MM_IOMAGIC product IDs }
+ { The I/O Magic Tempo is a PCMCIA Type 2 audio card featuring wave audio
+ record and playback, FM synthesizer, and MIDI output. The I/O Magic
+ Tempo WaveOut device supports mono and stereo PCM playback at rates
+ of 7350, 11025, 22050, and 44100 samples }
+ MM_IOMAGIC_TEMPO_WAVEOUT = 1;
+ MM_IOMAGIC_TEMPO_WAVEIN = 2;
+ MM_IOMAGIC_TEMPO_SYNTH = 3;
+ MM_IOMAGIC_TEMPO_MIDIOUT = 4;
+ MM_IOMAGIC_TEMPO_MXDOUT = 5;
+ MM_IOMAGIC_TEMPO_AUXOUT = 6;
+
+ { MM_MATSUSHITA product IDs }
+ MM_MATSUSHITA_WAVEIN = 1;
+ MM_MATSUSHITA_WAVEOUT = 2;
+ MM_MATSUSHITA_FMSYNTH_STEREO = 3;
+ MM_MATSUSHITA_MIXER = 4;
+ MM_MATSUSHITA_AUX = 5;
+
+ { MM_NEWMEDIA product IDs }
+ { WSS Compatible sound card. }
+ MM_NEWMEDIA_WAVJAMMER = 1;
+
+ { MM_LYRRUS product IDs }
+ { Bridge is a MIDI driver that allows the the Lyrrus G-VOX hardware to
+ communicate with Windows base transcription and sequencer applications.
+ The driver also provides a mechanism for the user to configure the system
+ to their personal playing style. }
+ MM_LYRRUS_BRIDGE_GUITAR = 1;
+
+ { MM_OPTI product IDs }
+ MM_OPTI_M16_FMSYNTH_STEREO = $0001;
+ MM_OPTI_M16_MIDIIN = $0002;
+ MM_OPTI_M16_MIDIOUT = $0003;
+ MM_OPTI_M16_WAVEIN = $0004;
+ MM_OPTI_M16_WAVEOUT = $0005;
+ MM_OPTI_M16_MIXER = $0006;
+ MM_OPTI_M16_AUX = $0007;
+ MM_OPTI_P16_FMSYNTH_STEREO = $0010;
+ MM_OPTI_P16_MIDIIN = $0011;
+ MM_OPTI_P16_MIDIOUT = $0012;
+ MM_OPTI_P16_WAVEIN = $0013;
+ MM_OPTI_P16_WAVEOUT = $0014;
+ MM_OPTI_P16_MIXER = $0015;
+ MM_OPTI_P16_AUX = $0016;
+ MM_OPTI_M32_WAVEIN = $0020;
+ MM_OPTI_M32_WAVEOUT = $0021;
+ MM_OPTI_M32_MIDIIN = $0022;
+ MM_OPTI_M32_MIDIOUT = $0023;
+ MM_OPTI_M32_SYNTH_STEREO = $0024;
+ MM_OPTI_M32_MIXER = $0025;
+ MM_OPTI_M32_AUX = $0026;
+
+ { Product IDs for MM_ADDX - ADDX }
+ { MM_ADDX_PCTV_DIGITALMIX }
+ MM_ADDX_PCTV_DIGITALMIX = 1;
+ { MM_ADDX_PCTV_WAVEIN }
+ MM_ADDX_PCTV_WAVEIN = 2;
+ { MM_ADDX_PCTV_WAVEOUT }
+ MM_ADDX_PCTV_WAVEOUT = 3;
+ { MM_ADDX_PCTV_MIXER }
+ MM_ADDX_PCTV_MIXER = 4;
+ { MM_ADDX_PCTV_AUX_CD }
+ MM_ADDX_PCTV_AUX_CD = 5;
+ { MM_ADDX_PCTV_AUX_LINE }
+ MM_ADDX_PCTV_AUX_LINE = 6;
+
+ { Product IDs for MM_AHEAD - Ahead, Inc. }
+ MM_AHEAD_MULTISOUND = 1;
+ MM_AHEAD_SOUNDBLASTER = 2;
+ MM_AHEAD_PROAUDIO = 3;
+ MM_AHEAD_GENERIC = 4;
+
+ { Product IDs for MM_AMD - AMD }
+ MM_AMD_INTERWAVE_WAVEIN = 1;
+ MM_AMD_INTERWAVE_WAVEOUT = 2;
+ MM_AMD_INTERWAVE_SYNTH = 3;
+ MM_AMD_INTERWAVE_MIXER1 = 4;
+ MM_AMD_INTERWAVE_MIXER2 = 5;
+ MM_AMD_INTERWAVE_JOYSTICK = 6;
+ MM_AMD_INTERWAVE_EX_CD = 7;
+ MM_AMD_INTERWAVE_MIDIIN = 8;
+ MM_AMD_INTERWAVE_MIDIOUT = 9;
+ MM_AMD_INTERWAVE_AUX1 = 10;
+ MM_AMD_INTERWAVE_AUX2 = 11;
+ MM_AMD_INTERWAVE_AUX_MIC = 12;
+ MM_AMD_INTERWAVE_AUX_CD = 13;
+ MM_AMD_INTERWAVE_MONO_IN = 14;
+ MM_AMD_INTERWAVE_MONO_OUT = 15;
+ MM_AMD_INTERWAVE_EX_TELEPHONY = 16;
+ MM_AMD_INTERWAVE_WAVEOUT_BASE = 17;
+ MM_AMD_INTERWAVE_WAVEOUT_TREBLE = 18;
+ MM_AMD_INTERWAVE_STEREO_ENHANCED = 19;
+
+ { Product IDs for MM_AST - AST Research Inc. }
+ MM_AST_MODEMWAVE_WAVEIN = 13;
+ MM_AST_MODEMWAVE_WAVEOUT = 14;
+
+ { Product IDs for MM_BROOKTREE - Brooktree Corporation }
+ { Brooktree PCM Wave Audio In }
+ MM_BTV_WAVEIN = 1;
+ { Brooktree PCM Wave Audio Out }
+ MM_BTV_WAVEOUT = 2;
+ { Brooktree MIDI In }
+ MM_BTV_MIDIIN = 3;
+ { Brooktree MIDI out }
+ MM_BTV_MIDIOUT = 4;
+ { Brooktree MIDI FM synth }
+ MM_BTV_MIDISYNTH = 5;
+ { Brooktree Line Input }
+ MM_BTV_AUX_LINE = 6;
+ { Brooktree Microphone Input }
+ MM_BTV_AUX_MIC = 7;
+ { Brooktree CD Input }
+ MM_BTV_AUX_CD = 8;
+ { Brooktree PCM Wave in with subcode information }
+ MM_BTV_DIGITALIN = 9;
+ { Brooktree PCM Wave out with subcode information }
+ MM_BTV_DIGITALOUT = 10;
+ { Brooktree WaveStream }
+ MM_BTV_MIDIWAVESTREAM = 11;
+ { Brooktree WSS Mixer driver }
+ MM_BTV_MIXER = 12;
+
+ { Product IDs for MM_CANAM - CANAM Computers }
+ MM_CANAM_CBXWAVEOUT = 1;
+ MM_CANAM_CBXWAVEIN = 2;
+
+ { Product IDs for MM_CASIO - Casio Computer Co., LTD }
+ { wp150 }
+ MM_CASIO_WP150_MIDIOUT = 1;
+ MM_CASIO_WP150_MIDIIN = 2;
+
+ { Product IDs for MM_COMPAQ - Compaq Computer Corp. }
+ MM_COMPAQ_BB_WAVEIN = 1;
+ MM_COMPAQ_BB_WAVEOUT = 2;
+ MM_COMPAQ_BB_WAVEAUX = 3;
+
+ { Product IDs for MM_COREDYNAMICS - Core Dynamics }
+ { DynaMax Hi-Rez }
+ MM_COREDYNAMICS_DYNAMIXHR = 1;
+ { DynaSonix }
+ MM_COREDYNAMICS_DYNASONIX_SYNTH = 2;
+ MM_COREDYNAMICS_DYNASONIX_MIDI_IN = 3;
+ MM_COREDYNAMICS_DYNASONIX_MIDI_OUT = 4;
+ MM_COREDYNAMICS_DYNASONIX_WAVE_IN = 5;
+ MM_COREDYNAMICS_DYNASONIX_WAVE_OUT = 6;
+ MM_COREDYNAMICS_DYNASONIX_AUDIO_IN = 7;
+ MM_COREDYNAMICS_DYNASONIX_AUDIO_OUT = 8;
+ { DynaGrfx }
+ MM_COREDYNAMICS_DYNAGRAFX_VGA = 9;
+ MM_COREDYNAMICS_DYNAGRAFX_WAVE_IN = 10;
+ MM_COREDYNAMICS_DYNAGRAFX_WAVE_OUT = 11;
+
+ { Product IDs for MM_CRYSTAL - Crystal Semiconductor Corporation }
+ MM_CRYSTAL_CS4232_WAVEIN = 1;
+ MM_CRYSTAL_CS4232_WAVEOUT = 2;
+ MM_CRYSTAL_CS4232_WAVEMIXER = 3;
+ MM_CRYSTAL_CS4232_WAVEAUX_AUX1 = 4;
+ MM_CRYSTAL_CS4232_WAVEAUX_AUX2 = 5;
+ MM_CRYSTAL_CS4232_WAVEAUX_LINE = 6;
+ MM_CRYSTAL_CS4232_WAVEAUX_MONO = 7;
+ MM_CRYSTAL_CS4232_WAVEAUX_MASTER = 8;
+ MM_CRYSTAL_CS4232_MIDIIN = 9;
+ MM_CRYSTAL_CS4232_MIDIOUT = 10;
+ MM_CRYSTAL_CS4232_INPUTGAIN_AUX1 = 13;
+ MM_CRYSTAL_CS4232_INPUTGAIN_LOOP = 14;
+
+ { Product IDs for MM_DDD - Danka Data Devices }
+ MM_DDD_MIDILINK_MIDIIN = 1;
+ MM_DDD_MIDILINK_MIDIOUT = 2;
+
+ { Product IDs for MM_DIACOUSTICS - DiAcoustics, Inc. }
+ { Drum Action }
+ MM_DIACOUSTICS_DRUM_ACTION = 1;
+
+ { Product IDs for MM_DIAMONDMM - Diamond Multimedia }
+ { Freedom Audio }
+ MM_DIMD_PLATFORM = 0;
+ MM_DIMD_DIRSOUND = 1;
+ MM_DIMD_VIRTMPU = 2;
+ MM_DIMD_VIRTSB = 3;
+ MM_DIMD_VIRTJOY = 4;
+ MM_DIMD_WAVEIN = 5;
+ MM_DIMD_WAVEOUT = 6;
+ MM_DIMD_MIDIIN = 7;
+ MM_DIMD_MIDIOUT = 8;
+ MM_DIMD_AUX_LINE = 9;
+ MM_DIMD_MIXER = 10;
+
+ { Product IDs for MM_DIGITAL_AUDIO_LABS - Digital Audio Labs, Inc. }
+ MM_DIGITAL_AUDIO_LABS_V8 = $10;
+ MM_DIGITAL_AUDIO_LABS_CPRO = $11;
+
+ { Product IDs for MM_DIGITAL - Digital Equipment Corporation }
+ { Digital Audio Video Compression Board }
+ MM_DIGITAL_AV320_WAVEIN = 1;
+ { Digital Audio Video Compression Board }
+ MM_DIGITAL_AV320_WAVEOUT = 2;
+
+ { Product IDs for MM_ECS - Electronic Courseware Systems, Inc. }
+ MM_ECS_AADF_MIDI_IN = 10;
+ MM_ECS_AADF_MIDI_OUT = 11;
+ MM_ECS_AADF_WAVE2MIDI_IN = 12;
+
+ { Product IDs for MM_ENSONIQ - ENSONIQ Corporation }
+ { ENSONIQ Soundscape }
+ MM_ENSONIQ_SOUNDSCAPE = $10;
+ MM_SOUNDSCAPE_WAVEOUT = MM_ENSONIQ_SOUNDSCAPE+1;
+ MM_SOUNDSCAPE_WAVEOUT_AUX = MM_ENSONIQ_SOUNDSCAPE+2;
+ MM_SOUNDSCAPE_WAVEIN = MM_ENSONIQ_SOUNDSCAPE+3;
+ MM_SOUNDSCAPE_MIDIOUT = MM_ENSONIQ_SOUNDSCAPE+4;
+ MM_SOUNDSCAPE_MIDIIN = MM_ENSONIQ_SOUNDSCAPE+5;
+ MM_SOUNDSCAPE_SYNTH = MM_ENSONIQ_SOUNDSCAPE+6;
+ MM_SOUNDSCAPE_MIXER = MM_ENSONIQ_SOUNDSCAPE+7;
+ MM_SOUNDSCAPE_AUX = MM_ENSONIQ_SOUNDSCAPE+8;
+
+ { Product IDs for MM_FRONTIER - Frontier Design Group LLC }
+ { WaveCenter }
+ MM_FRONTIER_WAVECENTER_MIDIIN = 1;
+ MM_FRONTIER_WAVECENTER_MIDIOUT = 2;
+ MM_FRONTIER_WAVECENTER_WAVEIN = 3;
+ MM_FRONTIER_WAVECENTER_WAVEOUT = 4;
+
+ { Product IDs for MM_GADGETLABS - Gadget Labs LLC }
+ MM_GADGETLABS_WAVE44_WAVEIN = 1;
+ MM_GADGETLABS_WAVE44_WAVEOUT = 2;
+ MM_GADGETLABS_WAVE42_WAVEIN = 3;
+ MM_GADGETLABS_WAVE42_WAVEOUT = 4;
+ MM_GADGETLABS_WAVE4_MIDIIN = 5;
+ MM_GADGETLABS_WAVE4_MIDIOUT = 6;
+
+ { Product IDs for MM_KAY_ELEMETRICS - Kay Elemetrics, Inc. }
+ MM_KAY_ELEMETRICS_CSL = $4300;
+ MM_KAY_ELEMETRICS_CSL_DAT = $4308;
+ MM_KAY_ELEMETRICS_CSL_4CHANNEL = $4309;
+
+ { Product IDs for MM_LERNOUT_AND_HAUSPIE - Lernout & Hauspie }
+ MM_LERNOUT_ANDHAUSPIE_LHCODECACM = 1;
+
+ { Product IDs for MM_MPTUS - M.P. Technologies, Inc. }
+ { Sound Pallette }
+ MM_MPTUS_SPWAVEOUT = 1;
+
+ { Product IDs for MM_MOTU - Mark of the Unicorn }
+ MM_MOTU_MTP_MIDIOUT_ALL = 100;
+ MM_MOTU_MTP_MIDIIN_1 = 101;
+ MM_MOTU_MTP_MIDIOUT_1 = 101;
+ MM_MOTU_MTP_MIDIIN_2 = 102;
+ MM_MOTU_MTP_MIDIOUT_2 = 102;
+ MM_MOTU_MTP_MIDIIN_3 = 103;
+ MM_MOTU_MTP_MIDIOUT_3 = 103;
+ MM_MOTU_MTP_MIDIIN_4 = 104;
+ MM_MOTU_MTP_MIDIOUT_4 = 104;
+ MM_MOTU_MTP_MIDIIN_5 = 105;
+ MM_MOTU_MTP_MIDIOUT_5 = 105;
+ MM_MOTU_MTP_MIDIIN_6 = 106;
+ MM_MOTU_MTP_MIDIOUT_6 = 106;
+ MM_MOTU_MTP_MIDIIN_7 = 107;
+ MM_MOTU_MTP_MIDIOUT_7 = 107;
+ MM_MOTU_MTP_MIDIIN_8 = 108;
+ MM_MOTU_MTP_MIDIOUT_8 = 108;
+ MM_MOTU_MTPII_MIDIOUT_ALL = 200;
+ MM_MOTU_MTPII_MIDIIN_SYNC = 200;
+ MM_MOTU_MTPII_MIDIIN_1 = 201;
+ MM_MOTU_MTPII_MIDIOUT_1 = 201;
+ MM_MOTU_MTPII_MIDIIN_2 = 202;
+ MM_MOTU_MTPII_MIDIOUT_2 = 202;
+ MM_MOTU_MTPII_MIDIIN_3 = 203;
+ MM_MOTU_MTPII_MIDIOUT_3 = 203;
+ MM_MOTU_MTPII_MIDIIN_4 = 204;
+ MM_MOTU_MTPII_MIDIOUT_4 = 204;
+ MM_MOTU_MTPII_MIDIIN_5 = 205;
+ MM_MOTU_MTPII_MIDIOUT_5 = 205;
+ MM_MOTU_MTPII_MIDIIN_6 = 206;
+ MM_MOTU_MTPII_MIDIOUT_6 = 206;
+ MM_MOTU_MTPII_MIDIIN_7 = 207;
+ MM_MOTU_MTPII_MIDIOUT_7 = 207;
+ MM_MOTU_MTPII_MIDIIN_8 = 208;
+ MM_MOTU_MTPII_MIDIOUT_8 = 208;
+ MM_MOTU_MTPII_NET_MIDIIN_1 = 209;
+ MM_MOTU_MTPII_NET_MIDIOUT_1 = 209;
+ MM_MOTU_MTPII_NET_MIDIIN_2 = 210;
+ MM_MOTU_MTPII_NET_MIDIOUT_2 = 210;
+ MM_MOTU_MTPII_NET_MIDIIN_3 = 211;
+ MM_MOTU_MTPII_NET_MIDIOUT_3 = 211;
+ MM_MOTU_MTPII_NET_MIDIIN_4 = 212;
+ MM_MOTU_MTPII_NET_MIDIOUT_4 = 212;
+ MM_MOTU_MTPII_NET_MIDIIN_5 = 213;
+ MM_MOTU_MTPII_NET_MIDIOUT_5 = 213;
+ MM_MOTU_MTPII_NET_MIDIIN_6 = 214;
+ MM_MOTU_MTPII_NET_MIDIOUT_6 = 214;
+ MM_MOTU_MTPII_NET_MIDIIN_7 = 215;
+ MM_MOTU_MTPII_NET_MIDIOUT_7 = 215;
+ MM_MOTU_MTPII_NET_MIDIIN_8 = 216;
+ MM_MOTU_MTPII_NET_MIDIOUT_8 = 216;
+ MM_MOTU_MXP_MIDIIN_MIDIOUT_ALL = 300;
+ MM_MOTU_MXP_MIDIIN_SYNC = 300;
+ MM_MOTU_MXP_MIDIIN_MIDIIN_1 = 301;
+ MM_MOTU_MXP_MIDIIN_MIDIOUT_1 = 301;
+ MM_MOTU_MXP_MIDIIN_MIDIIN_2 = 302;
+ MM_MOTU_MXP_MIDIIN_MIDIOUT_2 = 302;
+ MM_MOTU_MXP_MIDIIN_MIDIIN_3 = 303;
+ MM_MOTU_MXP_MIDIIN_MIDIOUT_3 = 303;
+ MM_MOTU_MXP_MIDIIN_MIDIIN_4 = 304;
+ MM_MOTU_MXP_MIDIIN_MIDIOUT_4 = 304;
+ MM_MOTU_MXP_MIDIIN_MIDIIN_5 = 305;
+ MM_MOTU_MXP_MIDIIN_MIDIOUT_5 = 305;
+ MM_MOTU_MXP_MIDIIN_MIDIIN_6 = 306;
+ MM_MOTU_MXP_MIDIIN_MIDIOUT_6 = 306;
+ MM_MOTU_MXPMPU_MIDIOUT_ALL = 400;
+ MM_MOTU_MXPMPU_MIDIIN_SYNC = 400;
+ MM_MOTU_MXPMPU_MIDIIN_1 = 401;
+ MM_MOTU_MXPMPU_MIDIOUT_1 = 401;
+ MM_MOTU_MXPMPU_MIDIIN_2 = 402;
+ MM_MOTU_MXPMPU_MIDIOUT_2 = 402;
+ MM_MOTU_MXPMPU_MIDIIN_3 = 403;
+ MM_MOTU_MXPMPU_MIDIOUT_3 = 403;
+ MM_MOTU_MXPMPU_MIDIIN_4 = 404;
+ MM_MOTU_MXPMPU_MIDIOUT_4 = 404;
+ MM_MOTU_MXPMPU_MIDIIN_5 = 405;
+ MM_MOTU_MXPMPU_MIDIOUT_5 = 405;
+ MM_MOTU_MXPMPU_MIDIIN_6 = 406;
+ MM_MOTU_MXPMPU_MIDIOUT_6 = 406;
+ MM_MOTU_MXN_MIDIOUT_ALL = 500;
+ MM_MOTU_MXN_MIDIIN_SYNC = 500;
+ MM_MOTU_MXN_MIDIIN_1 = 501;
+ MM_MOTU_MXN_MIDIOUT_1 = 501;
+ MM_MOTU_MXN_MIDIIN_2 = 502;
+ MM_MOTU_MXN_MIDIOUT_2 = 502;
+ MM_MOTU_MXN_MIDIIN_3 = 503;
+ MM_MOTU_MXN_MIDIOUT_3 = 503;
+ MM_MOTU_MXN_MIDIIN_4 = 504;
+ MM_MOTU_MXN_MIDIOUT_4 = 504;
+ MM_MOTU_FLYER_MIDI_IN_SYNC = 600;
+ MM_MOTU_FLYER_MIDI_IN_A = 601;
+ MM_MOTU_FLYER_MIDI_OUT_A = 601;
+ MM_MOTU_FLYER_MIDI_IN_B = 602;
+ MM_MOTU_FLYER_MIDI_OUT_B = 602;
+ MM_MOTU_PKX_MIDI_IN_SYNC = 700;
+ MM_MOTU_PKX_MIDI_IN_A = 701;
+ MM_MOTU_PKX_MIDI_OUT_A = 701;
+ MM_MOTU_PKX_MIDI_IN_B = 702;
+ MM_MOTU_PKX_MIDI_OUT_B = 702;
+ MM_MOTU_DTX_MIDI_IN_SYNC = 800;
+ MM_MOTU_DTX_MIDI_IN_A = 801;
+ MM_MOTU_DTX_MIDI_OUT_A = 801;
+ MM_MOTU_DTX_MIDI_IN_B = 802;
+ MM_MOTU_DTX_MIDI_OUT_B = 802;
+ MM_MOTU_MTPAV_MIDIOUT_ALL = 900;
+ MM_MOTU_MTPAV_MIDIIN_SYNC = 900;
+ MM_MOTU_MTPAV_MIDIIN_1 = 901;
+ MM_MOTU_MTPAV_MIDIOUT_1 = 901;
+ MM_MOTU_MTPAV_MIDIIN_2 = 902;
+ MM_MOTU_MTPAV_MIDIOUT_2 = 902;
+ MM_MOTU_MTPAV_MIDIIN_3 = 903;
+ MM_MOTU_MTPAV_MIDIOUT_3 = 903;
+ MM_MOTU_MTPAV_MIDIIN_4 = 904;
+ MM_MOTU_MTPAV_MIDIOUT_4 = 904;
+ MM_MOTU_MTPAV_MIDIIN_5 = 905;
+ MM_MOTU_MTPAV_MIDIOUT_5 = 905;
+ MM_MOTU_MTPAV_MIDIIN_6 = 906;
+ MM_MOTU_MTPAV_MIDIOUT_6 = 906;
+ MM_MOTU_MTPAV_MIDIIN_7 = 907;
+ MM_MOTU_MTPAV_MIDIOUT_7 = 907;
+ MM_MOTU_MTPAV_MIDIIN_8 = 908;
+ MM_MOTU_MTPAV_MIDIOUT_8 = 908;
+ MM_MOTU_MTPAV_NET_MIDIIN_1 = 909;
+ MM_MOTU_MTPAV_NET_MIDIOUT_1 = 909;
+ MM_MOTU_MTPAV_NET_MIDIIN_2 = 910;
+ MM_MOTU_MTPAV_NET_MIDIOUT_2 = 910;
+ MM_MOTU_MTPAV_NET_MIDIIN_3 = 911;
+ MM_MOTU_MTPAV_NET_MIDIOUT_3 = 911;
+ MM_MOTU_MTPAV_NET_MIDIIN_4 = 912;
+ MM_MOTU_MTPAV_NET_MIDIOUT_4 = 912;
+ MM_MOTU_MTPAV_NET_MIDIIN_5 = 913;
+ MM_MOTU_MTPAV_NET_MIDIOUT_5 = 913;
+ MM_MOTU_MTPAV_NET_MIDIIN_6 = 914;
+ MM_MOTU_MTPAV_NET_MIDIOUT_6 = 914;
+ MM_MOTU_MTPAV_NET_MIDIIN_7 = 915;
+ MM_MOTU_MTPAV_NET_MIDIOUT_7 = 915;
+ MM_MOTU_MTPAV_NET_MIDIIN_8 = 916;
+ MM_MOTU_MTPAV_NET_MIDIOUT_8 = 916;
+ MM_MOTU_MTPAV_MIDIIN_ADAT = 917;
+ MM_MOTU_MTPAV_MIDIOUT_ADAT = 917;
+
+ { Product IDs for MM_MIRO - miro Computer Products AG }
+ { miroMOVIE pro }
+ MM_MIRO_MOVIEPRO = 1;
+ { miroVIDEO D1 }
+ MM_MIRO_VIDEOD1 = 2;
+ { miroVIDEO DC1 tv }
+ MM_MIRO_VIDEODC1TV = 3;
+ { miroVIDEO 10/20 TD }
+ MM_MIRO_VIDEOTD = 4;
+ MM_MIRO_DC30_WAVEOUT = 5;
+ MM_MIRO_DC30_WAVEIN = 6;
+ MM_MIRO_DC30_MIX = 7;
+
+ { Product IDs for MM_NEC - NEC }
+ MM_NEC_73_86_SYNTH = 5;
+ MM_NEC_73_86_WAVEOUT = 6;
+ MM_NEC_73_86_WAVEIN = 7;
+ MM_NEC_26_SYNTH = 9;
+ MM_NEC_MPU401_MIDIOUT = 10;
+ MM_NEC_MPU401_MIDIIN = 11;
+ MM_NEC_JOYSTICK = 12;
+
+ { Product IDs for MM_NORRIS - Norris Communications, Inc. }
+ MM_NORRIS_VOICELINK = 1;
+
+ { Product IDs for MM_NORTHERN_TELECOM - Northern Telecom Limited }
+ { MPX Audio Card Wave Input Device }
+ MM_NORTEL_MPXAC_WAVEIN = 1;
+
+ { MPX Audio Card Wave Output Device }
+ MM_NORTEL_MPXAC_WAVEOUT = 2;
+
+ { Product IDs for MM_NVIDIA - NVidia Corporation }
+ MM_NVIDIA_WAVEOUT = 1;
+ MM_NVIDIA_WAVEIN = 2;
+ MM_NVIDIA_MIDIOUT = 3;
+ MM_NVIDIA_MIDIIN = 4;
+ MM_NVIDIA_GAMEPORT = 5;
+ MM_NVIDIA_MIXER = 6;
+ MM_NVIDIA_AUX = 7;
+
+ { Product IDs for MM_OKSORI - OKSORI Co., Ltd. }
+ { Oksori Base }
+ MM_OKSORI_BASE = 0;
+ MM_OKSORI_OSR8_WAVEOUT = MM_OKSORI_BASE+1; { Oksori 8bit Wave out }
+ MM_OKSORI_OSR8_WAVEIN = MM_OKSORI_BASE+2; { Oksori 8bit Wave in }
+ MM_OKSORI_OSR16_WAVEOUT = MM_OKSORI_BASE+3; { Oksori 16 bit Wave out }
+ MM_OKSORI_OSR16_WAVEIN = MM_OKSORI_BASE+4; { Oksori 16 bit Wave in }
+ MM_OKSORI_FM_OPL4 = MM_OKSORI_BASE+5; { Oksori FM Synth Yamaha OPL4 }
+ MM_OKSORI_MIX_MASTER = MM_OKSORI_BASE+6; { Oksori DSP Mixer - Master Volume }
+ MM_OKSORI_MIX_WAVE = MM_OKSORI_BASE+7; { Oksori DSP Mixer - Wave Volume }
+ MM_OKSORI_MIX_FM = MM_OKSORI_BASE+8; { Oksori DSP Mixer - FM Volume }
+ MM_OKSORI_MIX_LINE = MM_OKSORI_BASE+9; { Oksori DSP Mixer - Line Volume }
+ MM_OKSORI_MIX_CD = MM_OKSORI_BASE+10; { Oksori DSP Mixer - CD Volume }
+ MM_OKSORI_MIX_MIC = MM_OKSORI_BASE+11; { Oksori DSP Mixer - MIC Volume }
+ MM_OKSORI_MIX_ECHO = MM_OKSORI_BASE+12; { Oksori DSP Mixer - Echo Volume }
+ MM_OKSORI_MIX_AUX1 = MM_OKSORI_BASE+13; { Oksori AD1848 - AUX1 Volume }
+ MM_OKSORI_MIX_LINE1 = MM_OKSORI_BASE+14; { Oksori AD1848 - LINE1 Volume }
+ MM_OKSORI_EXT_MIC1 = MM_OKSORI_BASE+15; { Oksori External - One Mic Connect }
+ MM_OKSORI_EXT_MIC2 = MM_OKSORI_BASE+16; { Oksori External - Two Mic Connect }
+ MM_OKSORI_MIDIOUT = MM_OKSORI_BASE+17; { Oksori MIDI Out Device }
+ MM_OKSORI_MIDIIN = MM_OKSORI_BASE+18; { Oksori MIDI In Device }
+ MM_OKSORI_MPEG_CDVISION = MM_OKSORI_BASE+19; { Oksori CD-Vision MPEG Decoder }
+
+ { Product IDs for MM_OSITECH - Ositech Communications Inc. }
+ { Trumpcard }
+ MM_OSITECH_TRUMPCARD = 1;
+
+ { Product IDs for MM_OSPREY - Osprey Technologies, Inc. }
+ MM_OSPREY_1000WAVEIN = 1;
+ MM_OSPREY_1000WAVEOUT = 2;
+
+ { Product IDs for MM_QUARTERDECK - Quarterdeck Corporation }
+ { Quarterdeck L&H Codec Wave In }
+ MM_QUARTERDECK_LHWAVEIN = 0;
+ { Quarterdeck L&H Codec Wave Out }
+ MM_QUARTERDECK_LHWAVEOUT = 1;
+
+ { Product IDs for MM_RHETOREX - Rhetorex Inc }
+ MM_RHETOREX_WAVEIN = 1;
+ MM_RHETOREX_WAVEOUT = 2;
+
+ { Product IDs for MM_ROCKWELL - Rockwell International }
+ MM_VOICEMIXER = 1;
+ ROCKWELL_WA1_WAVEIN = 100;
+ ROCKWELL_WA1_WAVEOUT = 101;
+ ROCKWELL_WA1_SYNTH = 102;
+ ROCKWELL_WA1_MIXER = 103;
+ ROCKWELL_WA1_MPU401_IN = 104;
+ ROCKWELL_WA1_MPU401_OUT = 105;
+ ROCKWELL_WA2_WAVEIN = 200;
+ ROCKWELL_WA2_WAVEOUT = 201;
+ ROCKWELL_WA2_SYNTH = 202;
+ ROCKWELL_WA2_MIXER = 203;
+ ROCKWELL_WA2_MPU401_IN = 204;
+ ROCKWELL_WA2_MPU401_OUT = 205;
+
+ { Product IDs for MM_S3 - S3 }
+ MM_S3_WAVEOUT = $1;
+ MM_S3_WAVEIN = $2;
+ MM_S3_MIDIOUT = $3;
+ MM_S3_MIDIIN = $4;
+ MM_S3_FMSYNTH = $5;
+ MM_S3_MIXER = $6;
+ MM_S3_AUX = $7;
+
+ { Product IDs for MM_SEERSYS - Seer Systems, Inc. }
+ MM_SEERSYS_SEERSYNTH = 1;
+ MM_SEERSYS_SEERWAVE = 2;
+ MM_SEERSYS_SEERMIX = 3;
+
+ { Product IDs for MM_SOFTSOUND - Softsound, Ltd. }
+ MM_SOFTSOUND_CODEC = 1;
+
+ { Product IDs for MM_SOUNDESIGNS - SounDesignS M.C.S. Ltd. }
+ MM_SOUNDESIGNS_WAVEIN = 1;
+ MM_SOUNDESIGNS_WAVEOUT = 2;
+
+ { Product IDs for MM_SPECTRUM_SIGNAL_PROCESSING - Spectrum Signal Processing, Inc. }
+ { Sound Festa Wave In Device }
+ MM_SSP_SNDFESWAVEIN = 1;
+ { Sound Festa Wave Out Device }
+ MM_SSP_SNDFESWAVEOUT = 2;
+ { Sound Festa MIDI In Device }
+ MM_SSP_SNDFESMIDIIN = 3;
+ { Sound Festa MIDI Out Device }
+ MM_SSP_SNDFESMIDIOUT = 4;
+ { Sound Festa MIDI Synth Device }
+ MM_SSP_SNDFESSYNTH = 5;
+ { Sound Festa Mixer Device }
+ MM_SSP_SNDFESMIX = 6;
+ { Sound Festa Auxilliary Device }
+ MM_SSP_SNDFESAUX = 7;
+
+ { Product IDs for MM_TDK - TDK Corporation }
+ MM_TDK_MW_MIDI_SYNTH = 1;
+ MM_TDK_MW_MIDI_IN = 2;
+ MM_TDK_MW_MIDI_OUT = 3;
+ MM_TDK_MW_WAVE_IN = 4;
+ MM_TDK_MW_WAVE_OUT = 5;
+ MM_TDK_MW_AUX = 6;
+ MM_TDK_MW_MIXER = 10;
+ MM_TDK_MW_AUX_MASTER = 100;
+ MM_TDK_MW_AUX_BASS = 101;
+ MM_TDK_MW_AUX_TREBLE = 102;
+ MM_TDK_MW_AUX_MIDI_VOL = 103;
+ MM_TDK_MW_AUX_WAVE_VOL = 104;
+ MM_TDK_MW_AUX_WAVE_RVB = 105;
+ MM_TDK_MW_AUX_WAVE_CHR = 106;
+ MM_TDK_MW_AUX_VOL = 107;
+ MM_TDK_MW_AUX_RVB = 108;
+ MM_TDK_MW_AUX_CHR = 109;
+
+ { Product IDs for MM_TURTLE_BEACH - Turtle Beach, Inc. }
+ MM_TBS_TROPEZ_WAVEIN = 37;
+ MM_TBS_TROPEZ_WAVEOUT = 38;
+ MM_TBS_TROPEZ_AUX1 = 39;
+ MM_TBS_TROPEZ_AUX2 = 40;
+ MM_TBS_TROPEZ_LINE = 41;
+
+ { Product IDs for MM_VIENNASYS - Vienna Systems }
+ MM_VIENNASYS_TSP_WAVE_DRIVER = 1;
+
+ { Product IDs for MM_VIONA - Viona Development GmbH }
+ { Q-Motion PCI II/Bravado 2000 }
+ MM_VIONA_QVINPCI_MIXER = 1;
+ MM_VIONA_QVINPCI_WAVEIN = 2;
+ MM_VIONAQVINPCI_WAVEOUT = 3;
+ { Buster }
+ MM_VIONA_BUSTER_MIXER = 4;
+ { Cinemaster }
+ MM_VIONA_CINEMASTER_MIXER = 5;
+ { Concerto }
+ MM_VIONA_CONCERTO_MIXER = 6;
+
+ { Product IDs for MM_WILDCAT - Wildcat Canyon Software }
+ { Autoscore }
+ MM_WILDCAT_AUTOSCOREMIDIIN = 1;
+
+ { Product IDs for MM_WILLOWPOND - Willow Pond Corporation }
+ MM_WILLOWPOND_FMSYNTH_STEREO = 20;
+ MM_WILLOWPOND_SNDPORT_WAVEIN = 100;
+ MM_WILLOWPOND_SNDPORT_WAVEOUT = 101;
+ MM_WILLOWPOND_SNDPORT_MIXER = 102;
+ MM_WILLOWPOND_SNDPORT_AUX = 103;
+ MM_WILLOWPOND_PH_WAVEIN = 104;
+ MM_WILLOWPOND_PH_WAVEOUT = 105;
+ MM_WILLOWPOND_PH_MIXER = 106;
+ MM_WILLOWPOND_PH_AUX = 107;
+
+ { Product IDs for MM_WORKBIT - Workbit Corporation }
+ { Harmony Mixer }
+ MM_WORKBIT_MIXER = 1;
+ { Harmony Mixer }
+ MM_WORKBIT_WAVEOUT = 2;
+ { Harmony Mixer }
+ MM_WORKBIT_WAVEIN = 3;
+ { Harmony Mixer }
+ MM_WORKBIT_MIDIIN = 4;
+ { Harmony Mixer }
+ MM_WORKBIT_MIDIOUT = 5;
+ { Harmony Mixer }
+ MM_WORKBIT_FMSYNTH = 6;
+ { Harmony Mixer }
+ MM_WORKBIT_AUX = 7;
+ MM_WORKBIT_JOYSTICK = 8;
+ { Product IDs for MM_FRAUNHOFER_IIS - Fraunhofer }
+ MM_FHGIIS_MPEGLAYER3 = 10;
+{$ENDIF NOMMIDS}
+
+
+{*////////////////////////////////////////////////////////////////////////// */
+
+/* INFO LIST CHUNKS (from the Multimedia Programmer's Reference
+ plus new ones)
+*}
+
+const
+ RIFFINFO_IARL = FOURCC(byte(AnsiChar('I')) or
+ (byte(AnsiChar('A')) shl 8) or
+ (byte(AnsiChar('R')) shl 16) or
+ (byte(AnsiChar('L')) shl 24)
+ ); //*Archival location */
+
+ RIFFINFO_IART = FOURCC(byte(AnsiChar('I')) or
+ (byte(AnsiChar('A')) shl 8) or
+ (byte(AnsiChar('R')) shl 16) or
+ (byte(AnsiChar('T')) shl 24)
+ ); //*Artist */
+
+ RIFFINFO_ICMS = FOURCC(byte(AnsiChar('I')) or
+ (byte(AnsiChar('C')) shl 8) or
+ (byte(AnsiChar('M')) shl 16) or
+ (byte(AnsiChar('S'))shl 24)
+ ); //*Commissioned */
+
+ RIFFINFO_ICMT = FOURCC(byte(AnsiChar('I')) or
+ (byte(AnsiChar('C')) shl 8) or
+ (byte(AnsiChar('M')) shl 16) or
+ (byte(AnsiChar('T')) shl 24)
+ ); //*Comments */
+
+ RIFFINFO_ICOP = FOURCC(byte(AnsiChar('I')) or
+ (byte(AnsiChar('C')) shl 8) or
+ (byte(AnsiChar('O')) shl 16) or
+ (byte(AnsiChar('P')) shl 24)
+ ); //*Copyright */
+
+ RIFFINFO_ICRD = FOURCC(byte(AnsiChar('I')) or
+ (byte(AnsiChar('C')) shl 8) or
+ (byte(AnsiChar('R')) shl 16) or
+ (byte(AnsiChar('D')) shl 24)
+ ); //*Creation date of subject */
+
+ RIFFINFO_ICRP = FOURCC(byte(AnsiChar('I')) or
+ (byte(AnsiChar('C')) shl 8) or
+ (byte(AnsiChar('R')) shl 16) or
+ (byte(AnsiChar('P')) shl 24)
+ ); //*Cropped */
+
+ RIFFINFO_IDIM = FOURCC(byte(AnsiChar('I')) or
+ (byte(AnsiChar('D')) shl 8) or
+ (byte(AnsiChar('I')) shl 16) or
+ (byte(AnsiChar('M')) shl 24)
+ ); //*Dimensions */
+
+ RIFFINFO_IDPI = FOURCC(byte(AnsiChar('I')) or
+ (byte(AnsiChar('D')) shl 8) or
+ (byte(AnsiChar('P')) shl 16) or
+ (byte(AnsiChar('I')) shl 24)
+ ); //*Dots per inch */
+
+ RIFFINFO_IENG = FOURCC(byte(AnsiChar('I')) or
+ (byte(AnsiChar('E')) shl 8) or
+ (byte(AnsiChar('N')) shl 16) or
+ (byte(AnsiChar('G')) shl 24)
+ ); //*Engineer */
+
+ RIFFINFO_IGNR = FOURCC(byte(AnsiChar('I')) or
+ (byte(AnsiChar('G')) shl 8) or
+ (byte(AnsiChar('N')) shl 16) or
+ (byte(AnsiChar('R')) shl 24)
+ ); //*Genre */
+
+ RIFFINFO_IKEY = FOURCC(byte(AnsiChar('I')) or
+ (byte(AnsiChar('K')) shl 8) or
+ (byte(AnsiChar('E')) shl 16) or
+ (byte(AnsiChar('Y')) shl 24)
+ ); //*Keywords */
+
+ RIFFINFO_ILGT = FOURCC(byte(AnsiChar('I')) or
+ (byte(AnsiChar('L')) shl 8) or
+ (byte(AnsiChar('G')) shl 16) or
+ (byte(AnsiChar('T')) shl 24)
+ ); //*Lightness settings */
+
+ RIFFINFO_IMED = FOURCC(byte(AnsiChar('I')) or
+ (byte(AnsiChar('M')) shl 8) or
+ (byte(AnsiChar('E')) shl 16) or
+ (byte(AnsiChar('D')) shl 24)
+ ); //*Medium */
+
+ RIFFINFO_INAM = FOURCC(byte(AnsiChar('I')) or
+ (byte(AnsiChar('N')) shl 8) or
+ (byte(AnsiChar('A')) shl 16) or
+ (byte(AnsiChar('M')) shl 24)
+ ); //*Name of subject */
+
+ RIFFINFO_IPLT = FOURCC(byte(AnsiChar('I')) or
+ (byte(AnsiChar('P')) shl 8) or
+ (byte(AnsiChar('L')) shl 16) or
+ (byte(AnsiChar('T')) shl 24)
+ ); //*Palette Settings. No. of colors requested. */
+
+ RIFFINFO_IPRD = FOURCC(byte(AnsiChar('I')) or
+ (byte(AnsiChar('P')) shl 8) or
+ (byte(AnsiChar('R')) shl 16) or
+ (byte(AnsiChar('D')) shl 24)
+ ); //*Product */
+
+ RIFFINFO_ISBJ = FOURCC(byte(AnsiChar('I')) or
+ (byte(AnsiChar('S')) shl 8) or
+ (byte(AnsiChar('B')) shl 16) or
+ (byte(AnsiChar('J')) shl 24)
+ ); //*Subject description */
+
+ RIFFINFO_ISFT = FOURCC(byte(AnsiChar('I')) or
+ (byte(AnsiChar('S')) shl 8) or
+ (byte(AnsiChar('F')) shl 16) or
+ (byte(AnsiChar('T')) shl 24)
+ ); //*Software. Name of package used to create file. */
+
+ RIFFINFO_ISHP = FOURCC(byte(AnsiChar('I')) or
+ (byte(AnsiChar('S')) shl 8) or
+ (byte(AnsiChar('H')) shl 16) or
+ (byte(AnsiChar('P')) shl 24)
+ ); //*Sharpness. */
+
+ RIFFINFO_ISRC = FOURCC(byte(AnsiChar('I')) or
+ (byte(AnsiChar('S')) shl 8) or
+ (byte(AnsiChar('R')) shl 16) or
+ (byte(AnsiChar('C')) shl 24)
+ ); //*Source. */
+
+ RIFFINFO_ISRF = FOURCC(byte(AnsiChar('I')) or
+ (byte(AnsiChar('S')) shl 8) or
+ (byte(AnsiChar('R')) shl 16) or
+ (byte(AnsiChar('F')) shl 24)
+ ); //*Source Form. ie slide, paper */
+
+ RIFFINFO_ITCH = FOURCC(byte(AnsiChar('I')) or
+ (byte(AnsiChar('T')) shl 8) or
+ (byte(AnsiChar('C')) shl 16) or
+ (byte(AnsiChar('H')) shl 24)
+ ); //*Technician who digitized the subject. */
+
+//* New INFO Chunks as of August 30, 1993: */
+ RIFFINFO_ISMP = FOURCC(byte(AnsiChar('I')) or
+ (byte(AnsiChar('S')) shl 8) or
+ (byte(AnsiChar('M')) shl 16) or
+ (byte(AnsiChar('P')) shl 24)
+ ); //*SMPTE time code */
+{* ISMP: SMPTE time code of digitization start point expressed as a NULL terminated
+ text string "HH:MM:SS:FF". If performing MCI capture in AVICAP, this
+ chunk will be automatically set based on the MCI start time.
+*}
+
+ RIFFINFO_IDIT = FOURCC(byte(AnsiChar('I')) or
+ (byte(AnsiChar('D')) shl 8) or
+ (byte(AnsiChar('I')) shl 16) or
+ (byte(AnsiChar('T')) shl 24)
+ ); //*Digitization Time */
+{* IDIT: "Digitization Time" Specifies the time and date that the digitization commenced.
+ The digitization time is contained in an ASCII string which
+ contains exactly 26 characters and is in the format
+ "Wed Jan 02 02:03:55 1990\n\0".
+ The ctime(), asctime(), functions can be used to create strings
+ in this format. This chunk is automatically added to the capture
+ file based on the current system time at the moment capture is initiated.
+*}
+
+{*Template line for new additions
+ RIFFINFO_I = FOURCC(byte(AnsiChar('I')) or
+ (byte(AnsiChar('')) shl 8) or
+ (byte(AnsiChar('')) shl 16) or
+ (byte(AnsiChar('')) shl 24)
+ ); // Comment
+}
+//*/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////*/
+
+{$IFNDEF NONEWWAVE}
+{ WAVE form wFormatTag IDs }
+const
+ WAVE_FORMAT_UNKNOWN = $0000;{ Microsoft Corporation }
+ { Microsoft Corporation }
+ WAVE_FORMAT_ADPCM = $0002;
+ { Microsoft Corporation }
+ WAVE_FORMAT_IEEE_FLOAT = $0003;
+ { IEEE754: range (+1, -1] }
+ { 32-bit/64-bit format as defined by }
+ { MSVC++ float/double type }
+ { IBM Corporation }
+ WAVE_FORMAT_IBM_CVSD = $0005;
+ { Microsoft Corporation }
+ WAVE_FORMAT_ALAW = $0006;
+ { Microsoft Corporation }
+ WAVE_FORMAT_MULAW = $0007;
+ { Microsoft Corporation }
+ WAVE_FORMAT_WMAVOICE9 = $000a;
+ { OKI }
+ WAVE_FORMAT_OKI_ADPCM = $0010;
+ { Intel Corporation }
+ WAVE_FORMAT_DVI_ADPCM = $0011;
+ { Intel Corporation }
+ WAVE_FORMAT_IMA_ADPCM = WAVE_FORMAT_DVI_ADPCM;
+ { Videologic }
+ WAVE_FORMAT_MEDIASPACE_ADPCM = $0012;
+ { Sierra Semiconductor Corp }
+ WAVE_FORMAT_SIERRA_ADPCM = $0013;
+ { Antex Electronics Corporation }
+ WAVE_FORMAT_G723_ADPCM = $0014;
+ { DSP Solutions, Inc. }
+ WAVE_FORMAT_DIGISTD = $0015;
+ { DSP Solutions, Inc. }
+ WAVE_FORMAT_DIGIFIX = $0016;
+ { Dialogic Corporation }
+ WAVE_FORMAT_DIALOGIC_OKI_ADPCM = $0017;
+ { Media Vision, Inc. }
+ WAVE_FORMAT_MEDIAVISION_ADPCM = $0018;
+ { Yamaha Corporation of America }
+ WAVE_FORMAT_YAMAHA_ADPCM = $0020;
+ { Speech Compression }
+ WAVE_FORMAT_SONARC = $0021;
+ { DSP Group, Inc }
+ WAVE_FORMAT_DSPGROUP_TRUESPEECH = $0022;
+ { Echo Speech Corporation }
+ WAVE_FORMAT_ECHOSC1 = $0023;
+ { }
+ WAVE_FORMAT_AUDIOFILE_AF36 = $0024;
+ { Audio Processing Technology }
+ WAVE_FORMAT_APTX = $0025;
+ { }
+ WAVE_FORMAT_AUDIOFILE_AF10 = $0026;
+ { Dolby Laboratories }
+ WAVE_FORMAT_DOLBY_AC2 = $0030;
+ { Microsoft Corporation }
+ WAVE_FORMAT_GSM610 = $0031;
+ { Microsoft Corporation }
+ WAVE_FORMAT_MSNAUDIO = $0032;
+ { Antex Electronics Corporation }
+ WAVE_FORMAT_ANTEX_ADPCME = $0033;
+ { Control Resources Limited }
+ WAVE_FORMAT_CONTROL_RES_VQLPC = $0034;
+ { DSP Solutions, Inc. }
+ WAVE_FORMAT_DIGIREAL = $0035;
+ { DSP Solutions, Inc. }
+ WAVE_FORMAT_DIGIADPCM = $0036;
+ { Control Resources Limited }
+ WAVE_FORMAT_CONTROL_RES_CR10 = $0037;
+ { Natural MicroSystems }
+ WAVE_FORMAT_NMS_VBXADPCM = $0038;
+ { Crystal Semiconductor IMA ADPCM }
+ WAVE_FORMAT_CS_IMAADPCM = $0039;
+ { Echo Speech Corporation }
+ WAVE_FORMAT_ECHOSC3 = $003A;
+ { Rockwell International }
+ WAVE_FORMAT_ROCKWELL_ADPCM = $003B;
+ { Rockwell International }
+ WAVE_FORMAT_ROCKWELL_DIGITALK = $003C;
+ { Xebec Multimedia Solutions Limited }
+ WAVE_FORMAT_XEBEC = $003D;
+ { Antex Electronics Corporation }
+ WAVE_FORMAT_G721_ADPCM = $0040;
+ { Antex Electronics Corporation }
+ WAVE_FORMAT_G728_CELP = $0041;
+ { Microsoft Corporation }
+ WAVE_FORMAT_MPEG = $0050;
+ { ISO/MPEG Layer3 Format Tag }
+ WAVE_FORMAT_MPEGLAYER3 = $0055;
+ { Cirrus Logic }
+ WAVE_FORMAT_CIRRUS = $0060;
+ { ESS Technology }
+ WAVE_FORMAT_ESPCM = $0061;
+ { Voxware Inc }
+ WAVE_FORMAT_VOXWARE = $0062;
+ { Canopus, co., Ltd. }
+ WAVEFORMAT_CANOPUS_ATRAC = $0063;
+ { APICOM }
+ WAVE_FORMAT_G726_ADPCM = $0064;
+ { APICOM }
+ WAVE_FORMAT_G722_ADPCM = $0065;
+ { Microsoft Corporation }
+ WAVE_FORMAT_DSAT = $0066;
+ { Microsoft Corporation }
+ WAVE_FORMAT_DSAT_DISPLAY = $0067;
+ { Softsound, Ltd. }
+ WAVE_FORMAT_SOFTSOUND = $0080;
+ { Rhetorex Inc }
+ WAVE_FORMAT_RHETOREX_ADPCM = $0100;
+ { Microsoft Corporation }
+ WAVE_FORMAT_MSAUDIO1 = $0160;
+ { Microsoft Corporation }
+ WAVE_FORMAT_WMAUDIO2 = $0161;
+ { Microsoft Corporation }
+ WAVE_FORMAT_WMAUDIO3 = $0162;
+ { Microsoft Corporation }
+ WAVE_FORMAT_WMAUDIO_LOSSLESS = $0163;
+ { Creative Labs, Inc }
+ WAVE_FORMAT_CREATIVE_ADPCM = $0200;
+ { Creative Labs, Inc }
+ WAVE_FORMAT_CREATIVE_FASTSPEECH8 = $0202;
+ { Creative Labs, Inc }
+ WAVE_FORMAT_CREATIVE_FASTSPEECH10 = $0203;
+ { Quarterdeck Corporation }
+ WAVE_FORMAT_QUARTERDECK = $0220;
+ { Fujitsu Corp. }
+ WAVE_FORMAT_FM_TOWNS_SND = $0300;
+ { Brooktree Corporation }
+ WAVE_FORMAT_BTV_DIGITAL = $0400;
+ { Ing C. Olivetti & C., S.p.A. }
+ WAVE_FORMAT_OLIGSM = $1000;
+ { Ing C. Olivetti & C., S.p.A. }
+ WAVE_FORMAT_OLIADPCM = $1001;
+ { Ing C. Olivetti & C., S.p.A. }
+ WAVE_FORMAT_OLICELP = $1002;
+ { Ing C. Olivetti & C., S.p.A. }
+ WAVE_FORMAT_OLISBC = $1003;
+ { Ing C. Olivetti & C., S.p.A. }
+ WAVE_FORMAT_OLIOPR = $1004;
+ { Lernout & Hauspie }
+ WAVE_FORMAT_LH_CODEC = $1100;
+ { Norris Communications, Inc. }
+ WAVE_FORMAT_NORRIS = $1400;
+
+const
+ WAVE_FORMAT_EXTENSIBLE = $FFFE; { Microsoft }
+
+ { }
+ { the WAVE_FORMAT_DEVELOPMENT format tag can be used during the }
+ { development phase of a new wave format. Before shipping, you MUST }
+ { acquire an official format tag from Microsoft. }
+ { }
+
+const
+ WAVE_FORMAT_DEVELOPMENT = $FFFF;
+
+{$ENDIF NONEWWAVE}
+
+type
+{ general waveform format structure (information common to all formats) }
+ waveformat_tag = record
+ wFormatTag:word; { format type }
+ nChannels:word; { number of channels (i.e. mono, stereo...) }
+ nSamplesPerSec:DWORD; { sample rate }
+ nAvgBytesPerSec:DWORD; { for buffer estimation }
+ nBlockAlign:word; { block size of data }
+ end;
+ WAVEFORMAT = waveformat_tag;
+ PWAVEFORMAT = ^WAVEFORMAT;
+ NPWAVEFORMAT = ^WAVEFORMAT;
+ LPWAVEFORMAT = ^WAVEFORMAT;
+ LPCWAVEFORMAT = ^WAVEFORMAT;
+
+ { flags for wFormatTag field of WAVEFORMAT }
+const
+ WAVE_FORMAT_PCM = 1;
+
+{ specific waveform format structure for PCM data }
+type
+ pcmwaveformat_tag = record
+ wf:WAVEFORMAT;
+ wBitsPerSample:word; // corresponds to MCI_WAVE_SET_.... structure
+ end;
+ PCMWAVEFORMAT = pcmwaveformat_tag;
+ PPCMWAVEFORMAT = ^PCMWAVEFORMAT;
+ NPPCMWAVEFORMAT = ^PCMWAVEFORMAT;
+ LPPCMWAVEFORMAT = ^PCMWAVEFORMAT;
+
+{ general extended waveform format structure
+ Use this for all NON PCM formats (information common to all formats)
+}
+
+{*
+ * extended waveform format structure used for all non-PCM formats. this
+ * structure is common to all non-PCM formats.
+ *}
+type
+ tWAVEFORMATEX = record
+ wFormatTag:word; //* format type */
+ nChannels:word; //* number of channels (i.e. mono, stereo...) */
+ nSamplesPerSec:DWORD; //* sample rate */
+ nAvgBytesPerSec:DWORD; //* for buffer estimation */
+ nBlockAlign:word; //* block size of data */
+ wBitsPerSample:word; //* Number of bits per sample of mono data */
+ cbSize:word; //* The count in bytes of the size of
+ // extra information (after cbSize) */
+ end;
+ WAVEFORMATEX = tWAVEFORMATEX;
+ PWAVEFORMATEX = ^WAVEFORMATEX;
+ NPWAVEFORMATEX = ^WAVEFORMATEX;
+ LPWAVEFORMATEX = ^tWAVEFORMATEX;
+ LPCWAVEFORMATEX = ^WAVEFORMATEX;
+
+type
+ WAVEFORMATEXTENSIBLE = record
+ Format:WAVEFORMATEX;
+ Samples:record
+ case longint of
+ 0: (wValidBitsPerSample:word);
+ 1: (wSamplesPerBlock:word);
+ 2: (wReserved:word);
+ end;
+ dwChannelMask:DWORD;
+ SubFormat:TGUID;
+ end;
+ PWAVEFORMATEXTENSIBLE = ^WAVEFORMATEXTENSIBLE;
+
+{ Extended PCM waveform format structure based on WAVEFORMATEXTENSIBLE. }
+{ Use this for multiple channel and hi-resolution PCM data }
+type
+ WAVEFORMATPCMEX = WAVEFORMATEXTENSIBLE; { Format.cbSize = 22 }
+ PWAVEFORMATPCMEX = ^WAVEFORMATPCMEX;
+ NPWAVEFORMATPCMEX = ^WAVEFORMATPCMEX;
+ LPWAVEFORMATPCMEX = ^WAVEFORMATPCMEX;
+
+ { Extended format structure using IEEE Float data and based }
+ { on WAVEFORMATEXTENSIBLE. Use this for multiple channel }
+ { and hi-resolution PCM data in IEEE floating point format. }
+
+ WAVEFORMATIEEEFLOATEX = WAVEFORMATEXTENSIBLE; { Format.cbSize = 22 }
+ PWAVEFORMATIEEEFLOATEX = ^WAVEFORMATIEEEFLOATEX;
+ NPWAVEFORMATIEEEFLOATEX = ^WAVEFORMATIEEEFLOATEX;
+ LPWAVEFORMATIEEEFLOATEX = ^WAVEFORMATIEEEFLOATEX;
+
+{ Speaker Positions for dwChannelMask in WAVEFORMATEXTENSIBLE: }
+const
+ SPEAKER_FRONT_LEFT = $1;
+ SPEAKER_FRONT_RIGHT = $2;
+ SPEAKER_FRONT_CENTER = $4;
+ SPEAKER_LOW_FREQUENCY = $8;
+ SPEAKER_BACK_LEFT = $10;
+ SPEAKER_BACK_RIGHT = $20;
+ SPEAKER_FRONT_LEFT_OF_CENTER = $40;
+ SPEAKER_FRONT_RIGHT_OF_CENTER = $80;
+ SPEAKER_BACK_CENTER = $100;
+ SPEAKER_SIDE_LEFT = $200;
+ SPEAKER_SIDE_RIGHT = $400;
+ SPEAKER_TOP_CENTER = $800;
+ SPEAKER_TOP_FRONT_LEFT = $1000;
+ SPEAKER_TOP_FRONT_CENTER = $2000;
+ SPEAKER_TOP_FRONT_RIGHT = $4000;
+ SPEAKER_TOP_BACK_LEFT = $8000;
+ SPEAKER_TOP_BACK_CENTER = $10000;
+ SPEAKER_TOP_BACK_RIGHT = $20000;
+ { Bit mask locations reserved for future use }
+ SPEAKER_RESERVED = $7FFC0000;
+ { Used to specify that any possible permutation of speaker configurations }
+ SPEAKER_ALL = $80000000;
+
+{$IFNDEF NONEWWAVE}
+{ Define data for MS ADPCM }
+
+type
+ adpcmcoef_tag = record
+ iCoef1:SmallInt;
+ iCoef2:SmallInt;
+ end;
+ ADPCMCOEFSET = adpcmcoef_tag;
+ PADPCMCOEFSET = ^ADPCMCOEFSET;
+ NPADPCMCOEFSET = ^ADPCMCOEFSET;
+ LPADPCMCOEFSET = ^ADPCMCOEFSET;
+
+type
+ adpcmwaveformat_tag = record
+ wfx:WAVEFORMATEX;
+ wSamplesPerBlock:word;
+ wNumCoef:word;
+ aCoef:array[0..0] of ADPCMCOEFSET;
+ end;
+ ADPCMWAVEFORMAT = adpcmwaveformat_tag;
+ PADPCMWAVEFORMAT = ^ADPCMWAVEFORMAT;
+ NPADPCMWAVEFORMAT = ^ADPCMWAVEFORMAT;
+ LPADPCMWAVEFORMAT = ^ADPCMWAVEFORMAT;
+
+{ Intel's DVI ADPCM structure definitions }
+{ }
+{ for WAVE_FORMAT_DVI_ADPCM (0x0011) }
+
+type
+ dvi_adpcmwaveformat_tag = record
+ wfx:WAVEFORMATEX;
+ wSamplesPerBlock:word;
+ end;
+ DVIADPCMWAVEFORMAT = dvi_adpcmwaveformat_tag;
+ PDVIADPCMWAVEFORMAT = ^DVIADPCMWAVEFORMAT;
+ NPDVIADPCMWAVEFORMAT = ^DVIADPCMWAVEFORMAT;
+ LPDVIADPCMWAVEFORMAT = ^DVIADPCMWAVEFORMAT;
+
+ { }
+ { IMA endorsed ADPCM structure definitions--note that this is exactly }
+ { the same format as Intel's DVI ADPCM. }
+ { }
+ { for WAVE_FORMAT_IMA_ADPCM (0x0011) }
+ { }
+ { }
+
+ ima_adpcmwaveformat_tag = record
+ wfx:WAVEFORMATEX;
+ wSamplesPerBlock:word;
+ end;
+ IMAADPCMWAVEFORMAT = ima_adpcmwaveformat_tag;
+ PIMAADPCMWAVEFORMAT = ^IMAADPCMWAVEFORMAT;
+ NPIMAADPCMWAVEFORMAT = ^IMAADPCMWAVEFORMAT;
+ LPIMAADPCMWAVEFORMAT = ^IMAADPCMWAVEFORMAT;
+
+ {
+ //VideoLogic's Media Space ADPCM Structure definitions
+ // for WAVE_FORMAT_MEDIASPACE_ADPCM (0x0012)
+ //
+ //
+ }
+
+ mediaspace_adpcmwaveformat_tag = record
+ wfx:WAVEFORMATEX;
+ wRevision:word;
+ end;
+ MEDIASPACEADPCMWAVEFORMAT = mediaspace_adpcmwaveformat_tag;
+ PMEDIASPACEADPCMWAVEFORMAT = ^MEDIASPACEADPCMWAVEFORMAT;
+ NPMEDIASPACEADPCMWAVEFORMAT = ^MEDIASPACEADPCMWAVEFORMAT;
+ LPMEDIASPACEADPCMWAVEFORMAT = ^MEDIASPACEADPCMWAVEFORMAT;
+
+ { Sierra Semiconductor }
+ { }
+ { for WAVE_FORMAT_SIERRA_ADPCM (0x0013) }
+
+ sierra_adpcmwaveformat_tag = record
+ wfx:WAVEFORMATEX;
+ wRevision:word;
+ end;
+ SIERRAADPCMWAVEFORMAT = sierra_adpcmwaveformat_tag;
+ PSIERRAADPCMWAVEFORMAT = ^SIERRAADPCMWAVEFORMAT;
+ NPSIERRAADPCMWAVEFORMAT = ^SIERRAADPCMWAVEFORMAT;
+ LPSIERRAADPCMWAVEFORMAT = ^SIERRAADPCMWAVEFORMAT;
+
+ { Antex Electronics structure definitions }
+ { }
+ { for WAVE_FORMAT_G723_ADPCM (0x0014) }
+
+ g723_adpcmwaveformat_tag = record
+ wfx:WAVEFORMATEX;
+ cbExtraSize:word;
+ nAuxBlockSize:word;
+ end;
+ G723_ADPCMWAVEFORMAT = g723_adpcmwaveformat_tag;
+ PG723_ADPCMWAVEFORMAT = ^G723_ADPCMWAVEFORMAT;
+ NPG723_ADPCMWAVEFORMAT = ^G723_ADPCMWAVEFORMAT;
+ LPG723_ADPCMWAVEFORMAT = ^G723_ADPCMWAVEFORMAT;
+
+ { }
+ { DSP Solutions (formerly DIGISPEECH) structure definitions }
+ { }
+ { for WAVE_FORMAT_DIGISTD (0x0015) }
+
+ digistdwaveformat_tag = record
+ wfx : WAVEFORMATEX;
+ end;
+ DIGISTDWAVEFORMAT = digistdwaveformat_tag;
+ PDIGISTDWAVEFORMAT = ^DIGISTDWAVEFORMAT;
+ NPDIGISTDWAVEFORMAT = ^DIGISTDWAVEFORMAT;
+ LPDIGISTDWAVEFORMAT = ^DIGISTDWAVEFORMAT;
+
+ { }
+ { DSP Solutions (formerly DIGISPEECH) structure definitions }
+ { }
+ { for WAVE_FORMAT_DIGIFIX (0x0016) }
+ { }
+ { }
+
+ digifixwaveformat_tag = record
+ wfx : WAVEFORMATEX;
+ end;
+ DIGIFIXWAVEFORMAT = digifixwaveformat_tag;
+ PDIGIFIXWAVEFORMAT = ^DIGIFIXWAVEFORMAT;
+ NPDIGIFIXWAVEFORMAT = ^DIGIFIXWAVEFORMAT;
+ LPDIGIFIXWAVEFORMAT = ^DIGIFIXWAVEFORMAT;
+
+ { }
+ { Dialogic Corporation }
+ { WAVEFORMAT_DIALOGIC_OKI_ADPCM (0x0017) }
+ { }
+
+ creative_fastspeechformat_tag = record
+ ewf:WAVEFORMATEX;
+ end;
+ DIALOGICOKIADPCMWAVEFORMAT = creative_fastspeechformat_tag;
+ PDIALOGICOKIADPCMWAVEFORMAT = ^DIALOGICOKIADPCMWAVEFORMAT;
+ NPDIALOGICOKIADPCMWAVEFORMAT = ^DIALOGICOKIADPCMWAVEFORMAT;
+ LPDIALOGICOKIADPCMWAVEFORMAT = ^DIALOGICOKIADPCMWAVEFORMAT;
+
+ { }
+ { Yamaha Compression's ADPCM structure definitions }
+ { }
+ { for WAVE_FORMAT_YAMAHA_ADPCM (0x0020) }
+ { }
+ { }
+
+ yamaha_adpmcwaveformat_tag = record
+ wfx : WAVEFORMATEX;
+ end;
+ YAMAHA_ADPCMWAVEFORMAT = yamaha_adpmcwaveformat_tag;
+ PYAMAHA_ADPCMWAVEFORMAT = ^YAMAHA_ADPCMWAVEFORMAT;
+ (* near ignored *)
+ NPYAMAHA_ADPCMWAVEFORMAT = ^YAMAHA_ADPCMWAVEFORMAT;
+ (* far ignored *)
+ LPYAMAHA_ADPCMWAVEFORMAT = ^YAMAHA_ADPCMWAVEFORMAT;
+
+ { }
+ { Speech Compression's Sonarc structure definitions }
+ { }
+ { for WAVE_FORMAT_SONARC (0x0021) }
+ { }
+ { }
+ sonarcwaveformat_tag = record
+ wfx : WAVEFORMATEX;
+ wCompType : word;
+ end;
+ SONARCWAVEFORMAT = sonarcwaveformat_tag;
+ PSONARCWAVEFORMAT = ^SONARCWAVEFORMAT;
+ NPSONARCWAVEFORMAT = ^SONARCWAVEFORMAT;
+ LPSONARCWAVEFORMAT = SONARCWAVEFORMAT;
+
+
+ { }
+ { DSP Groups's TRUESPEECH structure definitions }
+ { }
+ { for WAVE_FORMAT_DSPGROUP_TRUESPEECH (0x0022) }
+ { }
+ { }
+
+ truespeechwaveformat_tag = record
+ wfx : WAVEFORMATEX;
+ wRevision :word;
+ nSamplesPerBlock:word;
+ abReserved :array[0..27] of byte;
+ end;
+ TRUESPEECHWAVEFORMAT = truespeechwaveformat_tag;
+ PTRUESPEECHWAVEFORMAT = ^TRUESPEECHWAVEFORMAT;
+ NPTRUESPEECHWAVEFORMAT = ^TRUESPEECHWAVEFORMAT;
+ LPTRUESPEECHWAVEFORMAT = ^TRUESPEECHWAVEFORMAT;
+
+ { }
+ { Echo Speech Corp structure definitions }
+ { }
+ { for WAVE_FORMAT_ECHOSC1 (0x0023) }
+
+ echosc1waveformat_tag = record
+ wfx:WAVEFORMATEX;
+ end;
+ ECHOSC1WAVEFORMAT = echosc1waveformat_tag;
+ PECHOSC1WAVEFORMAT = ^ECHOSC1WAVEFORMAT;
+ NPECHOSC1WAVEFORMAT = ^ECHOSC1WAVEFORMAT;
+ LPECHOSC1WAVEFORMAT = ^ECHOSC1WAVEFORMAT;
+
+ { }
+ { Audiofile Inc.structure definitions }
+ { }
+ { for WAVE_FORMAT_AUDIOFILE_AF36 (0x0024) }
+ { }
+ { }
+
+ audiofile_af36waveformat_tag = record
+ wfx : WAVEFORMATEX;
+ end;
+ AUDIOFILE_AF36WAVEFORMAT = audiofile_af36waveformat_tag;
+ PAUDIOFILE_AF36WAVEFORMAT = ^AUDIOFILE_AF36WAVEFORMAT;
+ NPAUDIOFILE_AF36WAVEFORMAT = ^AUDIOFILE_AF36WAVEFORMAT;
+ LPAUDIOFILE_AF36WAVEFORMAT = ^AUDIOFILE_AF36WAVEFORMAT;
+
+ { }
+ { Audio Processing Technology structure definitions }
+ { }
+ { for WAVE_FORMAT_APTX (0x0025) }
+ { }
+ { }
+ aptxwaveformat_tag = record
+ wfx : WAVEFORMATEX;
+ end;
+ APTXWAVEFORMAT = aptxwaveformat_tag;
+ PAPTXWAVEFORMAT = ^APTXWAVEFORMAT;
+ NPAPTXWAVEFORMAT = ^APTXWAVEFORMAT;
+ LPAPTXWAVEFORMAT = ^APTXWAVEFORMAT;
+
+ { }
+ { Audiofile Inc.structure definitions }
+ { }
+ { for WAVE_FORMAT_AUDIOFILE_AF10 (0x0026) }
+ { }
+ { }
+ audiofile_af10waveformat_tag = record
+ wfx : WAVEFORMATEX;
+ end;
+ AUDIOFILE_AF10WAVEFORMAT = audiofile_af10waveformat_tag;
+ PAUDIOFILE_AF10WAVEFORMAT = ^AUDIOFILE_AF10WAVEFORMAT;
+ NPAUDIOFILE_AF10WAVEFORMAT = ^AUDIOFILE_AF10WAVEFORMAT;
+ LPAUDIOFILE_AF10WAVEFORMAT = ^AUDIOFILE_AF10WAVEFORMAT;
+
+
+ { }
+ { Dolby's AC-2 wave format structure definition
+ WAVE_FORMAT_DOLBY_AC2 (0x0030) }
+ { }
+ dolbyac2waveformat_tag = record
+ wfx:WAVEFORMATEX;
+ nAuxBitsCode:word;
+ end;
+ DOLBYAC2WAVEFORMAT = dolbyac2waveformat_tag;
+
+ {Microsoft's }
+ { WAVE_FORMAT_GSM 610 0x0031 }
+ { }
+ gsm610waveformat_tag = record
+ wfx : WAVEFORMATEX;
+ wSamplesPerBlock : word;
+ end;
+ GSM610WAVEFORMAT = gsm610waveformat_tag;
+ PGSM610WAVEFORMAT = ^GSM610WAVEFORMAT;
+ NPGSM610WAVEFORMAT = ^GSM610WAVEFORMAT;
+ LPGSM610WAVEFORMAT = ^GSM610WAVEFORMAT;
+
+
+ { }
+ { Antex Electronics Corp }
+ { }
+ { for WAVE_FORMAT_ADPCME (0x0033) }
+ { }
+ { }
+ adpcmewaveformat_tag = record
+ wfx : WAVEFORMATEX;
+ wSamplesPerBlock:word;
+ end;
+ ADPCMEWAVEFORMAT = adpcmewaveformat_tag;
+ PADPCMEWAVEFORMAT = ^ADPCMEWAVEFORMAT;
+ NPADPCMEWAVEFORMAT = ^ADPCMEWAVEFORMAT;
+ LPADPCMEWAVEFORMAT = ^ADPCMEWAVEFORMAT;
+
+
+ { Control Resources Limited }
+ { WAVE_FORMAT_CONTROL_RES_VQLPC 0x0034 }
+ { }
+
+ contres_vqlpcwaveformat_tag = record
+ wfx : WAVEFORMATEX;
+ wSamplesPerBlock :word;
+ end;
+ CONTRESVQLPCWAVEFORMAT = contres_vqlpcwaveformat_tag;
+
+ PCONTRESVQLPCWAVEFORMAT = ^CONTRESVQLPCWAVEFORMAT;
+ (* near ignored *)
+
+ NPCONTRESVQLPCWAVEFORMAT = ^CONTRESVQLPCWAVEFORMAT;
+ (* far ignored *)
+
+ LPCONTRESVQLPCWAVEFORMAT = ^CONTRESVQLPCWAVEFORMAT;
+
+ { for WAVE_FORMAT_DIGIREAL (0x0035) }
+ { }
+ { }
+
+ digirealwaveformat_tag = record
+ wfx : WAVEFORMATEX;
+ wSamplesPerBlock : word;
+ end;
+ DIGIREALWAVEFORMAT = digirealwaveformat_tag;
+
+ PDIGIREALWAVEFORMAT = ^DIGIREALWAVEFORMAT;
+ NPDIGIREALWAVEFORMAT = ^DIGIREALWAVEFORMAT;
+ LPDIGIREALWAVEFORMAT = ^DIGIREALWAVEFORMAT;
+
+ { DSP Solutions }
+ { }
+ { for WAVE_FORMAT_DIGIADPCM (0x0036) }
+ digiadpcmmwaveformat_tag = record
+ wfx : WAVEFORMATEX;
+ wSamplesPerBlock:word;
+ end;
+ DIGIADPCMWAVEFORMAT = digiadpcmmwaveformat_tag;
+
+ PDIGIADPCMWAVEFORMAT = ^DIGIADPCMWAVEFORMAT;
+ (* near ignored *)
+
+ NPDIGIADPCMWAVEFORMAT = ^DIGIADPCMWAVEFORMAT;
+ (* far ignored *)
+
+ LPDIGIADPCMWAVEFORMAT = ^DIGIADPCMWAVEFORMAT;
+
+
+ { Control Resources Limited }
+ { WAVE_FORMAT_CONTROL_RES_CR10 0x0037 }
+ contres_cr10waveformat_tag = record
+ wfx : WAVEFORMATEX;
+ wSamplesPerBlock :word;
+ end;
+ CONTRESCR10WAVEFORMAT = contres_cr10waveformat_tag;
+ PCONTRESCR10WAVEFORMAT = ^CONTRESCR10WAVEFORMAT;
+ NPCONTRESCR10WAVEFORMAT = ^CONTRESCR10WAVEFORMAT;
+ LPCONTRESCR10WAVEFORMAT = ^CONTRESCR10WAVEFORMAT;
+
+ { }
+ { Natural Microsystems }
+ { }
+ { for WAVE_FORMAT_NMS_VBXADPCM (0x0038) }
+ nms_vbxadpcmmwaveformat_tag = record
+ wfx : WAVEFORMATEX;
+ wSamplesPerBlock :word;
+ end;
+ NMS_VBXADPCMWAVEFORMAT = nms_vbxadpcmmwaveformat_tag;
+
+ PNMS_VBXADPCMWAVEFORMAT = ^NMS_VBXADPCMWAVEFORMAT;
+ (* near ignored *)
+
+ NPNMS_VBXADPCMWAVEFORMAT = ^NMS_VBXADPCMWAVEFORMAT;
+ (* far ignored *)
+
+ LPNMS_VBXADPCMWAVEFORMAT = ^NMS_VBXADPCMWAVEFORMAT;
+
+
+ { }
+ { Antex Electronics structure definitions }
+ { }
+ { for WAVE_FORMAT_G721_ADPCM (0x0040) }
+ { }
+ { }
+
+ g721_adpcmwaveformat_tag = record
+ wfx : WAVEFORMATEX;
+ nAuxBlockSize :word;
+ end;
+ G721_ADPCMWAVEFORMAT = g721_adpcmwaveformat_tag;
+
+ PG721_ADPCMWAVEFORMAT = ^G721_ADPCMWAVEFORMAT;
+ (* near ignored *)
+
+ NPG721_ADPCMWAVEFORMAT = ^G721_ADPCMWAVEFORMAT;
+ (* far ignored *)
+
+ LPG721_ADPCMWAVEFORMAT = ^G721_ADPCMWAVEFORMAT;
+
+ { Microsoft MPEG audio WAV definition }
+ { }
+ { MPEG-1 audio wave format (audio layer only). (0x0050) }
+ mpeg1waveformat_tag = record
+ wfx:WAVEFORMATEX;
+ fwHeadLayer:word;
+ dwHeadBitrate:DWORD;
+ fwHeadMode:word;
+ fwHeadModeExt:word;
+ wHeadEmphasis:word;
+ fwHeadFlags:word;
+ dwPTSLow:DWORD;
+ dwPTSHigh:DWORD;
+ end;
+ MPEG1WAVEFORMAT = mpeg1waveformat_tag;
+ PMPEG1WAVEFORMAT = ^MPEG1WAVEFORMAT;
+ NPMPEG1WAVEFORMAT = ^MPEG1WAVEFORMAT;
+ LPMPEG1WAVEFORMAT = ^MPEG1WAVEFORMAT;
+
+const
+ ACM_MPEG_LAYER1 = $0001;
+ ACM_MPEG_LAYER2 = $0002;
+ ACM_MPEG_LAYER3 = $0004;
+ ACM_MPEG_STEREO = $0001;
+ ACM_MPEG_JOINTSTEREO = $0002;
+ ACM_MPEG_DUALCHANNEL = $0004;
+ ACM_MPEG_SINGLECHANNEL = $0008;
+ ACM_MPEG_PRIVATEBIT = $0001;
+ ACM_MPEG_COPYRIGHT = $0002;
+ ACM_MPEG_ORIGINALHOME = $0004;
+ ACM_MPEG_PROTECTIONBIT = $0008;
+ ACM_MPEG_ID_MPEG1 = $0010;
+
+ { MPEG Layer3 WAVEFORMATEX structure }
+ { for WAVE_FORMAT_MPEGLAYER3 (0x0055) }
+ MPEGLAYER3_WFX_EXTRA_BYTES = 12;
+ { WAVE_FORMAT_MPEGLAYER3 format sructure }
+
+type
+ mpeglayer3waveformat_tag = record
+ wfx:WAVEFORMATEX;
+ wID:word;
+ fdwFlags:DWORD;
+ nBlockSize:WORD;
+ nFramesPerBlock:word;
+ nCodecDelay:word;
+ end;
+ MPEGLAYER3WAVEFORMAT = mpeglayer3waveformat_tag;
+ PMPEGLAYER3WAVEFORMAT = ^MPEGLAYER3WAVEFORMAT;
+ NPMPEGLAYER3WAVEFORMAT = ^MPEGLAYER3WAVEFORMAT;
+ LPMPEGLAYER3WAVEFORMAT = ^MPEGLAYER3WAVEFORMAT;
+
+ {==========================================================================; }
+
+const
+ MPEGLAYER3_ID_UNKNOWN = 0;
+ MPEGLAYER3_ID_MPEG = 1;
+ MPEGLAYER3_ID_CONSTANTFRAMESIZE = 2;
+
+ MPEGLAYER3_FLAG_PADDING_ISO = $00000000;
+ MPEGLAYER3_FLAG_PADDING_ON = $00000001;
+ MPEGLAYER3_FLAG_PADDING_OFF = $00000002;
+
+ { Creative's ADPCM structure definitions }
+ { }
+ { for WAVE_FORMAT_CREATIVE_ADPCM (0x0200) }
+
+type
+ creative_adpcmwaveformat_tag = record
+ wfx:WAVEFORMATEX;
+ wRevision:word;
+ end;
+ CREATIVEADPCMWAVEFORMAT = creative_adpcmwaveformat_tag;
+ PCREATIVEADPCMWAVEFORMAT = ^CREATIVEADPCMWAVEFORMAT;
+ NPCREATIVEADPCMWAVEFORMAT = ^CREATIVEADPCMWAVEFORMAT;
+ LPCREATIVEADPCMWAVEFORMAT = ^CREATIVEADPCMWAVEFORMAT;
+
+ { }
+ { Creative FASTSPEECH }
+ { WAVEFORMAT_CREATIVE_FASTSPEECH8 (0x0202) }
+ { }
+
+ creative_fastspeech8format_tag = record
+ wfx : WAVEFORMATEX;
+ wRevision : word;
+ end;
+ CREATIVEFASTSPEECH8WAVEFORMAT = creative_fastspeech8format_tag;
+
+ PCREATIVEFASTSPEECH8WAVEFORMAT = ^CREATIVEFASTSPEECH8WAVEFORMAT;
+ (* near ignored *)
+
+ NPCREATIVEFASTSPEECH8WAVEFORMAT = ^CREATIVEFASTSPEECH8WAVEFORMAT;
+ (* far ignored *)
+
+ LPCREATIVEFASTSPEECH8WAVEFORMAT = ^CREATIVEFASTSPEECH8WAVEFORMAT;
+
+ { }
+ { Creative FASTSPEECH }
+ { WAVEFORMAT_CREATIVE_FASTSPEECH10 (0x0203) }
+ { }
+ creative_fastspeech10format_tag = record
+ wfx : WAVEFORMATEX;
+ wRevision : word;
+ end;
+ CREATIVEFASTSPEECH10WAVEFORMAT = creative_fastspeech10format_tag;
+
+ PCREATIVEFASTSPEECH10WAVEFORMAT = ^CREATIVEFASTSPEECH10WAVEFORMAT;
+ (* near ignored *)
+
+ NPCREATIVEFASTSPEECH10WAVEFORMAT = ^CREATIVEFASTSPEECH10WAVEFORMAT;
+ (* far ignored *)
+
+ LPCREATIVEFASTSPEECH10WAVEFORMAT = ^CREATIVEFASTSPEECH10WAVEFORMAT;
+
+ { }
+ { Fujitsu FM Towns 'SND' structure }
+ { }
+ { for WAVE_FORMAT_FMMTOWNS_SND (0x0300) }
+ { }
+ { }
+
+ fmtowns_snd_waveformat_tag = record
+ wfx : WAVEFORMATEX;
+ wRevision : word;
+ end;
+ FMTOWNS_SND_WAVEFORMAT = fmtowns_snd_waveformat_tag;
+
+ PFMTOWNS_SND_WAVEFORMAT = ^FMTOWNS_SND_WAVEFORMAT;
+ (* near ignored *)
+
+ NPFMTOWNS_SND_WAVEFORMAT = ^FMTOWNS_SND_WAVEFORMAT;
+ (* far ignored *)
+
+ LPFMTOWNS_SND_WAVEFORMAT = ^FMTOWNS_SND_WAVEFORMAT;
+
+ { Olivetti structure }
+ { }
+ { for WAVE_FORMAT_OLIGSM (0x1000) }
+
+ oligsmwaveformat_tag = record
+ wfx : WAVEFORMATEX;
+ end;
+ OLIGSMWAVEFORMAT = oligsmwaveformat_tag;
+
+ POLIGSMWAVEFORMAT = ^OLIGSMWAVEFORMAT;
+ (* near ignored *)
+
+ NPOLIGSMWAVEFORMAT = ^OLIGSMWAVEFORMAT;
+ (* far ignored *)
+
+ LPOLIGSMWAVEFORMAT = ^OLIGSMWAVEFORMAT;
+
+ { }
+ { Olivetti structure }
+ { }
+ { for WAVE_FORMAT_OLIADPCM (0x1001) }
+ { }
+ { }
+ oliadpcmwaveformat_tag = record
+ wfx : WAVEFORMATEX;
+ end;
+ OLIADPCMWAVEFORMAT = oliadpcmwaveformat_tag;
+
+ POLIADPCMWAVEFORMAT = ^OLIADPCMWAVEFORMAT;
+ (* near ignored *)
+
+ NPOLIADPCMWAVEFORMAT = ^OLIADPCMWAVEFORMAT;
+ (* far ignored *)
+
+ LPOLIADPCMWAVEFORMAT = ^OLIADPCMWAVEFORMAT;
+
+ { }
+ { Olivetti structure }
+ { }
+ { for WAVE_FORMAT_OLICELP (0x1002) }
+ olicelpwaveformat_tag = record
+ wfx : WAVEFORMATEX;
+ end;
+ OLICELPWAVEFORMAT = olicelpwaveformat_tag;
+ POLICELPWAVEFORMAT = ^OLICELPWAVEFORMAT;
+ NPOLICELPWAVEFORMAT = ^OLICELPWAVEFORMAT;
+ LPOLICELPWAVEFORMAT = ^OLICELPWAVEFORMAT;
+
+ { }
+ { Olivetti structure }
+ { }
+ { for WAVE_FORMAT_OLISBC (0x1003) }
+ { }
+ { }
+
+ olisbcwaveformat_tag = record
+ wfx : WAVEFORMATEX;
+ end;
+ OLISBCWAVEFORMAT = olisbcwaveformat_tag;
+
+ POLISBCWAVEFORMAT = ^OLISBCWAVEFORMAT;
+ (* near ignored *)
+
+ NPOLISBCWAVEFORMAT = ^OLISBCWAVEFORMAT;
+ (* far ignored *)
+
+ LPOLISBCWAVEFORMAT = ^OLISBCWAVEFORMAT;
+
+ { }
+ { Olivetti structure }
+ { }
+ { for WAVE_FORMAT_OLIOPR (0x1004) }
+ { }
+ { }
+ olioprwaveformat_tag = record
+ wfx : WAVEFORMATEX;
+ end;
+ OLIOPRWAVEFORMAT = olioprwaveformat_tag;
+
+ POLIOPRWAVEFORMAT = ^OLIOPRWAVEFORMAT;
+ (* near ignored *)
+
+ NPOLIOPRWAVEFORMAT = ^OLIOPRWAVEFORMAT;
+ (* far ignored *)
+
+ LPOLIOPRWAVEFORMAT = ^OLIOPRWAVEFORMAT;
+
+ { }
+ { Crystal Semiconductor IMA ADPCM format }
+ { }
+ { for WAVE_FORMAT_CS_IMAADPCM (0x0039) }
+ { }
+ { }
+
+ csimaadpcmwaveformat_tag = record
+ wfx : WAVEFORMATEX;
+ end;
+ CSIMAADPCMWAVEFORMAT = csimaadpcmwaveformat_tag;
+
+ PCSIMAADPCMWAVEFORMAT = ^CSIMAADPCMWAVEFORMAT;
+ (* near ignored *)
+
+ NPCSIMAADPCMWAVEFORMAT = ^CSIMAADPCMWAVEFORMAT;
+ (* far ignored *)
+
+ LPCSIMAADPCMWAVEFORMAT = ^CSIMAADPCMWAVEFORMAT;
+
+{==========================================================================; }
+{ }
+{ ACM Wave Filters }
+{ }
+{ }
+{==========================================================================; }
+const
+ WAVE_FILTER_UNKNOWN = $0000;
+ WAVE_FILTER_DEVELOPMENT = $FFFF;
+
+type
+ wavefilter_tag = record
+ cbStruct:DWORD; //* Size of the filter in bytes */
+ dwFilterTag:DWORD; //* filter type */
+ fdwFilter:DWORD; //* Flags for the filter (Universal Dfns) */
+ dwReserved:array[0..4] of DWORD; //* Reserved for system use */
+ end;
+ WAVEFILTER = wavefilter_tag;
+ PWAVEFILTER = ^WAVEFILTER;
+ NPWAVEFILTER = ^WAVEFILTER;
+ LPWAVEFILTER = ^WAVEFILTER;
+
+const
+ WAVE_FILTER_VOLUME = $0001;
+
+type
+ wavefilter_volume_tag = record
+ wfltr:WAVEFILTER;
+ dwVolume:DWORD;
+ end;
+ VOLUMEWAVEFILTER = wavefilter_volume_tag;
+ PVOLUMEWAVEFILTER = ^VOLUMEWAVEFILTER;
+ NPVOLUMEWAVEFILTER = ^VOLUMEWAVEFILTER;
+ LPVOLUMEWAVEFILTER = ^VOLUMEWAVEFILTER;
+
+const
+ WAVE_FILTER_ECHO = $0002;
+
+type
+ wavefilter_echo_tag = record
+ wfltr:WAVEFILTER;
+ dwVolume:DWORD;
+ dwDelay:DWORD;
+ end;
+ ECHOWAVEFILTER = wavefilter_echo_tag;
+ PECHOWAVEFILTER = ^ECHOWAVEFILTER;
+ NPECHOWAVEFILTER = ^ECHOWAVEFILTER;
+ LPECHOWAVEFILTER = ^ECHOWAVEFILTER;
+
+//////////////////////////////////////////////////////////////////////////
+//
+// New RIFF WAVE Chunks
+//
+const
+ RIFFWAVE_inst = FOURCC(byte(AnsiChar('i')) or
+ (byte(AnsiChar('n')) shl 8) or
+ (byte(AnsiChar('s')) shl 16) or
+ (byte(AnsiChar('t')) shl 24)
+ );
+
+type
+ tag_s_RIFFWAVE_inst = record
+ bUnshiftedNote:byte;
+ chFineTune:ShortInt;
+ chGain:ShortInt;
+ bLowNote:byte;
+ bHighNote:byte;
+ bLowVelocity:byte;
+ bHighVelocity:byte;
+ end;
+ s_RIFFWAVE_inst = tag_s_RIFFWAVE_INST;
+
+{$ENDIF} // NONEWWAVE
+
+//////////////////////////////////////////////////////////////////////////
+//
+// New RIFF Forms
+//
+
+{$IFNDEF NONEWRIFF}
+
+// RIFF AVI
+//
+// AVI file format is specified in a seperate file (AVIFMT.H),
+// which is available in the VfW and Win 32 SDK
+//
+
+// RIFF CPPO
+const
+ RIFFCPPO = FOURCC(byte(AnsiChar('C')) or
+ (byte(AnsiChar('P')) shl 8) or
+ (byte(AnsiChar('P')) shl 16) or
+ (byte(AnsiChar('O')) shl 24)
+ );
+
+ RIFFCPPO_objr = FOURCC(byte(AnsiChar('o')) or
+ (byte(AnsiChar('b')) shl 8) or
+ (byte(AnsiChar('j')) shl 16) or
+ (byte(AnsiChar('r')) shl 24)
+ );
+
+ RIFFCPPO_obji = FOURCC(byte(AnsiChar('o')) or
+ (byte(AnsiChar('b')) shl 8) or
+ (byte(AnsiChar('j')) shl 16) or
+ (byte(AnsiChar('i')) shl 24)
+ );
+
+ RIFFCPPO_clsr = FOURCC(byte(AnsiChar('c')) or
+ (byte(AnsiChar('l')) shl 8) or
+ (byte(AnsiChar('s')) shl 16) or
+ (byte(AnsiChar('r')) shl 24)
+ );
+
+ RIFFCPPO_clsi = FOURCC(byte(AnsiChar('c')) or
+ (byte(AnsiChar('l')) shl 8) or
+ (byte(AnsiChar('s')) shl 16) or
+ (byte(AnsiChar('i')) shl 24)
+ );
+
+ RIFFCPPO_mbr = FOURCC(byte(AnsiChar('m')) or
+ (byte(AnsiChar('b')) shl 8) or
+ (byte(AnsiChar('r')) shl 16) or
+ (byte(AnsiChar(' ')) shl 24)
+ );
+
+ RIFFCPPO_char = FOURCC(byte(AnsiChar('c')) or
+ (byte(AnsiChar('h')) shl 8) or
+ (byte(AnsiChar('a')) shl 16) or
+ (byte(AnsiChar('r')) shl 24)
+ );
+
+ RIFFCPPO_byte = FOURCC(byte(AnsiChar('b')) or
+ (byte(AnsiChar('y')) shl 8) or
+ (byte(AnsiChar('t')) shl 16) or
+ (byte(AnsiChar('e')) shl 24)
+ );
+ RIFFCPPO_int = FOURCC(byte(AnsiChar('i')) or
+ (byte(AnsiChar('n')) shl 8) or
+ (byte(AnsiChar('t')) shl 16) or
+ (byte(AnsiChar(' ')) shl 24)
+ );
+
+ RIFFCPPO_word = FOURCC(byte(AnsiChar('w')) or
+ (byte(AnsiChar('o')) shl 8) or
+ (byte(AnsiChar('r')) shl 16) or
+ (byte(AnsiChar('d')) shl 24)
+ );
+ RIFFCPPO_long = FOURCC(byte(AnsiChar('l')) or
+ (byte(AnsiChar('o')) shl 8) or
+ (byte(AnsiChar('n')) shl 16) or
+ (byte(AnsiChar('g')) shl 24)
+ );
+ RIFFCPPO_dwrd = FOURCC(byte(AnsiChar('d')) or
+ (byte(AnsiChar('w')) shl 8) or
+ (byte(AnsiChar('r')) shl 16) or
+ (byte(AnsiChar('d')) shl 24)
+ );
+ RIFFCPPO_flt = FOURCC(byte(AnsiChar('f')) or
+ (byte(AnsiChar('l')) shl 8) or
+ (byte(AnsiChar('t')) shl 16) or
+ (byte(AnsiChar(' ')) shl 24)
+ );
+ RIFFCPPO_dbl = FOURCC(byte(AnsiChar('d')) or
+ (byte(AnsiChar('b')) shl 8) or
+ (byte(AnsiChar('l')) shl 16) or
+ (byte(AnsiChar(' ')) shl 24)
+ );
+ RIFFCPPO_str = FOURCC(byte(AnsiChar('s')) or
+ (byte(AnsiChar('t')) shl 8) or
+ (byte(AnsiChar('r')) shl 16) or
+ (byte(AnsiChar(' ')) shl 24)
+ );
+
+{$ENDIF} // NONEWRIFF
+
+
+//////////////////////////////////////////////////////////////////////////
+//
+// DIB Compression Defines
+//
+
+const
+ BI_BITFIELDS = 3;
+
+const
+ QUERYDIBSUPPORT = 3073;
+ QDI_SETDIBITS = $0001;
+ QDI_GETDIBITS = $0002;
+ QDI_DIBTOSCREEN = $0004;
+ QDI_STRETCHDIB = $0008;
+
+{ @CESYSGEN IF GWES_PGDI || GWES_MGBASE }
+
+{$IFNDEF NOBITMAP}
+type
+ tagEXBMINFOHEADER = record
+ bmi:BITMAPINFOHEADER;
+ // extended BITMAPINFOHEADER fields
+ biExtDataOffset:DWORD;
+ // Other elements will go here
+
+ // ...
+ // Format-specific information
+ // biExtDataOffset points here
+ end;
+ EXBMINFOHEADER = tagEXBMINFOHEADER;
+{$ENDIF} // NOBITMAP
+
+{ @CESYSGEN ENDIF }
+
+// New DIB Compression Defines
+const
+ BICOMP_IBMULTIMOTION = FOURCC(byte(AnsiChar('U')) or
+ (byte(AnsiChar('L')) shl 8) or
+ (byte(AnsiChar('T')) shl 16) or
+ (byte(AnsiChar('I')) shl 24)
+ );
+
+ BICOMP_IBMPHOTOMOTION = FOURCC(byte(AnsiChar('P')) or
+ (byte(AnsiChar('H')) shl 8) or
+ (byte(AnsiChar('M')) shl 16) or
+ (byte(AnsiChar('O')) shl 24)
+ );
+
+ BICOMP_CREATIVEYUV = FOURCC(byte(AnsiChar('c')) or
+ (byte(AnsiChar('y')) shl 8) or
+ (byte(AnsiChar('u')) shl 16) or
+ (byte(AnsiChar('v')) shl 24)
+ );
+
+
+{$IFNDEF NOJPEGDIB}
+// New DIB Compression Defines
+const
+ JPEG_DIB = FOURCC(byte(AnsiChar('J')) or
+ (byte(AnsiChar('P')) shl 8) or
+ (byte(AnsiChar('E')) shl 16) or
+ (byte(AnsiChar('G')) shl 24)
+ ); // Still image JPEG DIB biCompression
+
+ MJPG_DIB = FOURCC(byte(AnsiChar('M')) or
+ (byte(AnsiChar('J')) shl 8) or
+ (byte(AnsiChar('P')) shl 16) or
+ (byte(AnsiChar('G')) shl 24)
+ ); // Motion JPEG DIB biCompression
+
+{ JPEGProcess Definitions }
+const
+ JPEG_PROCESS_BASELINE = 0; { Baseline DCT }
+ { AVI File format extensions }
+ AVIIF_CONTROLFRAME = $00000200; { This is a control frame }
+
+ { JIF Marker byte pairs in JPEG Interchange Format sequence }
+ { SOF Huff - Baseline DCT }
+ JIFMK_SOF0 = $FFC0;
+ { SOF Huff - Extended sequential DCT }
+ JIFMK_SOF1 = $FFC1;
+ { SOF Huff - Progressive DCT }
+ JIFMK_SOF2 = $FFC2;
+ { SOF Huff - Spatial (sequential) lossless }
+ JIFMK_SOF3 = $FFC3;
+ { SOF Huff - Differential sequential DCT }
+ JIFMK_SOF5 = $FFC5;
+ { SOF Huff - Differential progressive DCT }
+ JIFMK_SOF6 = $FFC6;
+ { SOF Huff - Differential spatial }
+ JIFMK_SOF7 = $FFC7;
+ { SOF Arith - Reserved for JPEG extensions }
+ JIFMK_JPG = $FFC8;
+ { SOF Arith - Extended sequential DCT }
+ JIFMK_SOF9 = $FFC9;
+ { SOF Arith - Progressive DCT }
+ JIFMK_SOF10 = $FFCA;
+ { SOF Arith - Spatial (sequential) lossless }
+ JIFMK_SOF11 = $FFCB;
+ { SOF Arith - Differential sequential DCT }
+ JIFMK_SOF13 = $FFCD;
+ { SOF Arith - Differential progressive DCT }
+ JIFMK_SOF14 = $FFCE;
+ { SOF Arith - Differential spatial }
+ JIFMK_SOF15 = $FFCF;
+ { Define Huffman Table(s) }
+ JIFMK_DHT = $FFC4;
+ { Define Arithmetic coding conditioning(s) }
+ JIFMK_DAC = $FFCC;
+ { Restart with modulo 8 count 0 }
+ JIFMK_RST0 = $FFD0;
+ { Restart with modulo 8 count 1 }
+ JIFMK_RST1 = $FFD1;
+ { Restart with modulo 8 count 2 }
+ JIFMK_RST2 = $FFD2;
+ { Restart with modulo 8 count 3 }
+ JIFMK_RST3 = $FFD3;
+ { Restart with modulo 8 count 4 }
+ JIFMK_RST4 = $FFD4;
+ { Restart with modulo 8 count 5 }
+ JIFMK_RST5 = $FFD5;
+ { Restart with modulo 8 count 6 }
+ JIFMK_RST6 = $FFD6;
+ { Restart with modulo 8 count 7 }
+ JIFMK_RST7 = $FFD7;
+ { Start of Image }
+ JIFMK_SOI = $FFD8;
+ { End of Image }
+ JIFMK_EOI = $FFD9;
+ { Start of Scan }
+ JIFMK_SOS = $FFDA;
+ { Define quantization Table(s) }
+ JIFMK_DQT = $FFDB;
+ { Define Number of Lines }
+ JIFMK_DNL = $FFDC;
+ { Define Restart Interval }
+ JIFMK_DRI = $FFDD;
+ { Define Hierarchical progression }
+ JIFMK_DHP = $FFDE;
+ { Expand Reference Component(s) }
+ JIFMK_EXP = $FFDF;
+ { Application Field 0 }
+ JIFMK_APP0 = $FFE0;
+ { Application Field 1 }
+ JIFMK_APP1 = $FFE1;
+ { Application Field 2 }
+ JIFMK_APP2 = $FFE2;
+ { Application Field 3 }
+ JIFMK_APP3 = $FFE3;
+ { Application Field 4 }
+ JIFMK_APP4 = $FFE4;
+ { Application Field 5 }
+ JIFMK_APP5 = $FFE5;
+ { Application Field 6 }
+ JIFMK_APP6 = $FFE6;
+ { Application Field 7 }
+ JIFMK_APP7 = $FFE7;
+ { Reserved for JPEG extensions }
+ JIFMK_JPG0 = $FFF0;
+ { Reserved for JPEG extensions }
+ JIFMK_JPG1 = $FFF1;
+ { Reserved for JPEG extensions }
+ JIFMK_JPG2 = $FFF2;
+ { Reserved for JPEG extensions }
+ JIFMK_JPG3 = $FFF3;
+ { Reserved for JPEG extensions }
+ JIFMK_JPG4 = $FFF4;
+ { Reserved for JPEG extensions }
+ JIFMK_JPG5 = $FFF5;
+ { Reserved for JPEG extensions }
+ JIFMK_JPG6 = $FFF6;
+ { Reserved for JPEG extensions }
+ JIFMK_JPG7 = $FFF7;
+ { Reserved for JPEG extensions }
+ JIFMK_JPG8 = $FFF8;
+ { Reserved for JPEG extensions }
+ JIFMK_JPG9 = $FFF9;
+ { Reserved for JPEG extensions }
+ JIFMK_JPG10 = $FFFA;
+ { Reserved for JPEG extensions }
+ JIFMK_JPG11 = $FFFB;
+ { Reserved for JPEG extensions }
+ JIFMK_JPG12 = $FFFC;
+ { Reserved for JPEG extensions }
+ JIFMK_JPG13 = $FFFD;
+ { Comment }
+ JIFMK_COM = $FFFE;
+ { for temp private use arith code }
+ JIFMK_TEM = $FF01;
+ { Reserved }
+ JIFMK_RES = $FF02;
+ { Zero stuffed byte - entropy data }
+ JIFMK_00 = $FF00;
+ { Fill byte }
+ JIFMK_FF = $FFFF;
+
+ { JPEGColorSpaceID Definitions }
+ { Y only component of YCbCr }
+ JPEG_Y = 1;
+ { YCbCr as define by CCIR 601 }
+ JPEG_YCbCr = 2;
+ { 3 component RGB }
+ JPEG_RGB = 3;
+ { Structure definitions }
+ { compression-specific fields }
+ { these fields are defined for 'JPEG' and 'MJPG' }
+ { Process specific fields }
+
+type
+ tagJPEGINFOHEADER = record
+ // compression-specific fields
+ // these fields are defined for 'JPEG' and 'MJPG'
+ JPEGSize:DWORD;
+ JPEGProcess:DWORD;
+
+ // Process specific fields
+ JPEGColorSpaceID:DWORD;
+ JPEGBitsPerSample:DWORD;
+ JPEGHSubSampling:DWORD;
+ JPEGVSubSampling:DWORD;
+ end;
+ JPEGINFOHEADER = tagJPEGINFOHEADER;
+
+{$IFDEF MJPGDHTSEG_STORAGE}
+// Default DHT Segment
+const
+ // JPEG DHT Segment for YCrCb omitted from MJPG data
+ MJPGDHTSeg:array[0..$01A4-1] of byte =
+ ($FF,$C4,$01,$A2,$00,$00,$01,$05,$01,$01,$01,$01,$01,$01,
+ $00,$00,$00,$00,$00,$00,$00,$00,$01,$02,$03,$04,$05,$06,
+ $07,$08,$09,$0A,$0B,$01,$00,$03,$01,$01,$01,$01,$01,$01,
+ $01,$01,$01,$00,$00,$00,$00,$00,$00,$01,$02,$03,$04,$05,
+ $06,$07,$08,$09,$0A,$0B,$10,$00,$02,$01,$03,$03,$02,$04,
+ $03,$05,$05,$04,$04,$00,$00,$01,$7D,$01,$02,$03,$00,$04,
+ $11,$05,$12,$21,$31,$41,$06,$13,$51,$61,$07,$22,$71,$14,
+ $32,$81,$91,$A1,$08,$23,$42,$B1,$C1,$15,$52,$D1,$F0,$24,
+ $33,$62,$72,$82,$09,$0A,$16,$17,$18,$19,$1A,$25,$26,$27,
+ $28,$29,$2A,$34,$35,$36,$37,$38,$39,$3A,$43,$44,$45,$46,
+ $47,$48,$49,$4A,$53,$54,$55,$56,$57,$58,$59,$5A,$63,$64,
+ $65,$66,$67,$68,$69,$6A,$73,$74,$75,$76,$77,$78,$79,$7A,
+ $83,$84,$85,$86,$87,$88,$89,$8A,$92,$93,$94,$95,$96,$97,
+ $98,$99,$9A,$A2,$A3,$A4,$A5,$A6,$A7,$A8,$A9,$AA,$B2,$B3,
+ $B4,$B5,$B6,$B7,$B8,$B9,$BA,$C2,$C3,$C4,$C5,$C6,$C7,$C8,
+ $C9,$CA,$D2,$D3,$D4,$D5,$D6,$D7,$D8,$D9,$DA,$E1,$E2,$E3,
+ $E4,$E5,$E6,$E7,$E8,$E9,$EA,$F1,$F2,$F3,$F4,$F5,$F6,$F7,
+ $F8,$F9,$FA,$11,$00,$02,$01,$02,$04,$04,$03,$04,$07,$05,
+ $04,$04,$00,$01,$02,$77,$00,$01,$02,$03,$11,$04,$05,$21,
+ $31,$06,$12,$41,$51,$07,$61,$71,$13,$22,$32,$81,$08,$14,
+ $42,$91,$A1,$B1,$C1,$09,$23,$33,$52,$F0,$15,$62,$72,$D1,
+ $0A,$16,$24,$34,$E1,$25,$F1,$17,$18,$19,$1A,$26,$27,$28,
+ $29,$2A,$35,$36,$37,$38,$39,$3A,$43,$44,$45,$46,$47,$48,
+ $49,$4A,$53,$54,$55,$56,$57,$58,$59,$5A,$63,$64,$65,$66,
+ $67,$68,$69,$6A,$73,$74,$75,$76,$77,$78,$79,$7A,$82,$83,
+ $84,$85,$86,$87,$88,$89,$8A,$92,$93,$94,$95,$96,$97,$98,
+ $99,$9A,$A2,$A3,$A4,$A5,$A6,$A7,$A8,$A9,$AA,$B2,$B3,$B4,
+ $B5,$B6,$B7,$B8,$B9,$BA,$C2,$C3,$C4,$C5,$C6,$C7,$C8,$C9,
+ $CA,$D2,$D3,$D4,$D5,$D6,$D7,$D8,$D9,$DA,$E2,$E3,$E4,$E5,
+ $E6,$E7,$E8,$E9,$EA,$F2,$F3,$F4,$F5,$F6,$F7,$F8,$F9,$FA
+ );
+
+// End DHT default
+{$ENDIF} // MJPGDHTSEG_STORAGE
+
+{$ENDIF} // NOJPEGDIB
+
+
+//////////////////////////////////////////////////////////////////////////
+//
+// Defined IC types
+
+{$IFNDEF NONEWIC}
+const
+ ICTYPE_VIDEO = FOURCC(byte(AnsiChar('v')) or
+ (byte(AnsiChar('i')) shl 8) or
+ (byte(AnsiChar('d')) shl 16) or
+ (byte(AnsiChar('c')) shl 24)
+ );
+
+ ICTYPE_AUDIO = FOURCC(byte(AnsiChar('a')) or
+ (byte(AnsiChar('u')) shl 8) or
+ (byte(AnsiChar('d')) shl 16) or
+ (byte(AnsiChar('c')) shl 24)
+ );
+{$ENDIF} // NONEWIC
+
+
+// Misc. FOURCC registration
+
+{* Sierra Semiconductor: RDSP- Confidential RIFF file format
+// for the storage and downloading of DSP
+// code for Audio and communications devices.
+*}
+const
+ FOURCC_RDSP = FOURCC(byte(AnsiChar('R')) or
+ (byte(AnsiChar('D')) shl 8) or
+ (byte(AnsiChar('S')) shl 16) or
+ (byte(AnsiChar('P')) shl 24)
+ );
+
+{$PACKRECORDS DEFAULT} // {#include "poppack.h" /* Revert to default packing */ }
+
+implementation
+
+end.
diff --git a/packages/winceunits/src/mmsystem.pp b/packages/winceunits/src/mmsystem.pp
new file mode 100644
index 0000000000..93dd161ded
--- /dev/null
+++ b/packages/winceunits/src/mmsystem.pp
@@ -0,0 +1,1868 @@
+//
+// Module Name:mmsystem.h -- Include file for Multimedia API's
+//
+// * If defined, the following flags inhibit inclusion
+// * of the indicated items:
+// *
+// * MMNOSOUND Sound support
+// * MMNOWAVE Waveform support
+// * MMNOMCI MCI API
+// * MMNOMMIO file I/O
+// *
+// *
+
+//
+// Microsoft Windows Mobile 6.0 for PocketPC SDK.
+//
+
+unit mmsystem;
+
+{$CALLING cdecl}
+
+interface
+
+uses Windows, mmreg;
+
+{$PACKRECORDS 1} // #include "pshpack1.h" // Assume byte packing throughout
+
+{$DEFINE MMNOMIDI} // No midi audio support.
+
+{$IFDEF WIN32}
+{$DEFINE _WIN32}
+{$ENDIF WIN32}
+
+{****************************************************************************
+
+ General constants and data types
+
+****************************************************************************}
+//* general constants */
+const
+ MAXPNAMELEN = 32; // max product name length (including NULL)
+ MAXERRORLENGTH = 128; // max error text length (including final NULL)
+
+{*
+ * Microsoft Manufacturer and Product ID's
+ *
+ Used with wMid and wPid fields in WAVEOUTCAPS, WAVEINCAPS,
+ MIDIOUTCAPS, MIDIINCAPS, AUXCAPS, JOYCAPS structures.
+ *}
+{*
+ * (these have been moved to
+ * MMREG.H for Windows 4.00 and above).
+ *}
+//* manufacturer IDs *
+const
+ MM_MICROSOFT = 1; // Microsoft Corporation
+
+
+//* general data types */
+type
+ MMVERSION = UINT; // major (high byte), minor (low byte)
+
+ MMRESULT = UINT; // error return code, 0 means no error
+ // call as if(err=xxxx(...)) Error(err); else
+
+ LPUINT = ^UINT;
+
+
+//* MMTIME data structure */
+type
+ mmtime_tag = record
+ wType:UINT; //* indicates the contents of the union */
+ case UINT of
+ 0: (ms:DWORD); //* milliseconds */
+ 1: (sample:DWORD); //* samples */
+ 2: (cb:DWORD); //* byte count */
+ 3: (ticks:DWORD); //* ticks in MIDI stream */
+ 4: (smpte:record
+ hour:byte; //* hours */
+ min:byte; //* minutes */
+ sec:byte; //* seconds */
+ frame:byte; //* frames */
+ fps:byte; //* frames per second */
+ dummy:byte; //* pad */
+{$IFDEF _WIN32}
+ pad:array[0..1] of byte;
+{$ENDIF _WIN32}
+ end);
+ 5: (midi:record
+ songptrpos:DWORD; //* song pointer position */
+ end);
+ end;
+ MMTIME = mmtime_tag;
+ PMMTIME = ^mmtime_tag;
+ NPMMTIME = ^mmtime_tag;
+ LPMMTIME = ^mmtime_tag;
+
+//* types for wType field in MMTIME struct */
+const
+ TIME_MS = $0001; //* time in milliseconds */
+ TIME_SAMPLES = $0002; //* number of wave samples */
+ TIME_BYTES = $0004; //* current byte offset */
+ TIME_SMPTE = $0008; //* SMPTE time */
+ TIME_MIDI = $0010; //* MIDI time */
+ TIME_TICKS = $0020; //* Ticks within MIDI stream */
+
+{ Was declared as
+ MAKEFOURCC(ch0, ch1, ch2, ch3) \
+ ((DWORD)(BYTE)(ch0) | ((DWORD)(BYTE)(ch1) << 8) | \
+ ((DWORD)(BYTE)(ch2) << 16) | ((DWORD)(BYTE)(ch3) << 24 ))
+
+ mmioFOURCC(ch0, ch1, ch2, ch3) MAKEFOURCC(ch0, ch1, ch2, ch3)
+}
+function MAKEFOURCC(ch0:AnsiChar; ch1:AnsiChar; ch2:AnsiChar; ch3:AnsiChar):FOURCC;
+function mmioFOURCC(ch0:AnsiChar; ch1:AnsiChar; ch2:AnsiChar; ch3:AnsiChar):FOURCC;
+
+
+{****************************************************************************
+
+ Multimedia Extensions Window Messages
+
+****************************************************************************}
+const
+ MM_MCINOTIFY = $3B9; //* MCI */
+
+ MM_WOM_OPEN = $3BB; //* waveform output */
+ MM_WOM_CLOSE = $3BC;
+ MM_WOM_DONE = $3BD;
+ MM_WOM_ATTENUATED = $3D8; //* gain class support - stream attenuated */
+
+ MM_WIM_OPEN = $3BE; //* waveform input */
+ MM_WIM_CLOSE = $3BF;
+ MM_WIM_DATA = $3C0;
+
+ MM_MIM_OPEN = $3C1; //* MIDI input */
+ MM_MIM_CLOSE = $3C2;
+ MM_MIM_DATA = $3C3;
+ MM_MIM_LONGDATA = $3C4;
+ MM_MIM_ERROR = $3C5;
+ MM_MIM_LONGERROR = $3C6;
+
+ MM_MOM_OPEN = $3C7; //* MIDI output */
+ MM_MOM_CLOSE = $3C8;
+ MM_MOM_DONE = $3C9;
+
+//* these are also in msvideo.h */
+ MM_DRVM_OPEN = $3D0; //* installable drivers */
+ MM_DRVM_CLOSE = $3D1;
+ MM_DRVM_DATA = $3D2;
+ MM_DRVM_ERROR = $3D3;
+
+ MM_MCISYSTEM_STRING = $3CA; //* internal */
+
+//* these are used by msacm.h */
+ MM_STREAM_OPEN = $3D4;
+ MM_STREAM_CLOSE = $3D5;
+ MM_STREAM_DONE = $3D6;
+ MM_STREAM_ERROR = $3D7;
+
+ MM_MOM_POSITIONCB = $3CA; //* Callback for MEVT_POSITIONCB */
+
+ MM_MCISIGNAL = $3CB;
+
+ MM_MIM_MOREDATA = $3CC; //* MIM_DONE w/ pending events */
+
+ MM_MIXM_LINE_CHANGE = $3D0; //* mixer line change notify */
+ MM_MIXM_CONTROL_CHANGE = $3D1; //* mixer control change notify */
+
+{****************************************************************************
+
+ String resource number bases (internal use)
+
+****************************************************************************}
+const
+ MMSYSERR_BASE = 0;
+ WAVERR_BASE = 32;
+ MIDIERR_BASE = 64;
+ TIMERR_BASE = 96;
+ MCIERR_BASE = 256;
+ MIXERR_BASE = 1024;
+
+ MCI_STRING_OFFSET = 512;
+ MCI_VD_OFFSET = 1024;
+ MCI_CD_OFFSET = 1088;
+ MCI_WAVE_OFFSET = 1152;
+ MCI_SEQ_OFFSET = 1216;
+
+{****************************************************************************
+
+ General error return values
+
+****************************************************************************}
+const
+//* general error return values */
+ MMSYSERR_NOERROR = 0; //* no error */
+ MMSYSERR_ERROR = MMSYSERR_BASE + 1; //* unspecified error */
+ MMSYSERR_BADDEVICEID = MMSYSERR_BASE + 2; //* device ID out of range */
+ MMSYSERR_NOTENABLED = MMSYSERR_BASE + 3; //* driver failed enable */
+ MMSYSERR_ALLOCATED = MMSYSERR_BASE + 4; //* device already allocated */
+ MMSYSERR_INVALHANDLE = MMSYSERR_BASE + 5; //* device handle is invalid */
+ MMSYSERR_NODRIVER = MMSYSERR_BASE + 6; //* no device driver present */
+ MMSYSERR_NOMEM = MMSYSERR_BASE + 7; //* memory allocation error */
+ MMSYSERR_NOTSUPPORTED = MMSYSERR_BASE + 8; //* function isn't supported */
+ MMSYSERR_BADERRNUM = MMSYSERR_BASE + 9; //* error value out of range */
+ MMSYSERR_INVALFLAG = MMSYSERR_BASE + 10; //* invalid flag passed */
+ MMSYSERR_INVALPARAM = MMSYSERR_BASE + 11; //* invalid parameter passed */
+ MMSYSERR_HANDLEBUSY = MMSYSERR_BASE + 12; //* handle being used */
+ //* simultaneously on another */
+ //* thread (eg callback) */
+ MMSYSERR_INVALIDALIAS = MMSYSERR_BASE + 13; //* specified alias not found */
+ MMSYSERR_BADDB = MMSYSERR_BASE + 14; //* bad registry database */
+ MMSYSERR_KEYNOTFOUND = MMSYSERR_BASE + 15; //* registry key not found */
+ MMSYSERR_READERROR = MMSYSERR_BASE + 16; //* registry read error */
+ MMSYSERR_WRITEERROR = MMSYSERR_BASE + 17; //* registry write error */
+ MMSYSERR_DELETEERROR = MMSYSERR_BASE + 18; //* registry delete error */
+ MMSYSERR_VALNOTFOUND = MMSYSERR_BASE + 19; //* registry value not found */
+ MMSYSERR_NODRIVERCB = MMSYSERR_BASE + 20; //* driver does not call DriverCallback */
+ MMSYSERR_LASTERROR = MMSYSERR_BASE + 20; //* last error in range */
+
+type
+ HDRVR = HANDLE;
+
+{$IFNDEF MMNODRV}
+//
+// Installable driver support was left out.
+//
+{$ENDIF MMNODRV}
+
+
+{****************************************************************************
+
+ Driver callback support
+
+****************************************************************************}
+
+//* flags used with waveOutOpen(), waveInOpen(), midiInOpen(), and */
+//* midiOutOpen() to specify the type of the dwCallback parameter. */
+const
+ CALLBACK_TYPEMASK = $00070000; //* callback type mask */
+ CALLBACK_NULL = $00000000; //* no callback */
+ CALLBACK_WINDOW = $00010000; //* dwCallback is a HWND */
+ CALLBACK_TASK = $00020000; //* dwCallback is a HTASK */
+ CALLBACK_FUNCTION = $00030000; //* dwCallback is a FARPROC */
+ CALLBACK_THREAD = CALLBACK_TASK;//* thread ID replaces 16 bit task */
+ CALLBACK_EVENT = $00050000; //* dwCallback is an EVENT Handle */
+ CALLBACK_MSGQUEUE = $00060000; //* dwCallback is HANDLE returned by CreateMsgQueue or OpenMsgQueue (new in Windows CE 5.0) */
+
+
+type
+ DRVCALLBACK = procedure(_hdrvr:HANDLE; uMsg:UINT; dwUser:DWORD; dw1:DWORD; dw2:DWORD); cdecl;
+ LPDRVCALLBACK = DRVCALLBACK;
+ PDRVCALLBACK = DRVCALLBACK;
+
+{* CALLBACK_MSGQUEUE - client process sets up a MsgQueuue that receives WAVEMSG structures.
+* Note that structure fields are identical to arguments to a callback function
+* but we put the message field first to allow for multi-functional message queues.
+*}
+type
+ _tag_WAVEMSG = record
+ uMsg:UINT; // WOM_OPEN, WIM_OPEN, WOM_DONE, WIM_DATA, etc.
+ hWav:HANDLE; // stream handle returned by waveInOpen or waveOutOpen
+ dwInstance:DWORD; // value of dwInstance argument passed into waveInOpen or waveOutOpen
+ dwParam1:DWORD; // completed WAVEHDR for WIM_DATA, WOM_DONE, reserved elsewhere
+ dwParam2:DWORD; // reserved
+ end;
+ WAVEMSG = _tag_WAVEMSG;
+ PWAVEMSG = ^_tag_WAVEMSG;
+
+{$IFNDEF MMNOSOUND}
+
+function sndPlaySoundW(lpszSoundName:LPCWSTR; fuSound:UINT):BOOL; external KernelDLL name 'sndPlaySoundW'; // index 266
+{$IFDEF UNICODE}
+function sndPlaySound(lpszSoundName:LPCWSTR; fuSound:UINT):BOOL; external KernelDLL name 'sndPlaySoundW'; // index 266
+{$ELSE} // UNICODE
+//#define sndPlaySound sndPlaySoundA
+{$ENDIF} // UNICODE
+
+function PlaySoundW(pszSound:LPCWSTR; hmod:HMODULE; fdwSound:DWORD):BOOL; external KernelDLL name 'PlaySoundW'; // index 267
+{$IFDEF UNICODE}
+function PlaySound(pszSound:LPCWSTR; hmod:HMODULE; fdwSound:DWORD):BOOL; external KernelDLL name 'PlaySoundW'; // index 267
+{$ELSE} // UNICODE
+//#define PlaySound PlaySoundA
+{$ENDIF} // UNICODE
+
+{*
+ * flag values for fuSound arguments on [snd]PlaySound
+ * or dwFlags for PlaySound
+ *}
+
+//* sndAlias creates the alias identifier */
+const
+ SND_ALIAS_START = 0; // ??? must be > 4096 to keep strings in same section of resource file
+
+function sndAlias(ch0:AnsiChar; ch1:AnsiChar):DWORD;
+
+const
+ SND_ALIAS_SYSTEMASTERISK = SND_ALIAS_START+
+ (DWORD(AnsiChar('S')) or
+ DWORD(AnsiChar('*')));
+
+ SND_ALIAS_SYSTEMQUESTION = SND_ALIAS_START+
+ (DWORD(AnsiChar('S')) or
+ DWORD(AnsiChar('?')));
+
+ SND_ALIAS_SYSTEMHAND = SND_ALIAS_START+
+ (DWORD(AnsiChar('S')) or
+ DWORD(AnsiChar('H')));
+
+ SND_ALIAS_SYSTEMEXIT = SND_ALIAS_START+
+ (DWORD(AnsiChar('S')) or
+ DWORD(AnsiChar('E')));
+
+ SND_ALIAS_SYSTEMSTART = SND_ALIAS_START+
+ (DWORD(AnsiChar('S')) or
+ DWORD(AnsiChar('S')));
+
+ SND_ALIAS_SYSTEMWELCOME = SND_ALIAS_START+
+ (DWORD(AnsiChar('S')) or
+ DWORD(AnsiChar('W')));
+
+ SND_ALIAS_SYSTEMEXCLAMATION = SND_ALIAS_START+
+ (DWORD(AnsiChar('S')) or
+ DWORD(AnsiChar('!')));
+
+ SND_ALIAS_SYSTEMDEFAULT = SND_ALIAS_START+
+ (DWORD(AnsiChar('S')) or
+ DWORD(AnsiChar('D')));
+
+ SND_ALIAS = $00010000; // name is a WIN.INI [sounds] entry
+ SND_FILENAME = $00020000; // name is a file name
+ SND_RESOURCE = $00040004; // name is a resource name or atom
+
+ SND_SYNC = $00000000; // play synchronously (default)
+ SND_ASYNC = $00000001; // play asynchronously
+ SND_NODEFAULT = $00000002; // silence not default, if sound not found
+ SND_MEMORY = $00000004; // lpszSoundName points to a memory file
+ SND_LOOP = $00000008; // loop the sound until next sndPlaySound
+ SND_NOSTOP = $00000010; // don't stop any currently playing sound
+
+ SND_NOWAIT = $00002000; // don't wait if the driver is busy
+ SND_VALIDFLAGS = $0017201F; // Set of valid flag bits. Anything outside
+ // this range will raise an error
+ SND_RESERVED = $FF000000; // In particular these flags are reserved
+ SND_TYPE_MASK = $00170007;
+ SND_ALIAS_ID = $00110000; // name is a WIN.INI [sounds] entry identifier
+
+{$ENDIF} // MMNOSOUND
+
+
+{$IFNDEF MMNOWAVE}
+{****************************************************************************
+
+ Waveform audio support
+
+****************************************************************************}
+const
+//* waveform audio error return values */
+ WAVERR_BADFORMAT = WAVERR_BASE + 0; // unsupported wave format
+ WAVERR_STILLPLAYING = WAVERR_BASE + 1; // still something playing
+ WAVERR_UNPREPARED = WAVERR_BASE + 2; // header not prepared
+ WAVERR_SYNC = WAVERR_BASE + 3; // device is synchronous
+ WAVERR_LASTERROR = WAVERR_BASE + 3; // last error in range
+
+//* waveform audio data types */
+type
+ HWAVE = HANDLE;
+ HWAVEIN = HANDLE;
+ LPHWAVEIN = ^HWAVEIN;
+ HWAVEOUT = HANDLE;
+ LPHWAVEOUT = ^HWAVEOUT;
+
+ WAVECALLBACK = DRVCALLBACK;
+ LPWAVECALLBACK = WAVECALLBACK;
+
+const
+//* wave callback messages */
+ WOM_OPEN = MM_WOM_OPEN;
+ WOM_CLOSE = MM_WOM_CLOSE;
+ WOM_DONE = MM_WOM_DONE;
+ WIM_OPEN = MM_WIM_OPEN;
+ WIM_CLOSE = MM_WIM_CLOSE;
+ WIM_DATA = MM_WIM_DATA;
+
+//* device ID for wave device mapper */
+const
+ WAVE_MAPPER = DWORD(-1);
+
+//* flags for dwFlags parameter in waveOutOpen() and waveInOpen() */
+const
+ WAVE_FORMAT_QUERY = $00000001;
+ WAVE_ALLOWSYNC = $00000002;
+ WAVE_MAPPED = $00000004;
+ WAVE_FORMAT_DIRECT = $00000008;
+ WAVE_FORMAT_DIRECT_QUERY = WAVE_FORMAT_QUERY or WAVE_FORMAT_DIRECT;
+ WAVE_NOMIXER = $00000080; //* Windows CE only - bypass software mixer */
+
+
+// Switch to DWORD packing for WAVEHDR
+// Warning: This assumes that the start of headers is DWORD aligned, which is a change from previous implementations.
+{$PACKRECORDS 4}// #include "pshpack4.h"
+//* wave data block header */
+type
+ LPWAVEHDR = ^wavehdr_tag;
+ wavehdr_tag = record
+ lpData:LPSTR; //* pointer to locked data buffer */
+ dwBufferLength:DWORD; //* length of data buffer */
+ dwBytesRecorded:DWORD; //* used for input only */
+ dwUser:DWORD; //* for client's use */
+ dwFlags:DWORD; //* assorted flags (see defines) */
+ dwLoops:DWORD; //* loop control counter */
+ lpNext:LPWAVEHDR; //* reserved for driver */
+ reserved:DWORD; //* reserved for driver */
+ end;
+ WAVEHDR = wavehdr_tag;
+ PWAVEHDR = ^wavehdr_tag;
+ NPWAVEHDR = ^wavehdr_tag;
+
+// Switch back to previous packing
+{$PACKRECORDS 1}// #include "poppack.h"
+
+
+//* flags for dwFlags field of WAVEHDR */
+const
+ WHDR_DONE = $00000001; //* done bit */
+ WHDR_PREPARED = $00000002; //* set if this header has been prepared */
+ WHDR_BEGINLOOP = $00000004; //* loop start block */
+ WHDR_ENDLOOP = $00000008; //* loop end block */
+ WHDR_INQUEUE = $00000010; //* reserved for driver */
+
+//* waveform output device capabilities structure */
+type
+ tagWAVEOUTCAPS = record
+ wMid:word; //* manufacturer ID */
+ wPid:word; //* product ID */
+ vDriverVersion:MMVERSION; //* version of the driver */
+ szPname:array[0..MAXPNAMELEN-1] of TCHAR; //* product name (NULL terminated string) */
+ dwFormats:DWORD; //* formats supported */
+ wChannels:word; //* number of sources supported */
+ wReserved1:word; //* packing */
+ dwSupport:DWORD; //* functionality supported by driver */
+ end;
+ WAVEOUTCAPS = tagWAVEOUTCAPS;
+ PWAVEOUTCAPS = ^tagWAVEOUTCAPS;
+ NPWAVEOUTCAPS = ^tagWAVEOUTCAPS;
+ LPWAVEOUTCAPS = ^tagWAVEOUTCAPS;
+
+//* flags for dwSupport field of WAVEOUTCAPS */
+const
+ WAVECAPS_PITCH = $0001; //* supports pitch control */
+ WAVECAPS_PLAYBACKRATE = $0002; //* supports playback rate control */
+ WAVECAPS_VOLUME = $0004; //* supports volume control */
+ WAVECAPS_LRVOLUME = $0008; //* separate left-right volume control */
+// WAVECAPS_SYNC = $0010; //* Windows CE only supports asynchronous audio devices */
+ WAVECAPS_SAMPLEACCURATE = $0020;
+ WAVECAPS_DIRECTSOUND = $0040;
+
+//* waveform input device capabilities structure */
+type
+ tagWAVEINCAPS = record
+ wMid:word; //* manufacturer ID */
+ wPid:word; //* product ID */
+ vDriverVersion:MMVERSION; //* version of the driver */
+ szPname:array[0..MAXPNAMELEN-1] of TCHAR; //* product name (NULL terminated string) */
+ dwFormats:DWORD; //* formats supported */
+ wChannels:word; //* number of channels supported */
+ wReserved1:word; //* structure packing */
+ end;
+ WAVEINCAPS = tagWAVEINCAPS;
+ PWAVEINCAPS = ^tagWAVEINCAPS;
+ NPWAVEINCAPS = ^tagWAVEINCAPS;
+ LPWAVEINCAPS = ^tagWAVEINCAPS;
+
+//* defines for dwFormat field of WAVEINCAPS and WAVEOUTCAPS */
+const
+ WAVE_INVALIDFORMAT = $00000000; //* invalid format */
+ WAVE_FORMAT_1M08 = $00000001; //* 11.025 kHz, Mono, 8-bit */
+ WAVE_FORMAT_1S08 = $00000002; //* 11.025 kHz, Stereo, 8-bit */
+ WAVE_FORMAT_1M16 = $00000004; //* 11.025 kHz, Mono, 16-bit */
+ WAVE_FORMAT_1S16 = $00000008; //* 11.025 kHz, Stereo, 16-bit */
+ WAVE_FORMAT_2M08 = $00000010; //* 22.05 kHz, Mono, 8-bit */
+ WAVE_FORMAT_2S08 = $00000020; //* 22.05 kHz, Stereo, 8-bit */
+ WAVE_FORMAT_2M16 = $00000040; //* 22.05 kHz, Mono, 16-bit */
+ WAVE_FORMAT_2S16 = $00000080; //* 22.05 kHz, Stereo, 16-bit */
+ WAVE_FORMAT_4M08 = $00000100; //* 44.1 kHz, Mono, 8-bit */
+ WAVE_FORMAT_4S08 = $00000200; //* 44.1 kHz, Stereo, 8-bit */
+ WAVE_FORMAT_4M16 = $00000400; //* 44.1 kHz, Mono, 16-bit */
+ WAVE_FORMAT_4S16 = $00000800; //* 44.1 kHz, Stereo, 16-bit */
+
+//* property information for audio gain classes */
+
+//* audio gain class property sets */
+const
+ MM_PROPSET_GAINCLASS_CLASS:GUID = '{E7E569A5-8498-43FE-8075-33D1FDAB15EF}';
+ MM_PROPSET_GAINCLASS_STREAM:GUID = '{40E953AE-EE3E-493A-93EE-DA3E30764390}';
+(*
+#define MM_PROPSET_GAINCLASS_CLASS \
+ { 0xe7e569a5, 0x8498, 0x43fe, { 0x80, 0x75, 0x33, 0xd1, 0xfd, 0xab, 0x15, 0xef } }
+#define MM_PROPSET_GAINCLASS_STREAM \
+ { 0x40e953ae, 0xee3e, 0x493a, { 0x93, 0xee, 0xda, 0x3e, 0x30, 0x76, 0x43, 0x90 } }
+*)
+
+const
+//* MM_PROPSET_GAINCLASS_CLASS property IDs */
+ MM_PROP_GAINCLASS_CLASS = 1;
+
+//* MM_PROPSET_GAINCLASS_STREAM property IDs */
+ MM_PROP_GAINCLASS_STREAM = 1;
+
+//* structure to describe audio gain classes */
+type
+ tagAUDIOGAINCLASS = record
+ dwPriority:DWORD;
+ dwRelativeGain:DWORD;
+ end;
+ AUDIOGAINCLASS = tagAUDIOGAINCLASS;
+ PAUDIOGAINCLASS = ^tagAUDIOGAINCLASS;
+ CPAUDIOGAINCLASS = ^AUDIOGAINCLASS;
+
+//* values for AUDIOGAINCLASS.dwPriority */
+const
+ WAGC_PRIORITY_CRITICAL = 6;
+ WAGC_PRIORITY_HIGH = 4;
+ WAGC_PRIORITY_NORMAL = 2;
+
+//* wave stream properties structure */
+type
+ tagSTREAMPROPS = record
+ dwClassID:DWORD;
+ dwFlags:DWORD;
+ end;
+ STREAMPROPS = tagSTREAMPROPS;
+ PSTREAMPROPS = ^tagSTREAMPROPS;
+ CPSTREAMPROPS = ^STREAMPROPS;
+
+//* flag definitions for STREAMPROPS.dwFlags */
+const
+ SPSFL_NOTIFY_GAIN_CHANGE = $00000001; //* callback gets MM_WOM_ATTENUATED messages */
+ SPSFL_EXCLUDE = $00000002; //* stream does not participate in gain-class operations */
+
+//* values for STREAMPROPS.dwClassid */
+const
+ WAGC_CLASS_DEFAULT = 0;
+ WAGC_CLASS_NORMAL = 1;
+ WAGC_CLASS_AUDIO_ALERT = 2;
+ WAGC_CLASS_SPEECH_ALERT = 3;
+ WAGC_CLASS_SPEECH_NOTIFICATION = 4;
+ WAGC_CLASS_AUDIO_NOTIFICATION = 5;
+ WAGC_CLASS_FORCE_MUTE = 6;
+//* classes 7-15 are reserved for future use */
+ WAGC_CLASS_MAX = 15; //* class ID's larger than this are illegal */
+
+//* Discontinuity detection property set */
+ MM_PROPSET_DISCONTINUITY:GUID = '{B4389733-868E-4D06-B008-9A6FC8CE852E}';
+{
+#define MM_PROPSET_DISCONTINUITY \
+ { 0xb4389733, 0x868e, 0x4d06, { 0xb0, 0x8, 0x9a, 0x6f, 0xc8, 0xce, 0x85, 0x2e } }
+}
+
+//* MM_PROPSET_DISCONTINUITY property IDs */
+ MM_PROP_DISCONTINUITY = 1;
+
+//* bit values for MM_PROP_DISCONTINUITY parameter */
+ WDSC_APP = 1;
+ WDSC_SWMIXER = 2;
+ WDSC_DRIVER = 4;
+
+//* structure to receive discontinuity information */
+type
+ tagAUDIODISCONTINUITY = record
+ dwMask:DWORD; // bitmask shows which values were set (see WDSC_* values above)
+ dwApp:DWORD; // # discontinuities detected at the application level
+ dwSwMixer:DWORD; // # discontinuities detected at the software mixer level
+ dwDriver:DWORD; // # discontinuities detected at the driver level
+ end;
+ AUDIODISCONTINUITY = tagAUDIODISCONTINUITY;
+ PAUDIODISCONTINUITY = ^tagAUDIODISCONTINUITY;
+
+//* waveform audio function prototypes */
+function waveOutGetNumDevs:UINT; external KernelDLL name 'waveOutGetNumDevs'; // index 268
+function waveOutGetDevCaps(uDeviceID:UINT; pwoc:LPWAVEOUTCAPS; cbwoc:UINT):MMRESULT; external KernelDLL name 'waveOutGetDevCaps'; // index 269
+function waveOutGetVolume(hwo:HWAVEOUT; pdwVolume:LPDWORD):MMRESULT; external KernelDLL name 'waveOutGetVolume'; // index 26A
+function waveOutSetVolume(hwo:HWAVEOUT; dwVolume:DWORD):MMRESULT; external KernelDLL name 'waveOutSetVolume'; // index 26B
+function waveOutGetErrorText(mmrError:MMRESULT; pszText:PTSTR; cchText:UINT):MMRESULT; external KernelDLL name 'waveOutGetErrorText'; // index 26C
+function waveOutClose(hwo:HWAVEOUT):MMRESULT; external KernelDLL name 'waveOutClose'; // index 26D
+function waveOutPrepareHeader(hwo:HWAVEOUT; pwh:LPWAVEHDR; cbwh:UINT):MMRESULT; external KernelDLL name 'waveOutPrepareHeader'; // index 26E
+function waveOutUnprepareHeader(hwo:HWAVEOUT; pwh:LPWAVEHDR; cbwh:UINT):MMRESULT; external KernelDLL name 'waveOutUnprepareHeader'; // index 26F
+function waveOutWrite(hwo:HWAVEOUT; pwh:LPWAVEHDR; cbwh:UINT):MMRESULT; external KernelDLL name 'waveOutWrite'; // index 270
+function waveOutPause(hwo:HWAVEOUT):MMRESULT; external KernelDLL name 'waveOutPause'; // index 271
+function waveOutRestart(hwo:HWAVEOUT):MMRESULT; external KernelDLL name 'waveOutRestart'; // index 272
+function waveOutReset(hwo:HWAVEOUT):MMRESULT; external KernelDLL name 'waveOutReset'; // index 273
+function waveOutBreakLoop(hwo:HWAVEOUT):MMRESULT; external KernelDLL name 'waveOutBreakLoop'; // index 274
+function waveOutGetPosition(hwo:HWAVEOUT; pmmt:LPMMTIME; cbmmt:UINT):MMRESULT; external KernelDLL name 'waveOutGetPosition'; // index 275
+function waveOutGetPitch(hwo:HWAVEOUT; pdwPitch:LPDWORD):MMRESULT; external KernelDLL name 'waveOutGetPitch'; // index 276
+function waveOutSetPitch(hwo:HWAVEOUT; dwPitch:DWORD):MMRESULT; external KernelDLL name 'waveOutSetPitch'; // index 277
+function waveOutGetPlaybackRate(hwo:HWAVEOUT; pdwRate:LPDWORD):MMRESULT; external KernelDLL name 'waveOutGetPlaybackRate'; // index 278
+function waveOutSetPlaybackRate(hwo:HWAVEOUT; dwRate:DWORD):MMRESULT; external KernelDLL name 'waveOutSetPlaybackRate'; // index 279
+function waveOutGetID(hwo:HWAVEOUT; puDeviceID:LPUINT):MMRESULT; external KernelDLL name 'waveOutGetID'; // index 27A
+function waveOutMessage(hwo:HWAVEOUT; uMsg:UINT; dw1:DWORD; dw2:DWORD):MMRESULT; external KernelDLL name 'waveOutMessage'; // index 27B
+function waveOutOpen(Phwo:LPHWAVEOUT;
+ uDeviceID:UINT;
+ pwfx:LPCWAVEFORMATEX;
+ dwCallback:DWORD;
+ dwInstance:DWORD;
+ fdwOpen:DWORD):MMRESULT; external KernelDLL name 'waveOutOpen'; // index 27C
+function waveOutGetProperty(uDeviceID:UINT;
+ pPropSetId:PGUID;
+ ulPropId:ULONG;
+ pvPropParams:LPVOID;
+ cbPropParams:ULONG;
+ pvPropData:LPVOID;
+ cbPropData:ULONG;
+ pcbReturn:PULONG):MMRESULT; external KernelDLL name 'waveOutGetProperty'; // index ?
+function waveOutSetProperty(uDeviceID:UINT;
+ pPropSetId:PGUID;
+ ulPropId:ULONG;
+ pvPropParams:LPVOID;
+ cbPropParams:ULONG;
+ pvPropData:LPVOID;
+ cbPropData:ULONG):MMRESULT; external KernelDLL name 'waveOutSetProperty'; // index ?
+
+
+function waveInGetNumDevs:UINT; external KernelDLL name 'waveInGetNumDevs'; // index 27D
+function waveInGetDevCaps(uDeviceID:UINT; pwic:LPWAVEINCAPS; cbwic:UINT):MMRESULT; external KernelDLL name 'waveInGetDevCaps'; // index 27E
+function waveInGetErrorText(mmrError:MMRESULT; pszText:LPTSTR; cchText:UINT):MMRESULT; external KernelDLL name 'waveInGetErrorText'; // index 27F
+function waveInClose(hwi:HWAVEIN):MMRESULT; external KernelDLL name 'waveInClose'; // index 280
+function waveInPrepareHeader(hwi:HWAVEIN; pwh:LPWAVEHDR; cbwh:UINT):MMRESULT; external KernelDLL name 'waveInPrepareHeader'; // index 281
+function waveInUnprepareHeader(hwi:HWAVEIN; pwh:LPWAVEHDR; cbwh:UINT):MMRESULT; external KernelDLL name 'waveInUnprepareHeader'; // index 282
+function waveInAddBuffer(hwi:HWAVEIN; pwh:LPWAVEHDR; cbwh:UINT):MMRESULT; external KernelDLL name 'waveInAddBuffer'; // index 283
+function waveInStart(hwi:HWAVEIN):MMRESULT; external KernelDLL name 'waveInStart'; // index 284
+function waveInStop(hwi:HWAVEIN):MMRESULT; external KernelDLL name 'waveInStop'; // index 285
+function waveInReset(hwi:HWAVEIN):MMRESULT; external KernelDLL name 'waveInReset'; // index 286
+function waveInGetPosition(hwi:HWAVEIN; pmmt:LPMMTIME; cbmmt:UINT):MMRESULT; external KernelDLL name 'waveInGetPosition'; // index 287
+function waveInGetID(hwi:HWAVEIN; puDeviceID:LPUINT):MMRESULT; external KernelDLL name 'waveInGetID'; // index 288
+function waveInMessage(hwi:HWAVEIN; uMsg:UINT; dw1:DWORD; dw2:DWORD):MMRESULT; external KernelDLL name 'waveInMessage'; // index 289
+function waveInOpen(phwi:LPHWAVEIN;
+ uDeviceID:UINT;
+ pwfx:LPCWAVEFORMATEX;
+ dwCallback:DWORD;
+ dwInstance:DWORD;
+ fdwOpen:DWORD):MMRESULT; external KernelDLL name 'waveInOpen'; // index 28A
+function waveInGetProperty(uDeviceID:UINT;
+ pPropSetId:PGUID;
+ ulPropId:ULONG;
+ pvPropParams:LPVOID;
+ cbPropParams:ULONG;
+ pvPropData:LPVOID;
+ cbPropData:ULONG;
+ pcbReturn:PULONG):MMRESULT; external KernelDLL name 'waveInGetProperty'; // index ?
+function waveInSetProperty(uDeviceID:UINT;
+ pPropSetId:PGUID;
+ ulPropId:ULONG;
+ pvPropParams:LPVOID;
+ cbPropParams:ULONG;
+ pvPropData:LPVOID;
+ cbPropData:ULONG):MMRESULT; external KernelDLL name 'waveInSetProperty'; // index ?
+
+{$ENDIF} // MMNOWAVE
+
+
+{$IFNDEF MMNOMIDI}
+{****************************************************************************
+
+ MIDI audio support
+
+****************************************************************************}
+const
+//* MIDI error return values */
+ MIDIERR_UNPREPARED = MIDIERR_BASE + 0; //* header not prepared */
+ MIDIERR_STILLPLAYING = MIDIERR_BASE + 1; //* still something playing */
+ MIDIERR_NOMAP = MIDIERR_BASE + 2; //* no configured instruments */
+ MIDIERR_NOTREADY = MIDIERR_BASE + 3; //* hardware is still busy */
+ MIDIERR_NODEVICE = MIDIERR_BASE + 4; //* port no longer connected */
+ MIDIERR_INVALIDSETUP = MIDIERR_BASE + 5; //* invalid MIF */
+ MIDIERR_BADOPENMODE = MIDIERR_BASE + 6; //* operation unsupported w/ open mode */
+ MIDIERR_DONT_CONTINUE = MIDIERR_BASE + 7; //* thru device 'eating' a message */
+ MIDIERR_LASTERROR = MIDIERR_BASE + 7; //* last error in range */
+
+//* MIDI audio data types */
+type
+ HMIDI = HANDLE;
+ HMIDIIN = HANDLE;
+ HMIDIOUT = HANDLE;
+ HMIDISTRM = HANDLE;
+
+ LPHMIDI = ^HMIDI;
+ LPHMIDIIN = ^HMIDIIN;
+ LPHMIDIOUT = ^HMIDIOUT;
+ LPHMIDISTRM = ^HMIDISTRM;
+
+ MIDICALLBACK = DRVCALLBACK;
+ LPMIDICALLBACK = MIDICALLBACK;
+
+const
+ MIDIPATCHSIZE = 128;
+
+type
+ PATCHARRAY = array[0..MIDIPATCHSIZE-1] of word;
+ LPPATCHARRAY = ^PATCHARRAY;
+ KEYARRAY = array[0..MIDIPATCHSIZE-1] of word;
+ LPKEYARRAY = ^KEYARRAY;
+
+//* MIDI callback messages */
+const
+ MIM_OPEN = MM_MIM_OPEN;
+ MIM_CLOSE = MM_MIM_CLOSE;
+ MIM_DATA = MM_MIM_DATA;
+ MIM_LONGDATA = MM_MIM_LONGDATA;
+ MIM_ERROR = MM_MIM_ERROR;
+ MIM_LONGERROR = MM_MIM_LONGERROR;
+ MOM_OPEN = MM_MOM_OPEN;
+ MOM_CLOSE = MM_MOM_CLOSE;
+ MOM_DONE = MM_MOM_DONE;
+
+ MIM_MOREDATA = MM_MIM_MOREDATA;
+ MOM_POSITIONCB = MM_MOM_POSITIONCB;
+
+//* device ID for MIDI mapper */
+const
+ MIDIMAPPER = UINT(-1);
+ MIDI_MAPPER = UINT(-1);
+
+//* flags for dwFlags parm of midiInOpen() */
+const
+ MIDI_IO_STATUS = $00000020;
+ MIDI_IO_CONTROL = $00000008; //* Internal */
+ MIDI_IO_INPUT = $00000010; //*future*/ /* Internal */
+ MIDI_IO_OWNED = $00004000; //* Internal */
+ MIDI_IO_SHARED = $00008000; //* Internal */
+ MIDI_I_VALID = $C027; //* Internal */
+ MIDI_O_VALID = $C00E; //* Internal */
+
+
+//* flags for wFlags parm of midiOutCachePatches(), midiOutCacheDrumPatches() */
+ MIDI_CACHE_ALL = 1;
+ MIDI_CACHE_BESTFIT = 2;
+ MIDI_CACHE_QUERY = 3;
+ MIDI_UNCACHE = 4;
+ MIDI_CACHE_VALID = MIDI_CACHE_ALL or MIDI_CACHE_BESTFIT or MIDI_CACHE_QUERY or MIDI_UNCACHE; //* Internal */
+
+
+//* MIDI output device capabilities structure */
+{$IFDEF _WIN32}
+type
+ tagMIDIOUTCAPSA = record
+ wMid:word; //* manufacturer ID */
+ wPid:word; //* product ID */
+ vDriverVersion:MMVERSION; //* version of the driver */
+ szPname:array[0..MAXPNAMELEN-1] of AnsiChar; //* product name (NULL terminated string) */
+ wTechnology:word; //* type of device */
+ wVoices:word; //* # of voices (internal synth only) */
+ wNotes:word; //* max # of notes (internal synth only) */
+ wChannelMask:word; //* channels used (internal synth only) */
+ dwSupport:DWORD; //* functionality supported by driver */
+ end;
+ MIDIOUTCAPSA = tagMIDIOUTCAPSA;
+ PMIDIOUTCAPSA = ^tagMIDIOUTCAPSA;
+ NPMIDIOUTCAPSA = ^tagMIDIOUTCAPSA;
+ LPMIDIOUTCAPSA = ^tagMIDIOUTCAPSA;
+
+type
+ tagMIDIOUTCAPSW = record
+ wMid:word; //* manufacturer ID */
+ wPid:word; //* product ID */
+ vDriverVersion:MMVERSION; //* version of the driver */
+ szPname:array[0..MAXPNAMELEN-1] of WCHAR; //* product name (NULL terminated string) */
+ wTechnology:word; //* type of device */
+ wVoices:word; //* # of voices (internal synth only) */
+ wNotes:word; //* max # of notes (internal synth only) */
+ wChannelMask:word; //* channels used (internal synth only) */
+ dwSupport:DWORD; //* functionality supported by driver */
+ end;
+ MIDIOUTCAPSW = tagMIDIOUTCAPSW;
+ PMIDIOUTCAPSW = ^tagMIDIOUTCAPSW;
+ NPMIDIOUTCAPSW = ^tagMIDIOUTCAPSW;
+ LPMIDIOUTCAPSW = ^tagMIDIOUTCAPSW;
+
+{$IFDEF UNICODE}
+ MIDIOUTCAPS = MIDIOUTCAPSW;
+ PMIDIOUTCAPS = PMIDIOUTCAPSW;
+ NPMIDIOUTCAPS = NPMIDIOUTCAPSW;
+ LPMIDIOUTCAPS = LPMIDIOUTCAPSW;
+{$ELSE} // UNICODE
+ MIDIOUTCAPS = MIDIOUTCAPSA;
+ PMIDIOUTCAPS = PMIDIOUTCAPSA;
+ NPMIDIOUTCAPS = NPMIDIOUTCAPSA;
+ LPMIDIOUTCAPS = LPMIDIOUTCAPSA;
+{$ENDIF} // UNICODE
+
+{$ELSE} // _WIN32
+type
+ midioutcaps_tag = record
+ wMid:word; //* manufacturer ID */
+ wPid:word; //* product ID */
+ vDriverVersion:MMVERSION; //* version of the driver */
+ szPname:array[0..MAXPNAMELEN-1] of char; //* product name (NULL terminated string) */
+ wTechnology:word; //* type of device */
+ wVoices:word; //* # of voices (internal synth only) */
+ wNotes:word; //* max # of notes (internal synth only) */
+ wChannelMask:word; //* channels used (internal synth only) */
+ dwSupport:DWORD; //* functionality supported by driver */
+ end;
+ MIDIOUTCAPS = midioutcaps_tag;
+ PMIDIOUTCAPS = ^midioutcaps_tag;
+ NPMIDIOUTCAPS = ^midioutcaps_tag;
+ LPMIDIOUTCAPS = ^midioutcaps_tag;
+{$ENDIF} // _WIN32
+
+const
+//* flags for wTechnology field of MIDIOUTCAPS structure */
+ MOD_MIDIPORT = 1; //* output port */
+ MOD_SYNTH = 2; //* generic internal synth */
+ MOD_SQSYNTH = 3; //* square wave internal synth */
+ MOD_FMSYNTH = 4; //* FM internal synth */
+ MOD_MAPPER = 5; //* MIDI mapper */
+
+//* flags for dwSupport field of MIDIOUTCAPS structure */
+ MIDICAPS_VOLUME = $0001; //* supports volume control */
+ MIDICAPS_LRVOLUME = $0002; //* separate left-right volume control */
+ MIDICAPS_CACHE = $0004;
+
+ MIDICAPS_STREAM = $0008; //* driver supports midiStreamOut directly */
+
+
+
+//* MIDI input device capabilities structure */
+{$IFDEF _WIN32}
+type
+ tagMIDIINCAPSA = record
+ wMid:word; //* manufacturer ID */
+ wPid:word; //* product ID */
+ vDriverVersion:MMVERSION; //* version of the driver */
+ szPname:array[0..MAXPNAMELEN-1] of AnsiChar; //* product name (NULL terminated string) */
+//#if (WINVER >= 0x0400)
+ dwSupport:DWORD; //* functionality supported by driver */
+//#endif
+ end;
+ MIDIINCAPSA = tagMIDIINCAPSA;
+ PMIDIINCAPSA = ^tagMIDIINCAPSA;
+ NPMIDIINCAPSA = ^tagMIDIINCAPSA;
+ LPMIDIINCAPSA = ^tagMIDIINCAPSA;
+
+type
+ tagMIDIINCAPSW = record
+ wMid:word; //* manufacturer ID */
+ wPid:word; //* product ID */
+ vDriverVersion:MMVERSION; //* version of the driver */
+ szPname:array[0..MAXPNAMELEN-1] of WCHAR; //* product name (NULL terminated string) */
+//#if (WINVER >= 0x0400)
+ dwSupport:DWORD; //* functionality supported by driver */
+//#endif
+ end;
+ MIDIINCAPSW = tagMIDIINCAPSW;
+ PMIDIINCAPSW = ^tagMIDIINCAPSW;
+ NPMIDIINCAPSW = ^tagMIDIINCAPSW;
+ LPMIDIINCAPSW = ^tagMIDIINCAPSW;
+
+{$IFDEF UNICODE}
+ MIDIINCAPS = MIDIINCAPSW;
+ PMIDIINCAPS = PMIDIINCAPSW;
+ NPMIDIINCAPS = NPMIDIINCAPSW;
+ LPMIDIINCAPS = LPMIDIINCAPSW;
+{$ELSE} // UNICODE
+ MIDIINCAPS = MIDIINCAPSA;
+ PMIDIINCAPS = PMIDIINCAPSA;
+ NPMIDIINCAPS = NPMIDIINCAPSA;
+ LPMIDIINCAPS = LPMIDIINCAPSA;
+{$ENDIF} // UNICODE
+
+{$ELSE} // _WIN32
+type
+ midiincaps_tag = record
+ wMid:word; //* manufacturer ID */
+ wPid:word; //* product ID */
+ vDriverVersion:MMVERSION; //* version of the driver */
+ szPname:array[0..MAXPNAMELEN-1] of char; //* product name (NULL terminated string) */
+//#if (WINVER >= 0x0400)
+ dwSupport:DWORD; //* functionality supported by driver */
+//#endif
+ end;
+ MIDIINCAPS = midiincaps_tag;
+ PMIDIINCAPS = ^midiincaps_tag;
+ NPMIDIINCAPS = ^midiincaps_tag;
+ LPMIDIINCAPS = ^midiincaps_tag;
+{$ENDIF} // _WIN32
+
+
+//* MIDI data block header */
+type
+ LPMIDIHDR = ^midihdr_tag;
+ midihdr_tag = record
+ lpData:LPSTR; //* pointer to locked data block */
+ dwBufferLength:DWORD; //* length of data in data block */
+ dwBytesRecorded:DWORD; //* used for input only */
+ dwUser:DWORD; //* for client's use */
+ dwFlags:DWORD; //* assorted flags (see defines) */
+ lpNext:LPMIDIHDR; //* reserved for driver */
+ reserved:DWORD; //* reserved for driver */
+//#if (WINVER >= 0x0400)
+ dwOffset:DWORD; //* Callback offset into buffer */
+ dwReserved:array[0..7] of DWORD; //* Reserved for MMSYSTEM */
+//#endif
+ end;
+ MIDIHDR = midihdr_tag;
+ PMIDIHDR = ^midihdr_tag;
+ NPMIDIHDR = ^midihdr_tag;
+
+type
+ midievent_tag = record
+ dwDeltaTime:DWORD; //* Ticks since last event */
+ dwStreamID:DWORD; //* Reserved; must be zero */
+ dwEvent:DWORD; //* Event type and parameters */
+ dwParms:array[0..0] of DWORD; //* Parameters if this is a long event */
+ end;
+ MIDIEVENT = midievent_tag;
+
+type
+ midistrmbuffver_tag = record
+ dwVersion:DWORD; //* Stream buffer format version */
+ dwMid:DWORD; //* Manufacturer ID as defined in MMREG.H */
+ dwOEMVersion:DWORD; //* Manufacturer version for custom ext */
+ end;
+ MIDISTRMBUFFVER = midistrmbuffver_tag;
+
+const
+//* flags for dwFlags field of MIDIHDR structure */
+ MHDR_DONE = $00000001; //* done bit */
+ MHDR_PREPARED = $00000002; //* set if header prepared */
+ MHDR_INQUEUE = $00000004; //* reserved for driver */
+ MHDR_ISSTRM = $00000008; //* Buffer is stream buffer */
+ MHDR_SENDING = $00000020; //* Internal */
+ MHDR_MAPPED = $00001000; //* thunked header */ /* Internal */
+ MHDR_SHADOWHDR = $00002000; //* MIDIHDR is 16-bit shadow */ /* Internal */
+ MHDR_VALID = $e000302F; //* valid flags */ /* Internal */
+
+ MHDR_SAVE = $e0003000; //* Save these flags */ /* Internal */
+ //* past driver calls */ /* Internal */
+
+//* Dreamcast-only flags for tonebank support */
+ MHDR_WRITEABLE = $e0000000;
+ MHDR_GENERALMIDI = $80000000; //* Indicates a tonebank that is to be used */
+ //* by General MIDI stream ports */
+ MHDR_GMDRUM = $40000000; //* In combination with GENERALMIDI, indicates */
+ //* a GM drum tonebank. By itself, indicates an */
+ //* "alternate" GM drum tonebank */
+ MHDR_MAPPINGTABLE = $20000000; //* Indicates that this MIDIHDR is for a */
+ //* program mapping table rather than an actual */
+ //* tonebank */
+
+//* */
+//* Type codes which go in the high byte of the event DWORD of a stream buffer */
+//* */
+//* Type codes 00-7F contain parameters within the low 24 bits */
+//* Type codes 80-FF contain a length of their parameter in the low 24 */
+//* bits, followed by their parameter data in the buffer. The event */
+//* DWORD contains the exact byte length; the parm data itself must be */
+//* padded to be an even multiple of 4 bytes long. */
+//* */
+const
+ MEVT_F_SHORT = $00000000;
+ MEVT_F_LONG = $80000000;
+ MEVT_F_CALLBACK = $40000000;
+
+ MEVT_SHORTMSG = byte($00); //* parm = shortmsg for midiOutShortMsg */
+ MEVT_TEMPO = byte($01); //* parm = new tempo in microsec/qn */
+ MEVT_NOP = byte($02); //* parm = unused; does nothing */
+
+function MEVT_EVENTTYPE(x:DWORD):byte;
+function MEVT_EVENTPARM(x:DWORD):DWORD;
+
+//* 0x04-0x7F reserved */
+const
+ MEVT_LONGMSG = byte($80); //* parm = bytes to send verbatim */
+ MEVT_COMMENT = byte($82); //* parm = comment data */
+ MEVT_VERSION = byte($84); //* parm = MIDISTRMBUFFVER struct */
+
+//* 0x81-0xFF reserved */
+
+ MIDISTRM_ERROR = -2;
+
+//* */
+//* Structures and defines for midiStreamProperty */
+//* */
+ MIDIPROP_SET = $80000000;
+ MIDIPROP_GET = $40000000;
+
+//* These are intentionally both non-zero so the app cannot accidentally */
+//* leave the operation off and happen to appear to work due to default */
+//* action. */
+
+function MIDIPROP_PROPERTY(mp:DWORD):DWORD;
+
+const
+ MIDIPROP_TIMEDIV = 00000001;
+ MIDIPROP_TEMPO = 00000002;
+ MIDIPROP_SMF = 00000003;
+ MIDIPROP_BUFFERED = 00000004;
+ MIDIPROP_LOOPING = 00000005;
+ MIDIPROP_GENERALMIDI = 00000006;
+
+//* Some useful defines to help with Standard MIDI File Format stuff */
+ SMF_TIMEDIV_QUARTERNOTE = 0;
+ SMF_TIMEDIV_SECONDS = 1;
+
+
+function SMF_TIMEDIV(format:DWORD; division:DWORD):DWORD;
+function SMF_TIMEDIV_SMPTE(smpte:DWORD; division:DWORD):DWORD;
+function SMF_TIMEDIV_ISSMPTE(dw:DWORD):DWORD;
+function SMF_TIMEDIV_GETSMPTE(dw:DWORD):byte;
+function SMF_TIMEDIV_GETTPF(dw:DWORD):DWORD;
+function SMF_TIMEDIV_GETTPQN(dw:DWORD):DWORD;
+
+type
+ midiproptimediv_tag = record
+ cbStruct:DWORD;
+ dwTimeDiv:DWORD;
+ end;
+ MIDIPROPTIMEDIV = midiproptimediv_tag;
+ LPMIDIPROPTIMEDIV = ^midiproptimediv_tag;
+
+type
+ midiproptempo_tag = record
+ cbStruct:DWORD;
+ dwTempo:DWORD;
+ end;
+ MIDIPROPTEMPO = midiproptempo_tag;
+ LPMIDIPROPTEMPO = ^midiproptempo_tag;
+
+const
+ MIDIPROP_PROPVAL = $3FFFFFFF; //* Internal */
+
+// The library exports midi-functions.
+{$IFDEF _WIN32}
+const
+ MIDIDLL = 'winmm.dll';
+{$ELSE _WIN32}
+const
+ MIDIDLL = KernelDLL;
+{$ENDIF _WIN32}
+
+//* MIDI function prototypes */
+function midiOutGetNumDevs:UINT; external MIDIDLL name 'midiOutGetNumDevs';
+function midiStreamOpen(phms:LPHMIDISTRM; puDeviceID:LPUINT; cMidi:DWORD; dwCallback:DWORD; dwInstance:DWORD; fdwOpen:DWORD):MMRESULT; external MIDIDLL name 'midiStreamOpen'; // index
+function midiStreamClose(hms:HMIDISTRM):MMRESULT; external MIDIDLL name 'midiStreamClose'; // index
+
+function midiStreamProperty(hms:HMIDISTRM; lppropdata:LPBYTE; dwProperty:DWORD):MMRESULT; external MIDIDLL name 'midiStreamProperty'; // index
+function midiStreamPosition(hms:HMIDISTRM; lpmmt:LPMMTIME; cbmmt:UINT):MMRESULT; external MIDIDLL name 'midiStreamPosition'; // index
+
+function midiStreamOut(hms:HMIDISTRM; pmh:LPMIDIHDR; cbmh:UINT):MMRESULT; external MIDIDLL name 'midiStreamOut'; // index
+function midiStreamPause(hms:HMIDISTRM):MMRESULT; external MIDIDLL name 'midiStreamPause'; // index
+function midiStreamRestart(hms:HMIDISTRM):MMRESULT; external MIDIDLL name 'midiStreamRestart'; // index
+function midiStreamStop(hms:HMIDISTRM):MMRESULT; external MIDIDLL name 'midiStreamStop'; // index
+
+{$IFDEF _WIN32}
+function midiConnect(hmi:HMIDI; hmo:HMIDIOUT; pReserved:LPVOID):MMRESULT; external MIDIDLL name 'midiConnect'; // index
+function midiDisconnect(hmi:HMIDI; hmo:HMIDIOUT; pReserved:LPVOID):MMRESULT; external MIDIDLL name 'midiDisconnect'; // index
+{$ENDIF} // _WIN32
+
+
+{$IFDEF _WIN32}
+function midiOutGetDevCapsA(uDeviceID:UINT; pmoc:LPMIDIOUTCAPSA; cbmoc:UINT):MMRESULT; external MIDIDLL name 'midiOutGetDevCapsA'; // index
+function midiOutGetDevCapsW(uDeviceID:UINT; pmoc:LPMIDIOUTCAPSW; cbmoc:UINT):MMRESULT; external MIDIDLL name 'midiOutGetDevCapsW'; // index
+{$IFDEF UNICODE}
+function midiOutGetDevCaps(uDeviceID:UINT; pmoc:LPMIDIOUTCAPSW; cbmoc:UINT):MMRESULT; external MIDIDLL name 'midiOutGetDevCapsW'; // index
+{$ELSE} // UNICODE
+function midiOutGetDevCaps(uDeviceID:UINT; pmoc:LPMIDIOUTCAPSA; cbmoc:UINT):MMRESULT; external MIDIDLL name 'midiOutGetDevCapsA'; // index
+{$ENDIF} // UNICODE
+
+{$ELSE} // _WIN32
+function midiOutGetDevCaps(uDeviceID:UINT; pmoc:LPMIDIOUTCAPS; cbmoc:UINT):MMRESULT; external MIDIDLL name 'midiOutGetDevCaps'; // index
+{$ENDIF} // _WIN32
+
+function midiOutGetVolume(hmo:HMIDIOUT; pdwVolume:LPDWORD):MMRESULT; external MIDIDLL name 'midiOutGetVolume'; // index
+function midiOutSetVolume(hmo:HMIDIOUT; dwVolume:DWORD):MMRESULT; external MIDIDLL name 'midiOutSetVolume'; // index
+
+{$IFDEF _WIN32}
+function midiOutGetErrorTextA(mmrError:MMRESULT; pszText:LPSTR; cchText:UINT):MMRESULT; external MIDIDLL name 'midiOutGetErrorTextA'; // index
+function midiOutGetErrorTextW(mmrError:MMRESULT; pszText:LPWSTR; cchText:UINT):MMRESULT; external MIDIDLL name 'midiOutGetErrorTextW'; // index
+{$IFDEF UNICODE}
+function midiOutGetErrorText(mmrError:MMRESULT; pszText:LPWSTR; cchText:UINT):MMRESULT; external MIDIDLL name 'midiOutGetErrorTextW'; // index
+{$ELSE} // UNICODE
+function midiOutGetErrorText(mmrError:MMRESULT; pszText:LPSTR; cchText:UINT):MMRESULT; external MIDIDLL name 'midiOutGetErrorTextA'; // index
+{$ENDIF} // UNICODE
+{$ELSE} // _WIN32
+function midiOutGetErrorText(mmrError:MMRESULT; pszText:LPSTR; cchText:UINT):MMRESULT; external MIDIDLL name 'midiOutGetErrorText'; // index
+{$ENDIF} // _WIN32
+
+function midiOutOpen(phmo:LPHMIDIOUT; uDeviceID:UINT;
+ dwCallback:DWORD; dwInstance:DWORD; fdwOpen:DWORD):MMRESULT; external MIDIDLL name 'midiOutOpen'; // index
+function midiOutClose(hmo:HMIDIOUT):MMRESULT; external MIDIDLL name 'midiOutClose'; // index
+function midiOutPrepareHeader(hmo:HMIDIOUT; pmh:LPMIDIHDR; cbmh:UINT):MMRESULT; external MIDIDLL name 'midiOutPrepareHeader'; // index
+function midiOutUnprepareHeader(hmo:HMIDIOUT; pmh:LPMIDIHDR; cbmh:UINT):MMRESULT; external MIDIDLL name 'midiOutUnprepareHeader'; // index
+function midiOutShortMsg(hmo:HMIDIOUT; dwMsg:DWORD):MMRESULT; external MIDIDLL name 'midiOutShortMsg'; // index
+function midiOutLongMsg(hmo:HMIDIOUT; pmh:LPMIDIHDR; cbmh:UINT):MMRESULT; external MIDIDLL name 'midiOutLongMsg'; // index
+function midiOutReset(hmo:HMIDIOUT):MMRESULT; external MIDIDLL name 'midiOutReset'; // index
+function midiOutCachePatches(hmo:HMIDIOUT; uBank:UINT; pwpa:LPWORD; fuCache:UINT):MMRESULT; external MIDIDLL name 'midiOutCachePatches'; // index
+function midiOutCacheDrumPatches(hmo:HMIDIOUT; uPatch:UINT; pwkya:LPWORD; fuCache:UINT):MMRESULT; external MIDIDLL name 'midiOutCacheDrumPatches'; // index
+function midiOutGetID(hmo:HMIDIOUT; puDeviceID:LPUINT):MMRESULT; external MIDIDLL name 'midiOutGetID'; // index
+
+{$IFDEF _WIN32}
+function midiOutMessage(hmo:HMIDIOUT; uMsg:UINT; dw1:DWORD; dw2:DWORD):MMRESULT; external MIDIDLL name 'midiOutMessage'; // index
+{$ELSE} // _WIN32
+function midiOutMessage(hmo:HMIDIOUT; uMsg:UINT; dw1:DWORD; dw2:DWORD):DWORD; external MIDIDLL name 'midiOutMessage'; // index
+{$ENDIF} // _WIN32
+
+function midiInGetNumDevs:UINT; external MIDIDLL name 'midiInGetNumDevs'; // index
+
+{$IFDEF _WIN32}
+function midiInGetDevCapsA(uDeviceID:UINT; pmic:LPMIDIINCAPSA; cbmic:UINT):MMRESULT; external MIDIDLL name 'midiInGetDevCapsA'; // index
+function midiInGetDevCapsW(uDeviceID:UINT; pmic:LPMIDIINCAPSW; cbmic:UINT):MMRESULT; external MIDIDLL name 'midiInGetDevCapsW'; // index
+{$IFDEF UNICODE}
+function midiInGetDevCaps(uDeviceID:UINT; pmic:LPMIDIINCAPSW; cbmic:UINT):MMRESULT; external MIDIDLL name 'midiInGetDevCapsW'; // index
+{$ELSE} // UNICODE
+function midiInGetDevCaps(uDeviceID:UINT; pmic:LPMIDIINCAPSA; cbmic:UINT):MMRESULT; external MIDIDLL name 'midiInGetDevCapsA'; // index
+{$ENDIF} // UNICODE
+
+function midiInGetErrorTextA(mmrError:MMRESULT; pszText:LPSTR; cchText:UINT):MMRESULT; external MIDIDLL name 'midiInGetErrorTextA'; // index
+function midiInGetErrorTextW(mmrError:MMRESULT; pszText:LPWSTR; cchText:UINT):MMRESULT; external MIDIDLL name 'midiInGetErrorTextW'; // index
+{$IFDEF UNICODE}
+function midiInGetErrorText(mmrError:MMRESULT; pszText:LPWSTR; cchText:UINT):MMRESULT; external MIDIDLL name 'midiInGetErrorTextW'; // index
+{$ELSE} // UNICODE
+function midiInGetErrorText(mmrError:MMRESULT; pszText:LPSTR; cchText:UINT):MMRESULT; external MIDIDLL name 'midiInGetErrorTextA'; // index
+{$ENDIF} // UNICODE
+
+{$ELSE} // _WIN32
+function midiInGetDevCaps(uDeviceID:UINT; pmic:LPMIDIINCAPS; cbmic:UINT):MMRESULT; external MIDIDLL name 'midiInGetDevCaps'; // index
+function midiInGetErrorText(mmrError:MMRESULT; pszText:LPSTR; cchText:UINT):MMRESULT; external MIDIDLL name 'midiInGetErrorText'; // index
+{$ENDIF} // _WIN32
+
+function midiInOpen(phmi:LPHMIDIIN; uDeviceID:UINT;
+ dwCallback:DWORD; dwInstance:DWORD; fdwOpen:DWORD):MMRESULT; external MIDIDLL name 'midiInOpen'; // index
+function midiInClose(hmi:HMIDIIN):MMRESULT; external MIDIDLL name 'midiInClose'; // index
+function midiInPrepareHeader(hmi:HMIDIIN; pmh:LPMIDIHDR; cbmh:UINT):MMRESULT; external MIDIDLL name 'midiInPrepareHeader'; // index
+function midiInUnprepareHeader(hmi:HMIDIIN; pmh:LPMIDIHDR; cbmh:UINT):MMRESULT; external MIDIDLL name 'midiInUnprepareHeader'; // index
+function midiInAddBuffer(hmi:HMIDIIN; pmh:LPMIDIHDR; cbmh:UINT):MMRESULT; external MIDIDLL name 'midiInAddBuffer'; // index
+function midiInStart(hmi:HMIDIIN):MMRESULT; external MIDIDLL name 'midiInStart'; // index
+function midiInStop(hmi:HMIDIIN):MMRESULT; external MIDIDLL name 'midiInStop'; // index
+function midiInReset(hmi:HMIDIIN):MMRESULT; external MIDIDLL name 'midiInReset'; // index
+function midiInGetID(hmi:HMIDIIN; puDeviceID:LPUINT):MMRESULT; external MIDIDLL name 'midiInGetID'; // index
+
+{$IFDEF _WIN32}
+function midiInMessage(hmi:HMIDIIN; uMsg:UINT; dw1:DWORD; dw2:DWORD):MMRESULT; external MIDIDLL name 'midiInMessage'; // index
+{$ELSE} // _WIN32
+function midiInMessage(hmi:HMIDIIN; uMsg:UINT; dw1:DWORD; dw2:DWORD):DWORD; external MIDIDLL name 'midiInMessage'; // index
+{$ENDIF} // _WIN32
+
+{$ENDIF} // MMNOMIDI
+
+
+
+{$IFNDEF MMNOMIXER}
+{****************************************************************************
+
+ Mixer Support
+
+****************************************************************************}
+
+type
+ HMIXEROBJ = HANDLE;
+ LPHMIXEROBJ = ^HMIXEROBJ;
+
+ HMIXER = HANDLE;
+ LPHMIXER = ^HMIXER;
+
+const
+ MIXER_SHORT_NAME_CHARS = 16;
+ MIXER_LONG_NAME_CHARS = 64;
+
+//* */
+//* MMRESULT error return values specific to the mixer API */
+//* */
+//* */
+const
+ MIXERR_INVALLINE = MIXERR_BASE + 0;
+ MIXERR_INVALCONTROL = MIXERR_BASE + 1;
+ MIXERR_INVALVALUE = MIXERR_BASE + 2;
+ MIXERR_LASTERROR = MIXERR_BASE + 2;
+
+ MIXER_OBJECTF_HANDLE = $80000000;
+ MIXER_OBJECTF_MIXER = $00000000;
+ MIXER_OBJECTF_HMIXER = MIXER_OBJECTF_HANDLE or MIXER_OBJECTF_MIXER;
+ MIXER_OBJECTF_WAVEOUT = $10000000;
+ MIXER_OBJECTF_HWAVEOUT = MIXER_OBJECTF_HANDLE or MIXER_OBJECTF_WAVEOUT;
+ MIXER_OBJECTF_WAVEIN = $20000000;
+ MIXER_OBJECTF_HWAVEIN = MIXER_OBJECTF_HANDLE or MIXER_OBJECTF_WAVEIN;
+ MIXER_OBJECTF_MIDIOUT = $30000000;
+ MIXER_OBJECTF_HMIDIOUT = MIXER_OBJECTF_HANDLE or MIXER_OBJECTF_MIDIOUT;
+ MIXER_OBJECTF_MIDIIN = $40000000;
+ MIXER_OBJECTF_HMIDIIN = MIXER_OBJECTF_HANDLE or MIXER_OBJECTF_MIDIIN;
+ MIXER_OBJECTF_AUX = $50000000;
+
+function mixerGetNumDevs:UINT; external KernelDLL name 'mixerGetNumDevs'; // index 2AE
+
+type
+ tagMIXERCAPS = record
+ wMid:word; //* manufacturer id */
+ wPid:word; //* product id */
+ vDriverVersion:MMVERSION; //* version of the driver */
+ szPname:array[0..MAXPNAMELEN-1] of TCHAR; //* product name */
+ fdwSupport:DWORD; //* misc. support bits */
+ cDestinations:DWORD; //* count of destinations */
+ end;
+ MIXERCAPS = tagMIXERCAPS;
+ PMIXERCAPS = ^tagMIXERCAPS;
+ LPMIXERCAPS = ^tagMIXERCAPS;
+
+function mixerGetDevCaps(uMxId:UINT; pmxcaps:LPMIXERCAPS; cbmxcaps:UINT):MMRESULT; external KernelDLL name 'mixerGetDevCaps'; // index 2AA
+
+function mixerOpen(phmx:LPHMIXER; uMxId:UINT; dwCallback:DWORD; dwInstance:DWORD; fdwOpen:DWORD):MMRESULT; external KernelDLL name 'mixerOpen'; // index 2B0
+
+function mixerClose(hmx:HMIXER):MMRESULT; external KernelDLL name 'mixerClose'; // index 2B2
+
+function mixerMessage(hmx:HMIXER; uMsg:UINT; dwParam1:DWORD; dwParam2:DWORD):DWORD; external KernelDLL name 'mixerMessage'; // index 2AF
+
+type
+ tMIXERLINE = record
+ cbStruct:DWORD; //* size of MIXERLINE structure */
+ dwDestination:DWORD; //* zero based destination index */
+ dwSource:DWORD; //* zero based source index (if source) */
+ dwLineID:DWORD; //* unique line id for mixer device */
+ fdwLine:DWORD; //* state/information about line */
+ dwUser:DWORD; //* driver specific information */
+ dwComponentType:DWORD; //* component type line connects to */
+ cChannels:DWORD; //* number of channels line supports */
+ cConnections:DWORD; //* number of connections [possible] */
+ cControls:DWORD; //* number of controls at this line */
+ szShortName:array[0..MIXER_SHORT_NAME_CHARS-1] of TCHAR;
+ szName:array[0..MIXER_LONG_NAME_CHARS-1] of TCHAR;
+ Target:record
+ dwType:DWORD; //* MIXERLINE_TARGETTYPE_xxxx */
+ dwDeviceID:DWORD; //* target device ID of device type */
+ wMid:word; //* of target device */
+ wPid:word; //* " */
+ vDriverVersion:MMVERSION; //* " */
+ szPname:array[0..MAXPNAMELEN-1] of TCHAR; //* " */
+ end;
+ end;
+ MIXERLINE = tMIXERLINE;
+ PMIXERLINE = ^tMIXERLINE;
+ LPMIXERLINE = ^tMIXERLINE;
+
+//* */
+//* MIXERLINE.fdwLine */
+//* */
+//* */
+const
+ MIXERLINE_LINEF_ACTIVE = $00000001;
+ MIXERLINE_LINEF_DISCONNECTED = $00008000;
+ MIXERLINE_LINEF_SOURCE = $80000000;
+
+//* */
+//* MIXERLINE.dwComponentType */
+//* */
+//* component types for destinations and sources */
+//* */
+//* */
+ MIXERLINE_COMPONENTTYPE_DST_FIRST = $00000000;
+ MIXERLINE_COMPONENTTYPE_DST_UNDEFINED = MIXERLINE_COMPONENTTYPE_DST_FIRST + 0;
+ MIXERLINE_COMPONENTTYPE_DST_DIGITAL = MIXERLINE_COMPONENTTYPE_DST_FIRST + 1;
+ MIXERLINE_COMPONENTTYPE_DST_LINE = MIXERLINE_COMPONENTTYPE_DST_FIRST + 2;
+ MIXERLINE_COMPONENTTYPE_DST_MONITOR = MIXERLINE_COMPONENTTYPE_DST_FIRST + 3;
+ MIXERLINE_COMPONENTTYPE_DST_SPEAKERS = MIXERLINE_COMPONENTTYPE_DST_FIRST + 4;
+ MIXERLINE_COMPONENTTYPE_DST_HEADPHONES = MIXERLINE_COMPONENTTYPE_DST_FIRST + 5;
+ MIXERLINE_COMPONENTTYPE_DST_TELEPHONE = MIXERLINE_COMPONENTTYPE_DST_FIRST + 6;
+ MIXERLINE_COMPONENTTYPE_DST_WAVEIN = MIXERLINE_COMPONENTTYPE_DST_FIRST + 7;
+ MIXERLINE_COMPONENTTYPE_DST_VOICEIN = MIXERLINE_COMPONENTTYPE_DST_FIRST + 8;
+ MIXERLINE_COMPONENTTYPE_DST_LAST = MIXERLINE_COMPONENTTYPE_DST_FIRST + 8;
+
+ MIXERLINE_COMPONENTTYPE_SRC_FIRST = $00001000;
+ MIXERLINE_COMPONENTTYPE_SRC_UNDEFINED = MIXERLINE_COMPONENTTYPE_SRC_FIRST + 0;
+ MIXERLINE_COMPONENTTYPE_SRC_DIGITAL = MIXERLINE_COMPONENTTYPE_SRC_FIRST + 1;
+ MIXERLINE_COMPONENTTYPE_SRC_LINE = MIXERLINE_COMPONENTTYPE_SRC_FIRST + 2;
+ MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE = MIXERLINE_COMPONENTTYPE_SRC_FIRST + 3;
+ MIXERLINE_COMPONENTTYPE_SRC_SYNTHESIZER = MIXERLINE_COMPONENTTYPE_SRC_FIRST + 4;
+ MIXERLINE_COMPONENTTYPE_SRC_COMPACTDISC = MIXERLINE_COMPONENTTYPE_SRC_FIRST + 5;
+ MIXERLINE_COMPONENTTYPE_SRC_TELEPHONE = MIXERLINE_COMPONENTTYPE_SRC_FIRST + 6;
+ MIXERLINE_COMPONENTTYPE_SRC_PCSPEAKER = MIXERLINE_COMPONENTTYPE_SRC_FIRST + 7;
+ MIXERLINE_COMPONENTTYPE_SRC_WAVEOUT = MIXERLINE_COMPONENTTYPE_SRC_FIRST + 8;
+ MIXERLINE_COMPONENTTYPE_SRC_AUXILIARY = MIXERLINE_COMPONENTTYPE_SRC_FIRST + 9;
+ MIXERLINE_COMPONENTTYPE_SRC_ANALOG = MIXERLINE_COMPONENTTYPE_SRC_FIRST + 10;
+ MIXERLINE_COMPONENTTYPE_SRC_LAST = MIXERLINE_COMPONENTTYPE_SRC_FIRST + 10;
+
+//* */
+//* MIXERLINE.Target.dwType */
+//* */
+//* */
+ MIXERLINE_TARGETTYPE_UNDEFINED = 0;
+ MIXERLINE_TARGETTYPE_WAVEOUT = 1;
+ MIXERLINE_TARGETTYPE_WAVEIN = 2;
+ MIXERLINE_TARGETTYPE_MIDIOUT = 3;
+ MIXERLINE_TARGETTYPE_MIDIIN = 4;
+ MIXERLINE_TARGETTYPE_AUX = 5;
+
+
+function mixerGetLineInfo(hmxobj:HMIXEROBJ; pmxl:LPMIXERLINE; fdwInfo:DWORD):MMRESULT; external KernelDLL name 'mixerGetLineInfo'; // index 2AD
+
+const
+ MIXER_GETLINEINFOF_DESTINATION = $00000000;
+ MIXER_GETLINEINFOF_SOURCE = $00000001;
+ MIXER_GETLINEINFOF_LINEID = $00000002;
+ MIXER_GETLINEINFOF_COMPONENTTYPE = $00000003;
+ MIXER_GETLINEINFOF_TARGETTYPE = $00000004;
+
+ MIXER_GETLINEINFOF_QUERYMASK = $0000000F;
+
+function mixerGetID(hmxobj:HMIXEROBJ; puMxId:LPUINT; fdwId:DWORD):MMRESULT; external KernelDLL name 'mixerGetID'; // index 2AB
+
+//* */
+//* MIXERCONTROL */
+//* */
+//* */
+type
+ tMIXERCONTROL = record
+ cbStruct:DWORD; //* size in bytes of MIXERCONTROL */
+ dwControlID:DWORD; //* unique control id for mixer device */
+ dwControlType:DWORD; //* MIXERCONTROL_CONTROLTYPE_xxx */
+ fdwControl:DWORD; //* MIXERCONTROL_CONTROLF_xxx */
+ cMultipleItems:DWORD; //* if MIXERCONTROL_CONTROLF_MULTIPLE set */
+ szShortName:array[0..MIXER_SHORT_NAME_CHARS-1] of TCHAR;
+ szName:array[0..MIXER_LONG_NAME_CHARS-1] of TCHAR;
+ Bounds:record
+ case DWORD of
+ 0: (lMinimum:LONG; //* signed minimum for this control */
+ lMaximum:LONG); //* signed maximum for this control */
+ 1: (dwMinimum:DWORD; //* unsigned minimum for this control */
+ dwMaximum:DWORD); //* unsigned maximum for this control */
+ 2: (dwReserved:array[0..5] of DWORD);
+ end;
+ Metrics:record
+ case DWORD of
+ 0: (cSteps:DWORD); //* # of steps between min & max */
+ 1: (cbCustomData:DWORD); //* size in bytes of custom data */
+ 2: (dwReserved:array[0..5] of DWORD);
+ end;
+ end;
+ MIXERCONTROL = tMIXERCONTROL;
+ PMIXERCONTROL = ^tMIXERCONTROL;
+ LPMIXERCONTROL = ^tMIXERCONTROL;
+
+const
+//* */
+//* MIXERCONTROL.fdwControl */
+//* */
+//* */
+ MIXERCONTROL_CONTROLF_UNIFORM = $00000001;
+ MIXERCONTROL_CONTROLF_MULTIPLE = $00000002;
+ MIXERCONTROL_CONTROLF_DISABLED = $80000000;
+
+//* */
+//* MIXERCONTROL_CONTROLTYPE_xxx building block defines */
+//* */
+//* */
+ MIXERCONTROL_CT_CLASS_MASK = $F0000000;
+ MIXERCONTROL_CT_CLASS_CUSTOM = $00000000;
+ MIXERCONTROL_CT_CLASS_METER = $10000000;
+ MIXERCONTROL_CT_CLASS_SWITCH = $20000000;
+ MIXERCONTROL_CT_CLASS_NUMBER = $30000000;
+ MIXERCONTROL_CT_CLASS_SLIDER = $40000000;
+ MIXERCONTROL_CT_CLASS_FADER = $50000000;
+ MIXERCONTROL_CT_CLASS_TIME = $60000000;
+ MIXERCONTROL_CT_CLASS_LIST = $70000000;
+
+ MIXERCONTROL_CT_SUBCLASS_MASK = $0F000000;
+
+ MIXERCONTROL_CT_SC_SWITCH_BOOLEAN = $00000000;
+ MIXERCONTROL_CT_SC_SWITCH_BUTTON = $01000000;
+
+ MIXERCONTROL_CT_SC_METER_POLLED = $00000000;
+
+ MIXERCONTROL_CT_SC_TIME_MICROSECS = $00000000;
+ MIXERCONTROL_CT_SC_TIME_MILLISECS = $01000000;
+
+ MIXERCONTROL_CT_SC_LIST_SINGLE = $00000000;
+ MIXERCONTROL_CT_SC_LIST_MULTIPLE = $01000000;
+
+ MIXERCONTROL_CT_UNITS_MASK = $00FF0000;
+ MIXERCONTROL_CT_UNITS_CUSTOM = $00000000;
+ MIXERCONTROL_CT_UNITS_BOOLEAN = $00010000;
+ MIXERCONTROL_CT_UNITS_SIGNED = $00020000;
+ MIXERCONTROL_CT_UNITS_UNSIGNED = $00030000;
+ MIXERCONTROL_CT_UNITS_DECIBELS = $00040000; //* in 10ths */
+ MIXERCONTROL_CT_UNITS_PERCENT = $00050000; //* in 10ths */
+
+//* */
+//* Commonly used control types for specifying MIXERCONTROL.dwControlType */
+//* */
+
+ MIXERCONTROL_CONTROLTYPE_CUSTOM = MIXERCONTROL_CT_CLASS_CUSTOM or MIXERCONTROL_CT_UNITS_CUSTOM;
+ MIXERCONTROL_CONTROLTYPE_BOOLEANMETER = MIXERCONTROL_CT_CLASS_METER or MIXERCONTROL_CT_SC_METER_POLLED or MIXERCONTROL_CT_UNITS_BOOLEAN;
+ MIXERCONTROL_CONTROLTYPE_SIGNEDMETER = MIXERCONTROL_CT_CLASS_METER or MIXERCONTROL_CT_SC_METER_POLLED or MIXERCONTROL_CT_UNITS_SIGNED;
+ MIXERCONTROL_CONTROLTYPE_PEAKMETER = MIXERCONTROL_CONTROLTYPE_SIGNEDMETER + 1;
+ MIXERCONTROL_CONTROLTYPE_UNSIGNEDMETER = MIXERCONTROL_CT_CLASS_METER or MIXERCONTROL_CT_SC_METER_POLLED or MIXERCONTROL_CT_UNITS_UNSIGNED;
+ MIXERCONTROL_CONTROLTYPE_BOOLEAN = MIXERCONTROL_CT_CLASS_SWITCH or MIXERCONTROL_CT_SC_SWITCH_BOOLEAN or MIXERCONTROL_CT_UNITS_BOOLEAN;
+ MIXERCONTROL_CONTROLTYPE_ONOFF = MIXERCONTROL_CONTROLTYPE_BOOLEAN + 1;
+ MIXERCONTROL_CONTROLTYPE_MUTE = MIXERCONTROL_CONTROLTYPE_BOOLEAN + 2;
+ MIXERCONTROL_CONTROLTYPE_MONO = MIXERCONTROL_CONTROLTYPE_BOOLEAN + 3;
+ MIXERCONTROL_CONTROLTYPE_LOUDNESS = MIXERCONTROL_CONTROLTYPE_BOOLEAN + 4;
+ MIXERCONTROL_CONTROLTYPE_STEREOENH = MIXERCONTROL_CONTROLTYPE_BOOLEAN + 5;
+
+// - mmreg.h
+ MIXERCONTROL_CONTROLTYPE_SRS_MTS = MIXERCONTROL_CONTROLTYPE_BOOLEAN + 6;
+ MIXERCONTROL_CONTROLTYPE_SRS_ONOFF = MIXERCONTROL_CONTROLTYPE_BOOLEAN + 7;
+ MIXERCONTROL_CONTROLTYPE_SRS_SYNTHSELECT = MIXERCONTROL_CONTROLTYPE_BOOLEAN + 8;
+// - end of mmreg.h
+
+ MIXERCONTROL_CONTROLTYPE_BUTTON = MIXERCONTROL_CT_CLASS_SWITCH or MIXERCONTROL_CT_SC_SWITCH_BUTTON or MIXERCONTROL_CT_UNITS_BOOLEAN;
+ MIXERCONTROL_CONTROLTYPE_DECIBELS = MIXERCONTROL_CT_CLASS_NUMBER or MIXERCONTROL_CT_UNITS_DECIBELS;
+ MIXERCONTROL_CONTROLTYPE_SIGNED = MIXERCONTROL_CT_CLASS_NUMBER or MIXERCONTROL_CT_UNITS_SIGNED;
+ MIXERCONTROL_CONTROLTYPE_UNSIGNED = MIXERCONTROL_CT_CLASS_NUMBER or MIXERCONTROL_CT_UNITS_UNSIGNED;
+ MIXERCONTROL_CONTROLTYPE_PERCENT = MIXERCONTROL_CT_CLASS_NUMBER or MIXERCONTROL_CT_UNITS_PERCENT;
+ MIXERCONTROL_CONTROLTYPE_SLIDER = MIXERCONTROL_CT_CLASS_SLIDER or MIXERCONTROL_CT_UNITS_SIGNED;
+ MIXERCONTROL_CONTROLTYPE_PAN = MIXERCONTROL_CONTROLTYPE_SLIDER + 1;
+ MIXERCONTROL_CONTROLTYPE_QSOUNDPAN = MIXERCONTROL_CONTROLTYPE_SLIDER + 2;
+ MIXERCONTROL_CONTROLTYPE_FADER = MIXERCONTROL_CT_CLASS_FADER or MIXERCONTROL_CT_UNITS_UNSIGNED;
+ MIXERCONTROL_CONTROLTYPE_VOLUME = MIXERCONTROL_CONTROLTYPE_FADER + 1;
+ MIXERCONTROL_CONTROLTYPE_BASS = MIXERCONTROL_CONTROLTYPE_FADER + 2;
+ MIXERCONTROL_CONTROLTYPE_TREBLE = MIXERCONTROL_CONTROLTYPE_FADER + 3;
+ MIXERCONTROL_CONTROLTYPE_EQUALIZER = MIXERCONTROL_CONTROLTYPE_FADER + 4;
+ MIXERCONTROL_CONTROLTYPE_SINGLESELECT = MIXERCONTROL_CT_CLASS_LIST or MIXERCONTROL_CT_SC_LIST_SINGLE or MIXERCONTROL_CT_UNITS_BOOLEAN;
+ MIXERCONTROL_CONTROLTYPE_MUX = MIXERCONTROL_CONTROLTYPE_SINGLESELECT + 1;
+ MIXERCONTROL_CONTROLTYPE_MULTIPLESELECT = MIXERCONTROL_CT_CLASS_LIST or MIXERCONTROL_CT_SC_LIST_MULTIPLE or MIXERCONTROL_CT_UNITS_BOOLEAN;
+ MIXERCONTROL_CONTROLTYPE_MIXER = MIXERCONTROL_CONTROLTYPE_MULTIPLESELECT + 1;
+ MIXERCONTROL_CONTROLTYPE_MICROTIME = MIXERCONTROL_CT_CLASS_TIME or MIXERCONTROL_CT_SC_TIME_MICROSECS or MIXERCONTROL_CT_UNITS_UNSIGNED;
+ MIXERCONTROL_CONTROLTYPE_MILLITIME = MIXERCONTROL_CT_CLASS_TIME or MIXERCONTROL_CT_SC_TIME_MILLISECS or MIXERCONTROL_CT_UNITS_UNSIGNED;
+
+//* */
+//* MIXERLINECONTROLS */
+//* */
+type
+ tMIXERLINECONTROLS = record
+ cbStruct:DWORD; //* size in bytes of MIXERLINECONTROLS */
+ dwLineID:DWORD; //* line id (from MIXERLINE.dwLineID) */
+ case DWORD of
+ 0: (dwControlID:DWORD); //* MIXER_GETLINECONTROLSF_ONEBYID */
+ 1: (dwControlType:DWORD; //* MIXER_GETLINECONTROLSF_ONEBYTYPE */
+ cControls:DWORD; //* count of controls pmxctrl points to */
+ cbmxctrl:DWORD; //* size in bytes of _one_ MIXERCONTROL */
+ pamxctrl:LPMIXERCONTROL); //* pointer to first MIXERCONTROL array */
+ end;
+ MIXERLINECONTROLS = tMIXERLINECONTROLS;
+ PMIXERLINECONTROLS = ^tMIXERLINECONTROLS;
+ LPMIXERLINECONTROLS = ^tMIXERLINECONTROLS;
+
+function mixerGetLineControls(hmxobj:HMIXEROBJ; pmxlc:LPMIXERLINECONTROLS; fdwControls:DWORD):MMRESULT; external KernelDLL name 'mixerGetLineControls'; // index 2AC
+
+const
+ MIXER_GETLINECONTROLSF_ALL = $00000000;
+ MIXER_GETLINECONTROLSF_ONEBYID = $00000001;
+ MIXER_GETLINECONTROLSF_ONEBYTYPE = $00000002;
+
+ MIXER_GETLINECONTROLSF_QUERYMASK = $0000000F;
+
+type
+ tMIXERCONTROLDETAILS = record
+ cbStruct:DWORD; //* size in bytes of MIXERCONTROLDETAILS */
+ dwControlID:DWORD; //* control id to get/set details on */
+ cChannels:DWORD; //* number of channels in paDetails array */
+ case DWORD of
+ 0: (hwndOwner:HWND); //* for MIXER_SETCONTROLDETAILSF_CUSTOM */
+ 1: (cMultipleItems:DWORD; //* if _MULTIPLE, the number of items per channel */
+ cbDetails:DWORD; //* size of _one_ details_XX struct */
+ paDetails:LPVOID); //* pointer to array of details_XX structs */
+ end;
+ MIXERCONTROLDETAILS = tMIXERCONTROLDETAILS;
+ PMIXERCONTROLDETAILS = ^tMIXERCONTROLDETAILS;
+ LPMIXERCONTROLDETAILS = ^tMIXERCONTROLDETAILS;
+
+//* */
+//* MIXER_GETCONTROLDETAILSF_LISTTEXT */
+//* */
+//* */
+type
+ tMIXERCONTROLDETAILS_LISTTEXT = record
+ dwParam1:DWORD;
+ dwParam2:DWORD;
+ szName:array[0..MIXER_LONG_NAME_CHARS-1] of TCHAR;
+ end;
+ MIXERCONTROLDETAILS_LISTTEXT = tMIXERCONTROLDETAILS_LISTTEXT;
+ PMIXERCONTROLDETAILS_LISTTEXT = ^tMIXERCONTROLDETAILS_LISTTEXT;
+ LPMIXERCONTROLDETAILS_LISTTEXT = ^tMIXERCONTROLDETAILS_LISTTEXT;
+
+//* */
+//* MIXER_GETCONTROLDETAILSF_VALUE */
+//* */
+//* */
+type
+ tMIXERCONTROLDETAILS_BOOLEAN = record
+ fValue:LONG;
+ end;
+ MIXERCONTROLDETAILS_BOOLEAN = tMIXERCONTROLDETAILS_BOOLEAN;
+ PMIXERCONTROLDETAILS_BOOLEAN = ^tMIXERCONTROLDETAILS_BOOLEAN;
+ LPMIXERCONTROLDETAILS_BOOLEAN = ^tMIXERCONTROLDETAILS_BOOLEAN;
+
+type
+ tMIXERCONTROLDETAILS_SIGNED = record
+ lValue:LONG;
+ end;
+ MIXERCONTROLDETAILS_SIGNED = tMIXERCONTROLDETAILS_SIGNED;
+ PMIXERCONTROLDETAILS_SIGNED = ^tMIXERCONTROLDETAILS_SIGNED;
+ LPMIXERCONTROLDETAILS_SIGNED = ^tMIXERCONTROLDETAILS_SIGNED;
+
+type
+ tMIXERCONTROLDETAILS_UNSIGNED = record
+ dwValue:DWORD;
+ end;
+ MIXERCONTROLDETAILS_UNSIGNED = tMIXERCONTROLDETAILS_UNSIGNED;
+ PMIXERCONTROLDETAILS_UNSIGNED = ^tMIXERCONTROLDETAILS_UNSIGNED;
+ LPMIXERCONTROLDETAILS_UNSIGNED = ^tMIXERCONTROLDETAILS_UNSIGNED;
+
+function mixerGetControlDetails(hmxobj:HMIXEROBJ; pmxcd:LPMIXERCONTROLDETAILS; fdwDetails:DWORD):MMRESULT; external KernelDLL name 'mixerGetControlDetails'; // index 2A9
+
+const
+ MIXER_GETCONTROLDETAILSF_VALUE = $00000000;
+ MIXER_GETCONTROLDETAILSF_LISTTEXT = $00000001;
+
+ MIXER_GETCONTROLDETAILSF_QUERYMASK = $0000000F;
+
+function mixerSetControlDetails(hmxobj:HMIXEROBJ; pmxcd:LPMIXERCONTROLDETAILS; fdwDetails:DWORD):MMRESULT; external KernelDLL name 'mixerSetControlDetails'; // index 2B1
+
+const
+ MIXER_SETCONTROLDETAILSF_VALUE = $00000000;
+ MIXER_SETCONTROLDETAILSF_CUSTOM = $00000001;
+
+ MIXER_SETCONTROLDETAILSF_QUERYMASK = $0000000F;
+
+{$ENDIF} // MMNOMIXER
+
+
+{$IFNDEF MMNOTIMER}
+{****************************************************************************
+
+ Timer support
+
+****************************************************************************}
+
+//* timer error return values */
+const
+ TIMERR_NOERROR = 0; //* no error */
+ TIMERR_NOCANDO = TIMERR_BASE+1; //* request not completed */
+ TIMERR_STRUCT = TIMERR_BASE+33; //* time struct size */
+
+//* timer data types */
+type
+ TIMECALLBACK = procedure(uTimerID:UINT; uMsg:UINT; dwUser:DWORD; dw1:DWORD; dw2:DWORD); cdecl;
+ LPTIMECALLBACK = TIMECALLBACK;
+
+//* flags for fuEvent parameter of timeSetEvent() function */
+const
+ TIME_ONESHOT = $0000; //* program timer for single event */
+ TIME_PERIODIC = $0001; //* program for continuous periodic event */
+
+{.$IFDEF _WIN32}
+ TIME_CALLBACK_FUNCTION = $0000; //* callback is function */
+ TIME_CALLBACK_EVENT_SET = $0010; //* callback is event - use SetEvent */
+ TIME_CALLBACK_EVENT_PULSE = $0020; //* callback is event - use PulseEvent */
+ TIME_CALLBACK_TYPEMASK = $00F0; //* Internal */
+{.$ENDIF} // _WIN32
+
+
+//* timer device capabilities data structure */
+type
+ timecaps_tag = record
+ wPeriodMin:UINT; //* minimum period supported */
+ wPeriodMax:UINT; //* maximum period supported */
+ end;
+ TIMECAPS = timecaps_tag;
+ PTIMECAPS = ^timecaps_tag;
+ NPTIMECAPS = ^timecaps_tag;
+ LPTIMECAPS = ^timecaps_tag;
+
+{$IFDEF _WIN32}
+const
+ MMTimerDLL = 'winmm.dll';
+{$ELSE _WIN32}
+const
+ MMTimerDLL = 'mmtimer.dll';
+{$ENDIF _WIN32}
+
+//* timer function prototypes */
+function timeGetSystemTime(pmmt:LPMMTIME; cbmmt:UINT):MMRESULT; external MMTimerDLL name 'timeGetSystemTime'; // index
+function timeGetTime:DWORD; external MMTimerDLL name 'timeGetTime'; // index
+function timeSetEvent(uDelay:UINT;
+ uResolution:UINT;
+ fptc:LPTIMECALLBACK;
+ dwUser:DWORD;
+ fuEvent:UINT):MMRESULT; external MMTimerDLL name 'timeSetEvent'; // index
+function timeKillEvent(uTimerID:UINT):MMRESULT; external MMTimerDLL name 'timeKillEvent'; // index
+function timeGetDevCaps(ptc:LPTIMECAPS; cbtc:UINT):MMRESULT; external MMTimerDLL name 'timeGetDevCaps'; // index
+function timeBeginPeriod(uPeriod:UINT):MMRESULT; external MMTimerDLL name 'timeBeginPeriod'; // index
+function timeEndPeriod(uPeriod:UINT):MMRESULT; external MMTimerDLL name 'timeEndPeriod'; // index
+function timeGetTimeSinceInterrupt:DWORD; external MMTimerDLL name 'timeGetTimeSinceInterrupt'; // index
+function timeGetHardwareFrequency:DWORD; external MMTimerDLL name 'timeGetHardwareFrequency'; // index
+
+{$ENDIF} // MMNOTIMER
+
+
+{$IFNDEF MMNOMMIO}
+{****************************************************************************
+
+ Multimedia File I/O support
+
+****************************************************************************}
+
+const
+//* MMIO error return values */
+ MMIOERR_BASE = 256;
+ MMIOERR_FILENOTFOUND = MMIOERR_BASE + 1; //* file not found */
+ MMIOERR_OUTOFMEMORY = MMIOERR_BASE + 2; //* out of memory */
+ MMIOERR_CANNOTOPEN = MMIOERR_BASE + 3; //* cannot open */
+ MMIOERR_CANNOTCLOSE = MMIOERR_BASE + 4; //* cannot close */
+ MMIOERR_CANNOTREAD = MMIOERR_BASE + 5; //* cannot read */
+ MMIOERR_CANNOTWRITE = MMIOERR_BASE + 6; //* cannot write */
+ MMIOERR_CANNOTSEEK = MMIOERR_BASE + 7; //* cannot seek */
+ MMIOERR_CANNOTEXPAND = MMIOERR_BASE + 8; //* cannot expand file */
+ MMIOERR_CHUNKNOTFOUND = MMIOERR_BASE + 9; //* chunk not found */
+ MMIOERR_UNBUFFERED = MMIOERR_BASE + 10; //* */
+ MMIOERR_PATHNOTFOUND = MMIOERR_BASE + 11; //* path incorrect */
+ MMIOERR_ACCESSDENIED = MMIOERR_BASE + 12; //* file was protected */
+ MMIOERR_SHARINGVIOLATION = MMIOERR_BASE + 13; //* file in use */
+ MMIOERR_NETWORKERROR = MMIOERR_BASE + 14; //* network not responding */
+ MMIOERR_TOOMANYOPENFILES = MMIOERR_BASE + 15; //* no more file handles */
+ MMIOERR_INVALIDFILE = MMIOERR_BASE + 16; //* default error file error */
+
+//* MMIO constants */
+ CFSEPCHAR = '+'; //* compound file name separator char. */
+
+//* MMIO data types */
+type
+ HPSTR = ^char; //* a huge version of LPSTR */
+
+ HMMIO = HANDLE; //* a handle to an open file */
+
+type
+ MMIOPROC = function(lpmmioinfo:LPSTR; uMsg:UINT; lParam1:LPARAM; lParam2:LPARAM):LRESULT; cdecl;
+ LPMMIOPROC = MMIOPROC;
+
+//* general MMIO information data structure */
+type
+ _MMIOINFO = record
+ //* general fields */
+ dwFlags:DWORD; //* general status flags */
+ fccIOProc:FOURCC; //* pointer to I/O procedure */
+ pIOProc:LPMMIOPROC; //* pointer to I/O procedure */
+ wErrorRet:UINT; //* place for error to be returned */
+ htask:HTASK; //* alternate local task */
+
+ //* fields maintained by MMIO functions during buffered I/O */
+ cchBuffer:LONG; //* size of I/O buffer (or 0L) */
+ pchBuffer:HPSTR; //* start of I/O buffer (or NULL) */
+ pchNext:HPSTR; //* pointer to next byte to read/write */
+ pchEndRead:HPSTR; //* pointer to last valid byte to read */
+ pchEndWrite:HPSTR; //* pointer to last byte to write */
+ lBufOffset:LONG; //* disk offset of start of buffer */
+
+ //* fields maintained by I/O procedure */
+ lDiskOffset:LONG; //* disk offset of next read or write */
+ adwInfo:array[0..2] of DWORD; //* data specific to type of MMIOPROC */
+
+ //* other fields maintained by MMIO */
+ dwReserved1:DWORD; //* reserved for MMIO use */
+ dwReserved2:DWORD; //* reserved for MMIO use */
+ hmmio:HMMIO; //* handle to open file */
+ end;
+ MMIOINFO = _MMIOINFO;
+ PMMIOINFO = ^_MMIOINFO;
+ NPMMIOINFO = ^_MMIOINFO;
+ LPMMIOINFO = ^_MMIOINFO;
+ LPCMMIOINFO = ^MMIOINFO;
+
+//* RIFF chunk information data structure */
+type
+ _MMCKINFO = record
+ ckid:FOURCC; //* chunk ID */
+ cksize:DWORD; //* chunk size */
+ fccType:FOURCC; //* form type or list type */
+ dwDataOffset:DWORD; //* offset of data portion of chunk */
+ dwFlags:DWORD; //* flags used by MMIO functions */
+ end;
+ MMCKINFO = _MMCKINFO;
+ PMMCKINFO = ^_MMCKINFO;
+ NPMMCKINFO = ^_MMCKINFO;
+ LPMMCKINFO = ^_MMCKINFO;
+ LPCMMCKINFO = ^MMCKINFO;
+
+const
+//* bit field masks */
+ MMIO_RWMODE = $00000003; //* open file for reading/writing/both */
+ MMIO_SHAREMODE = $00000070; //* file sharing mode number */
+
+//* read/write mode numbers (bit field MMIO_RWMODE) */
+ MMIO_READ = $00000000; //* open file for reading only */
+ MMIO_WRITE = $00000001; //* open file for writing only */
+ MMIO_READWRITE = $00000002; //* open file for reading and writing */
+
+//* various MMIO flags */
+ MMIO_FHOPEN = $0010; //* mmioClose: keep file handle open */
+ MMIO_EMPTYBUF = $0010; //* mmioFlush: empty the I/O buffer */
+ MMIO_TOUPPER = $0010; //* mmioStringToFOURCC: to u-case */
+ MMIO_INSTALLPROC = $00010000; //* mmioInstallIOProc: install MMIOProc */
+ MMIO_GLOBALPROC = $10000000; //* mmioInstallIOProc: install globally */
+ MMIO_REMOVEPROC = $00020000; //* mmioInstallIOProc: remove MMIOProc */
+ MMIO_UNICODEPROC = $01000000; //* mmioInstallIOProc: Unicode MMIOProc */
+ MMIO_FINDPROC = $00040000; //* mmioInstallIOProc: find an MMIOProc */
+ MMIO_FINDCHUNK = $0010; //* mmioDescend: find a chunk by ID */
+ MMIO_FINDRIFF = $0020; //* mmioDescend: find a LIST chunk */
+ MMIO_FINDLIST = $0040; //* mmioDescend: find a RIFF chunk */
+ MMIO_CREATERIFF = $0020; //* mmioCreateChunk: make a LIST chunk */
+ MMIO_CREATELIST = $0040; //* mmioCreateChunk: make a RIFF chunk */
+
+ MMIO_VALIDPROC = $10070000; //* valid for mmioInstallIOProc */ /* Internal */
+
+//* constants for dwFlags field of MMIOINFO */
+ MMIO_CREATE = $00001000; //* create new file (or truncate file) */
+ MMIO_PARSE = $00000100; //* parse new file returning path */
+ MMIO_DELETE = $00000200; //* create new file (or truncate file) */
+ MMIO_EXIST = $00004000; //* checks for existence of file */
+ MMIO_ALLOCBUF = $00010000; //* mmioOpen() should allocate a buffer */
+ MMIO_GETTEMP = $00020000; //* mmioOpen() should retrieve temp name */
+
+ MMIO_DIRTY = $10000000; //* I/O buffer is dirty */
+
+ MMIO_OPEN_VALID = $0003FFFF; //* valid flags for mmioOpen */ /* Internal */
+ MMIO_FLUSH_VALID = MMIO_EMPTYBUF; //* valid flags for mmioFlush */ /* Internal */
+ MMIO_ADVANCE_VALID = MMIO_WRITE or MMIO_READ; //* valid flags for mmioAdvance */ /* Internal */
+ MMIO_FOURCC_VALID = MMIO_TOUPPER; //* valid flags for mmioStringToFOURCC */ /* Internal */
+ MMIO_DESCEND_VALID = MMIO_FINDCHUNK or MMIO_FINDRIFF or MMIO_FINDLIST; //* Internal */
+ MMIO_CREATE_VALID = MMIO_CREATERIFF or MMIO_CREATELIST; //* Internal */
+
+//* share mode numbers (bit field MMIO_SHAREMODE) */
+ MMIO_COMPAT = $00000000; //* compatibility mode */
+ MMIO_EXCLUSIVE = $00000010; //* exclusive-access mode */
+ MMIO_DENYWRITE = $00000020; //* deny writing to other processes */
+ MMIO_DENYREAD = $00000030; //* deny reading to other processes */
+ MMIO_DENYNONE = $00000040; //* deny nothing to other processes */
+
+//* message numbers for MMIOPROC I/O procedure functions */
+ MMIOM_READ = MMIO_READ; //* read */
+ MMIOM_WRITE = MMIO_WRITE; //* write */
+ MMIOM_SEEK = 2; //* seek to a new position in file */
+ MMIOM_OPEN = 3; //* open file */
+ MMIOM_CLOSE = 4; //* close file */
+ MMIOM_WRITEFLUSH = 5; //* write and flush */
+
+ MMIOM_RENAME = 6; //* rename specified file */
+
+ MMIOM_USER = $8000; //* beginning of user-defined messages */
+
+//* standard four character codes */
+const
+ FOURCC_RIFF = FOURCC(byte(AnsiChar('R')) or
+ (byte(AnsiChar('I')) shl 8) or
+ (byte(AnsiChar('F')) shl 16) or
+ (byte(AnsiChar('F')) shl 24)
+ );
+
+
+ FOURCC_LIST = FOURCC(byte(AnsiChar('L')) or
+ (byte(AnsiChar('I')) shl 8) or
+ (byte(AnsiChar('S')) shl 16) or
+ (byte(AnsiChar('T')) shl 24)
+ );
+
+//* four character codes used to identify standard built-in I/O procedures */
+ FOURCC_DOS = FOURCC(byte(AnsiChar('D')) or
+ (byte(AnsiChar('O')) shl 8) or
+ (byte(AnsiChar('S')) shl 16) or
+ (byte(AnsiChar(' ')) shl 24)
+ );
+
+ FOURCC_MEM = FOURCC(byte(AnsiChar('M')) or
+ (byte(AnsiChar('E')) shl 8) or
+ (byte(AnsiChar('M')) shl 16) or
+ (byte(AnsiChar(' ')) shl 24)
+ );
+
+//* flags for mmioSeek() */
+const
+ SEEK_SET = 0; //* seek to an absolute position */
+ SEEK_CUR = 1; //* seek relative to current position */
+ SEEK_END = 2; //* seek relative to end of file */
+
+//* other constants */
+const
+ MMIO_DEFAULTBUFFER = 8192; //* default buffer size */
+
+{$ENDIF} // MMNOMMIO
+
+{$PACKRECORDS DEFAULT} // #include "poppack.h" /* Revert to default packing */
+
+implementation
+
+{ Was declared as
+ MAKEFOURCC(ch0, ch1, ch2, ch3) \
+ ((DWORD)(BYTE)(ch0) | ((DWORD)(BYTE)(ch1) << 8) | \
+ ((DWORD)(BYTE)(ch2) << 16) | ((DWORD)(BYTE)(ch3) << 24 ))
+
+ mmioFOURCC(ch0, ch1, ch2, ch3) MAKEFOURCC(ch0, ch1, ch2, ch3)
+}
+function MAKEFOURCC(ch0:AnsiChar; ch1:AnsiChar; ch2:AnsiChar; ch3:AnsiChar):FOURCC; inline;
+begin
+ MAKEFOURCC:=DWORD(ch0) or
+ (DWORD(ch1) shl 8) or
+ (DWORD(ch2) shl 16) or
+ (DWORD(ch3) shl 24);
+end;
+
+function mmioFOURCC(ch0:AnsiChar; ch1:AnsiChar; ch2:AnsiChar; ch3:AnsiChar):FOURCC;
+begin
+ mmioFOURCC:=MAKEFOURCC(ch0,ch1,ch2,ch3);
+end;
+
+{ Was declared as
+#define sndAlias( ch0, ch1 ) \
+ ( SND_ALIAS_START + (DWORD)(BYTE)(ch0) | ( (DWORD)(BYTE)(ch1) << 8 ))
+}
+function sndAlias(ch0:AnsiChar; ch1:AnsiChar):DWORD; inline;
+begin
+ sndAlias:=SND_ALIAS_START+(DWORD(ch0) or (DWORD(ch1) shl 8));
+end;
+
+function MEVT_EVENTTYPE(x:DWORD):byte; inline;
+begin
+ MEVT_EVENTTYPE:=byte(((x shr 24) and $FF));
+end;
+
+function MEVT_EVENTPARM(x:DWORD):DWORD; inline;
+begin
+ MEVT_EVENTPARM:=DWORD(x and $00FFFFFF);
+end;
+
+{$IFNDEF MMNOMIDI}
+function MIDIPROP_PROPERTY(mp:DWORD):DWORD; inline;
+begin
+ MIDIPROP_PROPERTY:=mp and (not (MIDIPROP_SET or MIDIPROP_GET));
+end;
+
+function SMF_TIMEDIV(format:DWORD; division:DWORD):DWORD; inline;
+begin
+ SMF_TIMEDIV:=(format shr 15) or division;
+end;
+
+function SMF_TIMEDIV_SMPTE(smpte:DWORD; division:DWORD):DWORD; inline;
+begin
+ SMF_TIMEDIV_SMPTE:=(smpte shl 8) or division;
+end;
+
+function SMF_TIMEDIV_ISSMPTE(dw:DWORD):DWORD; inline;
+begin
+ SMF_TIMEDIV_ISSMPTE:=dw shr 15;
+end;
+
+function SMF_TIMEDIV_GETSMPTE(dw:DWORD):byte; inline;
+begin
+ SMF_TIMEDIV_GETSMPTE:=byte((dw shr 8) and $ff);
+end;
+
+function SMF_TIMEDIV_GETTPF(dw:DWORD):DWORD; inline;
+begin
+ SMF_TIMEDIV_GETTPF:=dw and $ff;
+end;
+
+function SMF_TIMEDIV_GETTPQN(dw:DWORD):DWORD; inline;
+begin
+ SMF_TIMEDIV_GETTPQN:=dw and $7fff;
+end;
+
+{$ENDIF MMNOMIDI}
+
+end. \ No newline at end of file
diff --git a/packages/winceunits/src/msacm.pp b/packages/winceunits/src/msacm.pp
new file mode 100644
index 0000000000..ddebfc2752
--- /dev/null
+++ b/packages/winceunits/src/msacm.pp
@@ -0,0 +1,1169 @@
+// -----------------------------------------------------------------------------
+//
+// msacm.h Audio Compression Manager Public Header File
+//
+// -----------------------------------------------------------------------------
+
+//
+// Microsoft Windows Mobile 6.0 for PocketPC SDK.
+//
+
+unit msacm;
+
+{$CALLING cdecl}
+{$PACKRECORDS 1} // #pragma pack(1) /* Assume byte packing throughout */
+
+interface
+
+uses Windows, mmreg;
+
+//
+// there are four types of 'handles' used by the ACM. the first three
+// are unique types that define specific objects:
+//
+// HACMDRIVERID: used to _identify_ an ACM driver. this identifier can be
+// used to _open_ the driver for querying details, etc about the driver.
+//
+// HACMDRIVER: used to manage a driver (codec, filter, etc). this handle
+// is much like a handle to other media drivers--you use it to send
+// messages to the converter, query for capabilities, etc.
+//
+// HACMSTREAM: used to manage a 'stream' (conversion channel) with the
+// ACM. you use a stream handle to convert data from one format/type
+// to another--much like dealing with a file handle.
+//
+//
+// the fourth handle type is a generic type used on ACM functions that
+// can accept two or more of the above handle types (for example the
+// acmMetrics and acmDriverID functions).
+//
+// HACMOBJ: used to identify ACM objects. this handle is used on functions
+// that can accept two or more ACM handle types.
+//
+type
+ HACMDRIVERID = HANDLE;
+ PHACMDRIVERID = ^HACMDRIVERID;
+ LPHACMDRIVERID = ^HACMDRIVERID;
+
+ HACMDRIVER = HANDLE;
+ PHACMDRIVER = ^HACMDRIVER;
+ LPHACMDRIVER = ^HACMDRIVER;
+
+ HACMSTREAM = HANDLE;
+ PHACMSTREAM = ^HACMSTREAM;
+ LPHACMSTREAM = ^HACMSTREAM;
+
+ HACMOBJ = HANDLE;
+ PHACMOBJ = ^HACMOBJ;
+ LPHACMOBJ = ^HACMOBJ;
+
+
+// - Module: msacmdrv.h
+// -----------------------------------------------------------------------------
+//
+// Audio Compression Manager Public Header File for Drivers
+//
+// -----------------------------------------------------------------------------
+
+const
+// Driver messages
+ DRV_LOAD = $0001;
+ DRV_ENABLE = $0002;
+ DRV_OPEN = $0003;
+ DRV_CLOSE = $0004;
+ DRV_DISABLE = $0005;
+ DRV_FREE = $0006;
+ DRV_CONFIGURE = $0007;
+ DRV_QUERYCONFIGURE = $0008;
+ DRV_INSTALL = $0009;
+ DRV_REMOVE = $000A;
+ DRV_EXITSESSION = $000B;
+ DRV_POWER = $000F;
+ DRV_RESERVED = $0800;
+ DRV_USER = $4000;
+
+type
+ DRVCONFIGINFOEX = record
+ dwDCISize:DWORD;
+ lpszDCISectionName:LPCWSTR;
+ lpszDCIAliasName:LPCWSTR;
+ dnDevNode:DWORD;
+ end;
+ PDRVCONFIGINFOEX = ^DRVCONFIGINFOEX;
+ NPDRVCONFIGINFOEX = ^DRVCONFIGINFOEX;
+ LPDRVCONFIGINFOEX = ^DRVCONFIGINFOEX;
+
+// LPARAM of DRV_CONFIGURE message
+type
+ tagDRVCONFIGINFO = record
+ dwDCISize:DWORD;
+ lpszDCISectionName:LPCWSTR;
+ lpszDCIAliasName:LPCWSTR;
+ end;
+ DRVCONFIGINFO = tagDRVCONFIGINFO;
+ PDRVCONFIGINFO = ^tagDRVCONFIGINFO;
+ NPDRVCONFIGINFO = ^tagDRVCONFIGINFO;
+ LPDRVCONFIGINFO = ^tagDRVCONFIGINFO;
+
+// Supported return values for DRV_CONFIGURE message
+const
+ DRVCNF_CANCEL = $0000;
+ DRVCNF_OK = $0001;
+ DRVCNF_RESTART = $0002;
+
+// return values from DriverProc() function
+const
+ DRV_CANCEL = DRVCNF_CANCEL;
+ DRV_OK = DRVCNF_OK;
+ DRV_RESTART = DRVCNF_RESTART;
+
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+//
+// ACM Driver Version:
+//
+// the version is a 32 bit number that is broken into three parts as
+// follows:
+//
+// bits 24 - 31: 8 bit _major_ version number
+// bits 16 - 23: 8 bit _minor_ version number
+// bits 0 - 15: 16 bit build number
+//
+// this is then displayed as follows:
+//
+// bMajor = (BYTE)(dwVersion >> 24)
+// bMinor = (BYTE)(dwVersion >> 16) &
+// wBuild = LOWORD(dwVersion)
+//
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+function MAKE_ACM_VERSION(mjr:byte; mnr:byte; bld:word):DWORD;
+
+{$DEFINE ACMDRVOPENDESC_SECTIONNAME_CHARS}
+
+type
+ tACMDRVOPENDESC = record
+ cbStruct:DWORD; // sizeof(ACMDRVOPENDESC)
+ fccType:FOURCC; // 'audc'
+ fccComp:FOURCC; // sub-type (not used--must be 0)
+ dwVersion:DWORD; // current version of ACM opening you
+ dwFlags:DWORD; //
+ dwError:DWORD; // result from DRV_OPEN request
+ pszSectionName:LPCTSTR; // see DRVCONFIGINFO.lpszDCISectionName
+ pszAliasName:LPCTSTR; // see DRVCONFIGINFO.lpszDCIAliasName
+ dnDevNode:DWORD; // devnode id for pnp drivers.
+ end;
+ ACMDRVOPENDESC = tACMDRVOPENDESC;
+ PACMDRVOPENDESC = ^tACMDRVOPENDESC;
+ LPACMDRVOPENDESC = ^tACMDRVOPENDESC;
+
+type
+ tACMDRVSTREAMINSTANCE = record
+ cbStruct:DWORD;
+ pwfxSrc:LPWAVEFORMATEX;
+ pwfxDst:LPWAVEFORMATEX;
+ pwfltr:LPWAVEFILTER;
+ dwCallback:DWORD;
+ dwInstance:DWORD;
+ fdwOpen:DWORD;
+ fdwDriver:DWORD;
+ dwDriver:DWORD;
+ has:HACMSTREAM;
+ end;
+ ACMDRVSTREAMINSTANCE = tACMDRVSTREAMINSTANCE;
+ PACMDRVSTREAMINSTANCE = ^tACMDRVSTREAMINSTANCE;
+ LPACMDRVSTREAMINSTANCE = ^tACMDRVSTREAMINSTANCE;
+
+//
+// NOTE! this structure must match the ACMSTREAMHEADER in msacm.h but
+// defines more information for the driver writing convenience
+//
+type
+ LPACMDRVSTREAMHEADER = ^tACMDRVSTREAMHEADER;
+ tACMDRVSTREAMHEADER = record
+ cbStruct:DWORD;
+ fdwStatus:DWORD;
+ dwUser:DWORD;
+ pbSrc:LPBYTE;
+ cbSrcLength:DWORD;
+ cbSrcLengthUsed:DWORD;
+ dwSrcUser:DWORD;
+ pbDst:LPBYTE;
+ cbDstLength:DWORD;
+ cbDstLengthUsed:DWORD;
+ dwDstUser:DWORD;
+ fdwConvert:DWORD; // flags passed from convert func
+ padshNext:LPACMDRVSTREAMHEADER; // for async driver queueing
+ fdwDriver:DWORD; // driver instance flags
+ dwDriver:DWORD; // driver instance data
+
+ //
+ // all remaining fields are used by the ACM for bookkeeping purposes.
+ // an ACM driver should never use these fields (though than can be
+ // helpful for debugging)--note that the meaning of these fields
+ // may change, so do NOT rely on them in shipping code.
+ //
+ fdwPrepared:DWORD;
+ dwPrepared:DWORD;
+ pbPreparedSrc:LPBYTE;
+ cbPreparedSrcLength:DWORD;
+ pbPreparedDst:LPBYTE;
+ cbPreparedDstLength:DWORD;
+ end;
+ ACMDRVSTREAMHEADER = tACMDRVSTREAMHEADER;
+ PACMDRVSTREAMHEADER = ^tACMDRVSTREAMHEADER;
+
+//
+// structure for ACMDM_STREAM_SIZE message
+//
+type
+ tACMDRVSTREAMSIZE = record
+ cbStruct:DWORD;
+ fdwSize:DWORD;
+ cbSrcLength:DWORD;
+ cbDstLength:DWORD;
+ end;
+ ACMDRVSTREAMSIZE = tACMDRVSTREAMSIZE;
+ PACMDRVSTREAMSIZE = ^tACMDRVSTREAMSIZE;
+ LPACMDRVSTREAMSIZE = ^tACMDRVSTREAMSIZE;
+
+//
+// structure containing the information for the ACMDM_FORMAT_SUGGEST message
+//
+type
+ tACMDRVFORMATSUGGEST = record
+ cbStruct:DWORD; // sizeof(ACMDRVFORMATSUGGEST)
+ fdwSuggest:DWORD; // Suggest flags
+ pwfxSrc:LPWAVEFORMATEX; // Source Format
+ cbwfxSrc:DWORD; // Source Size
+ pwfxDst:LPWAVEFORMATEX; // Dest format
+ cbwfxDst:DWORD; // Dest Size
+ end;
+ ACMDRVFORMATSUGGEST = tACMDRVFORMATSUGGEST;
+ PACMDRVFORMATSUGGEST = ^tACMDRVFORMATSUGGEST;
+ LPACMDRVFORMATSUGGEST = ^tACMDRVFORMATSUGGEST;
+
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+//
+// ACM Driver Messages
+//
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+const
+ ACMDM_USER = DRV_USER + $0000;
+ ACMDM_RESERVED_LOW = DRV_USER + $2000;
+ ACMDM_RESERVED_HIGH = DRV_USER + $2FFF;
+
+ ACMDM_BASE = ACMDM_RESERVED_LOW;
+
+ ACMDM_DRIVER_ABOUT = ACMDM_BASE + 11;
+
+const
+ ACMDM_DRIVER_NOTIFY = ACMDM_BASE + 1;
+ ACMDM_DRIVER_DETAILS = ACMDM_BASE + 10;
+
+ ACMDM_HARDWARE_WAVE_CAPS_INPUT = ACMDM_BASE + 20;
+ ACMDM_HARDWARE_WAVE_CAPS_OUTPUT = ACMDM_BASE + 21;
+
+ ACMDM_FORMATTAG_DETAILS = ACMDM_BASE + 25;
+ ACMDM_FORMAT_DETAILS = ACMDM_BASE + 26;
+ ACMDM_FORMAT_SUGGEST = ACMDM_BASE + 27;
+
+ ACMDM_FILTERTAG_DETAILS = ACMDM_BASE + 50;
+ ACMDM_FILTER_DETAILS = ACMDM_BASE + 51;
+
+ ACMDM_STREAM_OPEN = ACMDM_BASE + 76;
+ ACMDM_STREAM_CLOSE = ACMDM_BASE + 77;
+ ACMDM_STREAM_SIZE = ACMDM_BASE + 78;
+ ACMDM_STREAM_CONVERT = ACMDM_BASE + 79;
+ ACMDM_STREAM_RESET = ACMDM_BASE + 80;
+ ACMDM_STREAM_PREPARE = ACMDM_BASE + 81;
+ ACMDM_STREAM_UNPREPARE = ACMDM_BASE + 82;
+ ACMDM_STREAM_UPDATE = ACMDM_BASE + 83;
+
+// - End of module: msacmdrv.h
+
+
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+//
+//
+//
+//
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+const
+ DRV_MAPPER_PREFERRED_INPUT_GET = DRV_USER + 0;
+ DRV_MAPPER_PREFERRED_OUTPUT_GET = DRV_USER + 2;
+ DRVM_MAPPER_STATUS = $2000;
+
+ WIDM_MAPPER_STATUS = DRVM_MAPPER_STATUS + 0;
+ WAVEIN_MAPPER_STATUS_DEVICE = 0;
+ WAVEIN_MAPPER_STATUS_MAPPED = 1;
+ WAVEIN_MAPPER_STATUS_FORMAT = 2;
+
+ WODM_MAPPER_STATUS = DRVM_MAPPER_STATUS + 0;
+ WAVEOUT_MAPPER_STATUS_DEVICE = 0;
+ WAVEOUT_MAPPER_STATUS_MAPPED = 1;
+ WAVEOUT_MAPPER_STATUS_FORMAT = 2;
+
+
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+//
+// ACM Error Codes
+//
+// Note that these error codes are specific errors that apply to the ACM
+// directly--general errors are defined as MMSYSERR_*.
+//
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+type
+ MMRESULT = UINT;
+
+const
+ ACMERR_BASE = 512;
+ ACMERR_NOTPOSSIBLE = ACMERR_BASE + 0;
+ ACMERR_BUSY = ACMERR_BASE + 1;
+ ACMERR_UNPREPARED = ACMERR_BASE + 2;
+ ACMERR_CANCELED = ACMERR_BASE + 3;
+
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+//
+// ACM Window Messages
+//
+// These window messages are sent by the ACM or ACM drivers to notify
+// applications of events.
+//
+// Note that these window message numbers will also be defined in
+// mmsystem.
+//
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+const
+ MM_ACM_OPEN = $03D4; // MM_STREAM_OPEN // conversion callback messages
+ MM_ACM_CLOSE = $03D5; // MM_STREAM_CLOSE
+ MM_ACM_DONE = $03D6; // MM_STREAM_DONE
+
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+//
+// acmGetVersion()
+//
+// the ACM version is a 32 bit number that is broken into three parts as
+// follows:
+//
+// bits 24 - 31: 8 bit _major_ version number
+// bits 16 - 23: 8 bit _minor_ version number
+// bits 0 - 15: 16 bit build number
+//
+// this is then displayed as follows:
+//
+// bMajor = (BYTE)(dwVersion >> 24)
+// bMinor = (BYTE)(dwVersion >> 16) &
+// wBuild = LOWORD(dwVersion)
+//
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+function acmGetVersion:DWORD; external KernelDLL name 'acmGetVersion'; // index 2A5
+
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+//
+// acmMetrics()
+//
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+function acmMetrics(hao:HACMOBJ; uMetric:UINT; pMetric:LPVOID):MMRESULT; external KernelDLL name 'acmMetrics'; // index 2A6
+
+const
+ ACM_METRIC_COUNT_DRIVERS = 1;
+ ACM_METRIC_COUNT_CODECS = 2;
+ ACM_METRIC_COUNT_CONVERTERS = 3;
+ ACM_METRIC_COUNT_FILTERS = 4;
+ ACM_METRIC_COUNT_DISABLED = 5;
+ ACM_METRIC_COUNT_HARDWARE = 6;
+ ACM_METRIC_COUNT_LOCAL_DRIVERS = 20;
+ ACM_METRIC_COUNT_LOCAL_CODECS = 21;
+ ACM_METRIC_COUNT_LOCAL_CONVERTERS = 22;
+ ACM_METRIC_COUNT_LOCAL_FILTERS = 23;
+ ACM_METRIC_COUNT_LOCAL_DISABLED = 24;
+ ACM_METRIC_HARDWARE_WAVE_INPUT = 30;
+ ACM_METRIC_HARDWARE_WAVE_OUTPUT = 31;
+ ACM_METRIC_MAX_SIZE_FORMAT = 50;
+ ACM_METRIC_MAX_SIZE_FILTER = 51;
+ ACM_METRIC_DRIVER_SUPPORT = 100;
+ ACM_METRIC_DRIVER_PRIORITY = 101;
+
+
+//--------------------------------------------------------------------------;
+//
+// ACM Drivers
+//
+//--------------------------------------------------------------------------;
+
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+//
+// acmDriverEnum()
+//
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+type
+ ACMDRIVERENUMCB = function(hadid:HACMDRIVERID; dwInstance:DWORD; fdwSupport:DWORD):BOOL; cdecl;
+
+
+function acmDriverEnum(fnCallback:ACMDRIVERENUMCB; dwInstance:DWORD; fdwEnum:DWORD):MMRESULT; external KernelDLL name 'acmDriverEnum'; // index 28E
+
+const
+ ACM_DRIVERENUMF_NOLOCAL = $40000000;
+ ACM_DRIVERENUMF_DISABLED = $80000000;
+
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+//
+// acmDriverID()
+//
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+function acmDriverID(hao:HACMOBJ; phadid:LPHACMDRIVERID; fdwDriverID:DWORD):MMRESULT; external KernelDLL name 'acmDriverID'; // index 28F
+
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+//
+// acmDriverAdd()
+//
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+function acmDriverAdd(phadid:LPHACMDRIVERID;
+ hinstModule:HINST;
+ lParam:LPARAM;
+ dwPriority:DWORD;
+ fdwAdd:DWORD):MMRESULT; external KernelDLL name 'acmDriverAdd'; // index 28B
+
+const
+ ACM_DRIVERADDF_NOTIFYHWND = $00000004; // lParam is notify hwnd
+
+
+//
+// prototype for ACM driver procedures that are installed as _functions_
+// or _notifications_ instead of as a standalone installable driver.
+//
+type
+ ACMDRIVERPROC = function(dwID:DWORD; hDrvID:HACMDRIVERID; uMsg:UINT; lParam1:LPARAM; lParam2:LPARAM):LRESULT; cdecl;
+ LPACMDRIVERPROC = ^ACMDRIVERPROC;
+
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+//
+// acmDriverRemove()
+//
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+function acmDriverRemove(hadid:HACMDRIVERID; fdwRemove:DWORD):MMRESULT; external KernelDLL name 'acmDriverRemove'; // index 293
+
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+//
+// acmDriverOpen()
+//
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+function acmDriverOpen(phad:LPHACMDRIVER; hadid:HACMDRIVERID; fdwOpen:DWORD):MMRESULT; external KernelDLL name 'acmDriverOpen'; // index 291
+
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+//
+// acmDriverClose()
+//
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+function acmDriverClose(had:HACMDRIVER; fdwClose:DWORD):MMRESULT; external KernelDLL name 'acmDriverClose'; // index 28C
+
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+//
+// acmDriverMessage()
+//
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+function acmDriverMessage(had:HACMDRIVER; uMsg:UINT; lParam1:LPARAM; lParam2:LPARAM):LRESULT; external KernelDLL name 'acmDriverMessage'; // index 290
+
+
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+//
+// acmDriverPriority
+//
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+function acmDriverPriority(hadid:HACMDRIVERID; dwPriority:DWORD; fdwPriority:DWORD):MMRESULT; external KernelDLL name 'acmDriverPriority'; // index 292
+
+const
+ ACM_DRIVERPRIORITYF_ENABLE = $00000001;
+ ACM_DRIVERPRIORITYF_DISABLE = $00000002;
+ ACM_DRIVERPRIORITYF_ABLEMASK = $00000003;
+ ACM_DRIVERPRIORITYF_BEGIN = $00010000;
+ ACM_DRIVERPRIORITYF_END = $00020000;
+ ACM_DRIVERPRIORITYF_DEFERMASK = $00030000;
+
+
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+//
+// acmDriverDetails()
+//
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+
+//
+// ACMDRIVERDETAILS
+//
+// the ACMDRIVERDETAILS structure is used to get various capabilities from
+// an ACM driver (codec, converter, filter).
+//
+const
+ ACMDRIVERDETAILS_SHORTNAME_CHARS = 32;
+ ACMDRIVERDETAILS_LONGNAME_CHARS = 128;
+ ACMDRIVERDETAILS_COPYRIGHT_CHARS = 80;
+ ACMDRIVERDETAILS_LICENSING_CHARS = 128;
+ ACMDRIVERDETAILS_FEATURES_CHARS = 512;
+
+type
+ tACMDRIVERDETAILS = record
+ cbStruct:DWORD; // number of valid bytes in structure
+ fccType:FOURCC; // compressor type 'audc'
+ fccComp:FOURCC; // sub-type (not used; reserved)
+
+ wMid:word; // manufacturer id
+ wPid:word; // product id
+
+ vdwACM:DWORD; // version of the ACM *compiled* for
+ vdwDriver:DWORD; // version of the driver
+
+ fdwSupport:DWORD; // misc. support flags
+ cFormatTags:DWORD; // total unique format tags supported
+ cFilterTags:DWORD; // total unique filter tags supported
+
+ _hicon:HICON; // handle to custom icon
+
+ szShortName:array[0..ACMDRIVERDETAILS_SHORTNAME_CHARS-1] of WCHAR;
+ szLongName:array[0..ACMDRIVERDETAILS_LONGNAME_CHARS-1] of WCHAR;
+ szCopyright:array[0..ACMDRIVERDETAILS_COPYRIGHT_CHARS-1] of WCHAR;
+ szLicensing:array[0..ACMDRIVERDETAILS_LICENSING_CHARS-1] of WCHAR;
+ szFeatures:array[0..ACMDRIVERDETAILS_FEATURES_CHARS-1] of WCHAR;
+ end;
+ _ACMDRIVERDETAILS = tACMDRIVERDETAILS;
+ PACMDRIVERDETAILS = ^tACMDRIVERDETAILS;
+ LPACMDRIVERDETAILS = ^tACMDRIVERDETAILS;
+
+
+//
+// ACMDRIVERDETAILS.fccType
+//
+// ACMDRIVERDETAILS_FCCTYPE_AUDIOCODEC: the FOURCC used in the fccType
+// field of the ACMDRIVERDETAILS structure to specify that this is an ACM
+// codec designed for audio.
+//
+//
+// ACMDRIVERDETAILS.fccComp
+//
+// ACMDRIVERDETAILS_FCCCOMP_UNDEFINED: the FOURCC used in the fccComp
+// field of the ACMDRIVERDETAILS structure. this is currently an unused
+// field.
+//
+const
+ ACMDRIVERDETAILS_FCCTYPE_AUDIOCODEC = FOURCC(byte(AnsiChar('a')) or
+ (byte(AnsiChar('u')) shl 8) or
+ (byte(AnsiChar('d')) shl 16) or
+ (byte(AnsiChar('c')) shl 24)
+ );
+
+ ACMDRIVERDETAILS_FCCCOMP_UNDEFINED = FOURCC(byte(AnsiChar(#0)) or
+ (byte(AnsiChar(#0)) shl 8) or
+ (byte(AnsiChar(#0)) shl 16) or
+ (byte(AnsiChar(#0)) shl 24)
+ );
+
+//
+// the following flags are used to specify the type of conversion(s) that
+// the converter/codec/filter supports. these are placed in the fdwSupport
+// field of the ACMDRIVERDETAILS structure. note that a converter can
+// support one or more of these flags in any combination.
+//
+// ACMDRIVERDETAILS_SUPPORTF_CODEC: this flag is set if the driver supports
+// conversions from one format tag to another format tag. for example, if a
+// converter compresses WAVE_FORMAT_PCM to WAVE_FORMAT_ADPCM, then this bit
+// should be set.
+//
+// ACMDRIVERDETAILS_SUPPORTF_CONVERTER: this flags is set if the driver
+// supports conversions on the same format tag. as an example, the PCM
+// converter that is built into the ACM sets this bit (and only this bit)
+// because it converts only PCM formats (bits, sample rate).
+//
+// ACMDRIVERDETAILS_SUPPORTF_FILTER: this flag is set if the driver supports
+// transformations on a single format. for example, a converter that changed
+// the 'volume' of PCM data would set this bit. 'echo' and 'reverb' are
+// also filter types.
+//
+// ACMDRIVERDETAILS_SUPPORTF_HARDWARE: this flag is set if the driver supports
+// hardware input and/or output through a waveform device.
+//
+// ACMDRIVERDETAILS_SUPPORTF_ASYNC: this flag is set if the driver supports
+// async conversions.
+//
+//
+// ACMDRIVERDETAILS_SUPPORTF_LOCAL: this flag is set _by the ACM_ if a
+// driver has been installed local to the current task. this flag is also
+// set in the fdwSupport argument to the enumeration callback function
+// for drivers.
+//
+// ACMDRIVERDETAILS_SUPPORTF_DISABLED: this flag is set _by the ACM_ if a
+// driver has been disabled. this flag is also passed set in the fdwSupport
+// argument to the enumeration callback function for drivers.
+//
+const
+ ACMDRIVERDETAILS_SUPPORTF_CODEC = $00000001;
+ ACMDRIVERDETAILS_SUPPORTF_CONVERTER = $00000002;
+ ACMDRIVERDETAILS_SUPPORTF_FILTER = $00000004;
+ ACMDRIVERDETAILS_SUPPORTF_HARDWARE = $00000008;
+ ACMDRIVERDETAILS_SUPPORTF_ASYNC = $00000010;
+ ACMDRIVERDETAILS_SUPPORTF_LOCAL = $40000000;
+ ACMDRIVERDETAILS_SUPPORTF_DISABLED = $80000000;
+
+function acmDriverDetails(hadid:HACMDRIVERID;
+ padd:LPACMDRIVERDETAILS;
+ fdwDetails:DWORD):MMRESULT; external KernelDLL name 'acmDriverDetails'; // index 28D
+
+
+
+//--------------------------------------------------------------------------;
+//
+// ACM Format Tags
+//
+//--------------------------------------------------------------------------;
+
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+//
+// acmFormatTagDetails()
+//
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+const
+ ACMFORMATTAGDETAILS_FORMATTAG_CHARS = 48;
+
+type
+ tACMFORMATTAGDETAILSW = record
+ cbStruct:DWORD;
+ dwFormatTagIndex:DWORD;
+ dwFormatTag:DWORD;
+ cbFormatSize:DWORD;
+ fdwSupport:DWORD;
+ cStandardFormats:DWORD;
+ szFormatTag:array[0..ACMFORMATTAGDETAILS_FORMATTAG_CHARS-1] of WCHAR;
+ end;
+ tACMFORMATTAGDETAILS = tACMFORMATTAGDETAILSW;
+ _ACMFORMATTAGDETAILS = tACMFORMATTAGDETAILSW;
+ PACMFORMATTAGDETAILS = ^tACMFORMATTAGDETAILSW;
+ LPACMFORMATTAGDETAILS = ^tACMFORMATTAGDETAILSW;
+
+function acmFormatTagDetails(had:HACMDRIVER;
+ paftd:LPACMFORMATTAGDETAILS;
+ fdwDetails:DWORD):MMRESULT; external KernelDLL name 'acmFormatTagDetails'; // index 29B
+
+const
+ ACM_FORMATTAGDETAILSF_INDEX = $00000000;
+ ACM_FORMATTAGDETAILSF_FORMATTAG = $00000001;
+ ACM_FORMATTAGDETAILSF_LARGESTSIZE = $00000002;
+ ACM_FORMATTAGDETAILSF_QUERYMASK = $0000000F;
+
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+//
+// acmFormatTagEnum()
+//
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+type
+ ACMFORMATTAGENUMCB = function(hadid:HACMDRIVERID;
+ paftd:LPACMFORMATTAGDETAILS;
+ dwInstance:DWORD;
+ fdwSupport:DWORD):BOOL; cdecl;
+
+function acmFormatTagEnum(had:HACMDRIVER;
+ paftd:LPACMFORMATTAGDETAILS;
+ fnCallback:ACMFORMATTAGENUMCB;
+ dwInstance:DWORD;
+ fdwEnum:DWORD):MMRESULT; external KernelDLL name 'acmFormatTagEnum'; // index 29C
+
+
+//--------------------------------------------------------------------------;
+//
+// ACM Formats
+//
+//--------------------------------------------------------------------------;
+
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+//
+// acmFormatDetails()
+//
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+const
+ ACMFORMATDETAILS_FORMAT_CHARS = 128;
+
+type
+ tACMFORMATDETAILS = record
+ cbStruct:DWORD;
+ dwFormatIndex:DWORD;
+ dwFormatTag:DWORD;
+ fdwSupport:DWORD;
+ pwfx:LPWAVEFORMATEX;
+ cbwfx:DWORD;
+ szFormat:array[0..ACMFORMATDETAILS_FORMAT_CHARS-1] of WCHAR;
+ end;
+ _ACMFORMATDETAILS = tACMFORMATDETAILS;
+ PACMFORMATDETAILS = ^tACMFORMATDETAILS;
+ LPACMFORMATDETAILS = ^tACMFORMATDETAILS;
+
+function acmFormatDetails(had:HACMDRIVER; pafd:LPACMFORMATDETAILS; fdwDetails:DWORD):MMRESULT; external KernelDLL name 'acmFormatDetails'; // index 298
+
+const
+ ACM_FORMATDETAILSF_INDEX = $00000000;
+ ACM_FORMATDETAILSF_FORMAT = $00000001;
+ ACM_FORMATDETAILSF_QUERYMASK = $0000000F;
+
+
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+//
+// acmFormatEnum()
+//
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+type
+ ACMFORMATENUMCB = function(hadid:HACMDRIVERID;
+ pafd:LPACMFORMATDETAILS;
+ dwInstance:DWORD;
+ fdwSupport:DWORD):BOOL; cdecl;
+
+function acmFormatEnum(had:HACMDRIVER;
+ pafd:LPACMFORMATDETAILS;
+ fnCallback:ACMFORMATENUMCB;
+ dwInstance:DWORD;
+ fdwEnum:DWORD):MMRESULT; external KernelDLL name 'acmFormatEnum'; // index 299
+
+const
+ ACM_FORMATENUMF_WFORMATTAG = $00010000;
+ ACM_FORMATENUMF_NCHANNELS = $00020000;
+ ACM_FORMATENUMF_NSAMPLESPERSEC = $00040000;
+ ACM_FORMATENUMF_WBITSPERSAMPLE = $00080000;
+ ACM_FORMATENUMF_CONVERT = $00100000;
+ ACM_FORMATENUMF_SUGGEST = $00200000;
+ ACM_FORMATENUMF_HARDWARE = $00400000;
+ ACM_FORMATENUMF_INPUT = $00800000;
+ ACM_FORMATENUMF_OUTPUT = $01000000;
+
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+//
+// acmFormatSuggest()
+//
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+function acmFormatSuggest(had:HACMDRIVER;
+ pwfxSrc:LPWAVEFORMATEX;
+ pwfxDst:LPWAVEFORMATEX;
+ cbwfxDst:DWORD;
+ fdwSuggest:DWORD):MMRESULT; external KernelDLL name 'acmFormatSuggest'; // index 29A
+
+const
+ ACM_FORMATSUGGESTF_WFORMATTAG = $00010000;
+ ACM_FORMATSUGGESTF_NCHANNELS = $00020000;
+ ACM_FORMATSUGGESTF_NSAMPLESPERSEC = $00040000;
+ ACM_FORMATSUGGESTF_WBITSPERSAMPLE = $00080000;
+
+ ACM_FORMATSUGGESTF_TYPEMASK = $00FF0000;
+
+
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+//
+// acmFormatChoose()
+//
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+const
+ ACMHELPMSGSTRING = 'acmchoose_help';
+ ACMHELPMSGCONTEXTMENU = 'acmchoose_contextmenu';
+ ACMHELPMSGCONTEXTHELP = 'acmchoose_contexthelp';
+
+//
+// MM_ACM_FORMATCHOOSE is sent to hook callbacks by the Format Chooser
+// Dialog...
+//
+const
+ MM_ACM_FORMATCHOOSE = $8000;
+
+ FORMATCHOOSE_MESSAGE = 0;
+ FORMATCHOOSE_FORMATTAG_VERIFY = FORMATCHOOSE_MESSAGE + 0;
+ FORMATCHOOSE_FORMAT_VERIFY = FORMATCHOOSE_MESSAGE + 1;
+ FORMATCHOOSE_CUSTOM_VERIFY = FORMATCHOOSE_MESSAGE + 2;
+
+type
+ ACMFORMATCHOOSEHOOKPROC = function(hwnd:HWND;
+ uMsg:UINT;
+ wParam:WPARAM;
+ lParam:LPARAM):UINT; cdecl;
+type
+ tACMFORMATCHOOSE = record
+ cbStruct:DWORD; // sizeof(ACMFORMATCHOOSE)
+ fdwStyle:DWORD; // chooser style flags
+
+ hwndOwner:HWND; // caller's window handle
+
+ pwfx:LPWAVEFORMATEX; // ptr to wfx buf to receive choice
+ cbwfx:DWORD; // size of mem buf for pwfx
+ pszTitle:LPCWSTR; // dialog box title bar
+
+ szFormatTag:array[0..ACMFORMATTAGDETAILS_FORMATTAG_CHARS-1] of WCHAR;
+ szFormat:array[0..ACMFORMATDETAILS_FORMAT_CHARS-1] of WCHAR;
+
+ pszName:LPWSTR; // custom name selection
+ cchName:DWORD; // size in chars of mem buf for pszName
+
+ fdwEnum:DWORD; // format enumeration restrictions
+ pwfxEnum:LPWAVEFORMATEX; // format describing restrictions
+
+ hInstance:HINST; // app instance containing dlg template
+ pszTemplateName:LPCWSTR; // custom template name
+ lCustData:LPARAM; // data passed to hook fn.
+ pfnHook:ACMFORMATCHOOSEHOOKPROC; // ptr to hook function
+ end;
+ _ACMFORMATCHOOSE = tACMFORMATCHOOSE;
+ PACMFORMATCHOOSE = ^tACMFORMATCHOOSE;
+ LPACMFORMATCHOOSE = ^tACMFORMATCHOOSE;
+
+//
+// ACMFORMATCHOOSE.fdwStyle
+//
+const
+ ACMFORMATCHOOSE_STYLEF_SHOWHELP = $00000004;
+ ACMFORMATCHOOSE_STYLEF_ENABLEHOOK = $00000008;
+ ACMFORMATCHOOSE_STYLEF_ENABLETEMPLATE = $00000010;
+ ACMFORMATCHOOSE_STYLEF_ENABLETEMPLATEHANDLE = $00000020;
+ ACMFORMATCHOOSE_STYLEF_INITTOWFXSTRUCT = $00000040;
+ ACMFORMATCHOOSE_STYLEF_CONTEXTHELP = $00000080;
+
+function acmFormatChoose(pafmtc:LPACMFORMATCHOOSE):MMRESULT; external KernelDLL name 'acmFormatChoose'; // index 2A7
+
+
+//--------------------------------------------------------------------------;
+//
+// ACM Filter Tags
+//
+//--------------------------------------------------------------------------;
+
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+//
+// acmFilterTagDetails()
+//
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+const
+ ACMFILTERTAGDETAILS_FILTERTAG_CHARS = 48;
+
+type
+ tACMFILTERTAGDETAILS = record
+ cbStruct:DWORD;
+ dwFilterTagIndex:DWORD;
+ dwFilterTag:DWORD;
+ cbFilterSize:DWORD;
+ fdwSupport:DWORD;
+ cStandardFilters:DWORD;
+ szFilterTag:array[0..ACMFILTERTAGDETAILS_FILTERTAG_CHARS-1] of WCHAR;
+ end;
+ _ACMFILTERTAGDETAILS = tACMFILTERTAGDETAILS;
+ PACMFILTERTAGDETAILS = ^tACMFILTERTAGDETAILS;
+ LPACMFILTERTAGDETAILS = ^tACMFILTERTAGDETAILS;
+
+function acmFilterTagDetails(had:HACMDRIVER;
+ paftd:LPACMFILTERTAGDETAILS;
+ fdwDetails:DWORD):MMRESULT; external KernelDLL name 'acmFilterTagDetails'; // index 296
+
+const
+ ACM_FILTERTAGDETAILSF_INDEX = $00000000;
+ ACM_FILTERTAGDETAILSF_FILTERTAG = $00000001;
+ ACM_FILTERTAGDETAILSF_LARGESTSIZE = $00000002;
+ ACM_FILTERTAGDETAILSF_QUERYMASK = $0000000F;
+
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+//
+// acmFilterTagEnum()
+//
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+type
+ ACMFILTERTAGENUMCB = function(hadid:HACMDRIVERID;
+ paftd:LPACMFILTERTAGDETAILS;
+ dwInstance:DWORD;
+ fdwSupport:DWORD):BOOL; cdecl;
+
+function acmFilterTagEnum(had:HACMDRIVER;
+ paftd:LPACMFILTERTAGDETAILS;
+ fnCallback:ACMFILTERTAGENUMCB;
+ dwInstance:DWORD;
+ fdwEnum:DWORD):MMRESULT; external KernelDLL name 'acmFilterTagEnum'; // index 297
+
+
+//--------------------------------------------------------------------------;
+//
+// ACM Filters
+//
+//--------------------------------------------------------------------------;
+
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+//
+// acmFilterDetails()
+//
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+const
+ ACMFILTERDETAILS_FILTER_CHARS = 128;
+
+type
+ tACMFILTERDETAILS = record
+ cbStruct:DWORD;
+ dwFilterIndex:DWORD;
+ dwFilterTag:DWORD;
+ fdwSupport:DWORD;
+ pwfltr:LPWAVEFILTER;
+ cbwfltr:DWORD;
+ szFilter:array[0..ACMFILTERDETAILS_FILTER_CHARS-1] of WCHAR;
+ end;
+ _ACMFILTERDETAILS = tACMFILTERDETAILS;
+ PACMFILTERDETAILS = ^tACMFILTERDETAILS;
+ LPACMFILTERDETAILS = ^tACMFILTERDETAILS;
+
+function acmFilterDetails(had:HACMDRIVER;
+ pafd:LPACMFILTERDETAILS;
+ fdwDetails:DWORD):MMRESULT; external KernelDLL name 'acmFilterDetails'; // index 294
+
+const
+ ACM_FILTERDETAILSF_INDEX = $00000000;
+ ACM_FILTERDETAILSF_FILTER = $00000001;
+ ACM_FILTERDETAILSF_QUERYMASK = $0000000F;
+
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+//
+// acmFilterEnum()
+//
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+type
+ ACMFILTERENUMCB = function(hadid:HACMDRIVERID;
+ pafd:LPACMFILTERDETAILS;
+ dwInstance:DWORD;
+ fdwSupport:DWORD):BOOL; cdecl;
+
+function acmFilterEnum(had:HACMDRIVER;
+ pafd:LPACMFILTERDETAILS;
+ fnCallback:ACMFILTERENUMCB;
+ dwInstance:DWORD;
+ fdwEnum:DWORD):MMRESULT; external KernelDLL name 'acmFilterEnum'; // index 295
+
+const
+ ACM_FILTERENUMF_DWFILTERTAG = $00010000;
+
+
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+//
+// acmFilterChoose()
+//
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+
+//
+// MM_ACM_FILTERCHOOSE is sent to hook callbacks by the Filter Chooser
+// Dialog...
+//
+const
+ MM_ACM_FILTERCHOOSE = $8000;
+
+ FILTERCHOOSE_MESSAGE = 0;
+ FILTERCHOOSE_FILTERTAG_VERIFY = FILTERCHOOSE_MESSAGE + 0;
+ FILTERCHOOSE_FILTER_VERIFY = FILTERCHOOSE_MESSAGE + 1;
+ FILTERCHOOSE_CUSTOM_VERIFY = FILTERCHOOSE_MESSAGE + 2;
+
+type
+ ACMFILTERCHOOSEHOOKPROC = function(hwnd:HWND;
+ uMsg:UINT;
+ wParam:WPARAM;
+ lParam:LPARAM):UINT; cdecl;
+
+//
+// ACMFILTERCHOOSE
+//
+type
+ tACMFILTERCHOOSE = record
+ cbStruct:DWORD; // sizeof(ACMFILTERCHOOSE)
+ fdwStyle:DWORD; // chooser style flags
+
+ hwndOwner:HWND; // caller's window handle
+
+ pwfltr:LPWAVEFILTER; // ptr to wfltr buf to receive choice
+ cbwfltr:DWORD; // size of mem buf for pwfltr
+
+ pszTitle:LPCWSTR;
+
+ szFilterTag:array[0..ACMFILTERTAGDETAILS_FILTERTAG_CHARS-1] of WCHAR;
+ szFilter:array[0..ACMFILTERDETAILS_FILTER_CHARS-1] of WCHAR;
+ pszName:LPWSTR; // custom name selection
+ cchName:DWORD; // size in chars of mem buf for pszName
+
+ fdwEnum:DWORD; // filter enumeration restrictions
+ pwfltrEnum:LPWAVEFILTER; // filter describing restrictions
+
+ hInstance:HINST; // app instance containing dlg template
+ pszTemplateName:LPCWSTR; // custom template name
+ lCustData:LPARAM; // data passed to hook fn.
+ pfnHook:ACMFILTERCHOOSEHOOKPROC; // ptr to hook function
+ end;
+ _ACMFILTERCHOOSE = tACMFILTERCHOOSE;
+ PACMFILTERCHOOSE = ^tACMFILTERCHOOSE;
+ LPACMFILTERCHOOSE = ^tACMFILTERCHOOSE;
+
+//
+// ACMFILTERCHOOSE.fdwStyle
+//
+const
+ ACMFILTERCHOOSE_STYLEF_SHOWHELP = $00000004;
+ ACMFILTERCHOOSE_STYLEF_ENABLEHOOK = $00000008;
+ ACMFILTERCHOOSE_STYLEF_ENABLETEMPLATE = $00000010;
+ ACMFILTERCHOOSE_STYLEF_ENABLETEMPLATEHANDLE = $00000020;
+ ACMFILTERCHOOSE_STYLEF_INITTOFILTERSTRUCT = $00000040;
+ ACMFILTERCHOOSE_STYLEF_CONTEXTHELP = $00000080;
+
+function acmFilterChoose(pafltrc:LPACMFILTERCHOOSE):MMRESULT; external KernelDLL name 'acmFilterChoose'; // index 2A8
+
+//--------------------------------------------------------------------------;
+//
+// ACM Stream API's
+//
+//--------------------------------------------------------------------------;
+
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+//
+// acmStreamOpen()
+//
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+type
+ tACMSTREAMHEADER = record
+ cbStruct:DWORD; // sizeof(ACMSTREAMHEADER)
+ fdwStatus:DWORD; // ACMSTREAMHEADER_STATUSF_*
+ dwUser:DWORD; // user instance data for hdr
+ pbSrc:LPBYTE;
+ cbSrcLength:DWORD;
+ cbSrcLengthUsed:DWORD;
+ dwSrcUser:DWORD; // user instance data for src
+ pbDst:LPBYTE;
+ cbDstLength:DWORD;
+ cbDstLengthUsed:DWORD;
+ dwDstUser:DWORD; // user instance data for dst
+ dwReservedDriver:array[0..9] of DWORD; // driver reserved work space
+ end;
+ ACMSTREAMHEADER = tACMSTREAMHEADER;
+ PACMSTREAMHEADER = ^tACMSTREAMHEADER;
+ LPACMSTREAMHEADER = ^tACMSTREAMHEADER;
+
+//
+// ACMSTREAMHEADER.fdwStatus
+//
+// ACMSTREAMHEADER_STATUSF_DONE: done bit for async conversions.
+//
+const
+ ACMSTREAMHEADER_STATUSF_DONE = $00010000;
+ ACMSTREAMHEADER_STATUSF_PREPARED = $00020000;
+ ACMSTREAMHEADER_STATUSF_INQUEUE = $00100000;
+
+function acmStreamOpen(phas:LPHACMSTREAM; // pointer to stream handle
+ had:HACMDRIVER; // optional driver handle
+ pwfxSrc:LPWAVEFORMATEX; // source format to convert
+ pwfxDst:LPWAVEFORMATEX; // required destination format
+ pwfltr:LPWAVEFILTER; // optional filter
+ dwCallback:DWORD; // callback
+ dwInstance:DWORD; // callback instance data
+ fdwOpen:DWORD // ACM_STREAMOPENF_* and CALLBACK_*
+ ):MMRESULT; external KernelDLL name 'acmStreamOpen'; // index 2A0
+
+const
+ ACM_STREAMOPENF_QUERY = $00000001;
+ ACM_STREAMOPENF_ASYNC = $00000002;
+ ACM_STREAMOPENF_NONREALTIME = $00000004;
+
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+//
+// acmStreamClose()
+//
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+function acmStreamClose(has:HACMSTREAM;
+ fdwClose:DWORD):MMRESULT; external KernelDLL name 'acmStreamClose'; // index 29D
+
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+//
+// acmStreamSize()
+//
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+function acmStreamSize(has:HACMSTREAM;
+ cbInput:DWORD;
+ pdwOutputBytes:LPDWORD;
+ fdwSize:DWORD):MMRESULT; external KernelDLL name 'acmStreamSize'; // index 2A3
+
+const
+ ACM_STREAMSIZEF_SOURCE = $00000000;
+ ACM_STREAMSIZEF_DESTINATION = $00000001;
+ ACM_STREAMSIZEF_QUERYMASK = $0000000F;
+
+
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+//
+// acmStreamReset()
+//
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+function acmStreamReset(has:HACMSTREAM;
+ fdwReset:DWORD):MMRESULT; external KernelDLL name 'acmStreamReset'; // index 2A2
+
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+//
+// acmStreamMessage()
+//
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+function acmStreamMessage(has:HACMSTREAM;
+ uMsg:UINT;
+ lParam1:LPARAM;
+ lParam2:LPARAM):MMRESULT; external KernelDLL name 'acmStreamMessage'; // index 29F
+
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+//
+// acmStreamConvert()
+//
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+function acmStreamConvert(has:HACMSTREAM;
+ pash:LPACMSTREAMHEADER;
+ fdwConvert:DWORD):MMRESULT; external KernelDLL name 'acmStreamConvert'; // index 29E
+
+const
+ ACM_STREAMCONVERTF_BLOCKALIGN = $00000004;
+ ACM_STREAMCONVERTF_START = $00000010;
+ ACM_STREAMCONVERTF_END = $00000020;
+
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+//
+// acmStreamPrepareHeader()
+//
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+function acmStreamPrepareHeader(has:HACMSTREAM;
+ pash:LPACMSTREAMHEADER;
+ fdwPrepare:DWORD):MMRESULT; external KernelDLL name 'acmStreamPrepareHeader'; // index 2A1
+
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+//
+// acmStreamUnprepareHeader()
+//
+//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ;
+function acmStreamUnprepareHeader(has:HACMSTREAM;
+ pash:LPACMSTREAMHEADER;
+ fdwUnprepare:DWORD):MMRESULT; external KernelDLL name 'acmStreamUnprepareHeader'; // index 2A4
+
+{$PACKRECORDS DEFAULT} // #pragma pack() /* Revert to default packing */
+
+
+
+// Module: msacmdlg.h
+
+// -----------------------------------------------------------------------------
+//
+// Audio Compression Manager Common Dialogs Identifiers
+//
+// -----------------------------------------------------------------------------
+const
+ DLG_ACMFORMATCHOOSE_ID = 70;
+ IDD_ACMFORMATCHOOSE_CMB_FORMATTAG = 101;
+ IDD_ACMFORMATCHOOSE_CMB_FORMAT = 102;
+
+ DLG_ACMFILTERCHOOSE_ID = 71;
+ IDD_ACMFILTERCHOOSE_CMB_FILTERTAG = 101;
+ IDD_ACMFILTERCHOOSE_CMB_FILTER = 102;
+
+// End of module msacmdlg.h
+
+implementation
+
+// - Module: msacmdrv.h
+// -----------------------------------------------------------------------------
+//
+// Audio Compression Manager Public Header File for Drivers
+//
+// -----------------------------------------------------------------------------
+function MAKE_ACM_VERSION(mjr:byte; mnr:byte; bld:word):DWORD; inline;
+begin
+ MAKE_ACM_VERSION:=(DWORD(mjr) shl 24) or (DWORD(mnr) shl 16) or bld;
+end;
+// - End of module: msacmdrv.h
+
+end. \ No newline at end of file
diff --git a/packages/winceunits/src/wininet.pp b/packages/winceunits/src/wininet.pp
new file mode 100644
index 0000000000..696f278df8
--- /dev/null
+++ b/packages/winceunits/src/wininet.pp
@@ -0,0 +1,4349 @@
+//
+// Module Name:
+//
+// wininet.h
+//
+// Abstract:
+//
+// Contains manifests, macros, types and prototypes for Microsoft Windows
+// Internet Extensions
+//
+
+//
+// Microsoft Windows Mobile 6.0 for PocketPC SDK.
+//
+
+unit wininet;
+
+{$IFNDEF NO_SMART_LINK}
+{$SMARTLINK ON}
+{$ENDIF}
+
+{$CALLING cdecl}
+
+interface
+
+uses Windows;
+
+// *
+// * Set up Structure Packing to be 4 bytes
+// * for all wininet structures
+// *
+{$PACKRECORDS 4}
+{
+#if defined(_WIN64)
+#include <pshpack8.h>
+#else
+#include <pshpack4.h>
+#endif
+}
+
+//
+// internet types
+//
+type
+ HINTERNET = LPVOID;
+ LPHINTERNET = ^HINTERNET;
+
+ INTERNET_PORT = word;
+ LPINTERNET_PORT = ^INTERNET_PORT;
+
+//
+// Internet APIs
+//
+
+//
+// manifests
+//
+const
+ INTERNET_INVALID_PORT_NUMBER = 0; // use the protocol-specific default
+
+ INTERNET_DEFAULT_FTP_PORT = 21; // default for FTP servers
+ INTERNET_DEFAULT_GOPHER_PORT = 70; // " " gopher "
+ INTERNET_DEFAULT_HTTP_PORT = 80; // " " HTTP "
+ INTERNET_DEFAULT_HTTPS_PORT = 443; // " " HTTPS "
+ INTERNET_DEFAULT_SOCKS_PORT = 1080; // default for SOCKS firewall servers.
+
+
+//
+// maximum field lengths (arbitrary)
+//
+const
+ INTERNET_MAX_HOST_NAME_LENGTH = 256;
+ INTERNET_MAX_USER_NAME_LENGTH = 128;
+ INTERNET_MAX_PASSWORD_LENGTH = 128;
+ INTERNET_MAX_PORT_NUMBER_LENGTH = 5; // INTERNET_PORT is unsigned short
+ INTERNET_MAX_PORT_NUMBER_VALUE = 65535; // maximum unsigned short value
+ INTERNET_MAX_PATH_LENGTH = 2048;
+ INTERNET_MAX_SCHEME_LENGTH = 32; // longest protocol name length
+
+ INTERNET_MAX_URL_LENGTH = INTERNET_MAX_SCHEME_LENGTH + Length('://') + INTERNET_MAX_PATH_LENGTH;
+{ Was declared as
+ INTERNET_MAX_URL_LENGTH (INTERNET_MAX_SCHEME_LENGTH + sizeof("://") + INTERNET_MAX_PATH_LENGTH)
+}
+
+
+//
+// values returned by InternetQueryOption() with INTERNET_OPTION_KEEP_CONNECTION:
+//
+const
+ INTERNET_KEEP_ALIVE_UNKNOWN = DWORD(-1);
+ INTERNET_KEEP_ALIVE_ENABLED = 1;
+ INTERNET_KEEP_ALIVE_DISABLED = 0;
+
+//
+// flags returned by InternetQueryOption() with INTERNET_OPTION_REQUEST_FLAGS
+//
+const
+ INTERNET_REQFLAG_FROM_CACHE = $00000001; // response came from cache
+ INTERNET_REQFLAG_ASYNC = $00000002; // request was made asynchronously
+ INTERNET_REQFLAG_VIA_PROXY = $00000004; // request was made via a proxy
+ INTERNET_REQFLAG_NO_HEADERS = $00000008; // orginal response contained no headers
+ INTERNET_REQFLAG_PASSIVE = $00000010; // FTP: passive-mode connection
+ INTERNET_REQFLAG_CACHE_WRITE_DISABLED = $00000040; // HTTPS: this request not cacheable
+ INTERNET_REQFLAG_NET_TIMEOUT = $00000080; // w/ _FROM_CACHE: net request timed out
+
+//
+// flags common to open functions (not InternetOpen()):
+//
+const
+ INTERNET_FLAG_RELOAD = $80000000; // retrieve the original item
+
+//
+// flags for InternetOpenUrl():
+//
+const
+ INTERNET_FLAG_RAW_DATA = $40000000; // FTP/gopher find: receive the item as raw (structured) data
+ INTERNET_FLAG_EXISTING_CONNECT = $20000000; // FTP: use existing InternetConnect handle for server if possible
+
+//
+// flags for InternetOpen():
+//
+const
+ INTERNET_FLAG_ASYNC = $10000000; // this request is asynchronous (where supported)
+
+//
+// protocol-specific flags:
+//
+const
+ INTERNET_FLAG_PASSIVE = $08000000; // used for FTP connections
+
+//
+// additional cache flags
+//
+const
+ INTERNET_FLAG_NO_CACHE_WRITE = $04000000; // don't write this item to the cache
+ INTERNET_FLAG_DONT_CACHE = INTERNET_FLAG_NO_CACHE_WRITE;
+ INTERNET_FLAG_MAKE_PERSISTENT = $02000000; // make this item persistent in cache
+ INTERNET_FLAG_FROM_CACHE = $01000000; // use offline semantics
+ INTERNET_FLAG_OFFLINE = INTERNET_FLAG_FROM_CACHE;
+
+//
+// additional flags
+//
+const
+ INTERNET_FLAG_SECURE = $00800000; // use PCT/SSL if applicable (HTTP)
+ INTERNET_FLAG_KEEP_CONNECTION = $00400000; // use keep-alive semantics
+ INTERNET_FLAG_NO_AUTO_REDIRECT = $00200000; // don't handle redirections automatically
+ INTERNET_FLAG_READ_PREFETCH = $00100000; // do background read prefetch
+ INTERNET_FLAG_NO_COOKIES = $00080000; // no automatic cookie handling
+ INTERNET_FLAG_NO_AUTH = $00040000; // no automatic authentication handling
+ INTERNET_FLAG_RESTRICTED_ZONE = $00020000; // apply restricted zone policies for cookies, auth
+ INTERNET_FLAG_CACHE_IF_NET_FAIL = $00010000; // return cache file if net request fails
+
+//
+// Security Ignore Flags, Allow HttpOpenRequest to overide
+// Secure Channel (SSL/PCT) failures of the following types.
+//
+const
+ INTERNET_FLAG_IGNORE_REDIRECT_TO_HTTP = $00008000; // ex: https:// to http://
+ INTERNET_FLAG_IGNORE_REDIRECT_TO_HTTPS = $00004000; // ex: http:// to https://
+ INTERNET_FLAG_IGNORE_CERT_DATE_INVALID = $00002000; // expired X509 Cert.
+ INTERNET_FLAG_IGNORE_CERT_CN_INVALID = $00001000; // bad common name in X509 Cert.
+
+//
+// more caching flags
+//
+const
+ INTERNET_FLAG_RESYNCHRONIZE = $00000800; // asking wininet to update an item if it is newer
+ INTERNET_FLAG_HYPERLINK = $00000400; // asking wininet to do hyperlinking semantic which works right for scripts
+ INTERNET_FLAG_NO_UI = $00000200; // no cookie popup
+ INTERNET_FLAG_PRAGMA_NOCACHE = $00000100; // asking wininet to add "pragma: no-cache"
+ INTERNET_FLAG_CACHE_ASYNC = $00000080; // ok to perform lazy cache-write
+ INTERNET_FLAG_FORMS_SUBMIT = $00000040; // this is a forms submit
+ INTERNET_FLAG_FWD_BACK = $00000020; // fwd-back button op
+ INTERNET_FLAG_NEED_FILE = $00000010; // need a file for this request
+ INTERNET_FLAG_MUST_CACHE_REQUEST = INTERNET_FLAG_NEED_FILE;
+
+ INTERNET_FLAG_BGUPDATE = $00000008; // Undocumented flag.
+
+
+//
+// FTP manifests
+//
+const
+ FTP_TRANSFER_TYPE_UNKNOWN = $00000000;
+ FTP_TRANSFER_TYPE_ASCII = $00000001;
+ FTP_TRANSFER_TYPE_BINARY = $00000002;
+
+ FTP_TRANSFER_TYPE_MASK = FTP_TRANSFER_TYPE_ASCII or FTP_TRANSFER_TYPE_BINARY;
+
+//
+// flags for FTP
+//
+const
+ INTERNET_FLAG_TRANSFER_ASCII = FTP_TRANSFER_TYPE_ASCII; // 0x00000001
+ INTERNET_FLAG_TRANSFER_BINARY = FTP_TRANSFER_TYPE_BINARY; // 0x00000002
+
+//
+// flags field masks
+//
+const
+ SECURITY_INTERNET_MASK = INTERNET_FLAG_IGNORE_CERT_CN_INVALID or
+ INTERNET_FLAG_IGNORE_CERT_DATE_INVALID or
+ INTERNET_FLAG_IGNORE_REDIRECT_TO_HTTPS or
+ INTERNET_FLAG_IGNORE_REDIRECT_TO_HTTP;
+
+ INTERNET_FLAGS_MASK = INTERNET_FLAG_RELOAD or
+ INTERNET_FLAG_RAW_DATA or
+ INTERNET_FLAG_EXISTING_CONNECT or
+ INTERNET_FLAG_ASYNC or
+ INTERNET_FLAG_PASSIVE or
+ INTERNET_FLAG_NO_CACHE_WRITE or
+ INTERNET_FLAG_MAKE_PERSISTENT or
+ INTERNET_FLAG_FROM_CACHE or
+ INTERNET_FLAG_SECURE or
+ INTERNET_FLAG_KEEP_CONNECTION or
+ INTERNET_FLAG_NO_AUTO_REDIRECT or
+ INTERNET_FLAG_READ_PREFETCH or
+ INTERNET_FLAG_NO_COOKIES or
+ INTERNET_FLAG_NO_AUTH or
+ INTERNET_FLAG_CACHE_IF_NET_FAIL or
+ SECURITY_INTERNET_MASK or
+ INTERNET_FLAG_RESYNCHRONIZE or
+ INTERNET_FLAG_HYPERLINK or
+ INTERNET_FLAG_NO_UI or
+ INTERNET_FLAG_PRAGMA_NOCACHE or
+ INTERNET_FLAG_CACHE_ASYNC or
+ INTERNET_FLAG_FORMS_SUBMIT or
+ INTERNET_FLAG_NEED_FILE or
+ INTERNET_FLAG_RESTRICTED_ZONE or
+ INTERNET_FLAG_TRANSFER_BINARY or
+ INTERNET_FLAG_TRANSFER_ASCII or
+ INTERNET_FLAG_FWD_BACK or
+ INTERNET_FLAG_BGUPDATE;
+
+
+ INTERNET_ERROR_MASK_INSERT_CDROM = $01;
+ INTERNET_ERROR_MASK_COMBINED_SEC_CERT = $02;
+ INTERNET_ERROR_MASK_NEED_MSN_SSPI_PKG = $04;
+ INTERNET_ERROR_MASK_LOGIN_FAILURE_DISPLAY_ENTITY_BODY = $08;
+
+ INTERNET_OPTIONS_MASK = DWORD(not INTERNET_FLAGS_MASK);
+
+//
+// common per-API flags (new APIs)
+//
+const
+ WININET_API_FLAG_ASYNC = $00000001; // force async operation
+ WININET_API_FLAG_SYNC = $00000004; // force sync operation
+ WININET_API_FLAG_USE_CONTEXT = $00000008; // use value supplied in dwContext (even if 0)
+
+//
+// INTERNET_NO_CALLBACK - if this value is presented as the dwContext parameter
+// then no call-backs will be made for that API
+//
+const
+ INTERNET_NO_CALLBACK = 0;
+
+
+//
+// structures/types
+//
+
+//
+// INTERNET_SCHEME - enumerated URL scheme type
+//
+
+type
+ INTERNET_SCHEME = (INTERNET_SCHEME_PARTIAL := -2,
+ INTERNET_SCHEME_UNKNOWN := -1,
+ INTERNET_SCHEME_DEFAULT := 0,
+ INTERNET_SCHEME_FTP,
+ INTERNET_SCHEME_GOPHER,
+ INTERNET_SCHEME_HTTP,
+ INTERNET_SCHEME_HTTPS,
+ INTERNET_SCHEME_FILE,
+ INTERNET_SCHEME_NEWS,
+ INTERNET_SCHEME_MAILTO,
+ INTERNET_SCHEME_SOCKS,
+ INTERNET_SCHEME_JAVASCRIPT,
+ INTERNET_SCHEME_VBSCRIPT,
+ INTERNET_SCHEME_RES);
+
+const
+ INTERNET_SCHEME_FIRST = INTERNET_SCHEME_FTP;
+ INTERNET_SCHEME_LAST = INTERNET_SCHEME_RES;
+
+type
+ LPINTERNET_SCHEME = ^INTERNET_SCHEME;
+
+//
+// INTERNET_ASYNC_RESULT - this structure is returned to the application via
+// the callback with INTERNET_STATUS_REQUEST_COMPLETE. It is not sufficient to
+// just return the result of the async operation. If the API failed then the
+// app cannot call GetLastError() because the thread context will be incorrect.
+// Both the value returned by the async API and any resultant error code are
+// made available. The app need not check dwError if dwResult indicates that
+// the API succeeded (in this case dwError will be ERROR_SUCCESS)
+//
+
+type
+ INTERNET_ASYNC_RESULT = record
+ //
+ // dwResult - the HINTERNET, DWORD or BOOL return code from an async API
+ //
+ dwResult:DWORD_PTR;
+ //
+ // dwError - the error code if the API failed
+ //
+ dwError:DWORD;
+ end;
+ LPINTERNET_ASYNC_RESULT = ^INTERNET_ASYNC_RESULT;
+
+
+//
+// INTERNET_PROXY_INFO - structure supplied with INTERNET_OPTION_PROXY to get/
+// set proxy information on a InternetOpen() handle
+//
+
+type
+ INTERNET_PROXY_INFO = record
+ //
+ // dwAccessType - INTERNET_OPEN_TYPE_DIRECT, INTERNET_OPEN_TYPE_PROXY, or
+ // INTERNET_OPEN_TYPE_PRECONFIG (set only)
+ //
+ dwAccessType:DWORD;
+
+ //
+ // lpszProxy - proxy server list
+ //
+ lpszProxy:LPCTSTR;
+
+ //
+ // lpszProxyBypass - proxy bypass list
+ //
+ lpszProxyBypass:LPCTSTR;
+ end;
+ LPINTERNET_PROXY_INFO = ^INTERNET_PROXY_INFO;
+
+//
+// INTERNET_PER_CONN_OPTION_LIST - set per-connection options such as proxy
+// and autoconfig info
+//
+// Set and queried using Internet[Set|Query]Option with
+// INTERNET_OPTION_PER_CONNECTION_OPTION
+//
+type
+ INTERNET_PER_CONN_OPTIONA = record
+ dwOption:DWORD; // option to be queried or set
+ case DWORD of
+ 0: (dwValue:DWORD); // dword value for the option
+ 1: (pszValue:LPSTR); // pointer to string value for the option
+ 2: (ftValue:FILETIME); // file-time value for the option
+ end;
+ LPINTERNET_PER_CONN_OPTIONA = ^INTERNET_PER_CONN_OPTIONA;
+
+type
+ INTERNET_PER_CONN_OPTIONW = record
+ dwOption:DWORD; // option to be queried or set
+ case DWORD of
+ 0: (dwValue:DWORD); // dword value for the option
+ 1: (pszValue:LPWSTR); // pointer to string value for the option
+ 2: (ftValue:FILETIME); // file-time value for the option
+ end;
+ LPINTERNET_PER_CONN_OPTIONW = ^INTERNET_PER_CONN_OPTIONW;
+
+{$IFDEF UNICODE}
+type
+ INTERNET_PER_CONN_OPTION = INTERNET_PER_CONN_OPTIONW;
+ LPINTERNET_PER_CONN_OPTION = LPINTERNET_PER_CONN_OPTIONW;
+{$ELSE UNICODE}
+type
+ INTERNET_PER_CONN_OPTION = INTERNET_PER_CONN_OPTIONA;
+ LPINTERNET_PER_CONN_OPTION = LPINTERNET_PER_CONN_OPTIONA;
+{$ENDIF UNICODE}
+
+type
+ INTERNET_PER_CONN_OPTION_LISTA = record
+ dwSize:DWORD; // size of the INTERNET_PER_CONN_OPTION_LIST struct
+ pszConnection:LPSTR; // connection name to set/query options
+ dwOptionCount:DWORD; // number of options to set/query
+ dwOptionError:DWORD; // on error, which option failed
+ pOptions:LPINTERNET_PER_CONN_OPTIONA; // array of options to set/query
+ end;
+ LPINTERNET_PER_CONN_OPTION_LISTA = ^INTERNET_PER_CONN_OPTION_LISTA;
+
+type
+ INTERNET_PER_CONN_OPTION_LISTW = record
+ dwSize:DWORD; // size of the INTERNET_PER_CONN_OPTION_LIST struct
+ pszConnection:LPWSTR; // connection name to set/query options
+ dwOptionCount:DWORD; // number of options to set/query
+ dwOptionError:DWORD; // on error, which option failed
+ pOptions:LPINTERNET_PER_CONN_OPTIONW; // array of options to set/query
+ end;
+ LPINTERNET_PER_CONN_OPTION_LISTW = ^INTERNET_PER_CONN_OPTION_LISTW;
+
+{$IFDEF UNICODE}
+type
+ INTERNET_PER_CONN_OPTION_LIST = INTERNET_PER_CONN_OPTION_LISTW;
+ LPINTERNET_PER_CONN_OPTION_LIST = LPINTERNET_PER_CONN_OPTION_LISTW;
+{$ELSE UNICODE}
+type
+ INTERNET_PER_CONN_OPTION_LIST = INTERNET_PER_CONN_OPTION_LISTA;
+ LPINTERNET_PER_CONN_OPTION_LIST = LPINTERNET_PER_CONN_OPTION_LISTA;
+{$ENDIF UNICODE}
+
+//
+// Options used in INTERNET_PER_CONN_OPTON struct
+//
+const
+ INTERNET_PER_CONN_FLAGS = 1;
+ INTERNET_PER_CONN_PROXY_SERVER = 2;
+ INTERNET_PER_CONN_PROXY_BYPASS = 3;
+ INTERNET_PER_CONN_AUTOCONFIG_URL = 4;
+ INTERNET_PER_CONN_AUTODISCOVERY_FLAGS = 5;
+ INTERNET_PER_CONN_AUTOCONFIG_SECONDARY_URL = 6;
+ INTERNET_PER_CONN_AUTOCONFIG_RELOAD_DELAY_MINS = 7;
+ INTERNET_PER_CONN_AUTOCONFIG_LAST_DETECT_TIME = 8;
+ INTERNET_PER_CONN_AUTOCONFIG_LAST_DETECT_URL = 9;
+
+//
+// PER_CONN_FLAGS
+//
+const
+ PROXY_TYPE_DIRECT = $00000001; // direct to net
+ PROXY_TYPE_PROXY = $00000002; // via named proxy
+ PROXY_TYPE_AUTO_PROXY_URL = $00000004; // autoproxy URL
+ PROXY_TYPE_AUTO_DETECT = $00000008; // use autoproxy detection
+
+//
+// PER_CONN_AUTODISCOVERY_FLAGS
+//
+ AUTO_PROXY_FLAG_USER_SET = $00000001; // user changed this setting
+ AUTO_PROXY_FLAG_ALWAYS_DETECT = $00000002; // force detection even when its not needed
+ AUTO_PROXY_FLAG_DETECTION_RUN = $00000004; // detection has been run
+ AUTO_PROXY_FLAG_MIGRATED = $00000008; // migration has just been done
+ AUTO_PROXY_FLAG_DONT_CACHE_PROXY_RESULT = $00000010; // don't cache result of host=proxy name
+ AUTO_PROXY_FLAG_CACHE_INIT_RUN = $00000020; // don't initalize and run unless URL expired
+ AUTO_PROXY_FLAG_DETECTION_SUSPECT = $00000040; // if we're on a LAN & Modem, with only one IP, bad?!?
+
+//
+// INTERNET_VERSION_INFO - version information returned via
+// InternetQueryOption(..., INTERNET_OPTION_VERSION, ...)
+//
+type
+ INTERNET_VERSION_INFO = record
+ dwMajorVersion:DWORD;
+ dwMinorVersion:DWORD;
+ end;
+ LPINTERNET_VERSION_INFO = ^INTERNET_VERSION_INFO;
+
+//
+// HTTP_VERSION_INFO - query or set global HTTP version (1.0 or 1.1)
+//
+type
+ HTTP_VERSION_INFO = record
+ dwMajorVersion:DWORD;
+ dwMinorVersion:DWORD;
+ end;
+ LPHTTP_VERSION_INFO = ^HTTP_VERSION_INFO;
+
+//
+// INTERNET_CONNECTED_INFO - information used to set the global connected state
+//
+
+type
+ INTERNET_CONNECTED_INFO = record
+ //
+ // dwConnectedState - new connected/disconnected state.
+ // See INTERNET_STATE_CONNECTED, etc.
+ //
+ dwConnectedState:DWORD;
+ //
+ // dwFlags - flags controlling connected->disconnected (or disconnected->
+ // connected) transition. See below
+ //
+ dwFlags:DWORD;
+ end;
+ LPINTERNET_CONNECTED_INFO = ^INTERNET_CONNECTED_INFO;
+
+
+//
+// flags for INTERNET_CONNECTED_INFO dwFlags
+//
+
+//
+// ISO_FORCE_DISCONNECTED - if set when putting Wininet into disconnected mode,
+// all outstanding requests will be aborted with a cancelled error
+//
+const
+ ISO_FORCE_DISCONNECTED = $00000001;
+
+
+//
+// URL_COMPONENTS - the constituent parts of an URL. Used in InternetCrackUrl()
+// and InternetCreateUrl()
+//
+// For InternetCrackUrl(), if a pointer field and its corresponding length field
+// are both 0 then that component is not returned. If the pointer field is NULL
+// but the length field is not zero, then both the pointer and length fields are
+// returned if both pointer and corresponding length fields are non-zero then
+// the pointer field points to a buffer where the component is copied. The
+// component may be un-escaped, depending on dwFlags
+//
+// For InternetCreateUrl(), the pointer fields should be NULL if the component
+// is not required. If the corresponding length field is zero then the pointer
+// field is the address of a zero-terminated string. If the length field is not
+// zero then it is the string length of the corresponding pointer field
+//
+
+// #pragma warning( disable : 4121 ) // disable alignment warning
+
+type
+ URL_COMPONENTSA = record
+ dwStructSize:DWORD; // size of this structure. Used in version check
+ lpszScheme:LPSTR; // pointer to scheme name
+ dwSchemeLength:DWORD; // length of scheme name
+ nScheme:INTERNET_SCHEME; // enumerated scheme type (if known)
+ lpszHostName:LPSTR; // pointer to host name
+ dwHostNameLength:DWORD; // length of host name
+ nPort:INTERNET_PORT; // converted port number
+ lpszUserName:LPSTR; // pointer to user name
+ dwUserNameLength:DWORD; // length of user name
+ lpszPassword:LPSTR; // pointer to password
+ dwPasswordLength:DWORD; // length of password
+ lpszUrlPath:LPSTR; // pointer to URL-path
+ dwUrlPathLength:DWORD; // length of URL-path
+ lpszExtraInfo:LPSTR; // pointer to extra information (e.g. ?foo or #foo)
+ dwExtraInfoLength:DWORD; // length of extra information
+ end;
+ LPURL_COMPONENTSA = ^URL_COMPONENTSA;
+
+type
+ URL_COMPONENTSW = record
+ dwStructSize:DWORD; // size of this structure. Used in version check
+ lpszScheme:LPWSTR; // pointer to scheme name
+ dwSchemeLength:DWORD; // length of scheme name
+ nScheme:INTERNET_SCHEME; // enumerated scheme type (if known)
+ lpszHostName:LPWSTR; // pointer to host name
+ dwHostNameLength:DWORD; // length of host name
+ nPort:INTERNET_PORT; // converted port number
+ lpszUserName:LPWSTR; // pointer to user name
+ dwUserNameLength:DWORD; // length of user name
+ lpszPassword:LPWSTR; // pointer to password
+ dwPasswordLength:DWORD; // length of password
+ lpszUrlPath:LPWSTR; // pointer to URL-path
+ dwUrlPathLength:DWORD; // length of URL-path
+ lpszExtraInfo:LPWSTR; // pointer to extra information (e.g. ?foo or #foo)
+ dwExtraInfoLength:DWORD; // length of extra information
+ end;
+ LPURL_COMPONENTSW = ^URL_COMPONENTSW;
+
+{$IFDEF UNICODE}
+type
+ URL_COMPONENTS = URL_COMPONENTSW;
+ LPURL_COMPONENTS = LPURL_COMPONENTSW;
+{$ELSE UNICODE}
+type
+ URL_COMPONENTS = URL_COMPONENTSA;
+ LPURL_COMPONENTS = LPURL_COMPONENTSA;
+{$ENDIF UNICODE}
+
+// #pragma warning( default : 4121 ) // restore alignment warning
+
+//
+// INTERNET_CERTIFICATE_INFO lpBuffer - contains the certificate returned from
+// the server
+//
+
+type
+ INTERNET_CERTIFICATE_INFO = record
+ //
+ // ftExpiry - date the certificate expires.
+ //
+ ftExpiry:FILETIME;
+
+ //
+ // ftStart - date the certificate becomes valid.
+ //
+ ftStart:FILETIME;
+
+ //
+ // lpszSubjectInfo - the name of organization, site, and server
+ // the cert. was issued for.
+ //
+ lpszSubjectInfo:LPTSTR;
+
+ //
+ // lpszIssuerInfo - the name of orgainzation, site, and server
+ // the cert was issues by.
+ //
+ lpszIssuerInfo:LPTSTR;
+
+ //
+ // lpszProtocolName - the name of the protocol used to provide the secure
+ // connection.
+ //
+ lpszProtocolName:LPTSTR;
+
+ //
+ // lpszSignatureAlgName - the name of the algorithm used for signing
+ // the certificate.
+ //
+ lpszSignatureAlgName:LPTSTR;
+
+ //
+ // lpszEncryptionAlgName - the name of the algorithm used for
+ // doing encryption over the secure channel (SSL/PCT) connection.
+ //
+ lpszEncryptionAlgName:LPTSTR;
+
+ //
+ // dwKeySize - size of the key.
+ //
+ dwKeySize:DWORD;
+ end;
+ LPINTERNET_CERTIFICATE_INFO = ^INTERNET_CERTIFICATE_INFO;
+
+
+//
+// INTERNET_BUFFERS - combines headers and data. May be chained for e.g. file
+// upload or scatter/gather operations. For chunked read/write, lpcszHeader
+// contains the chunked-ext
+//
+type
+ LPINTERNET_BUFFERSA = ^_INTERNET_BUFFERSA;
+ _INTERNET_BUFFERSA = record
+ dwStructSize:DWORD; // used for API versioning. Set to sizeof(INTERNET_BUFFERS)
+ Next:LPINTERNET_BUFFERSA; // chain of buffers
+ lpcszHeader:LPCSTR; // pointer to headers (may be NULL)
+ dwHeadersLength:DWORD; // length of headers if not NULL
+ dwHeadersTotal:DWORD; // size of headers if not enough buffer
+ lpvBuffer:LPVOID; // pointer to data buffer (may be NULL)
+ dwBufferLength:DWORD; // length of data buffer if not NULL
+ dwBufferTotal:DWORD; // total size of chunk, or content-length if not chunked
+ dwOffsetLow:DWORD; // used for read-ranges (only used in HttpSendRequest2)
+ dwOffsetHigh:DWORD;
+ end;
+ INTERNET_BUFFERSA = _INTERNET_BUFFERSA;
+
+type
+ LPINTERNET_BUFFERSW = ^_INTERNET_BUFFERSW;
+ _INTERNET_BUFFERSW = record
+ dwStructSize:DWORD; // used for API versioning. Set to sizeof(INTERNET_BUFFERS)
+ Next:LPINTERNET_BUFFERSW; // chain of buffers
+ lpcszHeader:LPCSTR; // pointer to headers (may be NULL)
+ dwHeadersLength:DWORD; // length of headers if not NULL
+ dwHeadersTotal:DWORD; // size of headers if not enough buffer
+ lpvBuffer:LPVOID; // pointer to data buffer (may be NULL)
+ dwBufferLength:DWORD; // length of data buffer if not NULL
+ dwBufferTotal:DWORD; // total size of chunk, or content-length if not chunked
+ dwOffsetLow:DWORD; // used for read-ranges (only used in HttpSendRequest2)
+ dwOffsetHigh:DWORD;
+ end;
+ INTERNET_BUFFERSW = _INTERNET_BUFFERSW;
+
+{$IFDEF UNICODE}
+type
+ INTERNET_BUFFERS = INTERNET_BUFFERSW;
+ LPINTERNET_BUFFERS = LPINTERNET_BUFFERSW;
+{$ELSE UNICODE}
+type
+ INTERNET_BUFFERS = INTERNET_BUFFERSA;
+ LPINTERNET_BUFFERS = LPINTERNET_BUFFERSA;
+{$ENDIF UNICODE}
+
+//
+// prototypes
+//
+const
+ WinInetDLL = 'wininet.dll';
+
+function InternetTimeFromSystemTimeA(pst:LPSYSTEMTIME; // input GMT time
+ dwRFC:DWORD; // RFC format
+ lpszTime:LPSTR; // output string buffer
+ cbTime:DWORD // output buffer size
+ ):BOOL; external WinInetDLL name 'InternetTimeFromSystemTimeA';
+
+function InternetTimeFromSystemTimeW(pst:LPSYSTEMTIME; // input GMT time
+ dwRFC:DWORD; // RFC format
+ lpszTime:LPWSTR; // output string buffer
+ cbTime:DWORD // output buffer size
+ ):BOOL; external WinInetDLL name 'InternetTimeFromSystemTimeW';
+
+{$IFDEF UNICODE}
+function InternetTimeFromSystemTime(pst:LPSYSTEMTIME; // input GMT time
+ dwRFC:DWORD; // RFC format
+ lpszTime:LPWSTR; // output string buffer
+ cbTime:DWORD // output buffer size
+ ):BOOL; external WinInetDLL name 'InternetTimeFromSystemTimeW';
+{$ELSE UNICODE}
+{$IFDEF WIN32}
+function InternetTimeFromSystemTime(pst:LPSYSTEMTIME; // input GMT time
+ dwRFC:DWORD; // RFC format
+ lpszTime:LPSTR; // output string buffer
+ cbTime:DWORD // output buffer size
+ ):BOOL; external WinInetDLL name 'InternetTimeFromSystemTimeA';
+{$ELSE WIN32}
+function InternetTimeFromSystemTime(pst:LPSYSTEMTIME; // input GMT time
+ dwRFC:DWORD; // RFC format
+ lpszTime:LPSTR; // output string buffer
+ cbTime:DWORD // output buffer size
+ ):BOOL; external WinInetDLL name 'InternetTimeFromSystemTime';
+{$ENDIF WIN32}
+{$ENDIF UNICODE}
+
+
+//
+// constants for InternetTimeFromSystemTime
+//
+const
+ INTERNET_RFC1123_FORMAT = 0;
+ INTERNET_RFC1123_BUFSIZE = 30;
+
+function InternetTimeToSystemTimeA(lpszTime:LPCSTR; // NULL terminated string
+ pst:LPSYSTEMTIME; // output in GMT time
+ dwReserved:DWORD
+ ):BOOL; external WinInetDLL name 'InternetTimeToSystemTimeA';
+
+function InternetTimeToSystemTimeW(lpszTime:LPCWSTR; // NULL terminated string
+ pst:LPSYSTEMTIME; // output in GMT time
+ dwReserved:DWORD
+ ):BOOL; external WinInetDLL name 'InternetTimeToSystemTimeW';
+
+{$IFDEF UNICODE}
+function InternetTimeToSystemTime(lpszTime:LPCWSTR; // NULL terminated string
+ pst:LPSYSTEMTIME; // output in GMT time
+ dwReserved:DWORD
+ ):BOOL; external WinInetDLL name 'InternetTimeToSystemTimeW';
+{$ELSE UNICODE}
+{$IFDEF WIN32}
+function InternetTimeToSystemTime(lpszTime:LPCSTR; // NULL terminated string
+ pst:LPSYSTEMTIME; // output in GMT time
+ dwReserved:DWORD
+ ):BOOL; external WinInetDLL name 'InternetTimeToSystemTimeA';
+{$ELSE WIN32}
+function InternetTimeToSystemTime(lpszTime:LPCSTR; // NULL terminated string
+ pst:LPSYSTEMTIME; // output in GMT time
+ dwReserved:DWORD
+ ):BOOL; external WinInetDLL name 'InternetTimeToSystemTime';
+{$ENDIF WIN32}
+{$ENDIF UNICODE}
+
+function InternetCrackUrlA(lpszUrl:LPCSTR;
+ dwUrlLength:DWORD;
+ dwFlags:DWORD;
+ lpUrlComponents:LPURL_COMPONENTSA
+ ):BOOL; external WinInetDLL name 'InternetCrackUrlA';
+
+function InternetCrackUrlW(lpszUrl:LPCWSTR;
+ dwUrlLength:DWORD;
+ dwFlags:DWORD;
+ lpUrlComponents:LPURL_COMPONENTSW
+ ):BOOL; external WinInetDLL name 'InternetCrackUrlW';
+
+{$IFDEF UNICODE}
+function InternetCrackUrl(lpszUrl:LPCWSTR;
+ dwUrlLength:DWORD;
+ dwFlags:DWORD;
+ lpUrlComponents:LPURL_COMPONENTSW
+ ):BOOL; external WinInetDLL name 'InternetCrackUrlW';
+{$ELSE UNICODE}
+function InternetCrackUrl(lpszUrl:LPCSTR;
+ dwUrlLength:DWORD;
+ dwFlags:DWORD;
+ lpUrlComponents:LPURL_COMPONENTSA
+ ):BOOL; external WinInetDLL name 'InternetCrackUrlA';
+{$ENDIF UNICODE}
+
+function InternetCreateUrlA(lpUrlComponents:LPURL_COMPONENTSA;
+ dwFlags:DWORD;
+ lpszUrl:LPSTR;
+ lpdwUrlLength:LPDWORD
+ ):BOOL; external WinInetDLL name 'InternetCreateUrlA';
+
+function InternetCreateUrlW(lpUrlComponents:LPURL_COMPONENTSW;
+ dwFlags:DWORD;
+ lpszUrl:LPWSTR;
+ lpdwUrlLength:LPDWORD
+ ):BOOL; external WinInetDLL name 'InternetCreateUrlW';
+
+{$IFDEF UNICODE}
+function InternetCreateUrl(lpUrlComponents:LPURL_COMPONENTSW;
+ dwFlags:DWORD;
+ lpszUrl:LPWSTR;
+ lpdwUrlLength:LPDWORD
+ ):BOOL; external WinInetDLL name 'InternetCreateUrlW';
+{$ELSE UNICODE}
+function InternetCreateUrl(lpUrlComponents:LPURL_COMPONENTSA;
+ dwFlags:DWORD;
+ lpszUrl:LPSTR;
+ lpdwUrlLength:LPDWORD
+ ):BOOL; external WinInetDLL name 'InternetCreateUrlA';
+{$ENDIF UNICODE}
+
+
+function InternetCanonicalizeUrlA(lpszUrl:LPCSTR;
+ lpszBuffer:LPSTR;
+ lpdwBufferLength:LPDWORD;
+ dwFlags:DWORD
+ ):BOOL; external WinInetDLL name 'InternetCanonicalizeUrlA';
+
+function InternetCanonicalizeUrlW(lpszUrl:LPCWSTR;
+ lpszBuffer:LPWSTR;
+ lpdwBufferLength:LPDWORD;
+ dwFlags:DWORD
+ ):BOOL; external WinInetDLL name 'InternetCanonicalizeUrlW';
+
+{$IFDEF UNICODE}
+function InternetCanonicalizeUrl(lpszUrl:LPCWSTR;
+ lpszBuffer:LPWSTR;
+ lpdwBufferLength:LPDWORD;
+ dwFlags:DWORD
+ ):BOOL; external WinInetDLL name 'InternetCanonicalizeUrlW';
+{$ELSE UNICODE}
+function InternetCanonicalizeUrl(lpszUrl:LPCSTR;
+ lpszBuffer:LPSTR;
+ lpdwBufferLength:LPDWORD;
+ dwFlags:DWORD
+ ):BOOL; external WinInetDLL name 'InternetCanonicalizeUrlA';
+{$ENDIF UNICODE}
+
+function InternetCombineUrlA(lpszBaseUrl:LPCSTR;
+ lpszRelativeUrl:LPCSTR;
+ lpszBuffer:LPSTR;
+ lpdwBufferLength:LPDWORD;
+ dwFlags:DWORD
+ ):BOOL; external WinInetDLL name 'InternetCombineUrlA';
+
+function InternetCombineUrlW(lpszBaseUrl:LPCWSTR;
+ lpszRelativeUrl:LPCWSTR;
+ lpszBuffer:LPWSTR;
+ lpdwBufferLength:LPDWORD;
+ dwFlags:DWORD
+ ):BOOL; external WinInetDLL name 'InternetCombineUrlW';
+
+{$IFDEF UNICODE}
+function InternetCombineUrl(lpszBaseUrl:LPCWSTR;
+ lpszRelativeUrl:LPCWSTR;
+ lpszBuffer:LPWSTR;
+ lpdwBufferLength:LPDWORD;
+ dwFlags:DWORD
+ ):BOOL; external WinInetDLL name 'InternetCombineUrlW';
+{$ELSE UNICODE}
+function InternetCombineUrl(lpszBaseUrl:LPCSTR;
+ lpszRelativeUrl:LPCSTR;
+ lpszBuffer:LPSTR;
+ lpdwBufferLength:LPDWORD;
+ dwFlags:DWORD
+ ):BOOL; external WinInetDLL name 'InternetCombineUrlA';
+{$ENDIF UNICODE}
+
+//
+// flags for InternetCrackUrl() and InternetCreateUrl()
+//
+const
+ ICU_ESCAPE = $80000000; // (un)escape URL characters
+ ICU_USERNAME = $40000000; // use internal username & password
+ ICU_ESCAPE_AUTHORITY = $00002000; // causes InternetCreateUrlA to escape chars in authority components (user, pwd, host)
+
+
+//
+// flags for InternetCanonicalizeUrl() and InternetCombineUrl()
+//
+const
+ ICU_NO_ENCODE = $20000000; // Don't convert unsafe characters to escape sequence
+ ICU_DECODE = $10000000; // Convert %XX escape sequences to characters
+ ICU_NO_META = $08000000; // Don't convert .. etc. meta path sequences
+ ICU_ENCODE_SPACES_ONLY = $04000000; // Encode spaces only
+ ICU_BROWSER_MODE = $02000000; // Special encode/decode rules for browser
+ ICU_ENCODE_PERCENT = $00001000; // Encode any percent (ASCII25)
+ // signs encountered, default is to not encode percent.
+
+function InternetOpenA(lpszAgent:LPCSTR;
+ dwAccessType:DWORD;
+ lpszProxy:LPCSTR;
+ lpszProxyBypass:LPCSTR;
+ dwFlags:DWORD
+ ):HINTERNET; external WinInetDLL name 'InternetOpenA';
+
+function InternetOpenW(lpszAgent:LPCWSTR;
+ dwAccessType:DWORD;
+ lpszProxy:LPCWSTR;
+ lpszProxyBypass:LPCWSTR;
+ dwFlags:DWORD
+ ):HINTERNET; external WinInetDLL name 'InternetOpenW';
+
+{$IFDEF UNICODE}
+function InternetOpen(lpszAgent:LPCWSTR;
+ dwAccessType:DWORD;
+ lpszProxy:LPCWSTR;
+ lpszProxyBypass:LPCWSTR;
+ dwFlags:DWORD
+ ):HINTERNET; external WinInetDLL name 'InternetOpenW';
+{$ELSE UNICODE}
+function InternetOpen(lpszAgent:LPCSTR;
+ dwAccessType:DWORD;
+ lpszProxy:LPCSTR;
+ lpszProxyBypass:LPCSTR;
+ dwFlags:DWORD
+ ):HINTERNET; external WinInetDLL name 'InternetOpenA';
+{$ENDIF UNICODE}
+
+//
+// access types for InternetOpen()
+//
+const
+ INTERNET_OPEN_TYPE_PRECONFIG = 0; // use registry configuration
+ INTERNET_OPEN_TYPE_DIRECT = 1; // direct to net
+ INTERNET_OPEN_TYPE_PROXY = 3; // via named proxy
+ INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY = 4; // prevent using java/script/INS
+
+//
+// old names for access types
+//
+const
+ PRE_CONFIG_INTERNET_ACCESS = INTERNET_OPEN_TYPE_PRECONFIG;
+ LOCAL_INTERNET_ACCESS = INTERNET_OPEN_TYPE_DIRECT;
+ CERN_PROXY_INTERNET_ACCESS = INTERNET_OPEN_TYPE_PROXY;
+
+function InternetCloseHandle(_hInternet:HINTERNET):BOOL; external WinInetDLL name 'InternetCloseHandle';
+
+function InternetConnectA(_hInternet:HINTERNET;
+ lpszServerName:LPCSTR;
+ nServerPort:INTERNET_PORT;
+ lpszUserName:LPCSTR;
+ lpszPassword:LPCSTR;
+ dwService:DWORD;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):HINTERNET; external WinInetDLL name 'InternetConnectA';
+
+function InternetConnectW(_hInternet:HINTERNET;
+ lpszServerName:LPCWSTR;
+ nServerPort:INTERNET_PORT;
+ lpszUserName:LPCWSTR;
+ lpszPassword:LPCWSTR;
+ dwService:DWORD;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):HINTERNET; external WinInetDLL name 'InternetConnectW';
+
+{$IFDEF UNICODE}
+function InternetConnect(_hInternet:HINTERNET;
+ lpszServerName:LPCWSTR;
+ nServerPort:INTERNET_PORT;
+ lpszUserName:LPCWSTR;
+ lpszPassword:LPCWSTR;
+ dwService:DWORD;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):HINTERNET; external WinInetDLL name 'InternetConnectW';
+{$ELSE UNICODE}
+function InternetConnect(_hInternet:HINTERNET;
+ lpszServerName:LPCSTR;
+ nServerPort:INTERNET_PORT;
+ lpszUserName:LPCSTR;
+ lpszPassword:LPCSTR;
+ dwService:DWORD;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):HINTERNET; external WinInetDLL name 'InternetConnectA';
+{$ENDIF UNICODE}
+
+//
+// service types for InternetConnect()
+//
+const
+ INTERNET_SERVICE_FTP = 1;
+ INTERNET_SERVICE_GOPHER = 2;
+ INTERNET_SERVICE_HTTP = 3;
+
+
+function InternetOpenUrlA(_hInternet:HINTERNET;
+ lpszUrl:LPCSTR;
+ lpszHeaders:LPCSTR;
+ dwHeadersLength:DWORD;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):HINTERNET; external WinInetDLL name 'InternetOpenUrlA';
+
+function InternetOpenUrlW(_hInternet:HINTERNET;
+ lpszUrl:LPCWSTR;
+ lpszHeaders:LPCWSTR;
+ dwHeadersLength:DWORD;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):HINTERNET; external WinInetDLL name 'InternetOpenUrlW';
+
+{$IFDEF UNICODE}
+function InternetOpenUrl(_hInternet:HINTERNET;
+ lpszUrl:LPCWSTR;
+ lpszHeaders:LPCWSTR;
+ dwHeadersLength:DWORD;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):HINTERNET; external WinInetDLL name 'InternetOpenUrlW';
+{$ELSE UNICODE}
+function InternetOpenUrl(_hInternet:HINTERNET;
+ lpszUrl:LPCSTR;
+ lpszHeaders:LPCSTR;
+ dwHeadersLength:DWORD;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):HINTERNET; external WinInetDLL name 'InternetOpenUrlA';
+{$ENDIF UNICODE}
+
+function InternetReadFile(_hFile:HINTERNET;
+ lpBuffer:LPVOID;
+ dwNumberOfBytesToRead:DWORD;
+ lpdwNumberOfBytesRead:LPDWORD
+ ):BOOL; external WinInetDLL name 'InternetREadFile';
+
+function InternetReadFileExA(_hFile:HINTERNET;
+ lpBuffersOut:LPINTERNET_BUFFERSA;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):BOOL; external WinInetDLL name 'InternetReadFileExA';
+
+function InternetReadFileExW(_hFile:HINTERNET;
+ lpBuffersOut:LPINTERNET_BUFFERSW;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):BOOL; external WinInetDLL name 'InternetReadFileExW';
+
+{$IFDEF UNICODE}
+function InternetReadFileEx(_hFile:HINTERNET;
+ lpBuffersOut:LPINTERNET_BUFFERSW;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):BOOL; external WinInetDLL name 'InternetReadFileExW';
+{$ELSE UNICODE}
+function InternetReadFileEx(_hFile:HINTERNET;
+ lpBuffersOut:LPINTERNET_BUFFERSA;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):BOOL; external WinInetDLL name 'InternetReadFileExA';
+{$ENDIF UNICODE}
+
+
+//
+// flags for InternetReadFileEx()
+//
+const
+ IRF_ASYNC = WININET_API_FLAG_ASYNC;
+ IRF_SYNC = WININET_API_FLAG_SYNC;
+ IRF_USE_CONTEXT = WININET_API_FLAG_USE_CONTEXT;
+ IRF_NO_WAIT = $00000008;
+
+function InternetSetFilePointer(_hFile:HINTERNET;
+ lDistanceToMove:LONG;
+ pReserved:PVOID;
+ dwMoveMethod:DWORD;
+ dwContext:DWORD_PTR
+ ):DWORD; external WinInetDLL name 'InternetSetFilePointer';
+
+function InternetWriteFile(_hFile:HINTERNET;
+ lpBuffer:LPCVOID;
+ dwNumberOfBytesToWrite:DWORD;
+ lpdwNumberOfBytesWritten:LPDWORD
+ ):BOOL; external WinInetDLL name 'InternetWriteFile';
+
+
+function InternetQueryDataAvailable(_hFile:HINTERNET;
+ lpdwNumberOfBytesAvailable:LPDWORD;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):BOOL; external WinInetDLL name 'InternetQueryDataAvailable';
+
+function InternetFindNextFileA(hFind:HINTERNET;
+ lpvFindData:LPVOID
+ ):BOOL; external WinInetDLL name 'InternetFindNextFileA';
+
+function InternetFindNextFileW(hFind:HINTERNET;
+ lpvFindData:LPVOID
+ ):BOOL; external WinInetDLL name 'InternetFindNextFileW';
+
+{$IFDEF UNICODE}
+function InternetFindNextFile(hFind:HINTERNET;
+ lpvFindData:LPVOID
+ ):BOOL; external WinInetDLL name 'InternetFindNextFileW';
+{$ELSE UNICODE}
+function InternetFindNextFile(hFind:HINTERNET;
+ lpvFindData:LPVOID
+ ):BOOL; external WinInetDLL name 'InternetFindNextFileA';
+{$ENDIF UNICODE}
+
+function InternetQueryOptionA(_hInternet:HINTERNET;
+ dwOption:DWORD;
+ lpBuffer:LPVOID;
+ lpdwBufferLength:LPDWORD
+ ):BOOL; external WinInetDLL name 'InternetQueryOptionA';
+
+function InternetQueryOptionW(_hInternet:HINTERNET;
+ dwOption:DWORD;
+ lpBuffer:LPVOID;
+ lpdwBufferLength:LPDWORD
+ ):BOOL; external WinInetDLL name 'InternetQueryOptionW';
+
+{$IFDEF UNICODE}
+function InternetQueryOption(_hInternet:HINTERNET;
+ dwOption:DWORD;
+ lpBuffer:LPVOID;
+ lpdwBufferLength:LPDWORD
+ ):BOOL; external WinInetDLL name 'InternetQueryOptionW';
+{$ELSE UNICODE}
+function InternetQueryOption(_hInternet:HINTERNET;
+ dwOption:DWORD;
+ lpBuffer:LPVOID;
+ lpdwBufferLength:LPDWORD
+ ):BOOL; external WinInetDLL name 'InternetQueryOptionA';
+{$ENDIF UNICODE}
+
+function InternetSetOptionA(_hInternet:HINTERNET;
+ dwOption:DWORD;
+ lpBuffer:LPVOID;
+ dwBufferLength:DWORD
+ ):BOOL; external WinInetDLL name 'InternetSetOptionA';
+
+function InternetSetOptionW(_hInternet:HINTERNET;
+ dwOption:DWORD;
+ lpBuffer:LPVOID;
+ dwBufferLength:DWORD
+ ):BOOL; external WinInetDLL name 'InternetSetOptionW';
+
+{$IFDEF UNICODE}
+function InternetSetOption(_hInternet:HINTERNET;
+ dwOption:DWORD;
+ lpBuffer:LPVOID;
+ dwBufferLength:DWORD
+ ):BOOL; external WinInetDLL name 'InternetSetOptionW';
+{$ELSE UNICODE}
+function InternetSetOption(_hInternet:HINTERNET;
+ dwOption:DWORD;
+ lpBuffer:LPVOID;
+ dwBufferLength:DWORD
+ ):BOOL; external WinInetDLL name 'InternetSetOptionA';
+{$ENDIF UNICODE}
+
+function InternetSetOptionExA(_hInternet:HINTERNET;
+ dwOption:DWORD;
+ lpBuffer:LPVOID;
+ dwBufferLength:DWORD;
+ dwFlags:DWORD
+ ):BOOL; external WinInetDLL name 'InternetSetOptionExA';
+
+function InternetSetOptionExW(_hInternet:HINTERNET;
+ dwOption:DWORD;
+ lpBuffer:LPVOID;
+ dwBufferLength:DWORD;
+ dwFlags:DWORD
+ ):BOOL; external WinInetDLL name 'InternetSetOptionExW';
+
+{$IFDEF UNICODE}
+function InternetSetOptionEx(_hInternet:HINTERNET;
+ dwOption:DWORD;
+ lpBuffer:LPVOID;
+ dwBufferLength:DWORD;
+ dwFlags:DWORD
+ ):BOOL; external WinInetDLL name 'InternetSetOptionExW';
+{$ELSE UNICODE}
+function InternetSetOptionEx(_hInternet:HINTERNET;
+ dwOption:DWORD;
+ lpBuffer:LPVOID;
+ dwBufferLength:DWORD;
+ dwFlags:DWORD
+ ):BOOL; external WinInetDLL name 'InternetSetOptionExA';
+{$ENDIF UNICODE}
+
+
+function InternetLockRequestFile(_hInternet:HINTERNET;
+ lphLockRequestInfo:LPHANDLE
+ ):BOOL; external WinInetDLL name 'InternetLockRequestFile';
+
+function InternetUnlockRequestFile(hLockRequestInfo:HANDLE):BOOL; external WinInetDLL name 'InternetUnlockRequestFile';
+
+//
+// flags for InternetSetOptionEx()
+//
+const
+ ISO_GLOBAL = $00000001; // modify option globally
+ ISO_REGISTRY = $00000002; // write option to registry (where applicable)
+
+ ISO_VALID_FLAGS = ISO_GLOBAL or ISO_REGISTRY;
+
+//
+// options manifests for Internet{Query|Set}Option
+//
+const
+ INTERNET_OPTION_CALLBACK = 1;
+ INTERNET_OPTION_CONNECT_TIMEOUT = 2;
+ INTERNET_OPTION_CONNECT_RETRIES = 3;
+ INTERNET_OPTION_CONNECT_BACKOFF = 4;
+ INTERNET_OPTION_SEND_TIMEOUT = 5;
+ INTERNET_OPTION_CONTROL_SEND_TIMEOUT = INTERNET_OPTION_SEND_TIMEOUT;
+ INTERNET_OPTION_RECEIVE_TIMEOUT = 6;
+ INTERNET_OPTION_CONTROL_RECEIVE_TIMEOUT = INTERNET_OPTION_RECEIVE_TIMEOUT;
+ INTERNET_OPTION_DATA_SEND_TIMEOUT = 7;
+ INTERNET_OPTION_DATA_RECEIVE_TIMEOUT = 8;
+ INTERNET_OPTION_HANDLE_TYPE = 9;
+ INTERNET_OPTION_LISTEN_TIMEOUT = 11;
+ INTERNET_OPTION_READ_BUFFER_SIZE = 12;
+ INTERNET_OPTION_WRITE_BUFFER_SIZE = 13;
+
+ INTERNET_OPTION_ASYNC_ID = 15;
+ INTERNET_OPTION_ASYNC_PRIORITY = 16;
+
+ INTERNET_OPTION_PARENT_HANDLE = 21;
+ INTERNET_OPTION_KEEP_CONNECTION = 22;
+ INTERNET_OPTION_REQUEST_FLAGS = 23;
+ INTERNET_OPTION_EXTENDED_ERROR = 24;
+
+ INTERNET_OPTION_FLUSH_CACHE = 25;
+ INTERNET_OPTION_OFFLINE_MODE = 26;
+ INTERNET_OPTION_CACHE_STREAM_HANDLE = 27;
+ INTERNET_OPTION_USERNAME = 28;
+ INTERNET_OPTION_PASSWORD = 29;
+ INTERNET_OPTION_ASYNC = 30;
+ INTERNET_OPTION_SECURITY_FLAGS = 31;
+ INTERNET_OPTION_SECURITY_CERTIFICATE_STRUCT = 32;
+ INTERNET_OPTION_DATAFILE_NAME = 33;
+ INTERNET_OPTION_URL = 34;
+ INTERNET_OPTION_SECURITY_CERTIFICATE = 35;
+ INTERNET_OPTION_SECURITY_KEY_BITNESS = 36;
+ INTERNET_OPTION_REFRESH = 37;
+ INTERNET_OPTION_PROXY = 38;
+ INTERNET_OPTION_SETTINGS_CHANGED = 39;
+ INTERNET_OPTION_VERSION = 40;
+ INTERNET_OPTION_USER_AGENT = 41;
+ INTERNET_OPTION_END_BROWSER_SESSION = 42;
+ INTERNET_OPTION_PROXY_USERNAME = 43;
+ INTERNET_OPTION_PROXY_PASSWORD = 44;
+ INTERNET_OPTION_CONTEXT_VALUE = 45;
+ INTERNET_OPTION_CONNECT_LIMIT = 46;
+ INTERNET_OPTION_SECURITY_SELECT_CLIENT_CERT = 47;
+ INTERNET_OPTION_POLICY = 48;
+ INTERNET_OPTION_DISCONNECTED_TIMEOUT = 49;
+ INTERNET_OPTION_CONNECTED_STATE = 50;
+ INTERNET_OPTION_IDLE_STATE = 51;
+ INTERNET_OPTION_OFFLINE_SEMANTICS = 52;
+ INTERNET_OPTION_SECONDARY_CACHE_KEY = 53;
+ INTERNET_OPTION_CALLBACK_FILTER = 54;
+ INTERNET_OPTION_CONNECT_TIME = 55;
+ INTERNET_OPTION_SEND_THROUGHPUT = 56;
+ INTERNET_OPTION_RECEIVE_THROUGHPUT = 57;
+ INTERNET_OPTION_REQUEST_PRIORITY = 58;
+ INTERNET_OPTION_HTTP_VERSION = 59;
+ INTERNET_OPTION_RESET_URLCACHE_SESSION = 60;
+ INTERNET_OPTION_ERROR_MASK = 62;
+ INTERNET_OPTION_FROM_CACHE_TIMEOUT = 63;
+ INTERNET_OPTION_BYPASS_EDITED_ENTRY = 64;
+ INTERNET_OPTION_CODEPAGE = 68;
+ INTERNET_OPTION_CACHE_TIMESTAMPS = 69;
+ INTERNET_OPTION_DISABLE_AUTODIAL = 70;
+ INTERNET_OPTION_MAX_CONNS_PER_SERVER = 73;
+ INTERNET_OPTION_MAX_CONNS_PER_1_0_SERVER = 74;
+ INTERNET_OPTION_PER_CONNECTION_OPTION = 75;
+ INTERNET_OPTION_DIGEST_AUTH_UNLOAD = 76;
+ INTERNET_OPTION_IGNORE_OFFLINE = 77;
+ INTERNET_OPTION_IDENTITY = 78;
+ INTERNET_OPTION_REMOVE_IDENTITY = 79;
+ INTERNET_OPTION_ALTER_IDENTITY = 80;
+ INTERNET_OPTION_SUPPRESS_BEHAVIOR = 81;
+ INTERNET_OPTION_AUTODIAL_MODE = 82;
+ INTERNET_OPTION_AUTODIAL_CONNECTION = 83;
+ INTERNET_OPTION_CLIENT_CERT_CONTEXT = 84;
+ INTERNET_OPTION_AUTH_FLAGS = 85;
+ INTERNET_OPTION_COOKIES_3RD_PARTY = 86;
+ INTERNET_OPTION_DISABLE_PASSPORT_AUTH = 87;
+ INTERNET_OPTION_SEND_UTF8_SERVERNAME_TO_PROXY = 88;
+ INTERNET_OPTION_EXEMPT_CONNECTION_LIMIT = 89;
+ INTERNET_OPTION_ENABLE_PASSPORT_AUTH = 90;
+
+ INTERNET_OPTION_HIBERNATE_INACTIVE_WORKER_THREADS = 91;
+ INTERNET_OPTION_ACTIVATE_WORKER_THREADS = 92;
+ INTERNET_OPTION_RESTORE_WORKER_THREAD_DEFAULTS = 93;
+ INTERNET_OPTION_SOCKET_SEND_BUFFER_LENGTH = 94;
+ INTERNET_OPTION_PROXY_SETTINGS_CHANGED = 95;
+ INTERNET_OPTION_SERVER_CERT_CONTEXT = 96;
+
+ INTERNET_OPTION_SOCKET_LINGER_TIME = 97;
+
+
+ INTERNET_FIRST_OPTION = INTERNET_OPTION_CALLBACK;
+ INTERNET_LAST_OPTION = INTERNET_OPTION_PROXY_SETTINGS_CHANGED;
+
+//
+// values for INTERNET_OPTION_PRIORITY
+//
+const
+ INTERNET_PRIORITY_FOREGROUND = 1000;
+
+//
+// handle types
+//
+const
+ INTERNET_HANDLE_TYPE_INTERNET = 1;
+ INTERNET_HANDLE_TYPE_CONNECT_FTP = 2;
+ INTERNET_HANDLE_TYPE_CONNECT_GOPHER = 3;
+ INTERNET_HANDLE_TYPE_CONNECT_HTTP = 4;
+ INTERNET_HANDLE_TYPE_FTP_FIND = 5;
+ INTERNET_HANDLE_TYPE_FTP_FIND_HTML = 6;
+ INTERNET_HANDLE_TYPE_FTP_FILE = 7;
+ INTERNET_HANDLE_TYPE_FTP_FILE_HTML = 8;
+ INTERNET_HANDLE_TYPE_GOPHER_FIND = 9;
+ INTERNET_HANDLE_TYPE_GOPHER_FIND_HTML = 10;
+ INTERNET_HANDLE_TYPE_GOPHER_FILE = 11;
+ INTERNET_HANDLE_TYPE_GOPHER_FILE_HTML = 12;
+ INTERNET_HANDLE_TYPE_HTTP_REQUEST = 13;
+ INTERNET_HANDLE_TYPE_FILE_REQUEST = 14;
+
+
+//
+// values for INTERNET_OPTION_AUTH_FLAGS
+//
+const
+ AUTH_FLAG_DISABLE_NEGOTIATE = $00000001;
+ AUTH_FLAG_ENABLE_NEGOTIATE = $00000002;
+
+//
+// values for INTERNET_OPTION_SECURITY_FLAGS
+//
+
+// query only
+const
+ SECURITY_FLAG_SECURE = $00000001; // can query only
+ SECURITY_FLAG_STRENGTH_WEAK = $10000000;
+ SECURITY_FLAG_STRENGTH_MEDIUM = $40000000;
+ SECURITY_FLAG_STRENGTH_STRONG = $20000000;
+ SECURITY_FLAG_UNKNOWNBIT = $80000000;
+ SECURITY_FLAG_FORTEZZA = $08000000;
+ SECURITY_FLAG_NORMALBITNESS = SECURITY_FLAG_STRENGTH_WEAK;
+
+
+
+// The following are unused
+const
+ SECURITY_FLAG_SSL = $00000002;
+ SECURITY_FLAG_SSL3 = $00000004;
+ SECURITY_FLAG_PCT = $00000008;
+ SECURITY_FLAG_PCT4 = $00000010;
+ SECURITY_FLAG_IETFSSL4 = $00000020;
+
+// The following are for backwards compatability only.
+const
+ SECURITY_FLAG_40BIT = SECURITY_FLAG_STRENGTH_WEAK;
+ SECURITY_FLAG_128BIT = SECURITY_FLAG_STRENGTH_STRONG;
+ SECURITY_FLAG_56BIT = SECURITY_FLAG_STRENGTH_MEDIUM;
+
+// setable flags
+const
+ SECURITY_FLAG_IGNORE_REVOCATION = $00000080;
+ SECURITY_FLAG_IGNORE_UNKNOWN_CA = $00000100;
+ SECURITY_FLAG_IGNORE_WRONG_USAGE = $00000200;
+
+ SECURITY_FLAG_IGNORE_CERT_CN_INVALID = INTERNET_FLAG_IGNORE_CERT_CN_INVALID;
+ SECURITY_FLAG_IGNORE_CERT_DATE_INVALID = INTERNET_FLAG_IGNORE_CERT_DATE_INVALID;
+
+
+ SECURITY_FLAG_IGNORE_REDIRECT_TO_HTTPS = INTERNET_FLAG_IGNORE_REDIRECT_TO_HTTPS;
+ SECURITY_FLAG_IGNORE_REDIRECT_TO_HTTP = INTERNET_FLAG_IGNORE_REDIRECT_TO_HTTP;
+
+
+
+ SECURITY_SET_MASK = SECURITY_FLAG_IGNORE_REVOCATION or
+ SECURITY_FLAG_IGNORE_UNKNOWN_CA or
+ SECURITY_FLAG_IGNORE_CERT_CN_INVALID or
+ SECURITY_FLAG_IGNORE_CERT_DATE_INVALID or
+ SECURITY_FLAG_IGNORE_WRONG_USAGE;
+
+// valid autodial modes
+const
+ AUTODIAL_MODE_NEVER = 1;
+ AUTODIAL_MODE_ALWAYS = 2;
+ AUTODIAL_MODE_NO_NETWORK_PRESENT = 4;
+
+
+function InternetGetLastResponseInfoA(lpdwError:LPDWORD;
+ lpszBuffer:LPSTR;
+ lpdwBufferLength:LPDWORD
+ ):BOOL; external WinInetDLL name 'InternetGetLastResponseInfoA';
+
+function InternetGetLastResponseInfoW(lpdwError:LPDWORD;
+ lpszBuffer:LPWSTR;
+ lpdwBufferLength:LPDWORD
+ ):BOOL; external WinInetDLL name 'InternetGetLastResponseInfoW';
+
+{$IFDEF UNICODE}
+function InternetGetLastResponseInfo(lpdwError:LPDWORD;
+ lpszBuffer:LPWSTR;
+ lpdwBufferLength:LPDWORD
+ ):BOOL; external WinInetDLL name 'InternetGetLastResponseInfoW';
+{$ELSE UNICODE}
+function InternetGetLastResponseInfo(lpdwError:LPDWORD;
+ lpszBuffer:LPSTR;
+ lpdwBufferLength:LPDWORD
+ ):BOOL; external WinInetDLL name 'InternetGetLastResponseInfoA';
+{$ENDIF UNICODE}
+
+
+//
+// callback function for InternetSetStatusCallback
+//
+
+type
+ INTERNET_STATUS_CALLBACK = procedure(_hInternet:HINTERNET;
+ dwContext:DWORD_PTR;
+ dwInternetStatus:DWORD;
+ lpvStatusInformation:LPVOID;
+ dwStatusInformationLength:DWORD); cdecl;
+
+
+ LPINTERNET_STATUS_CALLBACK = INTERNET_STATUS_CALLBACK;
+
+
+function InternetSetStatusCallbackA(_hInternet:HINTERNET;
+ lpfnInternetCallback:INTERNET_STATUS_CALLBACK
+ ):INTERNET_STATUS_CALLBACK; external WinInetDLL name 'InternetSetStatusCallbackA';
+
+function InternetSetStatusCallbackW(_hInternet:HINTERNET;
+ lpfnInternetCallback:INTERNET_STATUS_CALLBACK
+ ):INTERNET_STATUS_CALLBACK; external WinInetDLL name 'InternetSetStatusCallbackW';
+
+{$IFDEF UNICODE}
+function InternetSetStatusCallback(_hInternet:HINTERNET;
+ lpfnInternetCallback:INTERNET_STATUS_CALLBACK
+ ):INTERNET_STATUS_CALLBACK; external WinInetDLL name 'InternetSetStatusCallbackW';
+{$ELSE UNICODE}
+{$IFDEF WIN32}
+function InternetSetStatusCallback(_hInternet:HINTERNET;
+ lpfnInternetCallback:INTERNET_STATUS_CALLBACK
+ ):INTERNET_STATUS_CALLBACK; external WinInetDLL name 'InternetSetStatusCallbackA';
+{$ELSE WIN32}
+function InternetSetStatusCallback(_hInternet:HINTERNET;
+ lpfnInternetCallback:INTERNET_STATUS_CALLBACK
+ ):INTERNET_STATUS_CALLBACK; external WinInetDLL name 'InternetSetStatusCallback';
+{$ENDIF WIN32}
+{$ENDIF UNICODE}
+
+//
+// status manifests for Internet status callback
+//
+const
+ INTERNET_STATUS_RESOLVING_NAME = 10;
+ INTERNET_STATUS_NAME_RESOLVED = 11;
+ INTERNET_STATUS_CONNECTING_TO_SERVER = 20;
+ INTERNET_STATUS_CONNECTED_TO_SERVER = 21;
+ INTERNET_STATUS_SENDING_REQUEST = 30;
+ INTERNET_STATUS_REQUEST_SENT = 31;
+ INTERNET_STATUS_RECEIVING_RESPONSE = 40;
+ INTERNET_STATUS_RESPONSE_RECEIVED = 41;
+ INTERNET_STATUS_CTL_RESPONSE_RECEIVED = 42;
+ INTERNET_STATUS_PREFETCH = 43;
+ INTERNET_STATUS_CLOSING_CONNECTION = 50;
+ INTERNET_STATUS_CONNECTION_CLOSED = 51;
+ INTERNET_STATUS_HANDLE_CREATED = 60;
+ INTERNET_STATUS_HANDLE_CLOSING = 70;
+ INTERNET_STATUS_DETECTING_PROXY = 80;
+ INTERNET_STATUS_REQUEST_COMPLETE = 100;
+ INTERNET_STATUS_REDIRECT = 110;
+ INTERNET_STATUS_INTERMEDIATE_RESPONSE = 120;
+ INTERNET_STATUS_USER_INPUT_REQUIRED = 140;
+ INTERNET_STATUS_STATE_CHANGE = 200;
+ INTERNET_STATUS_COOKIE_SENT = 320;
+ INTERNET_STATUS_COOKIE_RECEIVED = 321;
+ INTERNET_STATUS_COOKIE_STATE = 322;
+ INTERNET_STATUS_COOKIE_SUPPRESSED = 323;
+ INTERNET_STATUS_PRIVACY_IMPACTED = 324;
+ INTERNET_STATUS_P3P_HEADER = 325;
+ INTERNET_STATUS_P3P_POLICYREF = 326;
+ INTERNET_STATUS_COOKIE_HISTORY = 327;
+ INTERNET_STATUS_SSL_NEGOTIATION_COMPLETE = 401;
+
+//
+// the following can be indicated in a state change notification:
+//
+const
+ INTERNET_STATE_CONNECTED = $00000001; // connected state (mutually exclusive with disconnected)
+ INTERNET_STATE_DISCONNECTED = $00000002; // disconnected from network
+ INTERNET_STATE_DISCONNECTED_BY_USER = $00000010; // disconnected by user request
+ INTERNET_STATE_IDLE = $00000100; // no network requests being made (by Wininet)
+ INTERNET_STATE_BUSY = $00000200; // network requests being made (by Wininet)
+
+//
+// the following values are used for cookie state:
+//
+type
+ InternetCookieState = (COOKIE_STATE_UNKNOWN := $00,
+ COOKIE_STATE_ACCEPT := $01,
+ COOKIE_STATE_PROMPT := $02,
+ COOKIE_STATE_LEASH := $03,
+ COOKIE_STATE_DOWNGRADE := $04,
+ COOKIE_STATE_REJECT := $05);
+
+const
+ COOKIE_STATE_MAX = COOKIE_STATE_REJECT;
+
+type
+ IncomingCookieState = record
+ cSession:longint; // Session cookies received
+ cPersistent:longint; // Persistent cookies received
+
+ cAccepted:longint; // Number of cookies accepted
+ cLeashed:longint; // ... leashed
+ cDowngraded:longint; // ... converted to session-cookies
+ cBlocked:longint; // ... rejected
+
+ pszLocation:PChar; // Optional: URL associated with reported cookie events
+ // This can be used to override request URL
+ end;
+
+type
+ OutgoingCookieState = record
+ cSent:longint;
+ cSuppressed:longint;
+
+ pszLocation:PChar; // Optional: URL associated with reported cookie events
+ // This can be used to override request URL
+ end;
+
+type
+ InternetCookieHistory = record
+ fAccepted:BOOL;
+ fLeashed:BOOL;
+ fDowngraded:BOOL;
+ fRejected:BOOL;
+ end;
+
+type
+ CookieDecision = record
+ dwCookieState:DWORD;
+ fAllowSession:BOOL;
+ end;
+
+//
+// if the following value is returned by InternetSetStatusCallback, then
+// probably an invalid (non-code) address was supplied for the callback
+//
+const
+ INTERNET_INVALID_STATUS_CALLBACK = pointer(-1); // INTERNET_STATUS_CALLBACK(longint(-1));
+
+//
+// FTP
+//
+
+//
+// prototypes
+//
+
+function FtpFindFirstFileA(hConnect:HINTERNET;
+ lpszSearchFile:LPCSTR;
+ lpFindFileData:LPWIN32_FIND_DATAA;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):HINTERNET; external WinInetDLL name 'FtpFindFirstFileA';
+
+function FtpFindFirstFileW(hConnect:HINTERNET;
+ lpszSearchFile:LPCWSTR;
+ lpFindFileData:LPWIN32_FIND_DATAW;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):HINTERNET; external WinInetDLL name 'FtpFindFirstFileW';
+
+{$IFDEF UNICODE}
+function FtpFindFirstFile(hConnect:HINTERNET;
+ lpszSearchFile:LPCWSTR;
+ lpFindFileData:LPWIN32_FIND_DATAW;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):HINTERNET; external WinInetDLL name 'FtpFindFirstFileW';
+{$ELSE UNICODE}
+function FtpFindFirstFile(hConnect:HINTERNET;
+ lpszSearchFile:LPCSTR;
+ lpFindFileData:LPWIN32_FIND_DATAA;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):HINTERNET; external WinInetDLL name 'FtpFindFirstFileA';
+{$ENDIF UNICODE}
+
+function FtpGetFileA(hConnect:HINTERNET;
+ lpszRemoteFile:LPCSTR;
+ lpszNewFile:LPCSTR;
+ fFailIfExists:BOOL;
+ dwFlagsAndAttributes:DWORD;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):BOOL; external WinInetDLL name 'FtpGetFileA';
+
+function FtpGetFileW(hConnect:HINTERNET;
+ lpszRemoteFile:LPCWSTR;
+ lpszNewFile:LPCWSTR;
+ fFailIfExists:BOOL;
+ dwFlagsAndAttributes:DWORD;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):BOOL; external WinInetDLL name 'FtpGetFileW';
+
+{$IFDEF UNICODE}
+function FtpGetFile(hConnect:HINTERNET;
+ lpszRemoteFile:LPCWSTR;
+ lpszNewFile:LPCWSTR;
+ fFailIfExists:BOOL;
+ dwFlagsAndAttributes:DWORD;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):BOOL; external WinInetDLL name 'FtpGetFileW';
+{$ELSE UNICODE}
+function FtpGetFile(hConnect:HINTERNET;
+ lpszRemoteFile:LPCSTR;
+ lpszNewFile:LPCSTR;
+ fFailIfExists:BOOL;
+ dwFlagsAndAttributes:DWORD;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):BOOL; external WinInetDLL name 'FtpGetFileA';
+{$ENDIF UNICODE}
+
+function FtpPutFileA(hConnect:HINTERNET;
+ lpszLocalFile:LPCSTR;
+ lpszNewRemoteFile:LPCSTR;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):BOOL; external WinInetDLL name 'FtpPutFileA';
+
+function FtpPutFileW(hConnect:HINTERNET;
+ lpszLocalFile:LPCWSTR;
+ lpszNewRemoteFile:LPCWSTR;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):BOOL; external WinInetDLL name 'FtpPutFileW';
+
+{$IFDEF UNICODE}
+function FtpPutFile(hConnect:HINTERNET;
+ lpszLocalFile:LPCWSTR;
+ lpszNewRemoteFile:LPCWSTR;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):BOOL; external WinInetDLL name 'FtpPutFileW';
+{$ELSE UNICODE}
+function FtpPutFile(hConnect:HINTERNET;
+ lpszLocalFile:LPCSTR;
+ lpszNewRemoteFile:LPCSTR;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):BOOL; external WinInetDLL name 'FtpPutFileA';
+{$ENDIF UNICODE}
+
+function FtpGetFileEx(hFtpSession:HINTERNET;
+ lpszRemoteFile:LPCSTR;
+ lpszNewFile:LPCWSTR;
+ fFailIfExists:BOOL;
+ dwFlagsAndAttributes:DWORD;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):BOOL; external WinInetDLL name 'FtpGetFileEx';
+
+function FtpPutFileEx(hFtpSession:HINTERNET;
+ lpszLocalFile:LPCWSTR;
+ lpszNewRemoteFile:LPCSTR;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):BOOL; external WinInetDLL name 'FtpPutFileEx';
+
+function FtpDeleteFileA(hConnect:HINTERNET;
+ lpszFileName:LPCSTR
+ ):BOOL; external WinInetDLL name 'FtpDeleteFileA';
+
+function FtpDeleteFileW(hConnect:HINTERNET;
+ lpszFileName:LPCWSTR
+ ):BOOL; external WinInetDLL name 'FtpDeleteFileW';
+
+{$IFDEF UNICODE}
+function FtpDeleteFile(hConnect:HINTERNET;
+ lpszFileName:LPCWSTR
+ ):BOOL; external WinInetDLL name 'FtpDeleteFileW';
+{$ELSE UNICODE}
+function FtpDeleteFile(hConnect:HINTERNET;
+ lpszFileName:LPCSTR
+ ):BOOL; external WinInetDLL name 'FtpDeleteFileA';
+{$ENDIF UNICODE}
+
+function FtpRenameFileA(hConnect:HINTERNET;
+ lpszExisting:LPCSTR;
+ lpszNew:LPCSTR
+ ):BOOL; external WinInetDLL name 'FtpRenameFileA';
+
+function FtpRenameFileW(hConnect:HINTERNET;
+ lpszExisting:LPCWSTR;
+ lpszNew:LPCWSTR
+ ):BOOL; external WinInetDLL name 'FtpRenameFileW';
+{$IFDEF UNICODE}
+function FtpRenameFile(hConnect:HINTERNET;
+ lpszExisting:LPCWSTR;
+ lpszNew:LPCWSTR
+ ):BOOL; external WinInetDLL name 'FtpRenameFileW';
+{$ELSE UNICODE}
+function FtpRenameFile(hConnect:HINTERNET;
+ lpszExisting:LPCSTR;
+ lpszNew:LPCSTR
+ ):BOOL; external WinInetDLL name 'FtpRenameFileA';
+{$ENDIF UNICODE}
+
+function FtpOpenFileA(hConnect:HINTERNET;
+ lpszFileName:LPCSTR;
+ dwAccess:DWORD;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):HINTERNET; external WinInetDLL name 'FtpOpenFileA';
+
+function FtpOpenFileW(hConnect:HINTERNET;
+ lpszFileName:LPCWSTR;
+ dwAccess:DWORD;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):HINTERNET; external WinInetDLL name 'FtpOpenFileW';
+
+{$IFDEF UNICODE}
+function FtpOpenFile(hConnect:HINTERNET;
+ lpszFileName:LPCWSTR;
+ dwAccess:DWORD;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):HINTERNET; external WinInetDLL name 'FtpOpenFileW';
+{$ELSE UNICODE}
+function FtpOpenFile(hConnect:HINTERNET;
+ lpszFileName:LPCSTR;
+ dwAccess:DWORD;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):HINTERNET; external WinInetDLL name 'FtpOpenFileA';
+{$ENDIF UNICODE}
+
+function FtpCreateDirectoryA(hConnect:HINTERNET;
+ lpszDirectory:LPCSTR
+ ):BOOL; external WinInetDLL name 'FtpCreateDirectoryA';
+
+function FtpCreateDirectoryW(hConnect:HINTERNET;
+ lpszDirectory:LPCWSTR
+ ):BOOL; external WinInetDLL name 'FtpCreateDirectoryW';
+
+{$IFDEF UNICODE}
+function FtpCreateDirectory(hConnect:HINTERNET;
+ lpszDirectory:LPCWSTR
+ ):BOOL; external WinInetDLL name 'FtpCreateDirectoryW';
+{$ELSE UNICODE}
+function FtpCreateDirectory(hConnect:HINTERNET;
+ lpszDirectory:LPCSTR
+ ):BOOL; external WinInetDLL name 'FtpCreateDirectoryA';
+{$ENDIF UNICODE}
+
+function FtpRemoveDirectoryA(hConnect:HINTERNET;
+ lpszDirectory:LPCSTR
+ ):BOOL; external WinInetDLL name 'FtpRemoveDirectoryA';
+
+function FtpRemoveDirectoryW(hConnect:HINTERNET;
+ lpszDirectory:LPCWSTR
+ ):BOOL; external WinInetDLL name 'FtpRemoveDirectoryW';
+
+{$IFDEF UNICODE}
+function FtpRemoveDirectory(hConnect:HINTERNET;
+ lpszDirectory:LPCWSTR
+ ):BOOL; external WinInetDLL name 'FtpRemoveDirectoryW';
+{$ELSE UNICODE}
+function FtpRemoveDirectory(hConnect:HINTERNET;
+ lpszDirectory:LPCSTR
+ ):BOOL; external WinInetDLL name 'FtpRemoveDirectoryA';
+{$ENDIF UNICODE}
+
+function FtpSetCurrentDirectoryA(hConnect:HINTERNET;
+ lpszDirectory:LPCSTR
+ ):BOOL; external WinInetDLL name 'FtpSetCurrentDirectoryA';
+
+function FtpSetCurrentDirectoryW(hConnect:HINTERNET;
+ lpszDirectory:LPCWSTR
+ ):BOOL; external WinInetDLL name 'FtpSetCurrentDirectoryW';
+
+{$IFDEF UNICODE}
+function FtpSetCurrentDirectory(hConnect:HINTERNET;
+ lpszDirectory:LPCWSTR
+ ):BOOL; external WinInetDLL name 'FtpSetCurrentDirectoryW';
+{$ELSE UNICODE}
+function FtpSetCurrentDirectory(hConnect:HINTERNET;
+ lpszDirectory:LPCSTR
+ ):BOOL; external WinInetDLL name 'FtpSetCurrentDirectoryA';
+{$ENDIF UNICODE}
+
+function FtpGetCurrentDirectoryA(hConnect:HINTERNET;
+ lpszCurrentDirectory:LPSTR;
+ lpdwCurrentDirectory:LPDWORD
+ ):BOOL; external WinInetDLL name 'FtpGetCurrentDirectoryA';
+
+function FtpGetCurrentDirectoryW(hConnect:HINTERNET;
+ lpszCurrentDirectory:LPWSTR;
+ lpdwCurrentDirectory:LPDWORD
+ ):BOOL; external WinInetDLL name 'FtpGetCurrentDirectoryW';
+
+{$IFDEF UNICODE}
+function FtpGetCurrentDirectory(hConnect:HINTERNET;
+ lpszCurrentDirectory:LPWSTR;
+ lpdwCurrentDirectory:LPDWORD
+ ):BOOL; external WinInetDLL name 'FtpGetCurrentDirectoryW';
+{$ELSE UNICODE}
+function FtpGetCurrentDirectory(hConnect:HINTERNET;
+ lpszCurrentDirectory:LPSTR;
+ lpdwCurrentDirectory:LPDWORD
+ ):BOOL; external WinInetDLL name 'FtpGetCurrentDirectoryA';
+{$ENDIF UNICODE}
+
+function FtpCommandA(hConnect:HINTERNET;
+ fExpectResponse:BOOL;
+ dwFlags:DWORD;
+ lpszCommand:LPCSTR;
+ dwContext:DWORD_PTR;
+ phFtpCommand:LPHINTERNET
+ ):BOOL; external WinInetDLL name 'FtpCommandA';
+
+function FtpCommandW(hConnect:HINTERNET;
+ fExpectResponse:BOOL;
+ dwFlags:DWORD;
+ lpszCommand:LPCWSTR;
+ dwContext:DWORD_PTR;
+ phFtpCommand:LPHINTERNET
+ ):BOOL; external WinInetDLL name 'FtpCommandW';
+
+{$IFDEF UNICODE}
+function FtpCommand(hConnect:HINTERNET;
+ fExpectResponse:BOOL;
+ dwFlags:DWORD;
+ lpszCommand:LPCWSTR;
+ dwContext:DWORD_PTR;
+ phFtpCommand:LPHINTERNET
+ ):BOOL; external WinInetDLL name 'FtpCommandW';
+{$ELSE UNICODE}
+function FtpCommand(hConnect:HINTERNET;
+ fExpectResponse:BOOL;
+ dwFlags:DWORD;
+ lpszCommand:LPCSTR;
+ dwContext:DWORD_PTR;
+ phFtpCommand:LPHINTERNET
+ ):BOOL; external WinInetDLL name 'FtpCommandA';
+{$ENDIF UNICODE}
+
+function FtpGetFileSize(_hFile:HINTERNET;
+ lpdwFileSizeHigh:LPDWORD
+ ):DWORD; external WinInetDLL name 'FtpGetFileSize';
+
+
+
+
+//
+// Gopher
+//
+
+//
+// manifests
+//
+
+//
+// string field lengths (in characters, not bytes)
+//
+const
+ MAX_GOPHER_DISPLAY_TEXT = 128;
+ MAX_GOPHER_SELECTOR_TEXT = 256;
+ MAX_GOPHER_HOST_NAME = INTERNET_MAX_HOST_NAME_LENGTH;
+ MAX_GOPHER_LOCATOR_LENGTH = 1 +
+ MAX_GOPHER_DISPLAY_TEXT +
+ 1 +
+ MAX_GOPHER_SELECTOR_TEXT +
+ 1 +
+ MAX_GOPHER_HOST_NAME +
+ 1 +
+ INTERNET_MAX_PORT_NUMBER_LENGTH +
+ 1 +
+ 1 +
+ 2;
+
+
+//
+// structures/types
+//
+
+//
+// GOPHER_FIND_DATA - returns the results of a GopherFindFirstFile()/
+// InternetFindNextFile() request
+//
+
+type
+ GOPHER_FIND_DATAA = record
+ DisplayString:array[0..MAX_GOPHER_DISPLAY_TEXT] of char;
+ GopherType:DWORD; // GOPHER_TYPE_, if known
+ SizeLow:DWORD;
+ SizeHigh:DWORD;
+ LastModificationTime:FILETIME;
+ Locator:array[0..MAX_GOPHER_LOCATOR_LENGTH] of char;
+ end;
+ LPGOPHER_FIND_DATAA = ^GOPHER_FIND_DATAA;
+
+ GOPHER_FIND_DATAW = record
+ DisplayString:array[0..MAX_GOPHER_DISPLAY_TEXT] of WCHAR;
+ GopherType:DWORD; // GOPHER_TYPE_, if known
+ SizeLow:DWORD;
+ SizeHigh:DWORD;
+ LastModificationTime:FILETIME;
+ Locator:array[0..MAX_GOPHER_LOCATOR_LENGTH] of WCHAR;
+ end;
+ LPGOPHER_FIND_DATAW = ^GOPHER_FIND_DATAW;
+
+
+{$IFDEF UNICODE}
+type
+ GOPHER_FIND_DATA = GOPHER_FIND_DATAW;
+ LPGOPHER_FIND_DATA = LPGOPHER_FIND_DATAW;
+{$ELSE UNICODE}
+type
+ GOPHER_FIND_DATA = GOPHER_FIND_DATAA;
+ LPGOPHER_FIND_DATA = LPGOPHER_FIND_DATAA;
+{$ENDIF UNICODE}
+
+//
+// manifests for GopherType
+//
+const
+ GOPHER_TYPE_TEXT_FILE = $00000001;
+ GOPHER_TYPE_DIRECTORY = $00000002;
+ GOPHER_TYPE_CSO = $00000004;
+ GOPHER_TYPE_ERROR = $00000008;
+ GOPHER_TYPE_MAC_BINHEX = $00000010;
+ GOPHER_TYPE_DOS_ARCHIVE = $00000020;
+ GOPHER_TYPE_UNIX_UUENCODED = $00000040;
+ GOPHER_TYPE_INDEX_SERVER = $00000080;
+ GOPHER_TYPE_TELNET = $00000100;
+ GOPHER_TYPE_BINARY = $00000200;
+ GOPHER_TYPE_REDUNDANT = $00000400;
+ GOPHER_TYPE_TN3270 = $00000800;
+ GOPHER_TYPE_GIF = $00001000;
+ GOPHER_TYPE_IMAGE = $00002000;
+ GOPHER_TYPE_BITMAP = $00004000;
+ GOPHER_TYPE_MOVIE = $00008000;
+ GOPHER_TYPE_SOUND = $00010000;
+ GOPHER_TYPE_HTML = $00020000;
+ GOPHER_TYPE_PDF = $00040000;
+ GOPHER_TYPE_CALENDAR = $00080000;
+ GOPHER_TYPE_INLINE = $00100000;
+ GOPHER_TYPE_UNKNOWN = $20000000;
+ GOPHER_TYPE_ASK = $40000000;
+ GOPHER_TYPE_GOPHER_PLUS = $80000000;
+
+//
+// gopher type macros
+//
+function IS_GOPHER_FILE(_type:DWORD):BOOL;
+function IS_GOPHER_DIRECTORY(_type:DWORD):BOOL;
+function IS_GOPHER_PHONE_SERVER(_type:DWORD):BOOL;
+function IS_GOPHER_ERROR(_type:DWORD):BOOL;
+function IS_GOPHER_INDEX_SERVER(_type:DWORD):BOOL;
+function IS_GOPHER_TELNET_SESSION(_type:DWORD):BOOL;
+function IS_GOPHER_BACKUP_SERVER(_type:DWORD):BOOL;
+function IS_GOPHER_TN3270_SESSION(_type:DWORD):BOOL;
+function IS_GOPHER_ASK(_type:DWORD):BOOL;
+function IS_GOPHER_PLUS(_type:DWORD):BOOL;
+function IS_GOPHER_TYPE_KNOWN(_type:DWORD):BOOL;
+
+//
+// GOPHER_TYPE_FILE_MASK - use this to determine if a locator identifies a
+// (known) file type
+//
+const
+ GOPHER_TYPE_FILE_MASK = GOPHER_TYPE_TEXT_FILE or
+ GOPHER_TYPE_MAC_BINHEX or
+ GOPHER_TYPE_DOS_ARCHIVE or
+ GOPHER_TYPE_UNIX_UUENCODED or
+ GOPHER_TYPE_BINARY or
+ GOPHER_TYPE_GIF or
+ GOPHER_TYPE_IMAGE or
+ GOPHER_TYPE_BITMAP or
+ GOPHER_TYPE_MOVIE or
+ GOPHER_TYPE_SOUND or
+ GOPHER_TYPE_HTML or
+ GOPHER_TYPE_PDF or
+ GOPHER_TYPE_CALENDAR or
+ GOPHER_TYPE_INLINE;
+
+
+//
+// structured gopher attributes (as defined in gopher+ protocol document)
+//
+type
+ GOPHER_ADMIN_ATTRIBUTE_TYPE = record
+ Comment:LPCTSTR;
+ EmailAddress:LPCTSTR;
+ end;
+ LPGOPHER_ADMIN_ATTRIBUTE_TYPE = ^GOPHER_ADMIN_ATTRIBUTE_TYPE;
+
+type
+ GOPHER_MOD_DATE_ATTRIBUTE_TYPE = record
+ DateAndTime:FILETIME;
+ end;
+ LPGOPHER_MOD_DATE_ATTRIBUTE_TYPE = ^GOPHER_MOD_DATE_ATTRIBUTE_TYPE;
+
+type
+ GOPHER_TTL_ATTRIBUTE_TYPE = record
+ Ttl:DWORD;
+ end;
+ LPGOPHER_TTL_ATTRIBUTE_TYPE = ^GOPHER_TTL_ATTRIBUTE_TYPE;
+
+type
+ GOPHER_SCORE_ATTRIBUTE_TYPE = record
+ Score:longint;
+ end;
+ LPGOPHER_SCORE_ATTRIBUTE_TYPE = ^GOPHER_SCORE_ATTRIBUTE_TYPE;
+
+type
+ GOPHER_SCORE_RANGE_ATTRIBUTE_TYPE = record
+ LowerBound:longint;
+ UpperBound:longint;
+ end;
+ LPGOPHER_SCORE_RANGE_ATTRIBUTE_TYPE = ^GOPHER_SCORE_RANGE_ATTRIBUTE_TYPE;
+
+type
+ GOPHER_SITE_ATTRIBUTE_TYPE = record
+ Site:LPCTSTR;
+ end;
+ LPGOPHER_SITE_ATTRIBUTE_TYPE = ^GOPHER_SITE_ATTRIBUTE_TYPE;
+
+type
+ GOPHER_ORGANIZATION_ATTRIBUTE_TYPE = record
+ Organization:LPCTSTR;
+ end;
+ LPGOPHER_ORGANIZATION_ATTRIBUTE_TYPE = ^GOPHER_ORGANIZATION_ATTRIBUTE_TYPE;
+
+type
+ GOPHER_LOCATION_ATTRIBUTE_TYPE = record
+ Location:LPCTSTR;
+ end;
+ LPGOPHER_LOCATION_ATTRIBUTE_TYPE = ^GOPHER_LOCATION_ATTRIBUTE_TYPE;
+
+type
+ GOPHER_GEOGRAPHICAL_LOCATION_ATTRIBUTE_TYPE = record
+ DegreesNorth:longint;
+ MinutesNorth:longint;
+ SecondsNorth:longint;
+ DegreesEast:longint;
+ MinutesEast:longint;
+ SecondsEast:longint;
+ end;
+ LPGOPHER_GEOGRAPHICAL_LOCATION_ATTRIBUTE_TYPE = ^GOPHER_GEOGRAPHICAL_LOCATION_ATTRIBUTE_TYPE;
+
+type
+ GOPHER_TIMEZONE_ATTRIBUTE_TYPE = record
+ Zone:longint;
+ end;
+ LPGOPHER_TIMEZONE_ATTRIBUTE_TYPE = ^GOPHER_TIMEZONE_ATTRIBUTE_TYPE;
+
+type
+ GOPHER_PROVIDER_ATTRIBUTE_TYPE = record
+ Provider:LPCTSTR;
+ end;
+ LPGOPHER_PROVIDER_ATTRIBUTE_TYPE = ^GOPHER_PROVIDER_ATTRIBUTE_TYPE;
+
+type
+ GOPHER_VERSION_ATTRIBUTE_TYPE = record
+ Version:LPCTSTR;
+ end;
+ LPGOPHER_VERSION_ATTRIBUTE_TYPE = ^GOPHER_VERSION_ATTRIBUTE_TYPE;
+
+type
+ GOPHER_ABSTRACT_ATTRIBUTE_TYPE = record
+ ShortAbstract:LPCTSTR;
+ AbstractFile:LPCTSTR;
+ end;
+ LPGOPHER_ABSTRACT_ATTRIBUTE_TYPE = ^GOPHER_ABSTRACT_ATTRIBUTE_TYPE;
+
+type
+ GOPHER_VIEW_ATTRIBUTE_TYPE = record
+ ContentType:LPCTSTR;
+ Language:LPCTSTR;
+ Size:DWORD;
+ end;
+ LPGOPHER_VIEW_ATTRIBUTE_TYPE = ^GOPHER_VIEW_ATTRIBUTE_TYPE;
+
+type
+ GOPHER_VERONICA_ATTRIBUTE_TYPE = record
+ TreeWalk:BOOL;
+ end;
+ LPGOPHER_VERONICA_ATTRIBUTE_TYPE = ^GOPHER_VERONICA_ATTRIBUTE_TYPE;
+
+type
+ GOPHER_ASK_ATTRIBUTE_TYPE = record
+ QuestionType:LPCTSTR;
+ QuestionText:LPCTSTR;
+ end;
+ LPGOPHER_ASK_ATTRIBUTE_TYPE = ^GOPHER_ASK_ATTRIBUTE_TYPE;
+
+//
+// GOPHER_UNKNOWN_ATTRIBUTE_TYPE - this is returned if we retrieve an attribute
+// that is not specified in the current gopher/gopher+ documentation. It is up
+// to the application to parse the information
+//
+
+type
+ GOPHER_UNKNOWN_ATTRIBUTE_TYPE = record
+ Text:LPCTSTR;
+ end;
+ LPGOPHER_UNKNOWN_ATTRIBUTE_TYPE = ^GOPHER_UNKNOWN_ATTRIBUTE_TYPE;
+
+//
+// GOPHER_ATTRIBUTE_TYPE - returned in the user's buffer when an enumerated
+// GopherGetAttribute call is made
+//
+
+type
+ GOPHER_ATTRIBUTE_TYPE = record
+ CategoryId:DWORD; // e.g. GOPHER_CATEGORY_ID_ADMIN
+ AttributeId:DWORD; // e.g. GOPHER_ATTRIBUTE_ID_ADMIN
+ case longint of // AttributeType
+ 0: (Admin:GOPHER_ADMIN_ATTRIBUTE_TYPE);
+ 1: (ModDate:GOPHER_MOD_DATE_ATTRIBUTE_TYPE);
+ 2: (Ttl:GOPHER_TTL_ATTRIBUTE_TYPE);
+ 3: (Score:GOPHER_SCORE_ATTRIBUTE_TYPE);
+ 4: (ScoreRange:GOPHER_SCORE_RANGE_ATTRIBUTE_TYPE);
+ 5: (Site:GOPHER_SITE_ATTRIBUTE_TYPE);
+ 6: (Organization:GOPHER_ORGANIZATION_ATTRIBUTE_TYPE);
+ 7: (Location:GOPHER_LOCATION_ATTRIBUTE_TYPE);
+ 8: (GeographicalLocation:GOPHER_GEOGRAPHICAL_LOCATION_ATTRIBUTE_TYPE);
+ 9: (TimeZone:GOPHER_TIMEZONE_ATTRIBUTE_TYPE);
+ 10: (Provider:GOPHER_PROVIDER_ATTRIBUTE_TYPE);
+ 11: (Version:GOPHER_VERSION_ATTRIBUTE_TYPE);
+ 12: (_Abstract:GOPHER_ABSTRACT_ATTRIBUTE_TYPE);
+ 13: (View:GOPHER_VIEW_ATTRIBUTE_TYPE);
+ 14: (Veronica:GOPHER_VERONICA_ATTRIBUTE_TYPE);
+ 15: (Ask:GOPHER_ASK_ATTRIBUTE_TYPE);
+ 16: (Unknown:GOPHER_UNKNOWN_ATTRIBUTE_TYPE);
+ end;
+ LPGOPHER_ATTRIBUTE_TYPE = ^GOPHER_ATTRIBUTE_TYPE;
+
+const
+ MAX_GOPHER_CATEGORY_NAME = 128; // arbitrary
+ MAX_GOPHER_ATTRIBUTE_NAME = 128; // "
+ MIN_GOPHER_ATTRIBUTE_LENGTH = 256; // "
+
+//
+// known gopher attribute categories. See below for ordinals
+//
+const
+ GOPHER_INFO_CATEGORY = '+INFO';
+ GOPHER_ADMIN_CATEGORY = '+ADMIN';
+ GOPHER_VIEWS_CATEGORY = '+VIEWS';
+ GOPHER_ABSTRACT_CATEGORY = '+ABSTRACT';
+ GOPHER_VERONICA_CATEGORY = '+VERONICA';
+
+//
+// known gopher attributes. These are the attribute names as defined in the
+// gopher+ protocol document
+//
+const
+ GOPHER_ADMIN_ATTRIBUTE = 'Admin';
+ GOPHER_MOD_DATE_ATTRIBUTE = 'Mod-Date';
+ GOPHER_TTL_ATTRIBUTE = 'TTL';
+ GOPHER_SCORE_ATTRIBUTE = 'Score';
+ GOPHER_RANGE_ATTRIBUTE = 'Score-range';
+ GOPHER_SITE_ATTRIBUTE = 'Site';
+ GOPHER_ORG_ATTRIBUTE = 'Org';
+ GOPHER_LOCATION_ATTRIBUTE = 'Loc';
+ GOPHER_GEOG_ATTRIBUTE = 'Geog';
+ GOPHER_TIMEZONE_ATTRIBUTE = 'TZ';
+ GOPHER_PROVIDER_ATTRIBUTE = 'Provider';
+ GOPHER_VERSION_ATTRIBUTE = 'Version';
+ GOPHER_ABSTRACT_ATTRIBUTE = 'Abstract';
+ GOPHER_VIEW_ATTRIBUTE = 'View';
+ GOPHER_TREEWALK_ATTRIBUTE = 'treewalk';
+
+//
+// identifiers for attribute strings
+//
+const
+ GOPHER_ATTRIBUTE_ID_BASE = $ABCCCC00;
+
+ GOPHER_CATEGORY_ID_ALL = GOPHER_ATTRIBUTE_ID_BASE + 1;
+
+ GOPHER_CATEGORY_ID_INFO = GOPHER_ATTRIBUTE_ID_BASE + 2;
+ GOPHER_CATEGORY_ID_ADMIN = GOPHER_ATTRIBUTE_ID_BASE + 3;
+ GOPHER_CATEGORY_ID_VIEWS = GOPHER_ATTRIBUTE_ID_BASE + 4;
+ GOPHER_CATEGORY_ID_ABSTRACT = GOPHER_ATTRIBUTE_ID_BASE + 5;
+ GOPHER_CATEGORY_ID_VERONICA = GOPHER_ATTRIBUTE_ID_BASE + 6;
+ GOPHER_CATEGORY_ID_ASK = GOPHER_ATTRIBUTE_ID_BASE + 7;
+
+ GOPHER_CATEGORY_ID_UNKNOWN = GOPHER_ATTRIBUTE_ID_BASE + 8;
+
+ GOPHER_ATTRIBUTE_ID_ALL = GOPHER_ATTRIBUTE_ID_BASE + 9;
+
+ GOPHER_ATTRIBUTE_ID_ADMIN = GOPHER_ATTRIBUTE_ID_BASE + 10;
+ GOPHER_ATTRIBUTE_ID_MOD_DATE = GOPHER_ATTRIBUTE_ID_BASE + 11;
+ GOPHER_ATTRIBUTE_ID_TTL = GOPHER_ATTRIBUTE_ID_BASE + 12;
+ GOPHER_ATTRIBUTE_ID_SCORE = GOPHER_ATTRIBUTE_ID_BASE + 13;
+ GOPHER_ATTRIBUTE_ID_RANGE = GOPHER_ATTRIBUTE_ID_BASE + 14;
+ GOPHER_ATTRIBUTE_ID_SITE = GOPHER_ATTRIBUTE_ID_BASE + 15;
+ GOPHER_ATTRIBUTE_ID_ORG = GOPHER_ATTRIBUTE_ID_BASE + 16;
+ GOPHER_ATTRIBUTE_ID_LOCATION = GOPHER_ATTRIBUTE_ID_BASE + 17;
+ GOPHER_ATTRIBUTE_ID_GEOG = GOPHER_ATTRIBUTE_ID_BASE + 18;
+ GOPHER_ATTRIBUTE_ID_TIMEZONE = GOPHER_ATTRIBUTE_ID_BASE + 19;
+ GOPHER_ATTRIBUTE_ID_PROVIDER = GOPHER_ATTRIBUTE_ID_BASE + 20;
+ GOPHER_ATTRIBUTE_ID_VERSION = GOPHER_ATTRIBUTE_ID_BASE + 21;
+ GOPHER_ATTRIBUTE_ID_ABSTRACT = GOPHER_ATTRIBUTE_ID_BASE + 22;
+ GOPHER_ATTRIBUTE_ID_VIEW = GOPHER_ATTRIBUTE_ID_BASE + 23;
+ GOPHER_ATTRIBUTE_ID_TREEWALK = GOPHER_ATTRIBUTE_ID_BASE + 24;
+
+ GOPHER_ATTRIBUTE_ID_UNKNOWN = GOPHER_ATTRIBUTE_ID_BASE + 25;
+
+//
+// prototypes
+//
+
+function GopherCreateLocatorA(lpszHost:LPCSTR;
+ nServerPort:INTERNET_PORT;
+ lpszDisplayString:INTERNET_PORT;
+ lpszSelectorString:LPCSTR;
+ dwGopherType:DWORD;
+ lpszLocator:LPSTR;
+ lpdwBufferLength:LPDWORD):BOOL; external WinInetDLL name 'GopherCreateLocatorA';
+
+function GopherCreateLocatorW(lpszHost:LPCWSTR;
+ nServerPort:INTERNET_PORT;
+ lpszDisplayString:INTERNET_PORT;
+ lpszSelectorString:LPCWSTR;
+ dwGopherType:DWORD;
+ lpszLocator:LPWSTR;
+ lpdwBufferLength:LPDWORD):BOOL; external WinInetDLL name 'GopherCreateLocatorW';
+
+{$IFDEF UNICODE}
+function GopherCreateLocator(lpszHost:LPCWSTR;
+ nServerPort:INTERNET_PORT;
+ lpszDisplayString:INTERNET_PORT;
+ lpszSelectorString:LPCWSTR;
+ dwGopherType:DWORD;
+ lpszLocator:LPWSTR;
+ lpdwBufferLength:LPDWORD):BOOL; external WinInetDLL name 'GopherCreateLocatorW';
+{$ELSE UNICODE}
+function GopherCreateLocator(lpszHost:LPCSTR;
+ nServerPort:INTERNET_PORT;
+ lpszDisplayString:INTERNET_PORT;
+ lpszSelectorString:LPCSTR;
+ dwGopherType:DWORD;
+ lpszLocator:LPSTR;
+ lpdwBufferLength:LPDWORD):BOOL; external WinInetDLL name 'GopherCreateLocatorA';
+{$ENDIF UNICODE}
+
+function GopherGetLocatorTypeA(lpszLocator:LPCSTR;
+ lpdwGopherType:LPDWORD):BOOL; external WinInetDLL name 'GopherGetLocatorTypeA';
+
+function GopherGetLocatorTypeW(lpszLocator:LPCWSTR;
+ lpdwGopherType:LPDWORD):BOOL; external WinInetDLL name 'GopherGetLocatorTypeW';
+
+{$IFDEF UNICODE}
+function GopherGetLocatorType(lpszLocator:LPCWSTR;
+ lpdwGopherType:LPDWORD):BOOL; external WinInetDLL name 'GopherGetLocatorTypeW';
+{$ELSE UNICODE}
+function GopherGetLocatorType(lpszLocator:LPCSTR;
+ lpdwGopherType:LPDWORD):BOOL; external WinInetDLL name 'GopherGetLocatorTypeA';
+{$ENDIF UNICODE}
+
+function GopherFindFirstFileA(hConnect:HINTERNET;
+ lpszLocator:LPCSTR;
+ lpszSearchString:LPCSTR;
+ lpFindData:LPGOPHER_FIND_DATAA;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):HINTERNET; external WinInetDLL name 'GopherFindFirstFileA';
+
+function GopherFindFirstFileW(hConnect:HINTERNET;
+ lpszLocator:LPCWSTR;
+ lpszSearchString:LPCWSTR;
+ lpFindData:LPGOPHER_FIND_DATAW;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):HINTERNET; external WinInetDLL name 'GopherFindFirstFileW';
+
+{$IFDEF UNICODE}
+function GopherFindFirstFile(hConnect:HINTERNET;
+ lpszLocator:LPCWSTR;
+ lpszSearchString:LPCWSTR;
+ lpFindData:LPGOPHER_FIND_DATAW;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):HINTERNET; external WinInetDLL name 'GopherFindFirstFileW';
+{$ELSE UNICODE}
+function GopherFindFirstFile(hConnect:HINTERNET;
+ lpszLocator:LPCSTR;
+ lpszSearchString:LPCSTR;
+ lpFindData:LPGOPHER_FIND_DATAA;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):HINTERNET; external WinInetDLL name 'GopherFindFirstFileA';
+{$ENDIF UNICODE}
+
+function GopherOpenFileA(hConnect:HINTERNET;
+ lpszLocator:LPCSTR;
+ lpszView:LPCSTR;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):HINTERNET; external WinInetDLL name 'GopherOpenFileA';
+
+function GopherOpenFileW(hConnect:HINTERNET;
+ lpszLocator:LPCWSTR;
+ lpszView:LPCWSTR;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):HINTERNET; external WinInetDLL name 'GopherOpenFileW';
+
+{$IFDEF UNICODE}
+function GopherOpenFile(hConnect:HINTERNET;
+ lpszLocator:LPCWSTR;
+ lpszView:LPCWSTR;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):HINTERNET; external WinInetDLL name 'GopherOpenFileW';
+{$ELSE UNICODE}
+function GopherOpenFile(hConnect:HINTERNET;
+ lpszLocator:LPCSTR;
+ lpszView:LPCSTR;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):HINTERNET; external WinInetDLL name 'GopherOpenFileA';
+{$ENDIF UNICODE}
+
+type
+ GOPHER_ATTRIBUTE_ENUMERATOR = function(lpAttributeInfo:LPGOPHER_ATTRIBUTE_TYPE;
+ dwError:DWORD):BOOL; cdecl;
+
+function GopherGetAttributeA(hConnect:HINTERNET;
+ lpszLocator:LPCSTR;
+ lpszAttributeName:LPCSTR;
+ lpBuffer:LPBYTE;
+ dwBufferLength:DWORD;
+ lpdwCharactersReturned:LPDWORD;
+ lpfnEnumerator:GOPHER_ATTRIBUTE_ENUMERATOR;
+ dwContext:DWORD_PTR
+ ):BOOL; external WinInetDLL name 'GopherGetAttributeA';
+
+function GopherGetAttributeW(hConnect:HINTERNET;
+ lpszLocator:LPCWSTR;
+ lpszAttributeName:LPCWSTR;
+ lpBuffer:LPBYTE;
+ dwBufferLength:DWORD;
+ lpdwCharactersReturned:LPDWORD;
+ lpfnEnumerator:GOPHER_ATTRIBUTE_ENUMERATOR;
+ dwContext:DWORD_PTR
+ ):BOOL; external WinInetDLL name 'GopherGetAttributeW';
+
+{$IFDEF UNICODE}
+function GopherGetAttribute(hConnect:HINTERNET;
+ lpszLocator:LPCWSTR;
+ lpszAttributeName:LPCWSTR;
+ lpBuffer:LPBYTE;
+ dwBufferLength:DWORD;
+ lpdwCharactersReturned:LPDWORD;
+ lpfnEnumerator:GOPHER_ATTRIBUTE_ENUMERATOR;
+ dwContext:DWORD_PTR
+ ):BOOL; external WinInetDLL name 'GopherGetAttributeW';
+{$ELSE UNICODE}
+function GopherGetAttribute(hConnect:HINTERNET;
+ lpszLocator:LPCSTR;
+ lpszAttributeName:LPCSTR;
+ lpBuffer:LPBYTE;
+ dwBufferLength:DWORD;
+ lpdwCharactersReturned:LPDWORD;
+ lpfnEnumerator:GOPHER_ATTRIBUTE_ENUMERATOR;
+ dwContext:DWORD_PTR
+ ):BOOL; external WinInetDLL name 'GopherGetAttributeA';
+{$ENDIF UNICODE}
+
+
+//
+// HTTP
+//
+
+//
+// manifests
+//
+
+//
+// the default major/minor HTTP version numbers
+//
+const
+ HTTP_MAJOR_VERSION = 1;
+ HTTP_MINOR_VERSION = 0;
+
+ HTTP_VERSIONA = 'HTTP/1.0';
+ HTTP_VERSIONW:WideString = 'HTTP/1.0';
+
+{$IFDEF UNICODE}
+ HTTP_VERSION:WideString = 'HTTP/1.0'; // HTTP_VERSIONW
+{$ELSE UNICODE}
+ HTTP_VERSION = HTTP_VERSIONA;
+{$ENDIF UNICODE}
+
+//
+// HttpQueryInfo info levels. Generally, there is one info level
+// for each potential RFC822/HTTP/MIME header that an HTTP server
+// may send as part of a request response.
+//
+// The HTTP_QUERY_RAW_HEADERS info level is provided for clients
+// that choose to perform their own header parsing.
+//
+const
+ HTTP_QUERY_MIME_VERSION = 0;
+ HTTP_QUERY_CONTENT_TYPE = 1;
+ HTTP_QUERY_CONTENT_TRANSFER_ENCODING = 2;
+ HTTP_QUERY_CONTENT_ID = 3;
+ HTTP_QUERY_CONTENT_DESCRIPTION = 4;
+ HTTP_QUERY_CONTENT_LENGTH = 5;
+ HTTP_QUERY_CONTENT_LANGUAGE = 6;
+ HTTP_QUERY_ALLOW = 7;
+ HTTP_QUERY_PUBLIC = 8;
+ HTTP_QUERY_DATE = 9;
+ HTTP_QUERY_EXPIRES = 10;
+ HTTP_QUERY_LAST_MODIFIED = 11;
+ HTTP_QUERY_MESSAGE_ID = 12;
+ HTTP_QUERY_URI = 13;
+ HTTP_QUERY_DERIVED_FROM = 14;
+ HTTP_QUERY_COST = 15;
+ HTTP_QUERY_LINK = 16;
+ HTTP_QUERY_PRAGMA = 17;
+ HTTP_QUERY_VERSION = 18; // special: part of status line
+ HTTP_QUERY_STATUS_CODE = 19; // special: part of status line
+ HTTP_QUERY_STATUS_TEXT = 20; // special: part of status line
+ HTTP_QUERY_RAW_HEADERS = 21; // special: all headers as ASCIIZ
+ HTTP_QUERY_RAW_HEADERS_CRLF = 22; // special: all headers
+ HTTP_QUERY_CONNECTION = 23;
+ HTTP_QUERY_ACCEPT = 24;
+ HTTP_QUERY_ACCEPT_CHARSET = 25;
+ HTTP_QUERY_ACCEPT_ENCODING = 26;
+ HTTP_QUERY_ACCEPT_LANGUAGE = 27;
+ HTTP_QUERY_AUTHORIZATION = 28;
+ HTTP_QUERY_CONTENT_ENCODING = 29;
+ HTTP_QUERY_FORWARDED = 30;
+ HTTP_QUERY_FROM = 31;
+ HTTP_QUERY_IF_MODIFIED_SINCE = 32;
+ HTTP_QUERY_LOCATION = 33;
+ HTTP_QUERY_ORIG_URI = 34;
+ HTTP_QUERY_REFERER = 35;
+ HTTP_QUERY_RETRY_AFTER = 36;
+ HTTP_QUERY_SERVER = 37;
+ HTTP_QUERY_TITLE = 38;
+ HTTP_QUERY_USER_AGENT = 39;
+ HTTP_QUERY_WWW_AUTHENTICATE = 40;
+ HTTP_QUERY_PROXY_AUTHENTICATE = 41;
+ HTTP_QUERY_ACCEPT_RANGES = 42;
+ HTTP_QUERY_SET_COOKIE = 43;
+ HTTP_QUERY_COOKIE = 44;
+ HTTP_QUERY_REQUEST_METHOD = 45; // special: GET/POST etc.
+ HTTP_QUERY_REFRESH = 46;
+ HTTP_QUERY_CONTENT_DISPOSITION = 47;
+
+//
+// HTTP 1.1 defined headers
+//
+
+ HTTP_QUERY_AGE = 48;
+ HTTP_QUERY_CACHE_CONTROL = 49;
+ HTTP_QUERY_CONTENT_BASE = 50;
+ HTTP_QUERY_CONTENT_LOCATION = 51;
+ HTTP_QUERY_CONTENT_MD5 = 52;
+ HTTP_QUERY_CONTENT_RANGE = 53;
+ HTTP_QUERY_ETAG = 54;
+ HTTP_QUERY_HOST = 55;
+ HTTP_QUERY_IF_MATCH = 56;
+ HTTP_QUERY_IF_NONE_MATCH = 57;
+ HTTP_QUERY_IF_RANGE = 58;
+ HTTP_QUERY_IF_UNMODIFIED_SINCE = 59;
+ HTTP_QUERY_MAX_FORWARDS = 60;
+ HTTP_QUERY_PROXY_AUTHORIZATION = 61;
+ HTTP_QUERY_RANGE = 62;
+ HTTP_QUERY_TRANSFER_ENCODING = 63;
+ HTTP_QUERY_UPGRADE = 64;
+ HTTP_QUERY_VARY = 65;
+ HTTP_QUERY_VIA = 66;
+ HTTP_QUERY_WARNING = 67;
+ HTTP_QUERY_EXPECT = 68;
+ HTTP_QUERY_PROXY_CONNECTION = 69;
+ HTTP_QUERY_UNLESS_MODIFIED_SINCE = 70;
+
+
+
+ HTTP_QUERY_ECHO_REQUEST = 71;
+ HTTP_QUERY_ECHO_REPLY = 72;
+
+// These are the set of headers that should be added back to a request when
+// re-doing a request after a RETRY_WITH response.
+ HTTP_QUERY_ECHO_HEADERS = 73;
+ HTTP_QUERY_ECHO_HEADERS_CRLF = 74;
+
+ HTTP_QUERY_PROXY_SUPPORT = 75;
+ HTTP_QUERY_AUTHENTICATION_INFO = 76;
+ HTTP_QUERY_PASSPORT_URLS = 77;
+ HTTP_QUERY_PASSPORT_CONFIG = 78;
+
+ HTTP_QUERY_MAX = 78;
+
+//
+// HTTP_QUERY_CUSTOM - if this special value is supplied as the dwInfoLevel
+// parameter of HttpQueryInfo() then the lpBuffer parameter contains the name
+// of the header we are to query
+//
+
+ HTTP_QUERY_CUSTOM = 65535;
+
+//
+// HTTP_QUERY_FLAG_REQUEST_HEADERS - if this bit is set in the dwInfoLevel
+// parameter of HttpQueryInfo() then the request headers will be queried for the
+// request information
+//
+
+ HTTP_QUERY_FLAG_REQUEST_HEADERS = $80000000;
+
+//
+// HTTP_QUERY_FLAG_SYSTEMTIME - if this bit is set in the dwInfoLevel parameter
+// of HttpQueryInfo() AND the header being queried contains date information,
+// e.g. the "Expires:" header then lpBuffer will contain a SYSTEMTIME structure
+// containing the date and time information converted from the header string
+//
+
+ HTTP_QUERY_FLAG_SYSTEMTIME = $40000000;
+
+//
+// HTTP_QUERY_FLAG_NUMBER - if this bit is set in the dwInfoLevel parameter of
+// HttpQueryInfo(), then the value of the header will be converted to a number
+// before being returned to the caller, if applicable
+//
+
+ HTTP_QUERY_FLAG_NUMBER = $20000000;
+
+//
+// HTTP_QUERY_FLAG_COALESCE - combine the values from several headers of the
+// same name into the output buffer
+//
+
+ HTTP_QUERY_FLAG_COALESCE = $10000000;
+
+
+ HTTP_QUERY_MODIFIER_FLAGS_MASK = HTTP_QUERY_FLAG_REQUEST_HEADERS or
+ HTTP_QUERY_FLAG_SYSTEMTIME or
+ HTTP_QUERY_FLAG_NUMBER or
+ HTTP_QUERY_FLAG_COALESCE;
+
+
+ HTTP_QUERY_HEADER_MASK = (not HTTP_QUERY_MODIFIER_FLAGS_MASK);
+
+//
+// HTTP Response Status Codes:
+//
+
+ HTTP_STATUS_CONTINUE = 100; // OK to continue with request
+ HTTP_STATUS_SWITCH_PROTOCOLS = 101; // server has switched protocols in upgrade header
+
+ HTTP_STATUS_OK = 200; // request completed
+ HTTP_STATUS_CREATED = 201; // object created, reason = new URI
+ HTTP_STATUS_ACCEPTED = 202; // async completion (TBS)
+ HTTP_STATUS_PARTIAL = 203; // partial completion
+ HTTP_STATUS_NO_CONTENT = 204; // no info to return
+ HTTP_STATUS_RESET_CONTENT = 205; // request completed, but clear form
+ HTTP_STATUS_PARTIAL_CONTENT = 206; // partial GET furfilled
+
+ HTTP_STATUS_AMBIGUOUS = 300; // server couldn't decide what to return
+ HTTP_STATUS_MOVED = 301; // object permanently moved
+ HTTP_STATUS_REDIRECT = 302; // object temporarily moved
+ HTTP_STATUS_REDIRECT_METHOD = 303; // redirection w/ new access method
+ HTTP_STATUS_NOT_MODIFIED = 304; // if-modified-since was not modified
+ HTTP_STATUS_USE_PROXY = 305; // redirection to proxy, location header specifies proxy to use
+ HTTP_STATUS_REDIRECT_KEEP_VERB = 307; // HTTP/1.1: keep same verb
+
+ HTTP_STATUS_BAD_REQUEST = 400; // invalid syntax
+ HTTP_STATUS_DENIED = 401; // access denied
+ HTTP_STATUS_PAYMENT_REQ = 402; // payment required
+ HTTP_STATUS_FORBIDDEN = 403; // request forbidden
+ HTTP_STATUS_NOT_FOUND = 404; // object not found
+ HTTP_STATUS_BAD_METHOD = 405; // method is not allowed
+ HTTP_STATUS_NONE_ACCEPTABLE = 406; // no response acceptable to client found
+ HTTP_STATUS_PROXY_AUTH_REQ = 407; // proxy authentication required
+ HTTP_STATUS_REQUEST_TIMEOUT = 408; // server timed out waiting for request
+ HTTP_STATUS_CONFLICT = 409; // user should resubmit with more info
+ HTTP_STATUS_GONE = 410; // the resource is no longer available
+ HTTP_STATUS_LENGTH_REQUIRED = 411; // the server refused to accept request w/o a length
+ HTTP_STATUS_PRECOND_FAILED = 412; // precondition given in request failed
+ HTTP_STATUS_REQUEST_TOO_LARGE = 413; // request entity was too large
+ HTTP_STATUS_URI_TOO_LONG = 414; // request URI too long
+ HTTP_STATUS_UNSUPPORTED_MEDIA = 415; // unsupported media type
+ HTTP_STATUS_RETRY_WITH = 449; // retry after doing the appropriate action.
+
+ HTTP_STATUS_SERVER_ERROR = 500; // internal server error
+ HTTP_STATUS_NOT_SUPPORTED = 501; // required not supported
+ HTTP_STATUS_BAD_GATEWAY = 502; // error response received from gateway
+ HTTP_STATUS_SERVICE_UNAVAIL = 503; // temporarily overloaded
+ HTTP_STATUS_GATEWAY_TIMEOUT = 504; // timed out waiting for gateway
+ HTTP_STATUS_VERSION_NOT_SUP = 505; // HTTP version not supported
+
+ HTTP_STATUS_FIRST = HTTP_STATUS_CONTINUE;
+ HTTP_STATUS_LAST = HTTP_STATUS_VERSION_NOT_SUP;
+
+//
+// prototypes
+//
+
+function HttpOpenRequestA(hConnect:HINTERNET;
+ lpszVerb:LPCSTR;
+ lpszObjectName:LPCSTR;
+ lpszVersion:LPCSTR;
+ lpszReferrer:LPCSTR;
+ lplpszAcceptTypes:PLPSTR;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):HINTERNET; external WinInetDLL name 'HttpOpenRequestA';
+
+function HttpOpenRequestW(hConnect:HINTERNET;
+ lpszVerb:LPCWSTR;
+ lpszObjectName:LPCWSTR;
+ lpszVersion:LPCWSTR;
+ lpszReferrer:LPCWSTR;
+ lplpszAcceptTypes:PLPWSTR;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):HINTERNET; external WinInetDLL name 'HttpOpenRequestW';
+
+{$IFDEF UNICODE}
+function HttpOpenRequest(hConnect:HINTERNET;
+ lpszVerb:LPCWSTR;
+ lpszObjectName:LPCWSTR;
+ lpszVersion:LPCWSTR;
+ lpszReferrer:LPCWSTR;
+ lplpszAcceptTypes:PLPWSTR;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):HINTERNET; external WinInetDLL name 'HttpOpenRequestW';
+{$ELSE UNICODE}
+function HttpOpenRequest(hConnect:HINTERNET;
+ lpszVerb:LPCSTR;
+ lpszObjectName:LPCSTR;
+ lpszVersion:LPCSTR;
+ lpszReferrer:LPCSTR;
+ lplpszAcceptTypes:PLPSTR;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):HINTERNET; external WinInetDLL name 'HttpOpenRequestA';
+{$ENDIF UNICODE}
+
+function HttpAddRequestHeadersA(hRequest:HINTERNET;
+ lpszHeaders:LPCSTR;
+ dwHeadersLength:DWORD;
+ dwModifiers:DWORD
+ ):BOOL; external WinInetDLL name 'HttpAddRequestHeadersA';
+
+function HttpAddRequestHeadersW(hRequest:HINTERNET;
+ lpszHeaders:LPCWSTR;
+ dwHeadersLength:DWORD;
+ dwModifiers:DWORD
+ ):BOOL; external WinInetDLL name 'HttpAddRequestHeadersW';
+
+{$IFDEF UNICODE}
+function HttpAddRequestHeaders(hRequest:HINTERNET;
+ lpszHeaders:LPCWSTR;
+ dwHeadersLength:DWORD;
+ dwModifiers:DWORD
+ ):BOOL; external WinInetDLL name 'HttpAddRequestHeadersW';
+{$ELSE UNICODE}
+function HttpAddRequestHeaders(hRequest:HINTERNET;
+ lpszHeaders:LPCSTR;
+ dwHeadersLength:DWORD;
+ dwModifiers:DWORD
+ ):BOOL; external WinInetDLL name 'HttpAddRequestHeadersA';
+{$ENDIF UNICODE}
+
+//
+// values for dwModifiers parameter of HttpAddRequestHeaders()
+//
+const
+ HTTP_ADDREQ_INDEX_MASK = $0000FFFF;
+ HTTP_ADDREQ_FLAGS_MASK = $FFFF0000;
+
+//
+// HTTP_ADDREQ_FLAG_ADD_IF_NEW - the header will only be added if it doesn't
+// already exist
+//
+const
+ HTTP_ADDREQ_FLAG_ADD_IF_NEW = $10000000;
+
+//
+// HTTP_ADDREQ_FLAG_ADD - if HTTP_ADDREQ_FLAG_REPLACE is set but the header is
+// not found then if this flag is set, the header is added anyway, so long as
+// there is a valid header-value
+//
+const
+ HTTP_ADDREQ_FLAG_ADD = $20000000;
+
+//
+// HTTP_ADDREQ_FLAG_COALESCE - coalesce headers with same name. e.g.
+// "Accept: text/*" and "Accept: audio/*" with this flag results in a single
+// header: "Accept: text/*, audio/*"
+//
+const
+ HTTP_ADDREQ_FLAG_COALESCE_WITH_COMMA = $40000000;
+ HTTP_ADDREQ_FLAG_COALESCE_WITH_SEMICOLON = $01000000;
+ HTTP_ADDREQ_FLAG_COALESCE = HTTP_ADDREQ_FLAG_COALESCE_WITH_COMMA;
+
+//
+// HTTP_ADDREQ_FLAG_REPLACE - replaces the specified header. Only one header can
+// be supplied in the buffer. If the header to be replaced is not the first
+// in a list of headers with the same name, then the relative index should be
+// supplied in the low 8 bits of the dwModifiers parameter. If the header-value
+// part is missing, then the header is removed
+//
+const
+ HTTP_ADDREQ_FLAG_REPLACE = $80000000;
+
+function HttpSendRequestA(hRequest:HINTERNET;
+ lpszHeaders:LPCSTR;
+ dwHeadersLength:DWORD;
+ lpOptional:LPVOID;
+ dwOptionalLength:DWORD
+ ):BOOL; external WinInetDLL name 'HttpSendRequestA';
+
+function HttpSendRequestW(hRequest:HINTERNET;
+ lpszHeaders:LPCWSTR;
+ dwHeadersLength:DWORD;
+ lpOptional:LPVOID;
+ dwOptionalLength:DWORD
+ ):BOOL; external WinInetDLL name 'HttpSendRequestW';
+
+{$IFDEF UNICODE}
+function HttpSendRequest(hRequest:HINTERNET;
+ lpszHeaders:LPCWSTR;
+ dwHeadersLength:DWORD;
+ lpOptional:LPVOID;
+ dwOptionalLength:DWORD
+ ):BOOL; external WinInetDLL name 'HttpSendRequestW';
+{$ELSE UNICODE}
+function HttpSendRequest(hRequest:HINTERNET;
+ lpszHeaders:LPCSTR;
+ dwHeadersLength:DWORD;
+ lpOptional:LPVOID;
+ dwOptionalLength:DWORD
+ ):BOOL; external WinInetDLL name 'HttpSendRequestA';
+{$ENDIF UNICODE}
+
+function HttpSendRequestExA(hRequest:HINTERNET;
+ lpBuffersIn:LPINTERNET_BUFFERSA;
+ lpBuffersOut:LPINTERNET_BUFFERSA;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):BOOL; external WinInetDLL name 'HttpSendRequestExA';
+
+function HttpSendRequestExW(hRequest:HINTERNET;
+ lpBuffersIn:LPINTERNET_BUFFERSW;
+ lpBuffersOut:LPINTERNET_BUFFERSW;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):BOOL; external WinInetDLL name 'HttpSendRequestExW';
+
+{$IFDEF UNICODE}
+function HttpSendRequestEx(hRequest:HINTERNET;
+ lpBuffersIn:LPINTERNET_BUFFERS;
+ lpBuffersOut:LPINTERNET_BUFFERS;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):BOOL; external WinInetDLL name 'HttpSendRequestExW';
+{$ELSE UNICODE}
+function HttpSendRequestEx(hRequest:HINTERNET;
+ lpBuffersIn:LPINTERNET_BUFFERS;
+ lpBuffersOut:LPINTERNET_BUFFERS;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):BOOL; external WinInetDLL name 'HttpSendRequestExA';
+{$ENDIF UNICODE}
+
+//
+// flags for HttpSendRequestEx(), HttpEndRequest()
+//
+const
+ HSR_ASYNC = WININET_API_FLAG_ASYNC; // force async
+ HSR_SYNC = WININET_API_FLAG_SYNC; // force sync
+ HSR_USE_CONTEXT = WININET_API_FLAG_USE_CONTEXT; // use dwContext value
+ HSR_INITIATE = $00000008; // iterative operation (completed by HttpEndRequest)
+ HSR_DOWNLOAD = $00000010; // download to file
+ HSR_CHUNKED = $00000020; // operation is send of chunked data
+
+function HttpEndRequestA(hRequest:HINTERNET;
+ lpBuffersOut:LPINTERNET_BUFFERSA;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):BOOL; external WinInetDLL name 'HttpEndRequestA';
+
+function HttpEndRequestW(hRequest:HINTERNET;
+ lpBuffersOut:LPINTERNET_BUFFERSW;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):BOOL; external WinInetDLL name 'HttpEndRequestW';
+
+{$IFDEF UNICODE}
+function HttpEndRequest(hRequest:HINTERNET;
+ lpBuffersOut:LPINTERNET_BUFFERS;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):BOOL; external WinInetDLL name 'HttpEndRequestW';
+{$ELSE UNICODE}
+function HttpEndRequest(hRequest:HINTERNET;
+ lpBuffersOut:LPINTERNET_BUFFERS;
+ dwFlags:DWORD;
+ dwContext:DWORD_PTR
+ ):BOOL; external WinInetDLL name 'HttpEndRequestA';
+{$ENDIF UNICODE}
+
+function HttpQueryInfoA(hRequest:HINTERNET;
+ dwInfoLevel:DWORD;
+ lpBuffer:LPVOID;
+ lpdwBufferLength:LPDWORD;
+ lpdwIndex:LPDWORD
+ ):BOOL; external WinInetDLL name 'HttpQueryInfoA';
+
+function HttpQueryInfoW(hRequest:HINTERNET;
+ dwInfoLevel:DWORD;
+ lpBuffer:LPVOID;
+ lpdwBufferLength:LPDWORD;
+ lpdwIndex:LPDWORD
+ ):BOOL; external WinInetDLL name 'HttpQueryInfoW';
+
+{$IFDEF UNICODE}
+function HttpQueryInfo(hRequest:HINTERNET;
+ dwInfoLevel:DWORD;
+ lpBuffer:LPVOID;
+ lpdwBufferLength:LPDWORD;
+ lpdwIndex:LPDWORD
+ ):BOOL; external WinInetDLL name 'HttpQueryInfoW';
+{$ELSE UNICODE}
+function HttpQueryInfo(hRequest:HINTERNET;
+ dwInfoLevel:DWORD;
+ lpBuffer:LPVOID;
+ lpdwBufferLength:LPDWORD;
+ lpdwIndex:LPDWORD
+ ):BOOL; external WinInetDLL name 'HttpQueryInfoA';
+{$ENDIF UNICODE}
+
+
+//
+// Cookie APIs
+//
+const
+ INTERNET_COOKIE_IS_SECURE = $01;
+ INTERNET_COOKIE_IS_SESSION = $02;
+ INTERNET_COOKIE_THIRD_PARTY = $10;
+ INTERNET_COOKIE_PROMPT_REQUIRED = $20;
+ INTERNET_COOKIE_EVALUATE_P3P = $40;
+ INTERNET_COOKIE_APPLY_P3P = $80;
+
+ INTERNET_COOKIE_P3P_ENABLED = $100;
+ INTERNET_COOKIE_IS_RESTRICTED = $200;
+ INTERNET_COOKIE_IE6 = $400;
+ INTERNET_COOKIE_IS_LEGACY = $800;
+
+function InternetSetCookieA(lpszUrl:LPCSTR;
+ lpszCookieName:LPCSTR;
+ lpszCookieData:LPCSTR
+ ):BOOL; external WinInetDLL name 'InternetSetCookieA';
+
+function InternetSetCookieW(lpszUrl:LPCWSTR;
+ lpszCookieName:LPCWSTR;
+ lpszCookieData:LPCWSTR
+ ):BOOL; external WinInetDLL name 'InternetSetCookieW';
+
+{$IFDEF UNICODE}
+function InternetSetCookie(lpszUrl:LPCWSTR;
+ lpszCookieName:LPCWSTR;
+ lpszCookieData:LPCWSTR
+ ):BOOL; external WinInetDLL name 'InternetSetCookieW';
+{$ELSE UNICODE}
+function InternetSetCookie(lpszUrl:LPCSTR;
+ lpszCookieName:LPCSTR;
+ lpszCookieData:LPCSTR
+ ):BOOL; external WinInetDLL name 'InternetSetCookieA';
+{$ENDIF UNICODE}
+
+function InternetGetCookieA(lpszUrl:LPCSTR;
+ lpszCookieName:LPCSTR;
+ lpCookieData:LPCSTR;
+ lpdwSize:LPDWORD
+ ):BOOL; external WinInetDLL name 'InternetGetCookieA';
+
+function InternetGetCookieW(lpszUrl:LPCWSTR;
+ lpszCookieName:LPCWSTR;
+ lpCookieData:LPCWSTR;
+ lpdwSize:LPDWORD
+ ):BOOL; external WinInetDLL name 'InternetGetCookieW';
+
+{$IFDEF UNICODE}
+function InternetGetCookie(lpszUrl:LPCWSTR;
+ lpszCookieName:LPCWSTR;
+ lpCookieData:LPCWSTR;
+ lpdwSize:LPDWORD
+ ):BOOL; external WinInetDLL name 'InternetGetCookieW';
+{$ELSE UNICODE}
+function InternetGetCookie(lpszUrl:LPCSTR;
+ lpszCookieName:LPCSTR;
+ lpCookieData:LPCSTR;
+ lpdwSize:LPDWORD
+ ):BOOL; external WinInetDLL name 'InternetGetCookieA';
+{$ENDIF UNICODE}
+
+function InternetSetCookieExA(lpszUrl:LPCSTR;
+ lpszCookieName:LPCSTR;
+ lpszCookieData:LPCSTR;
+ dwFlags:DWORD;
+ dwReserved:DWORD_PTR
+ ):DWORD; external WinInetDLL name 'InternetSetCookieExA';
+
+function InternetSetCookieExW(lpszUrl:LPCWSTR;
+ lpszCookieName:LPCWSTR;
+ lpszCookieData:LPCWSTR;
+ dwFlags:DWORD;
+ dwReserved:DWORD_PTR
+ ):DWORD; external WinInetDLL name 'InternetSetCookieExW';
+
+{$IFDEF UNICODE}
+function InternetSetCookieEx(lpszUrl:LPCWSTR;
+ lpszCookieName:LPCWSTR;
+ lpszCookieData:LPCWSTR;
+ dwFlags:DWORD;
+ dwReserved:DWORD_PTR
+ ):DWORD; external WinInetDLL name 'InternetSetCookieExW';
+{$ELSE UNICODE}
+function InternetSetCookieEx(lpszUrl:LPCSTR;
+ lpszCookieName:LPCSTR;
+ lpszCookieData:LPCSTR;
+ dwFlags:DWORD;
+ dwReserved:DWORD_PTR
+ ):DWORD; external WinInetDLL name 'InternetSetCookieExA';
+{$ENDIF UNICODE}
+
+
+//
+// offline browsing
+//
+
+function InternetAttemptConnect(dwReserved:DWORD):DWORD; external WinInetDLL name 'InternetAttemptConnect';
+
+function InternetCheckConnectionA(lpszUrl:LPCSTR;
+ dwFlags:DWORD;
+ dwReserved:DWORD
+ ):BOOL; external WinInetDLL name 'InternetCheckConnectionA';
+
+function InternetCheckConnectionW(lpszUrl:LPCWSTR;
+ dwFlags:DWORD;
+ dwReserved:DWORD
+ ):BOOL; external WinInetDLL name 'InternetCheckConnectionW';
+
+{$IFDEF UNICODE}
+function InternetCheckConnection(lpszUrl:LPCWSTR;
+ dwFlags:DWORD;
+ dwReserved:DWORD
+ ):BOOL; external WinInetDLL name 'InternetCheckConnectionW';
+{$ELSE UNICODE}
+function InternetCheckConnection(lpszUrl:LPCSTR;
+ dwFlags:DWORD;
+ dwReserved:DWORD
+ ):BOOL; external WinInetDLL name 'InternetCheckConnectionA';
+{$ENDIF UNICODE}
+
+const
+ FLAG_ICC_FORCE_CONNECTION = $00000001;
+
+//
+// Internet UI
+//
+
+//
+// InternetErrorDlg - Provides UI for certain Errors.
+//
+const
+ FLAGS_ERROR_UI_FILTER_FOR_ERRORS = $01;
+ FLAGS_ERROR_UI_FLAGS_CHANGE_OPTIONS = $02;
+ FLAGS_ERROR_UI_FLAGS_GENERATE_DATA = $04;
+ FLAGS_ERROR_UI_FLAGS_NO_UI = $08;
+ FLAGS_ERROR_UI_SERIALIZE_DIALOGS = $10;
+
+//
+// If SERIALIZE_DIALOGS flag set, client should implement thread-safe non-blocking callback...
+//
+
+type
+ PFN_AUTH_NOTIFY = function(dwContext:DWORD_PTR; // as passed to InternetErrorDlg
+ dwReturn:DWORD; // error code: success, resend, or cancel
+ lpResrved:LPVOID // reserved: will be set to null
+ ):DWORD; cdecl;
+
+//
+// ... and last parameter of InternetErrorDlg should point to...
+//
+
+type
+ INTERNET_AUTH_NOTIFY_DATA = record
+ cbStruct:DWORD; // size of this structure
+ dwOptions:DWORD; // reserved: must set to 0
+ pfnNotify:PFN_AUTH_NOTIFY; // notification callback to retry InternetErrorDlg
+ dwContext:DWORD_PTR; // context to pass to to notification function
+ end;
+
+
+function ResumeSuspendedDownload(hRequest:HINTERNET;
+ dwResultCode:DWORD
+ ):BOOL; external WinInetDLL name 'ResumeSuspendedDownload';
+
+function InternetErrorDlg(_hWnd:HWND;
+ hRequest:HINTERNET;
+ dwError:DWORD;
+ dwFlags:DWORD;
+ lppvData:PPVOID
+ ):DWORD; external WinInetDLL name 'InternetErrorDlg';
+
+function InternetConfirmZoneCrossingA(_hWnd:HWND;
+ szUrlPrev:LPSTR;
+ szUrlNew:LPSTR;
+ bPost:BOOL
+ ):DWORD; external WinInetDLL name 'InternetConfirmZoneCrossingA';
+
+function InternetConfirmZoneCrossingW(_hWnd:HWND;
+ szUrlPrev:LPWSTR;
+ szUrlNew:LPWSTR;
+ bPost:BOOL
+ ):DWORD; external WinInetDLL name 'InternetConfirmZoneCrossingW';
+
+{$IFDEF UNICODE}
+function InternetConfirmZoneCrossing(_hWnd:HWND;
+ szUrlPrev:LPWSTR;
+ szUrlNew:LPWSTR;
+ bPost:BOOL
+ ):DWORD; external WinInetDLL name 'InternetConfirmZoneCrossingW';
+{$ELSE UNICODE}
+{$IFDEF WINX32}
+function InternetConfirmZoneCrossing(_hWnd:HWND;
+ szUrlPrev:LPSTR;
+ szUrlNew:LPSTR;
+ bPost:BOOL
+ ):DWORD; external WinInetDLL name 'InternetConfirmZoneCrossingA';
+{$ELSE WINX32}
+function InternetConfirmZoneCrossing(_hWnd:HWND;
+ szUrlPrev:LPSTR;
+ szUrlNew:LPSTR;
+ bPost:BOOL
+ ):DWORD; external WinInetDLL name 'InternetConfirmZoneCrossing';
+{$ENDIF WINX32}
+{$ENDIF UNICODE}
+
+//
+// Internet API error returns
+//
+const
+ INTERNET_ERROR_BASE = 12000;
+
+ ERROR_INTERNET_OUT_OF_HANDLES = INTERNET_ERROR_BASE + 1;
+ ERROR_INTERNET_TIMEOUT = INTERNET_ERROR_BASE + 2;
+ ERROR_INTERNET_EXTENDED_ERROR = INTERNET_ERROR_BASE + 3;
+ ERROR_INTERNET_INTERNAL_ERROR = INTERNET_ERROR_BASE + 4;
+ ERROR_INTERNET_INVALID_URL = INTERNET_ERROR_BASE + 5;
+ ERROR_INTERNET_UNRECOGNIZED_SCHEME = INTERNET_ERROR_BASE + 6;
+ ERROR_INTERNET_NAME_NOT_RESOLVED = INTERNET_ERROR_BASE + 7;
+ ERROR_INTERNET_PROTOCOL_NOT_FOUND = INTERNET_ERROR_BASE + 8;
+ ERROR_INTERNET_INVALID_OPTION = INTERNET_ERROR_BASE + 9;
+ ERROR_INTERNET_BAD_OPTION_LENGTH = INTERNET_ERROR_BASE + 10;
+ ERROR_INTERNET_OPTION_NOT_SETTABLE = INTERNET_ERROR_BASE + 11;
+ ERROR_INTERNET_SHUTDOWN = INTERNET_ERROR_BASE + 12;
+ ERROR_INTERNET_INCORRECT_USER_NAME = INTERNET_ERROR_BASE + 13;
+ ERROR_INTERNET_INCORRECT_PASSWORD = INTERNET_ERROR_BASE + 14;
+ ERROR_INTERNET_LOGIN_FAILURE = INTERNET_ERROR_BASE + 15;
+ ERROR_INTERNET_INVALID_OPERATION = INTERNET_ERROR_BASE + 16;
+ ERROR_INTERNET_OPERATION_CANCELLED = INTERNET_ERROR_BASE + 17;
+ ERROR_INTERNET_INCORRECT_HANDLE_TYPE = INTERNET_ERROR_BASE + 18;
+ ERROR_INTERNET_INCORRECT_HANDLE_STATE = INTERNET_ERROR_BASE + 19;
+ ERROR_INTERNET_NOT_PROXY_REQUEST = INTERNET_ERROR_BASE + 20;
+ ERROR_INTERNET_REGISTRY_VALUE_NOT_FOUND = INTERNET_ERROR_BASE + 21;
+ ERROR_INTERNET_BAD_REGISTRY_PARAMETER = INTERNET_ERROR_BASE + 22;
+ ERROR_INTERNET_NO_DIRECT_ACCESS = INTERNET_ERROR_BASE + 23;
+ ERROR_INTERNET_NO_CONTEXT = INTERNET_ERROR_BASE + 24;
+ ERROR_INTERNET_NO_CALLBACK = INTERNET_ERROR_BASE + 25;
+ ERROR_INTERNET_REQUEST_PENDING = INTERNET_ERROR_BASE + 26;
+ ERROR_INTERNET_INCORRECT_FORMAT = INTERNET_ERROR_BASE + 27;
+ ERROR_INTERNET_ITEM_NOT_FOUND = INTERNET_ERROR_BASE + 28;
+ ERROR_INTERNET_CANNOT_CONNECT = INTERNET_ERROR_BASE + 29;
+ ERROR_INTERNET_CONNECTION_ABORTED = INTERNET_ERROR_BASE + 30;
+ ERROR_INTERNET_CONNECTION_RESET = INTERNET_ERROR_BASE + 31;
+ ERROR_INTERNET_FORCE_RETRY = INTERNET_ERROR_BASE + 32;
+ ERROR_INTERNET_INVALID_PROXY_REQUEST = INTERNET_ERROR_BASE + 33;
+ ERROR_INTERNET_NEED_UI = INTERNET_ERROR_BASE + 34;
+
+ ERROR_INTERNET_HANDLE_EXISTS = INTERNET_ERROR_BASE + 36;
+ ERROR_INTERNET_SEC_CERT_DATE_INVALID = INTERNET_ERROR_BASE + 37;
+ ERROR_INTERNET_SEC_CERT_CN_INVALID = INTERNET_ERROR_BASE + 38;
+ ERROR_INTERNET_HTTP_TO_HTTPS_ON_REDIR = INTERNET_ERROR_BASE + 39;
+ ERROR_INTERNET_HTTPS_TO_HTTP_ON_REDIR = INTERNET_ERROR_BASE + 40;
+ ERROR_INTERNET_MIXED_SECURITY = INTERNET_ERROR_BASE + 41;
+ ERROR_INTERNET_CHG_POST_IS_NON_SECURE = INTERNET_ERROR_BASE + 42;
+ ERROR_INTERNET_POST_IS_NON_SECURE = INTERNET_ERROR_BASE + 43;
+ ERROR_INTERNET_CLIENT_AUTH_CERT_NEEDED = INTERNET_ERROR_BASE + 44;
+ ERROR_INTERNET_INVALID_CA = INTERNET_ERROR_BASE + 45;
+ ERROR_INTERNET_CLIENT_AUTH_NOT_SETUP = INTERNET_ERROR_BASE + 46;
+ ERROR_INTERNET_ASYNC_THREAD_FAILED = INTERNET_ERROR_BASE + 47;
+ ERROR_INTERNET_REDIRECT_SCHEME_CHANGE = INTERNET_ERROR_BASE + 48;
+ ERROR_INTERNET_DIALOG_PENDING = INTERNET_ERROR_BASE + 49;
+ ERROR_INTERNET_RETRY_DIALOG = INTERNET_ERROR_BASE + 50;
+ ERROR_INTERNET_HTTPS_HTTP_SUBMIT_REDIR = INTERNET_ERROR_BASE + 52;
+ ERROR_INTERNET_INSERT_CDROM = INTERNET_ERROR_BASE + 53;
+ ERROR_INTERNET_FORTEZZA_LOGIN_NEEDED = INTERNET_ERROR_BASE + 54;
+ ERROR_INTERNET_SEC_CERT_ERRORS = INTERNET_ERROR_BASE + 55;
+ ERROR_INTERNET_SEC_CERT_NO_REV = INTERNET_ERROR_BASE + 56;
+ ERROR_INTERNET_SEC_CERT_REV_FAILED = INTERNET_ERROR_BASE + 57;
+
+//
+// FTP API errors
+//
+const
+ ERROR_FTP_TRANSFER_IN_PROGRESS = INTERNET_ERROR_BASE + 110;
+ ERROR_FTP_DROPPED = INTERNET_ERROR_BASE + 111;
+ ERROR_FTP_NO_PASSIVE_MODE = INTERNET_ERROR_BASE + 112;
+
+//
+// gopher API errors
+//
+const
+ ERROR_GOPHER_PROTOCOL_ERROR = INTERNET_ERROR_BASE + 130;
+ ERROR_GOPHER_NOT_FILE = INTERNET_ERROR_BASE + 131;
+ ERROR_GOPHER_DATA_ERROR = INTERNET_ERROR_BASE + 132;
+ ERROR_GOPHER_END_OF_DATA = INTERNET_ERROR_BASE + 133;
+ ERROR_GOPHER_INVALID_LOCATOR = INTERNET_ERROR_BASE + 134;
+ ERROR_GOPHER_INCORRECT_LOCATOR_TYPE = INTERNET_ERROR_BASE + 135;
+ ERROR_GOPHER_NOT_GOPHER_PLUS = INTERNET_ERROR_BASE + 136;
+ ERROR_GOPHER_ATTRIBUTE_NOT_FOUND = INTERNET_ERROR_BASE + 137;
+ ERROR_GOPHER_UNKNOWN_LOCATOR = INTERNET_ERROR_BASE + 138;
+
+//
+// HTTP API errors
+//
+const
+ ERROR_HTTP_HEADER_NOT_FOUND = INTERNET_ERROR_BASE + 150;
+ ERROR_HTTP_DOWNLEVEL_SERVER = INTERNET_ERROR_BASE + 151;
+ ERROR_HTTP_INVALID_SERVER_RESPONSE = INTERNET_ERROR_BASE + 152;
+ ERROR_HTTP_INVALID_HEADER = INTERNET_ERROR_BASE + 153;
+ ERROR_HTTP_INVALID_QUERY_REQUEST = INTERNET_ERROR_BASE + 154;
+ ERROR_HTTP_HEADER_ALREADY_EXISTS = INTERNET_ERROR_BASE + 155;
+ ERROR_HTTP_REDIRECT_FAILED = INTERNET_ERROR_BASE + 156;
+ ERROR_HTTP_NOT_REDIRECTED = INTERNET_ERROR_BASE + 160;
+ ERROR_HTTP_COOKIE_NEEDS_CONFIRMATION = INTERNET_ERROR_BASE + 161;
+ ERROR_HTTP_COOKIE_DECLINED = INTERNET_ERROR_BASE + 162;
+ ERROR_HTTP_REDIRECT_NEEDS_CONFIRMATION = INTERNET_ERROR_BASE + 168;
+
+//
+// additional Internet API error codes
+//
+const
+ ERROR_INTERNET_SECURITY_CHANNEL_ERROR = INTERNET_ERROR_BASE + 157;
+ ERROR_INTERNET_UNABLE_TO_CACHE_FILE = INTERNET_ERROR_BASE + 158;
+ ERROR_INTERNET_TCPIP_NOT_INSTALLED = INTERNET_ERROR_BASE + 159;
+ ERROR_INTERNET_DISCONNECTED = INTERNET_ERROR_BASE + 163;
+ ERROR_INTERNET_SERVER_UNREACHABLE = INTERNET_ERROR_BASE + 164;
+ ERROR_INTERNET_PROXY_SERVER_UNREACHABLE = INTERNET_ERROR_BASE + 165;
+
+ ERROR_INTERNET_BAD_AUTO_PROXY_SCRIPT = INTERNET_ERROR_BASE + 166;
+ ERROR_INTERNET_UNABLE_TO_DOWNLOAD_SCRIPT = INTERNET_ERROR_BASE + 167;
+ ERROR_INTERNET_SEC_INVALID_CERT = INTERNET_ERROR_BASE + 169;
+ ERROR_INTERNET_SEC_CERT_REVOKED = INTERNET_ERROR_BASE + 170;
+
+// InternetAutodial specific errors
+const
+ ERROR_INTERNET_FAILED_DUETOSECURITYCHECK = INTERNET_ERROR_BASE + 171;
+ ERROR_INTERNET_NOT_INITIALIZED = INTERNET_ERROR_BASE + 172;
+ ERROR_INTERNET_NEED_MSN_SSPI_PKG = INTERNET_ERROR_BASE + 173;
+ ERROR_INTERNET_LOGIN_FAILURE_DISPLAY_ENTITY_BODY = INTERNET_ERROR_BASE + 174;
+
+
+ INTERNET_ERROR_LAST = ERROR_INTERNET_LOGIN_FAILURE_DISPLAY_ENTITY_BODY;
+
+
+//
+// URLCACHE APIs
+//
+
+//
+// datatype definitions.
+//
+
+//
+// cache entry type flags.
+//
+const
+ NORMAL_CACHE_ENTRY = $00000001;
+ STICKY_CACHE_ENTRY = $00000004;
+ EDITED_CACHE_ENTRY = $00000008;
+ TRACK_OFFLINE_CACHE_ENTRY = $00000010;
+ TRACK_ONLINE_CACHE_ENTRY = $00000020;
+ SPARSE_CACHE_ENTRY = $00010000;
+ COOKIE_CACHE_ENTRY = $00100000;
+ URLHISTORY_CACHE_ENTRY = $00200000;
+
+
+ URLCACHE_FIND_DEFAULT_FILTER = NORMAL_CACHE_ENTRY or
+ COOKIE_CACHE_ENTRY or
+ URLHISTORY_CACHE_ENTRY or
+ TRACK_OFFLINE_CACHE_ENTRY or
+ TRACK_ONLINE_CACHE_ENTRY or
+ STICKY_CACHE_ENTRY;
+
+
+
+//
+// INTERNET_CACHE_ENTRY_INFO -
+//
+
+type
+ _INTERNET_CACHE_ENTRY_INFOA = record
+ dwStructSize:DWORD; // version of cache system.
+ lpszSourceUrlName:LPSTR; // embedded pointer to the URL name string.
+ lpszLocalFileName:LPSTR; // embedded pointer to the local file name.
+ CacheEntryType:DWORD; // cache type bit mask.
+ dwUseCount:DWORD; // current users count of the cache entry.
+ dwHitRate:DWORD; // num of times the cache entry was retrieved.
+ dwSizeLow:DWORD; // low DWORD of the file size.
+ dwSizeHigh:DWORD; // high DWORD of the file size.
+ LastModifiedTime:FILETIME; // last modified time of the file in GMT format.
+ ExpireTime:FILETIME; // expire time of the file in GMT format
+ LastAccessTime:FILETIME; // last accessed time in GMT format
+ LastSyncTime:FILETIME; // last time the URL was synchronized with the source
+ lpHeaderInfo:LPSTR; // embedded pointer to the header info.
+ dwHeaderInfoSize:DWORD; // size of the above header.
+ lpszFileExtension:LPSTR; // File extension used to retrive the urldata as a file.
+ case longint of // Exemption delta from last access time.
+ 0: (dwReserved:DWORD);
+ 1: (dwExemptDelta:DWORD);
+ end;
+ INTERNET_CACHE_ENTRY_INFOA = _INTERNET_CACHE_ENTRY_INFOA;
+ LPINTERNET_CACHE_ENTRY_INFOA = ^_INTERNET_CACHE_ENTRY_INFOA;
+
+ _INTERNET_CACHE_ENTRY_INFOW = record
+ dwStructSize:DWORD; // version of cache system.
+ lpszSourceUrlName:LPWSTR; // embedded pointer to the URL name string.
+ lpszLocalFileName:LPWSTR; // embedded pointer to the local file name.
+ CacheEntryType:DWORD; // cache type bit mask.
+ dwUseCount:DWORD; // current users count of the cache entry.
+ dwHitRate:DWORD; // num of times the cache entry was retrieved.
+ dwSizeLow:DWORD; // low DWORD of the file size.
+ dwSizeHigh:DWORD; // high DWORD of the file size.
+ LastModifiedTime:FILETIME; // last modified time of the file in GMT format.
+ ExpireTime:FILETIME; // expire time of the file in GMT format
+ LastAccessTime:FILETIME; // last accessed time in GMT format
+ LastSyncTime:FILETIME; // last time the URL was synchronized with the source
+ lpHeaderInfo:LPWSTR; // embedded pointer to the header info.
+ dwHeaderInfoSize:DWORD; // size of the above header.
+ lpszFileExtension:LPWSTR; // File extension used to retrive the urldata as a file.
+ case longint of // Exemption delta from last access time.
+ 0: (dwReserved:DWORD);
+ 1: (dwExemptDelta:DWORD);
+ end;
+ INTERNET_CACHE_ENTRY_INFOW = _INTERNET_CACHE_ENTRY_INFOW;
+ LPINTERNET_CACHE_ENTRY_INFOW = ^_INTERNET_CACHE_ENTRY_INFOW;
+
+{$IFDEF UNICODE}
+type
+ INTERNET_CACHE_ENTRY_INFO = INTERNET_CACHE_ENTRY_INFOW;
+ LPINTERNET_CACHE_ENTRY_INFO = LPINTERNET_CACHE_ENTRY_INFOW;
+{$ELSE UNICODE}
+type
+ INTERNET_CACHE_ENTRY_INFO = INTERNET_CACHE_ENTRY_INFOA;
+ LPINTERNET_CACHE_ENTRY_INFO = LPINTERNET_CACHE_ENTRY_INFOA;
+{$ENDIF UNICODE}
+
+type
+ _INTERNET_CACHE_TIMESTAMPS = record
+ ftExpires:FILETIME;
+ ftLastModified:FILETIME;
+ end;
+ INTERNET_CACHE_TIMESTAMPS = _INTERNET_CACHE_TIMESTAMPS;
+ LPINTERNET_CACHE_TIMESTAMPS = ^_INTERNET_CACHE_TIMESTAMPS;
+
+
+
+//
+// Cache Group
+//
+type
+ GROUPID = LONGLONG;
+ LPGROUPID = ^GROUPID;
+
+
+//
+// Cache Group Flags
+//
+const
+ CACHEGROUP_ATTRIBUTE_GET_ALL = $ffffffff;
+ CACHEGROUP_ATTRIBUTE_BASIC = $00000001;
+ CACHEGROUP_ATTRIBUTE_FLAG = $00000002;
+ CACHEGROUP_ATTRIBUTE_TYPE = $00000004;
+ CACHEGROUP_ATTRIBUTE_QUOTA = $00000008;
+ CACHEGROUP_ATTRIBUTE_GROUPNAME = $00000010;
+ CACHEGROUP_ATTRIBUTE_STORAGE = $00000020;
+
+ CACHEGROUP_FLAG_NONPURGEABLE = $00000001;
+ CACHEGROUP_FLAG_GIDONLY = $00000004;
+
+ CACHEGROUP_FLAG_FLUSHURL_ONDELETE = $00000002;
+
+ CACHEGROUP_SEARCH_ALL = $00000000;
+ CACHEGROUP_SEARCH_BYURL = $00000001;
+
+ CACHEGROUP_TYPE_INVALID = $00000001;
+
+
+//
+// updatable cache group fields
+//
+const
+ CACHEGROUP_READWRITE_MASK = CACHEGROUP_ATTRIBUTE_TYPE or
+ CACHEGROUP_ATTRIBUTE_QUOTA or
+ CACHEGROUP_ATTRIBUTE_GROUPNAME or
+ CACHEGROUP_ATTRIBUTE_STORAGE;
+
+//
+// INTERNET_CACHE_GROUP_INFO
+//
+const
+ GROUPNAME_MAX_LENGTH = 120;
+ GROUP_OWNER_STORAGE_SIZE = 4;
+
+type
+ _INTERNET_CACHE_GROUP_INFOA = record
+ dwGroupSize:DWORD;
+ dwGroupFlags:DWORD;
+ dwGroupType:DWORD;
+ dwDiskUsage:DWORD; // in KB
+ dwDiskQuota:DWORD; // in KB
+ dwOwnerStorage:array[0..GROUP_OWNER_STORAGE_SIZE-1] of DWORD;
+ szGroupName:array[0..GROUPNAME_MAX_LENGTH-1] of char;
+ end;
+ INTERNET_CACHE_GROUP_INFOA = _INTERNET_CACHE_GROUP_INFOA;
+ LPINTERNET_CACHE_GROUP_INFOA = ^INTERNET_CACHE_GROUP_INFOA;
+
+ _INTERNET_CACHE_GROUP_INFOW = record
+ dwGroupSize:DWORD;
+ dwGroupFlags:DWORD;
+ dwGroupType:DWORD;
+ dwDiskUsage:DWORD; // in KB
+ dwDiskQuota:DWORD; // in KB
+ dwOwnerStorage:array[0..GROUP_OWNER_STORAGE_SIZE-1] of DWORD;
+ szGroupName:array[0..GROUPNAME_MAX_LENGTH-1] of WCHAR;
+ end;
+ INTERNET_CACHE_GROUP_INFOW = _INTERNET_CACHE_GROUP_INFOW;
+ LPINTERNET_CACHE_GROUP_INFOW = ^INTERNET_CACHE_GROUP_INFOW;
+
+
+{$IFDEF UNICODE}
+type
+ INTERNET_CACHE_GROUP_INFO = INTERNET_CACHE_GROUP_INFOW;
+ LPINTERNET_CACHE_GROUP_INFO = LPINTERNET_CACHE_GROUP_INFOW;
+{$ELSE UNICODE}
+type
+ INTERNET_CACHE_GROUP_INFO = INTERNET_CACHE_GROUP_INFOA;
+ LPINTERNET_CACHE_GROUP_INFO = LPINTERNET_CACHE_GROUP_INFOA;
+{$ENDIF UNICODE}
+
+
+//
+// Cache APIs
+//
+
+function CreateUrlCacheEntryA(lpszUrlName:LPCSTR;
+ dwExpectedFileSize:DWORD;
+ lpszFileExtension:LPCSTR;
+ lpszFileName:LPSTR;
+ dwReserved:DWORD
+ ):BOOL; external WinInetDLL name 'CreateUrlCacheEntryA';
+
+function CreateUrlCacheEntryW(lpszUrlName:LPCWSTR;
+ dwExpectedFileSize:DWORD;
+ lpszFileExtension:LPCWSTR;
+ lpszFileName:LPWSTR;
+ dwReserved:DWORD
+ ):BOOL; external WinInetDLL name 'CreateUrlCacheEntryW';
+
+{$IFDEF UNICODE}
+function CreateUrlCacheEntry(lpszUrlName:LPCWSTR;
+ dwExpectedFileSize:DWORD;
+ lpszFileExtension:LPCWSTR;
+ lpszFileName:LPWSTR;
+ dwReserved:DWORD
+ ):BOOL; external WinInetDLL name 'CreateUrlCacheEntryW';
+{$ELSE UNICODE}
+function CreateUrlCacheEntry(lpszUrlName:LPCSTR;
+ dwExpectedFileSize:DWORD;
+ lpszFileExtension:LPCSTR;
+ lpszFileName:LPSTR;
+ dwReserved:DWORD
+ ):BOOL; external WinInetDLL name 'CreateUrlCacheEntryA';
+{$ENDIF UNICODE}
+
+{$IFNDEF USE_FIXED_COMMIT_URL_CACHE_ENTRY}
+// Temporary state of affairs until we reconcile our apis.
+
+// Why are we doing this? HeaderInfo _should_ be string data.
+// However, one group is passing binary data instead. For the
+// unicode api, we've decided to disallow this, but this
+// brings up an inconsistency between the u and a apis, which
+// is undesirable.
+
+// For Beta 1, we'll go with this behaviour, but in future releases
+// we want to make these apis consistent.
+
+function CommitUrlCacheEntryA(lpszUrlName:LPCSTR;
+ lpszLocalFileName:LPCSTR;
+ ExpireTime:FILETIME;
+ LastModifiedTime:FILETIME;
+ CacheEntryType:DWORD;
+ lpHeaderInfo:LPBYTE;
+ dwHeaderSize:DWORD;
+ lpszFileExtension:LPCSTR;
+ lpszOriginalUrl:LPCSTR
+ ):BOOL; external WinInetDLL name 'CommitUrlCacheEntryA';
+
+function CommitUrlCacheEntryW(lpszUrlName:LPCWSTR;
+ lpszLocalFileName:LPCWSTR;
+ ExpireTime:FILETIME;
+ LastModifiedTime:FILETIME;
+ CacheEntryType:DWORD;
+ lpHeaderInfo:LPWSTR;
+ dwHeaderSize:DWORD;
+ lpszFileExtension:LPCWSTR;
+ lpszOriginalUrl:LPCWSTR
+ ):BOOL; external WinInetDLL name 'CommitUrlCacheEntryW';
+
+{$IFDEF UNICODE}
+function CommitUrlCacheEntry(lpszUrlName:LPCWSTR;
+ lpszLocalFileName:LPCWSTR;
+ ExpireTime:FILETIME;
+ LastModifiedTime:FILETIME;
+ CacheEntryType:DWORD;
+ lpHeaderInfo:LPWSTR;
+ dwHeaderSize:DWORD;
+ lpszFileExtension:LPCWSTR;
+ lpszOriginalUrl:LPCWSTR
+ ):BOOL; external WinInetDLL name 'CommitUrlCacheEntryW';
+{$ELSE UNICODE}
+function CommitUrlCacheEntry(lpszUrlName:LPCSTR;
+ lpszLocalFileName:LPCSTR;
+ ExpireTime:FILETIME;
+ LastModifiedTime:FILETIME;
+ CacheEntryType:DWORD;
+ lpHeaderInfo:LPBYTE;
+ dwHeaderSize:DWORD;
+ lpszFileExtension:LPCSTR;
+ lpszOriginalUrl:LPCSTR
+ ):BOOL; external WinInetDLL name 'CommitUrlCacheEntryA';
+{$ENDIF UNICODE}
+{$ELSE USE_FIXED_COMMIT_URL_CACHE_ENTRY}
+function CommitUrlCacheEntryA(lpszUrlName:LPCSTR;
+ lpszLocalFileName:LPCSTR;
+ ExpireTime:FILETIME;
+ LastModifiedTime:FILETIME;
+ CacheEntryType:DWORD;
+ lpHeaderInfo:LPCSTR;
+ dwHeaderSize:DWORD;
+ lpszFileExtension:LPCSTR;
+ lpszOriginalUrl:LPCSTR
+ ):BOOL; external WinInetDLL name 'CommitUrlCacheEntryA';
+
+function CommitUrlCacheEntryW(lpszUrlName:LPCWSTR;
+ lpszLocalFileName:LPCWSTR;
+ ExpireTime:FILETIME;
+ LastModifiedTime:FILETIME;
+ CacheEntryType:DWORD;
+ lpHeaderInfo:LPCWSTR;
+ dwHeaderSize:DWORD;
+ lpszFileExtension:LPCWSTR;
+ lpszOriginalUrl:LPCWSTR
+ ):BOOL; external WinInetDLL name 'CommitUrlCacheEntryW';
+
+{$IFDEF UNICODE}
+function CommitUrlCacheEntry(lpszUrlName:LPCWSTR;
+ lpszLocalFileName:LPCWSTR;
+ ExpireTime:FILETIME;
+ LastModifiedTime:FILETIME;
+ CacheEntryType:DWORD;
+ lpHeaderInfo:LPCWSTR;
+ dwHeaderSize:DWORD;
+ lpszFileExtension:LPCWSTR;
+ lpszOriginalUrl:LPCWSTR
+ ):BOOL; external WinInetDLL name 'CommitUrlCacheEntryW';
+{$ELSE UNICODE}
+function CommitUrlCacheEntry(lpszUrlName:LPCSTR;
+ lpszLocalFileName:LPCSTR;
+ ExpireTime:FILETIME;
+ LastModifiedTime:FILETIME;
+ CacheEntryType:DWORD;
+ lpHeaderInfo:LPCSTR;
+ dwHeaderSize:DWORD;
+ lpszFileExtension:LPCSTR;
+ lpszOriginalUrl:LPCSTR
+ ):BOOL; external WinInetDLL name 'CommitUrlCacheEntryA';
+{$ENDIF UNICODE}
+{$ENDIF USE_FIXED_COMMIT_URL_CACHE_ENTRY}
+
+function RetrieveUrlCacheEntryFileA(lpszUrlName:LPCSTR;
+ lpCacheEntryInfo:LPINTERNET_CACHE_ENTRY_INFOA;
+ lpdwCacheEntryInfoBufferSize:LPDWORD;
+ dwReserved:DWORD
+ ):BOOL; external WinInetDLL name 'RetrieveUrlCacheEntryFileA';
+
+function RetrieveUrlCacheEntryFileW(lpszUrlName:LPCWSTR;
+ lpCacheEntryInfo:LPINTERNET_CACHE_ENTRY_INFOW;
+ lpdwCacheEntryInfoBufferSize:LPDWORD;
+ dwReserved:DWORD
+ ):BOOL; external WinInetDLL name 'RetrieveUrlCacheEntryFileW';
+
+{$IFDEF UNICODE}
+function RetrieveUrlCacheEntryFile(lpszUrlName:LPCWSTR;
+ lpCacheEntryInfo:LPINTERNET_CACHE_ENTRY_INFOW;
+ lpdwCacheEntryInfoBufferSize:LPDWORD;
+ dwReserved:DWORD
+ ):BOOL; external WinInetDLL name 'RetrieveUrlCacheEntryFileW';
+{$ELSE UNICODE}
+function RetrieveUrlCacheEntryFile(lpszUrlName:LPCSTR;
+ lpCacheEntryInfo:LPINTERNET_CACHE_ENTRY_INFOA;
+ lpdwCacheEntryInfoBufferSize:LPDWORD;
+ dwReserved:DWORD
+ ):BOOL; external WinInetDLL name 'RetrieveUrlCacheEntryFileA';
+{$ENDIF UNICODE}
+
+function UnlockUrlCacheEntryFileA(lpszUrlName:LPCSTR;
+ dwReserved:DWORD
+ ):BOOL; external WinInetDLL name 'UnlockUrlCacheEntryFileA';
+
+function UnlockUrlCacheEntryFileW(lpszUrlName:LPCWSTR;
+ dwReserved:DWORD
+ ):BOOL; external WinInetDLL name 'UnlockUrlCacheEntryFileW';
+
+{$IFDEF UNICODE}
+function UnlockUrlCacheEntryFile(lpszUrlName:LPCWSTR;
+ dwReserved:DWORD
+ ):BOOL; external WinInetDLL name 'UnlockUrlCacheEntryFileW';
+{$ELSE UNICODE}
+{$IFDEF WIN32}
+function UnlockUrlCacheEntryFile(lpszUrlName:LPCSTR;
+ dwReserved:DWORD
+ ):BOOL; external WinInetDLL name 'UnlockUrlCacheEntryFileA';
+{$ELSE WIN32}
+function UnlockUrlCacheEntryFile(lpszUrlName:LPCSTR;
+ dwReserved:DWORD
+ ):BOOL; external WinInetDLL name 'UnlockUrlCacheEntryFile';
+{$ENDIF WIN32}
+{$ENDIF UNICODE}
+
+function RetrieveUrlCacheEntryStreamA(lpszUrlName:LPCSTR;
+ lpCacheEntryInfo:LPINTERNET_CACHE_ENTRY_INFOA;
+ lpdwCacheEntryInfoBufferSize:LPDWORD;
+ fRandomRead:BOOL;
+ dwReserved:DWORD
+ ):HANDLE; external WinInetDLL name 'RetrieveUrlCacheEntryStreamA';
+
+function RetrieveUrlCacheEntryStreamW(lpszUrlName:LPCWSTR;
+ lpCacheEntryInfo:LPINTERNET_CACHE_ENTRY_INFOW;
+ lpdwCacheEntryInfoBufferSize:LPDWORD;
+ fRandomRead:BOOL;
+ dwReserved:DWORD
+ ):HANDLE; external WinInetDLL name 'RetrieveUrlCacheEntryStreamW';
+
+{$IFDEF UNICODE}
+function RetrieveUrlCacheEntryStream(lpszUrlName:LPCWSTR;
+ lpCacheEntryInfo:LPINTERNET_CACHE_ENTRY_INFOW;
+ lpdwCacheEntryInfoBufferSize:LPDWORD;
+ fRandomRead:BOOL;
+ dwReserved:DWORD
+ ):HANDLE; external WinInetDLL name 'RetrieveUrlCacheEntryStreamW';
+{$ELSE UNICODE}
+function RetrieveUrlCacheEntryStream(lpszUrlName:LPCSTR;
+ lpCacheEntryInfo:LPINTERNET_CACHE_ENTRY_INFOA;
+ lpdwCacheEntryInfoBufferSize:LPDWORD;
+ fRandomRead:BOOL;
+ dwReserved:DWORD
+ ):HANDLE; external WinInetDLL name 'RetrieveUrlCacheEntryStreamA';
+{$ENDIF UNICODE}
+
+function ReadUrlCacheEntryStream(hUrlCacheStream:HANDLE;
+ dwLocation:DWORD;
+ lpBuffer:LPVOID;
+ lpdwLen:LPDWORD;
+ Reserved:DWORD
+ ):BOOL; external WinInetDLL name 'ReadUrlCacheEntryStream';
+
+function UnlockUrlCacheEntryStream(hUrlCacheStream:HANDLE;
+ Reserved:DWORD
+ ):BOOL; external WinInetDLL name 'UnlockUrlCacheEntryStream';
+
+function GetUrlCacheEntryInfoA(lpszUrlName:LPCSTR;
+ lpCacheEntryInfo:LPINTERNET_CACHE_ENTRY_INFOA;
+ lpdwCacheEntryInfoBufferSize:LPDWORD
+ ):BOOL; external WinInetDLL name 'GetUrlCacheEntryInfoA';
+
+function GetUrlCacheEntryInfoW(lpszUrlName:LPCWSTR;
+ lpCacheEntryInfo:LPINTERNET_CACHE_ENTRY_INFOW;
+ lpdwCacheEntryInfoBufferSize:LPDWORD
+ ):BOOL; external WinInetDLL name 'GetUrlCacheEntryInfoW';
+
+{$IFDEF UNICODE}
+function GetUrlCacheEntryInfo(lpszUrlName:LPCWSTR;
+ lpCacheEntryInfo:LPINTERNET_CACHE_ENTRY_INFOW;
+ lpdwCacheEntryInfoBufferSize:LPDWORD
+ ):BOOL; external WinInetDLL name 'GetUrlCacheEntryInfoW';
+{$ELSE UNICODE}
+function GetUrlCacheEntryInfo(lpszUrlName:LPCSTR;
+ lpCacheEntryInfo:LPINTERNET_CACHE_ENTRY_INFOA;
+ lpdwCacheEntryInfoBufferSize:LPDWORD
+ ):BOOL; external WinInetDLL name 'GetUrlCacheEntryInfoA';
+{$ENDIF UNICODE}
+
+function FindFirstUrlCacheGroup(dwFlags:DWORD;
+ dwFilter:DWORD;
+ lpSearchCondition:LPVOID;
+ dwSearchCondition:DWORD;
+ lpGroupId:LPGROUPID;
+ lpReserved:LPVOID
+ ):HANDLE; external WinInetDLL name 'FindFirstUrlCacheGroup';
+
+function FindNextUrlCacheGroup(hFind:HANDLE;
+ lpGroupId:LPGROUPID;
+ lpReserved:LPVOID
+ ):BOOL; external WinInetDLL name 'FindNextUrlCacheGroup';
+
+
+function GetUrlCacheGroupAttributeA(gid:GROUPID;
+ dwFlags:DWORD;
+ dwAttributes:DWORD;
+ lpGroupInfo:LPINTERNET_CACHE_GROUP_INFOA;
+ lpdwGroupInfo:LPDWORD;
+ lpReserved:LPVOID
+ ):BOOL; external WinInetDLL name 'GetUrlCacheGroupAttributeA';
+
+function GetUrlCacheGroupAttributeW(gid:GROUPID;
+ dwFlags:DWORD;
+ dwAttributes:DWORD;
+ lpGroupInfo:LPINTERNET_CACHE_GROUP_INFOW;
+ lpdwGroupInfo:LPDWORD;
+ lpReserved:LPVOID
+ ):BOOL; external WinInetDLL name 'GetUrlCacheGroupAttributeW';
+
+{$IFDEF UNICODE}
+function GetUrlCacheGroupAttribute(gid:GROUPID;
+ dwFlags:DWORD;
+ dwAttributes:DWORD;
+ lpGroupInfo:LPINTERNET_CACHE_GROUP_INFOW;
+ lpdwGroupInfo:LPDWORD;
+ lpReserved:LPVOID
+ ):BOOL; external WinInetDLL name 'GetUrlCacheGroupAttributeW';
+{$ELSE UNICODE}
+function GetUrlCacheGroupAttribute(gid:GROUPID;
+ dwFlags:DWORD;
+ dwAttributes:DWORD;
+ lpGroupInfo:LPINTERNET_CACHE_GROUP_INFOA;
+ lpdwGroupInfo:LPDWORD;
+ lpReserved:LPVOID
+ ):BOOL; external WinInetDLL name 'GetUrlCacheGroupAttributeA';
+{$ENDIF UNICODE}
+
+function SetUrlCacheGroupAttributeA(gid:GROUPID;
+ dwFlags:DWORD;
+ dwAttributes:DWORD;
+ lpGroupInfo:LPINTERNET_CACHE_GROUP_INFOA;
+ lpReserved:LPVOID
+ ):BOOL; external WinInetDLL name 'SetUrlCacheGroupAttributeA';
+
+function SetUrlCacheGroupAttributeW(gid:GROUPID;
+ dwFlags:DWORD;
+ dwAttributes:DWORD;
+ lpGroupInfo:LPINTERNET_CACHE_GROUP_INFOW;
+ lpReserved:LPVOID
+ ):BOOL; external WinInetDLL name 'SetUrlCacheGroupAttributeW';
+
+{$IFDEF UNICODE}
+function SetUrlCacheGroupAttribute(gid:GROUPID;
+ dwFlags:DWORD;
+ dwAttributes:DWORD;
+ lpGroupInfo:LPINTERNET_CACHE_GROUP_INFOW;
+ lpReserved:LPVOID
+ ):BOOL; external WinInetDLL name 'SetUrlCacheGroupAttributeW';
+{$ELSE UNICODE}
+function SetUrlCacheGroupAttribute(gid:GROUPID;
+ dwFlags:DWORD;
+ dwAttributes:DWORD;
+ lpGroupInfo:LPINTERNET_CACHE_GROUP_INFOA;
+ lpReserved:LPVOID
+ ):BOOL; external WinInetDLL name 'SetUrlCacheGroupAttributeA';
+{$ENDIF UNICODE}
+
+
+function GetUrlCacheEntryInfoExA(lpszUrl:LPCSTR;
+ lpCacheEntryInfo:LPINTERNET_CACHE_ENTRY_INFOA;
+ lpdwCacheEntryInfoBufSize:LPDWORD;
+ lpszReserved:LPSTR; // must pass null
+ lpdwReserved:LPDWORD; // must pass null
+ lpReserved:LPVOID; // must pass null
+ dwFlags:DWORD // reserved
+ ):BOOL; external WinInetDLL name 'GetUrlCacheEntryInfoExA';
+
+function GetUrlCacheEntryInfoExW(lpszUrl:LPCWSTR;
+ lpCacheEntryInfo:LPINTERNET_CACHE_ENTRY_INFOW;
+ lpdwCacheEntryInfoBufSize:LPDWORD;
+ lpszReserved:LPWSTR; // must pass null
+ lpdwReserved:LPDWORD; // must pass null
+ lpReserved:LPVOID; // must pass null
+ dwFlags:DWORD // reserved
+ ):BOOL; external WinInetDLL name 'GetUrlCacheEntryInfoExW';
+
+{$IFDEF UNICODE}
+function GetUrlCacheEntryInfoEx(lpszUrl:LPCWSTR;
+ lpCacheEntryInfo:LPINTERNET_CACHE_ENTRY_INFOW;
+ lpdwCacheEntryInfoBufSize:LPDWORD;
+ lpszReserved:LPWSTR; // must pass null
+ lpdwReserved:LPDWORD; // must pass null
+ lpReserved:LPVOID; // must pass null
+ dwFlags:DWORD // reserved
+ ):BOOL; external WinInetDLL name 'GetUrlCacheEntryInfoExW';
+{$ELSE UNICODE}
+function GetUrlCacheEntryInfoEx(lpszUrl:LPCSTR;
+ lpCacheEntryInfo:LPINTERNET_CACHE_ENTRY_INFOA;
+ lpdwCacheEntryInfoBufSize:LPDWORD;
+ lpszReserved:LPSTR; // must pass null
+ lpdwReserved:LPDWORD; // must pass null
+ lpReserved:LPVOID; // must pass null
+ dwFlags:DWORD // reserved
+ ):BOOL; external WinInetDLL name 'GetUrlCacheEntryInfoExA';
+{$ENDIF UNICODE}
+
+const
+ CACHE_ENTRY_ATTRIBUTE_FC = $00000004;
+ CACHE_ENTRY_HITRATE_FC = $00000010;
+ CACHE_ENTRY_MODTIME_FC = $00000040;
+ CACHE_ENTRY_EXPTIME_FC = $00000080;
+ CACHE_ENTRY_ACCTIME_FC = $00000100;
+ CACHE_ENTRY_SYNCTIME_FC = $00000200;
+ CACHE_ENTRY_HEADERINFO_FC = $00000400;
+ CACHE_ENTRY_EXEMPT_DELTA_FC = $00000800;
+
+function SetUrlCacheEntryInfoA(lpszUrlName:LPCSTR;
+ lpCacheEntryInfo:LPINTERNET_CACHE_ENTRY_INFOA;
+ dwFieldControl:DWORD
+ ):BOOL; external WinInetDLL name 'SetUrlCacheEntryInfoA';
+
+function SetUrlCacheEntryInfoW(lpszUrlName:LPCWSTR;
+ lpCacheEntryInfo:LPINTERNET_CACHE_ENTRY_INFOW;
+ dwFieldControl:DWORD
+ ):BOOL; external WinInetDLL name 'SetUrlCacheEntryInfoW';
+
+{$IFDEF UNICODE}
+function SetUrlCacheEntryInfo(lpszUrlName:LPCWSTR;
+ lpCacheEntryInfo:LPINTERNET_CACHE_ENTRY_INFOW;
+ dwFieldControl:DWORD
+ ):BOOL; external WinInetDLL name 'SetUrlCacheEntryInfoW';
+{$ELSE UNICODE}
+function SetUrlCacheEntryInfo(lpszUrlName:LPCSTR;
+ lpCacheEntryInfo:LPINTERNET_CACHE_ENTRY_INFOA;
+ dwFieldControl:DWORD
+ ):BOOL; external WinInetDLL name 'SetUrlCacheEntryInfoA';
+{$ENDIF UNICODE}
+
+
+//
+// Cache Group Functions
+//
+
+function CreateUrlCacheGroup(dwFlags:DWORD;
+ lpReserved:LPVOID // must pass NULL
+ ):GROUPID; external WinInetDLL name 'CreateUrlCacheGroup';
+
+function DeleteUrlCacheGroup(GroupId:GROUPID;
+ dwFlags:DWORD; // must pass 0
+ lpReserved:LPVOID // must pass NULL
+ ):BOOL; external WinInetDLL name 'DeleteUrlCacheGroup';
+
+// Flags for SetUrlCacheEntryGroup
+const
+ INTERNET_CACHE_GROUP_ADD = 0;
+ INTERNET_CACHE_GROUP_REMOVE = 1;
+
+function SetUrlCacheEntryGroupA(lpszUrlName:LPCSTR;
+ dwFlags:DWORD;
+ GroupId:GROUPID;
+ pbGroupAttributes:LPBYTE; // must pass NULL
+ cbGroupAttributes:DWORD; // must pass 0
+ lpReserved:LPVOID // must pass NULL
+ ):BOOL; external WinInetDLL name 'SetUrlCacheEntryGroupA';
+
+function SetUrlCacheEntryGroupW(lpszUrlName:LPCWSTR;
+ dwFlags:DWORD;
+ GroupId:GROUPID;
+ pbGroupAttributes:LPBYTE; // must pass NULL
+ cbGroupAttributes:DWORD; // must pass 0
+ lpReserved:LPVOID // must pass NULL
+ ):BOOL; external WinInetDLL name 'SetUrlCacheEntryGroupW';
+
+{$IFDEF UNICODE}
+function SetUrlCacheEntryGroup(lpszUrlName:LPCWSTR;
+ dwFlags:DWORD;
+ GroupId:GROUPID;
+ pbGroupAttributes:LPBYTE; // must pass NULL
+ cbGroupAttributes:DWORD; // must pass 0
+ lpReserved:LPVOID // must pass NULL
+ ):BOOL; external WinInetDLL name 'SetUrlCacheEntryGroupW';
+{$ELSE UNICODE}
+{$IFDEF WIN32}
+function SetUrlCacheEntryGroup(lpszUrlName:LPCSTR;
+ dwFlags:DWORD;
+ GroupId:GROUPID;
+ pbGroupAttributes:LPBYTE; // must pass NULL
+ cbGroupAttributes:DWORD; // must pass 0
+ lpReserved:LPVOID // must pass NULL
+ ):BOOL; external WinInetDLL name 'SetUrlCacheEntryGroupA';
+{$ELSE WIN32}
+function SetUrlCacheEntryGroup(lpszUrlName:LPCSTR;
+ dwFlags:DWORD;
+ GroupId:GROUPID;
+ pbGroupAttributes:LPBYTE; // must pass NULL
+ cbGroupAttributes:DWORD; // must pass 0
+ lpReserved:LPVOID // must pass NULL
+ ):BOOL; external WinInetDLL name 'SetUrlCacheEntryGroup';
+{$ENDIF WIN32}
+{$ENDIF UNICODE}
+
+function FindFirstUrlCacheEntryExA(lpszUrlSearchPattern:LPCSTR;
+ dwFlags:DWORD;
+ dwFilter:DWORD;
+ GroupId:GROUPID;
+ lpFirstCacheEntryInfo:LPINTERNET_CACHE_ENTRY_INFOA;
+ lpdwFirstCacheEntryInfoBufferSize:LPDWORD;
+ lpReserved:LPVOID; // must pass NULL
+ pcbReserved2:LPDWORD; // must pass NULL
+ lpReserved3:LPVOID // must pass NULL
+ ):HANDLE; external WinInetDLL name 'FindFirstUrlCacheEntryExA';
+
+function FindFirstUrlCacheEntryExW(lpszUrlSearchPattern:LPCWSTR;
+ dwFlags:DWORD;
+ dwFilter:DWORD;
+ GroupId:GROUPID;
+ lpFirstCacheEntryInfo:LPINTERNET_CACHE_ENTRY_INFOW;
+ lpdwFirstCacheEntryInfoBufferSize:LPDWORD;
+ lpReserved:LPVOID; // must pass NULL
+ pcbReserved2:LPDWORD; // must pass NULL
+ lpReserved3:LPVOID // must pass NULL
+ ):HANDLE; external WinInetDLL name 'FindFirstUrlCacheEntryExW';
+
+{$IFDEF UNICODE}
+function FindFirstUrlCacheEntryEx(lpszUrlSearchPattern:LPCWSTR;
+ dwFlags:DWORD;
+ dwFilter:DWORD;
+ GroupId:GROUPID;
+ lpFirstCacheEntryInfo:LPINTERNET_CACHE_ENTRY_INFOW;
+ lpdwFirstCacheEntryInfoBufferSize:LPDWORD;
+ lpReserved:LPVOID; // must pass NULL
+ pcbReserved2:LPDWORD; // must pass NULL
+ lpReserved3:LPVOID // must pass NULL
+ ):HANDLE; external WinInetDLL name 'FindFirstUrlCacheEntryExW';
+{$ELSE UNICODE}
+function FindFirstUrlCacheEntryEx(lpszUrlSearchPattern:LPCSTR;
+ dwFlags:DWORD;
+ dwFilter:DWORD;
+ GroupId:GROUPID;
+ lpFirstCacheEntryInfo:LPINTERNET_CACHE_ENTRY_INFOA;
+ lpdwFirstCacheEntryInfoBufferSize:LPDWORD;
+ lpReserved:LPVOID; // must pass NULL
+ pcbReserved2:LPDWORD; // must pass NULL
+ lpReserved3:LPVOID // must pass NULL
+ ):HANDLE; external WinInetDLL name 'FindFirstUrlCacheEntryExA';
+{$ENDIF UNICODE}
+
+function FindNextUrlCacheEntryExA(hEnumHandle:HANDLE;
+ lpFirstCacheEntryInfo:LPINTERNET_CACHE_ENTRY_INFOA;
+ lpdwFirstCacheEntryInfoBufferSize:LPDWORD;
+ lpReserved:LPVOID; // must pass NULL
+ pcbReserved2:LPDWORD; // must pass NULL
+ lpReserved3:LPVOID // must pass NULL
+ ):BOOL; external WinInetDLL name 'FindNextUrlCacheEntryExA';
+
+function FindNextUrlCacheEntryExW(hEnumHandle:HANDLE;
+ lpFirstCacheEntryInfo:LPINTERNET_CACHE_ENTRY_INFOW;
+ lpdwFirstCacheEntryInfoBufferSize:LPDWORD;
+ lpReserved:LPVOID; // must pass NULL
+ pcbReserved2:LPDWORD; // must pass NULL
+ lpReserved3:LPVOID // must pass NULL
+ ):BOOL; external WinInetDLL name 'FindNextUrlCacheEntryExW';
+
+{$IFDEF UNICODE}
+function FindNextUrlCacheEntryEx(hEnumHandle:HANDLE;
+ lpFirstCacheEntryInfo:LPINTERNET_CACHE_ENTRY_INFOW;
+ lpdwFirstCacheEntryInfoBufferSize:LPDWORD;
+ lpReserved:LPVOID; // must pass NULL
+ pcbReserved2:LPDWORD; // must pass NULL
+ lpReserved3:LPVOID // must pass NULL
+ ):BOOL; external WinInetDLL name 'FindNextUrlCacheEntryExW';
+{$ELSE UNICODE}
+function FindNextUrlCacheEntryEx(hEnumHandle:HANDLE;
+ lpFirstCacheEntryInfo:LPINTERNET_CACHE_ENTRY_INFOA;
+ lpdwFirstCacheEntryInfoBufferSize:LPDWORD;
+ lpReserved:LPVOID; // must pass NULL
+ pcbReserved2:LPDWORD; // must pass NULL
+ lpReserved3:LPVOID // must pass NULL
+ ):BOOL; external WinInetDLL name 'FindNextUrlCacheEntryExA';
+{$ENDIF UNICODE}
+
+function FindFirstUrlCacheEntryA(lpszUrlSearchPattern:LPCSTR;
+ lpFirstCacheEntryInfo:LPINTERNET_CACHE_ENTRY_INFOA;
+ lpdwFirstCacheEntryInfoBufferSize:LPDWORD
+ ):HANDLE; external WinInetDLL name 'FindFirstUrlCacheEntryA';
+
+function FindFirstUrlCacheEntryW(lpszUrlSearchPattern:LPCWSTR;
+ lpFirstCacheEntryInfo:LPINTERNET_CACHE_ENTRY_INFOW;
+ lpdwFirstCacheEntryInfoBufferSize:LPDWORD
+ ):HANDLE; external WinInetDLL name 'FindFirstUrlCacheEntryW';
+
+{$IFDEF UNICODE}
+function FindFirstUrlCacheEntry(lpszUrlSearchPattern:LPCWSTR;
+ lpFirstCacheEntryInfo:LPINTERNET_CACHE_ENTRY_INFOW;
+ lpdwFirstCacheEntryInfoBufferSize:LPDWORD
+ ):HANDLE; external WinInetDLL name 'FindFirstUrlCacheEntryW';
+{$ELSE UNICODE}
+function FindFirstUrlCacheEntry(lpszUrlSearchPattern:LPCSTR;
+ lpFirstCacheEntryInfo:LPINTERNET_CACHE_ENTRY_INFOA;
+ lpdwFirstCacheEntryInfoBufferSize:LPDWORD
+ ):HANDLE; external WinInetDLL name 'FindFirstUrlCacheEntryA';
+{$ENDIF UNICODE}
+
+function FindNextUrlCacheEntryA(hEnumHandle:HANDLE;
+ lpNextCacheEntryInfo:LPINTERNET_CACHE_ENTRY_INFOA;
+ lpdwNextCacheEntryInfoBufferSize:LPDWORD
+ ):BOOL; external WinInetDLL name 'FindNextUrlCacheEntryA';
+
+function FindNextUrlCacheEntryW(hEnumHandle:HANDLE;
+ lpNextCacheEntryInfo:LPINTERNET_CACHE_ENTRY_INFOW;
+ lpdwNextCacheEntryInfoBufferSize:LPDWORD
+ ):BOOL; external WinInetDLL name 'FindNextUrlCacheEntryW';
+
+{$IFDEF UNICODE}
+function FindNextUrlCacheEntry(hEnumHandle:HANDLE;
+ lpNextCacheEntryInfo:LPINTERNET_CACHE_ENTRY_INFOW;
+ lpdwNextCacheEntryInfoBufferSize:LPDWORD
+ ):BOOL; external WinInetDLL name 'FindNextUrlCacheEntryW';
+{$ELSE UNICODE}
+function FindNextUrlCacheEntry(hEnumHandle:HANDLE;
+ lpNextCacheEntryInfo:LPINTERNET_CACHE_ENTRY_INFOA;
+ lpdwNextCacheEntryInfoBufferSize:LPDWORD
+ ):BOOL; external WinInetDLL name 'FindNextUrlCacheEntryA';
+{$ENDIF UNICODE}
+
+
+function FindCloseUrlCache(hEnumHandle:HANDLE):BOOL; external WinInetDLL name 'FindCloseUrlCache';
+
+function DeleteUrlCacheEntryA(lpszUrlName:LPCSTR):BOOL; external WinInetDLL name 'DeleteUrlCacheEntryA';
+
+function DeleteUrlCacheEntryW(lpszUrlName:LPCWSTR):BOOL; external WinInetDLL name 'DeleteUrlCacheEntryW';
+
+{$IFDEF UNICODE}
+function DeleteUrlCacheEntry(lpszUrlName:LPCWSTR):BOOL; external WinInetDLL name 'DeleteUrlCacheEntryW';
+{$ELSE UNICODE}
+{$IFDEF WIN32}
+function DeleteUrlCacheEntry(lpszUrlName:LPCSTR):BOOL; external WinInetDLL name 'DeleteUrlCacheEntryA';
+{$ELSE WIN32}
+function DeleteUrlCacheEntry(lpszUrlName:LPCSTR):BOOL; external WinInetDLL name 'DeleteUrlCacheEntry';
+{$ENDIF WIN32}
+{$ENDIF UNICODE}
+
+
+
+//
+// Autodial APIs
+//
+
+{$IFNDEF WINCE}
+// Despite the functions
+// InternetDial
+// InternetHangUp
+// InternetAutodial
+// InternetAutodialHangup
+// InternetInitializeAutoProxyDll
+// are declared in wininet.h for both WIN32 and WINCE there are no such
+// functions exported by wininet.dll under CE.
+function InternetDialA(hwndParent:HWND;
+ lpszConnectoid:LPSTR;
+ dwFlags:DWORD;
+ lpdwConnection:PDWORD_PTR;
+ dwReserved:DWORD
+ ):DWORD; external WinInetDLL name 'InternetDialA';
+
+function InternetDialW(hwndParent:HWND;
+ lpszConnectoid:LPWSTR;
+ dwFlags:DWORD;
+ lpdwConnection:PDWORD_PTR;
+ dwReserved:DWORD
+ ):DWORD; external WinInetDLL name 'InternetDialW';
+
+{$IFDEF UNICODE}
+function InternetDial(hwndParent:HWND;
+ lpszConnectoid:LPWSTR;
+ dwFlags:DWORD;
+ lpdwConnection:PDWORD_PTR;
+ dwReserved:DWORD
+ ):DWORD; external WinInetDLL name 'InternetDialW';
+{$ELSE UNICODE}
+{$IFDEF WIN32}
+function InternetDial(hwndParent:HWND;
+ lpszConnectoid:LPSTR;
+ dwFlags:DWORD;
+ lpdwConnection:PDWORD_PTR;
+ dwReserved:DWORD
+ ):DWORD; external WinInetDLL name 'InternetDialA';
+{$ELSE WIN32}
+function InternetDial(hwndParent:HWND;
+ lpszConnectoid:LPSTR;
+ dwFlags:DWORD;
+ lpdwConnection:PDWORD_PTR;
+ dwReserved:DWORD
+ ):DWORD; external WinInetDLL name 'InternetDial';
+{$ENDIF WIN32}
+{$ENDIF UNICODE}
+
+// Flags for InternetDial - must not conflict with InternetAutodial flags
+// as they are valid here also.
+const
+ INTERNET_DIAL_FORCE_PROMPT = $2000;
+ INTERNET_DIAL_SHOW_OFFLINE = $4000;
+ INTERNET_DIAL_UNATTENDED = $8000;
+
+function InternetHangUp(dwConnection:DWORD_PTR;
+ dwReserved:DWORD
+ ):DWORD; external WinInetDLL name 'InternetHangUp';
+
+function InternetAutodial(dwFlags:DWORD;
+ hwndParent:HWND
+ ):BOOL; external WinInetDLL name 'InternetAutodial';
+
+// Flags for InternetAutodial
+const
+ INTERNET_AUTODIAL_FORCE_ONLINE = 1;
+ INTERNET_AUTODIAL_FORCE_UNATTENDED = 2;
+ INTERNET_AUTODIAL_FAILIFSECURITYCHECK = 4;
+ INTERNET_AUTODIAL_OVERRIDE_NET_PRESENT = 8;
+
+ INTERNET_AUTODIAL_FLAGS_MASK = INTERNET_AUTODIAL_FORCE_ONLINE or
+ INTERNET_AUTODIAL_FORCE_UNATTENDED or
+ INTERNET_AUTODIAL_FAILIFSECURITYCHECK or
+ INTERNET_AUTODIAL_OVERRIDE_NET_PRESENT;
+
+function InternetAutodialHangup(dwReserved:DWORD):BOOL; external WinInetDLL name 'InternetAutodialHangup';
+
+function InternetInitializeAutoProxyDll(dwReserved:DWORD):BOOL; external WinInetDLL name 'InternetInitializeAutoProxyDll';
+{$ENDIF WINCE}
+
+const
+ INTERENT_GOONLINE_REFRESH = $00000001;
+ INTERENT_GOONLINE_MASK = $00000001;
+
+function InternetGoOnlineA(lpszURL:LPSTR;
+ hwndParent:HWND;
+ dwFlags:DWORD
+ ):BOOL; external WinInetDLL name 'InternetGoOnlineA';
+
+function InternetGoOnlineW(lpszURL:LPWSTR;
+ hwndParent:HWND;
+ dwFlags:DWORD
+ ):BOOL; external WinInetDLL name 'InternetGoOnlineW';
+
+{$IFDEF UNICODE}
+function InternetGoOnline(lpszURL:LPWSTR;
+ hwndParent:HWND;
+ dwFlags:DWORD
+ ):BOOL; external WinInetDLL name 'InternetGoOnlineW';
+{$ELSE UNICODE}
+{$IFDEF WIN32}
+function InternetGoOnline(lpszURL:LPSTR;
+ hwndParent:HWND;
+ dwFlags:DWORD
+ ):BOOL; external WinInetDLL name 'InternetGoOnlineA';
+{$ELSE WIN32}
+function InternetGoOnline(lpszURL:LPSTR;
+ hwndParent:HWND;
+ dwFlags:DWORD
+ ):BOOL; external WinInetDLL name 'InternetGoOnline';
+{$ENDIF WIN32}
+{$ENDIF UNICODE}
+
+
+function InternetGetConnectedState(lpdwFlags:LPDWORD;
+ dwReserved:DWORD
+ ):BOOL; external WinInetDLL name 'InternetGetConnectedState';
+
+
+function InternetGetConnectedStateExA(lpdwFlags:LPDWORD;
+ lpszConnectionName:LPSTR;
+ dwNameLen:DWORD;
+ dwReserved:DWORD
+ ):BOOL; external WinInetDLL name 'InternetGetConnectedStateExA';
+
+function InternetGetConnectedStateExW(lpdwFlags:LPDWORD;
+ lpszConnectionName:LPWSTR;
+ dwNameLen:DWORD;
+ dwReserved:DWORD
+ ):BOOL; external WinInetDLL name 'InternetGetConnectedStateExW';
+
+{$IFDEF UNICODE}
+function InternetGetConnectedStateEx(lpdwFlags:LPDWORD;
+ lpszConnectionName:LPWSTR;
+ dwNameLen:DWORD;
+ dwReserved:DWORD
+ ):BOOL; external WinInetDLL name 'InternetGetConnectedStateExW';
+{$ELSE UNICODE}
+{$IFDEF WIN32}
+function InternetGetConnectedStateEx(lpdwFlags:LPDWORD;
+ lpszConnectionName:LPSTR;
+ dwNameLen:DWORD;
+ dwReserved:DWORD
+ ):BOOL; external WinInetDLL name 'InternetGetConnectedStateExA';
+{$ELSE WIN32}
+function InternetGetConnectedStateEx(lpdwFlags:LPDWORD;
+ lpszConnectionName:LPSTR;
+ dwNameLen:DWORD;
+ dwReserved:DWORD
+ ):BOOL; external WinInetDLL name 'InternetGetConnectedStateEx';
+{$ENDIF WIN32}
+{$ENDIF UNICODE}
+
+// Flags for InternetGetConnectedState and Ex
+const
+ INTERNET_CONNECTION_MODEM = $01;
+ INTERNET_CONNECTION_LAN = $02;
+ INTERNET_CONNECTION_PROXY = $04;
+ INTERNET_CONNECTION_MODEM_BUSY = $08; // no longer used
+ INTERNET_RAS_INSTALLED = $10;
+ INTERNET_CONNECTION_OFFLINE = $20;
+ INTERNET_CONNECTION_CONFIGURED = $40;
+
+//
+// Custom dial handler functions
+//
+
+// Custom dial handler prototype
+type
+ PFN_DIAL_HANDLER = function(param1:HWND; param2:LPCSTR; param3:DWORD; param4:LPDWORD):DWORD; cdecl;
+
+// Flags for custom dial handler
+const
+ INTERNET_CUSTOMDIAL_CONNECT = 0;
+ INTERNET_CUSTOMDIAL_UNATTENDED = 1;
+ INTERNET_CUSTOMDIAL_DISCONNECT = 2;
+ INTERNET_CUSTOMDIAL_SHOWOFFLINE = 4;
+
+// Custom dial handler supported functionality flags
+const
+ INTERNET_CUSTOMDIAL_SAFE_FOR_UNATTENDED = 1;
+ INTERNET_CUSTOMDIAL_WILL_SUPPLY_STATE = 2;
+ INTERNET_CUSTOMDIAL_CAN_HANGUP = 4;
+
+{
+ The obsolete functions InternetSetDialStateA and InternetSetDialStateW and
+ constants for them are left out.
+}
+
+
+function InternetSetPerSiteCookieDecisionA(pchHostName:LPCSTR;
+ dwDecision:DWORD
+ ):BOOL; external WinInetDLL name 'InternetSetPerSiteCookieDecisionA';
+
+function InternetSetPerSiteCookieDecisionW(pchHostName:LPCWSTR;
+ dwDecision:DWORD
+ ):BOOL; external WinInetDLL name 'InternetSetPerSiteCookieDecisionW';
+
+{$IFDEF UNICODE}
+function InternetSetPerSiteCookieDecision(pchHostName:LPCWSTR;
+ dwDecision:DWORD
+ ):BOOL; external WinInetDLL name 'InternetSetPerSiteCookieDecisionW';
+{$ELSE UNICODE}
+function InternetSetPerSiteCookieDecision(pchHostName:LPCSTR;
+ dwDecision:DWORD
+ ):BOOL; external WinInetDLL name 'InternetSetPerSiteCookieDecisionA';
+{$ENDIF UNICODE}
+
+function InternetGetPerSiteCookieDecisionA(pchHostName:LPCSTR;
+ pResult:PULONG
+ ):BOOL; external WinInetDLL name 'InternetGetPerSiteCookieDecisionA';
+
+function InternetGetPerSiteCookieDecisionW(pchHostName:LPCWSTR;
+ pResult:PULONG
+ ):BOOL; external WinInetDLL name 'InternetGetPerSiteCookieDecisionW';
+
+{$IFDEF UNICODE}
+function InternetGetPerSiteCookieDecision(pchHostName:LPCWSTR;
+ pResult:PULONG
+ ):BOOL; external WinInetDLL name 'InternetGetPerSiteCookieDecisionW';
+{$ELSE UNICODE}
+function InternetGetPerSiteCookieDecision(pchHostName:LPCSTR;
+ pResult:PULONG
+ ):BOOL; external WinInetDLL name 'InternetGetPerSiteCookieDecisionA';
+{$ENDIF UNICODE}
+
+function InternetClearAllPerSiteCookieDecisions:BOOL; external WinInetDLL name 'InternetClearAllPerSiteCookieDecisions';
+
+
+function InternetEnumPerSiteCookieDecisionA(pszSiteName:LPSTR;
+ pcSiteNameSize:PULONG;
+ pdwDecision:PULONG;
+ dwIndex:ULONG
+ ):BOOL; external WinInetDLL name 'InternetEnumPerSiteCookieDecisionA';
+
+function InternetEnumPerSiteCookieDecisionW(pszSiteName:LPWSTR;
+ pcSiteNameSize:PULONG;
+ pdwDecision:PULONG;
+ dwIndex:ULONG
+ ):BOOL; external WinInetDLL name 'InternetEnumPerSiteCookieDecisionW';
+
+{$IFDEF UNICODE}
+function InternetEnumPerSiteCookieDecision(pszSiteName:LPWSTR;
+ pcSiteNameSize:PULONG;
+ pdwDecision:PULONG;
+ dwIndex:ULONG
+ ):BOOL; external WinInetDLL name 'InternetEnumPerSiteCookieDecisionW';
+{$ELSE UNICODE}
+function InternetEnumPerSiteCookieDecision(pszSiteName:LPSTR;
+ pcSiteNameSize:PULONG;
+ pdwDecision:PULONG;
+ dwIndex:ULONG
+ ):BOOL; external WinInetDLL name 'InternetEnumPerSiteCookieDecisionA';
+{$ENDIF UNICODE}
+
+const
+ INTERNET_IDENTITY_FLAG_PRIVATE_CACHE = $01;
+ INTERNET_IDENTITY_FLAG_SHARED_CACHE = $02;
+ INTERNET_IDENTITY_FLAG_CLEAR_DATA = $04;
+ INTERNET_IDENTITY_FLAG_CLEAR_COOKIES = $08;
+ INTERNET_IDENTITY_FLAG_CLEAR_HISTORY = $10;
+ INTERNET_IDENTITY_FLAG_CLEAR_CONTENT = $20;
+
+ INTERNET_SUPPRESS_RESET_ALL = $00;
+ INTERNET_SUPPRESS_COOKIE_POLICY = $01;
+ INTERNET_SUPPRESS_COOKIE_POLICY_RESET = $02;
+
+//
+// Privacy settings values and APIs
+//
+const
+ PRIVACY_TEMPLATE_NO_COOKIES = 0;
+ PRIVACY_TEMPLATE_HIGH = 1;
+ PRIVACY_TEMPLATE_MEDIUM_HIGH = 2;
+ PRIVACY_TEMPLATE_MEDIUM = 3;
+ PRIVACY_TEMPLATE_MEDIUM_LOW = 4;
+ PRIVACY_TEMPLATE_LOW = 5;
+ PRIVACY_TEMPLATE_CUSTOM = 100;
+ PRIVACY_TEMPLATE_ADVANCED = 101;
+
+ PRIVACY_TEMPLATE_MAX = PRIVACY_TEMPLATE_LOW;
+
+ PRIVACY_TYPE_FIRST_PARTY = 0;
+ PRIVACY_TYPE_THIRD_PARTY = 1;
+
+function PrivacySetZonePreferenceW(dwZone:DWORD;
+ dwType:DWORD;
+ dwTemplate:DWORD;
+ pszPreference:LPCWSTR
+ ):DWORD; external WinInetDLL name 'PrivacySetZonePreferenceW';
+function PrivacySetZonePreference(dwZone:DWORD;
+ dwType:DWORD;
+ dwTemplate:DWORD;
+ pszPreference:LPCWSTR
+ ):DWORD; external WinInetDLL name 'PrivacySetZonePreferenceW';
+
+function PrivacyGetZonePreferenceW(dwZone:DWORD;
+ dwType:DWORD;
+ pdwTemplate:LPDWORD;
+ pszBuffer:LPWSTR;
+ pdwBufferLength:LPDWORD
+ ):DWORD; external WinInetDLL name 'PrivacyGetZonePreferenceW';
+function PrivacyGetZonePreference(dwZone:DWORD;
+ dwType:DWORD;
+ pdwTemplate:LPDWORD;
+ pszBuffer:LPWSTR;
+ pdwBufferLength:LPDWORD
+ ):DWORD; external WinInetDLL name 'PrivacyGetZonePreferenceW';
+
+// *
+// * Return packing to whatever it was before we
+// * entered this file
+// *
+{$PACKRECORDS DEFAULT} // #include <poppack.h>
+
+implementation
+
+//
+// gopher type macros
+//
+function IS_GOPHER_FILE(_type:DWORD):BOOL; inline;
+begin
+ IS_GOPHER_FILE:=(_type and GOPHER_TYPE_FILE_MASK)<>0;
+end;
+
+function IS_GOPHER_DIRECTORY(_type:DWORD):BOOL; inline;
+begin
+ IS_GOPHER_DIRECTORY:=(_type and GOPHER_TYPE_DIRECTORY)<>0;
+end;
+
+function IS_GOPHER_PHONE_SERVER(_type:DWORD):BOOL; inline;
+begin
+ IS_GOPHER_PHONE_SERVER:=(_type and GOPHER_TYPE_CSO)<>0;
+end;
+
+function IS_GOPHER_ERROR(_type:DWORD):BOOL; inline;
+begin
+ IS_GOPHER_ERROR:=(_type and GOPHER_TYPE_ERROR)<>0;
+end;
+
+function IS_GOPHER_INDEX_SERVER(_type:DWORD):BOOL; inline;
+begin
+ IS_GOPHER_INDEX_SERVER:=(_type and GOPHER_TYPE_INDEX_SERVER)<>0;
+end;
+
+function IS_GOPHER_TELNET_SESSION(_type:DWORD):BOOL; inline;
+begin
+ IS_GOPHER_TELNET_SESSION:=(_type and GOPHER_TYPE_TELNET)<>0;
+end;
+
+function IS_GOPHER_BACKUP_SERVER(_type:DWORD):BOOL; inline;
+begin
+ IS_GOPHER_BACKUP_SERVER:=(_type and GOPHER_TYPE_REDUNDANT)<>0;
+end;
+
+function IS_GOPHER_TN3270_SESSION(_type:DWORD):BOOL; inline;
+begin
+ IS_GOPHER_TN3270_SESSION:=(_type and GOPHER_TYPE_TN3270)<>0;
+end;
+
+function IS_GOPHER_ASK(_type:DWORD):BOOL; inline;
+begin
+ IS_GOPHER_ASK:=(_type and GOPHER_TYPE_ASK)<>0;
+end;
+
+function IS_GOPHER_PLUS(_type:DWORD):BOOL; inline;
+begin
+ IS_GOPHER_PLUS:=(_type and GOPHER_TYPE_GOPHER_PLUS)<>0;
+end;
+
+function IS_GOPHER_TYPE_KNOWN(_type:DWORD):BOOL; inline;
+begin
+ IS_GOPHER_TYPE_KNOWN:=(_type and GOPHER_TYPE_UNKNOWN)=0;
+end;
+
+end. \ No newline at end of file
View Lorry Controller Status