jwaipexport.pas 16 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440
  1. {******************************************************************************}
  2. { }
  3. { Internet Protocol Helper API interface Unit for Object Pascal }
  4. { }
  5. { Portions created by Microsoft are Copyright (C) 1995-2001 Microsoft }
  6. { Corporation. All Rights Reserved. }
  7. { }
  8. { The original file is: ipexport.h, released August 2001. The original Pascal }
  9. { code is: IpExport.pas, released September 2000. The initial developer of the }
  10. { Pascal code is Marcel van Brakel (brakelm att chello dott nl). }
  11. { }
  12. { Portions created by Marcel van Brakel are Copyright (C) 1999-2001 }
  13. { Marcel van Brakel. All Rights Reserved. }
  14. { }
  15. { Contributor(s): John C. Penman (jcp att craiglockhart dott com) }
  16. { Vladimir Vassiliev (voldemarv att hotpop dott com) }
  17. { }
  18. { Obtained through: Joint Endeavour of Delphi Innovators (Project JEDI) }
  19. { }
  20. { You may retrieve the latest version of this file at the Project JEDI }
  21. { APILIB home page, located at http://jedi-apilib.sourceforge.net }
  22. { }
  23. { The contents of this file are used with permission, subject to the Mozilla }
  24. { Public License Version 1.1 (the "License"); you may not use this file except }
  25. { in compliance with the License. You may obtain a copy of the License at }
  26. { http://www.mozilla.org/MPL/MPL-1.1.html }
  27. { }
  28. { Software distributed under the License is distributed on an "AS IS" basis, }
  29. { WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
  30. { the specific language governing rights and limitations under the License. }
  31. { }
  32. { Alternatively, the contents of this file may be used under the terms of the }
  33. { GNU Lesser General Public License (the "LGPL License"), in which case the }
  34. { provisions of the LGPL License are applicable instead of those above. }
  35. { If you wish to allow use of your version of this file only under the terms }
  36. { of the LGPL License and not to allow others to use your version of this file }
  37. { under the MPL, indicate your decision by deleting the provisions above and }
  38. { replace them with the notice and other provisions required by the LGPL }
  39. { License. If you do not delete the provisions above, a recipient may use }
  40. { your version of this file under either the MPL or the LGPL License. }
  41. { }
  42. { For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html }
  43. { }
  44. {******************************************************************************}
  45. unit JwaIpExport;
  46. {$WEAKPACKAGEUNIT}
  47. {$HPPEMIT ''}
  48. {$HPPEMIT '#include "ipexport.h"'}
  49. {$HPPEMIT ''}
  50. {$I jediapilib.inc}
  51. interface
  52. uses
  53. JwaWinType, JwaWS2tcpip;
  54. //
  55. // IP type definitions.
  56. //
  57. type
  58. IPAddr = ULONG; // An IP address.
  59. {$EXTERNALSYM IPAddr}
  60. IPMask = ULONG; // An IP subnet mask.
  61. {$EXTERNALSYM IPMask}
  62. IP_STATUS = ULONG; // Status code returned from IP APIs.
  63. {$EXTERNALSYM IP_STATUS}
  64. (* (rom) deactivated kernel mode is irrelevant for Delphi
  65. //
  66. // Duplicate these definitions here so that this file can be included by
  67. // kernel-mode components which cannot include ws2tcpip.h, as well as
  68. // by user-mode components which do.
  69. //
  70. type
  71. IN6_ADDR = record
  72. case Integer of
  73. 0: (Byte: array [0..15] of UCHAR);
  74. 1: (Word: array [0..7] of USHORT);
  75. end;
  76. {$EXTERNALSYM IN6_ADDR}
  77. TIn6Addr = IN6_ADDR;
  78. PIn6Addr = ^IN6_ADDR;
  79. in_addr6 = in6_addr;
  80. {$EXTERNALSYM in_addr6}
  81. TInAddr6 = in_addr6;
  82. PInAddr6 = ^in_addr6;
  83. *)
  84. type
  85. IPv6Addr = in6_addr;
  86. {$EXTERNALSYM IPv6Addr}
  87. TIPv6Addr = IPv6Addr;
  88. PIPv6Addr = ^IPv6Addr;
  89. //#ifndef s_addr
  90. in_addr = record
  91. case Integer of
  92. 0: (
  93. s_b1, s_b2, s_b3, s_b4: UCHAR;
  94. );
  95. 1: (
  96. s_w1, s_w2: USHORT
  97. );
  98. 2: (
  99. S_addr: ULONG
  100. );
  101. end;
  102. {$EXTERNALSYM in_addr}
  103. //#define s_addr S_un.S_addr /* can be used for most tcp & ip code */
  104. //#endif
  105. //
  106. // The ip_option_information structure describes the options to be
  107. // included in the header of an IP packet. The TTL, TOS, and Flags
  108. // values are carried in specific fields in the header. The OptionsData
  109. // bytes are carried in the options area following the standard IP header.
  110. // With the exception of source route options, this data must be in the
  111. // format to be transmitted on the wire as specified in RFC 791. A source
  112. // route option should contain the full route - first hop thru final
  113. // destination - in the route data. The first hop will be pulled out of the
  114. // data and the option will be reformatted accordingly. Otherwise, the route
  115. // option should be formatted as specified in RFC 791.
  116. //
  117. type
  118. IP_OPTION_INFORMATION = record
  119. Ttl: UCHAR; // Time To Live
  120. Tos: UCHAR; // Type Of Service
  121. Flags: UCHAR; // IP header flags
  122. OptionsSize: UCHAR; // Size in bytes of options data
  123. OptionsData: PUCHAR; // Pointer to options data
  124. end;
  125. {$EXTERNALSYM IP_OPTION_INFORMATION}
  126. PIP_OPTION_INFORMATION = ^IP_OPTION_INFORMATION;
  127. {$EXTERNALSYM PIP_OPTION_INFORMATION}
  128. TIpOptionInformation = IP_OPTION_INFORMATION;
  129. PIpOptionInformation = PIP_OPTION_INFORMATION;
  130. //
  131. // The icmp_echo_reply structure describes the data returned in response
  132. // to an echo request.
  133. //
  134. ICMP_ECHO_REPLY = record
  135. Address: IPAddr; // Replying address
  136. Status: ULONG; // Reply IP_STATUS
  137. RoundTripTime: ULONG; // RTT in milliseconds
  138. DataSize: USHORT; // Reply data size in bytes
  139. Reserved: USHORT; // Reserved for system use
  140. Data: LPVOID; // Pointer to the reply data
  141. Options: ip_option_information; // Reply options
  142. end;
  143. {$EXTERNALSYM ICMP_ECHO_REPLY}
  144. PICMP_ECHO_REPLY = ^ICMP_ECHO_REPLY;
  145. {$EXTERNALSYM PICMP_ECHO_REPLY}
  146. TIcmpEchoReply = ICMP_ECHO_REPLY;
  147. PIcmpEchoReply = PICMP_ECHO_REPLY;
  148. ARP_SEND_REPLY = record
  149. DestAddress: IPAddr;
  150. SrcAddress: IPAddr;
  151. end;
  152. {$EXTERNALSYM ARP_SEND_REPLY}
  153. PARP_SEND_REPLY = ^ARP_SEND_REPLY;
  154. {$EXTERNALSYM PARP_SEND_REPLY}
  155. TArpSendReply = ARP_SEND_REPLY;
  156. PArpSendReply = PARP_SEND_REPLY;
  157. TCP_RESERVE_PORT_RANGE = record
  158. UpperRange: USHORT;
  159. LowerRange: USHORT;
  160. end;
  161. {$EXTERNALSYM TCP_RESERVE_PORT_RANGE}
  162. PTCP_RESERVE_PORT_RANGE = ^TCP_RESERVE_PORT_RANGE;
  163. {$EXTERNALSYM PTCP_RESERVE_PORT_RANGE}
  164. TTcpReservePortRange = TCP_RESERVE_PORT_RANGE;
  165. PTcpReservePortRange = PTCP_RESERVE_PORT_RANGE;
  166. const
  167. MAX_ADAPTER_NAME = 128;
  168. {$EXTERNALSYM MAX_ADAPTER_NAME}
  169. type
  170. PIP_ADAPTER_INDEX_MAP = ^IP_ADAPTER_INDEX_MAP;
  171. {$EXTERNALSYM PIP_ADAPTER_INDEX_MAP}
  172. _IP_ADAPTER_INDEX_MAP = record
  173. Index: ULONG;
  174. Name: array [0..MAX_ADAPTER_NAME - 1] of WCHAR;
  175. end;
  176. {$EXTERNALSYM _IP_ADAPTER_INDEX_MAP}
  177. IP_ADAPTER_INDEX_MAP = _IP_ADAPTER_INDEX_MAP;
  178. {$EXTERNALSYM IP_ADAPTER_INDEX_MAP}
  179. TIpAdapterIndexMap = IP_ADAPTER_INDEX_MAP;
  180. PIpAdapterIndexMap = PIP_ADAPTER_INDEX_MAP;
  181. PIP_INTERFACE_INFO = ^IP_INTERFACE_INFO;
  182. {$EXTERNALSYM PIP_INTERFACE_INFO}
  183. _IP_INTERFACE_INFO = record
  184. NumAdapters: Longint;
  185. Adapter: array [0..0] of IP_ADAPTER_INDEX_MAP;
  186. end;
  187. {$EXTERNALSYM _IP_INTERFACE_INFO}
  188. IP_INTERFACE_INFO = _IP_INTERFACE_INFO;
  189. {$EXTERNALSYM IP_INTERFACE_INFO}
  190. TIpInterfaceInfo = IP_INTERFACE_INFO;
  191. PIpInterfaceInfo = PIP_INTERFACE_INFO;
  192. PIP_UNIDIRECTIONAL_ADAPTER_ADDRESS = ^IP_UNIDIRECTIONAL_ADAPTER_ADDRESS;
  193. {$EXTERNALSYM PIP_UNIDIRECTIONAL_ADAPTER_ADDRESS}
  194. _IP_UNIDIRECTIONAL_ADAPTER_ADDRESS = record
  195. NumAdapters: ULONG;
  196. Address: array [0..0] of IPAddr;
  197. end;
  198. {$EXTERNALSYM _IP_UNIDIRECTIONAL_ADAPTER_ADDRESS}
  199. IP_UNIDIRECTIONAL_ADAPTER_ADDRESS = _IP_UNIDIRECTIONAL_ADAPTER_ADDRESS;
  200. {$EXTERNALSYM IP_UNIDIRECTIONAL_ADAPTER_ADDRESS}
  201. TIpUnidirectionalAdapterAddress = IP_UNIDIRECTIONAL_ADAPTER_ADDRESS;
  202. PIpUnidirectionalAdapterAddress = PIP_UNIDIRECTIONAL_ADAPTER_ADDRESS;
  203. PIP_ADAPTER_ORDER_MAP = ^IP_ADAPTER_ORDER_MAP;
  204. {$EXTERNALSYM PIP_ADAPTER_ORDER_MAP}
  205. _IP_ADAPTER_ORDER_MAP = record
  206. NumAdapters: ULONG;
  207. AdapterOrder: array [0..0] of ULONG;
  208. end;
  209. {$EXTERNALSYM _IP_ADAPTER_ORDER_MAP}
  210. IP_ADAPTER_ORDER_MAP = _IP_ADAPTER_ORDER_MAP;
  211. {$EXTERNALSYM IP_ADAPTER_ORDER_MAP}
  212. TIpAdapterOrderMap = IP_ADAPTER_ORDER_MAP;
  213. PIpAdapterOrderMap = PIP_ADAPTER_ORDER_MAP;
  214. _IP_MCAST_COUNTER_INFO = record
  215. InMcastOctets: ULONG64;
  216. OutMcastOctets: ULONG64;
  217. InMcastPkts: ULONG64;
  218. OutMcastPkts: ULONG64;
  219. end;
  220. {$EXTERNALSYM _IP_MCAST_COUNTER_INFO}
  221. IP_MCAST_COUNTER_INFO = _IP_MCAST_COUNTER_INFO;
  222. {$EXTERNALSYM IP_MCAST_COUNTER_INFO}
  223. PIP_MCAST_COUNTER_INFO = ^IP_MCAST_COUNTER_INFO;
  224. {$EXTERNALSYM PIP_MCAST_COUNTER_INFO}
  225. TIpMCastCounterInfo = IP_MCAST_COUNTER_INFO;
  226. PIpMCastCounterInfo = PIP_MCAST_COUNTER_INFO;
  227. //
  228. // IP_STATUS codes returned from IP APIs
  229. //
  230. const
  231. IP_STATUS_BASE = 11000;
  232. {$EXTERNALSYM IP_STATUS_BASE}
  233. IP_SUCCESS = 0;
  234. {$EXTERNALSYM IP_SUCCESS}
  235. IP_BUF_TOO_SMALL = IP_STATUS_BASE + 1;
  236. {$EXTERNALSYM IP_BUF_TOO_SMALL}
  237. IP_DEST_NET_UNREACHABLE = IP_STATUS_BASE + 2;
  238. {$EXTERNALSYM IP_DEST_NET_UNREACHABLE}
  239. IP_DEST_HOST_UNREACHABLE = IP_STATUS_BASE + 3;
  240. {$EXTERNALSYM IP_DEST_HOST_UNREACHABLE}
  241. IP_DEST_PROT_UNREACHABLE = IP_STATUS_BASE + 4;
  242. {$EXTERNALSYM IP_DEST_PROT_UNREACHABLE}
  243. IP_DEST_PORT_UNREACHABLE = IP_STATUS_BASE + 5;
  244. {$EXTERNALSYM IP_DEST_PORT_UNREACHABLE}
  245. IP_NO_RESOURCES = IP_STATUS_BASE + 6;
  246. {$EXTERNALSYM IP_NO_RESOURCES}
  247. IP_BAD_OPTION = IP_STATUS_BASE + 7;
  248. {$EXTERNALSYM IP_BAD_OPTION}
  249. IP_HW_ERROR = IP_STATUS_BASE + 8;
  250. {$EXTERNALSYM IP_HW_ERROR}
  251. IP_PACKET_TOO_BIG = IP_STATUS_BASE + 9;
  252. {$EXTERNALSYM IP_PACKET_TOO_BIG}
  253. IP_REQ_TIMED_OUT = IP_STATUS_BASE + 10;
  254. {$EXTERNALSYM IP_REQ_TIMED_OUT}
  255. IP_BAD_REQ = IP_STATUS_BASE + 11;
  256. {$EXTERNALSYM IP_BAD_REQ}
  257. IP_BAD_ROUTE = IP_STATUS_BASE + 12;
  258. {$EXTERNALSYM IP_BAD_ROUTE}
  259. IP_TTL_EXPIRED_TRANSIT = IP_STATUS_BASE + 13;
  260. {$EXTERNALSYM IP_TTL_EXPIRED_TRANSIT}
  261. IP_TTL_EXPIRED_REASSEM = IP_STATUS_BASE + 14;
  262. {$EXTERNALSYM IP_TTL_EXPIRED_REASSEM}
  263. IP_PARAM_PROBLEM = IP_STATUS_BASE + 15;
  264. {$EXTERNALSYM IP_PARAM_PROBLEM}
  265. IP_SOURCE_QUENCH = IP_STATUS_BASE + 16;
  266. {$EXTERNALSYM IP_SOURCE_QUENCH}
  267. IP_OPTION_TOO_BIG = IP_STATUS_BASE + 17;
  268. {$EXTERNALSYM IP_OPTION_TOO_BIG}
  269. IP_BAD_DESTINATION = IP_STATUS_BASE + 18;
  270. {$EXTERNALSYM IP_BAD_DESTINATION}
  271. //
  272. // Variants of the above using IPv6 terminology, where different
  273. //
  274. IP_DEST_NO_ROUTE = IP_STATUS_BASE + 2;
  275. {$EXTERNALSYM IP_DEST_NO_ROUTE}
  276. IP_DEST_ADDR_UNREACHABLE = IP_STATUS_BASE + 3;
  277. {$EXTERNALSYM IP_DEST_ADDR_UNREACHABLE}
  278. IP_DEST_PROHIBITED = IP_STATUS_BASE + 4;
  279. {$EXTERNALSYM IP_DEST_PROHIBITED}
  280. //IP_DEST_PORT_UNREACHABLE = IP_STATUS_BASE + 5;
  281. //{$EXTERNALSYM IP_DEST_PORT_UNREACHABLE}
  282. IP_HOP_LIMIT_EXCEEDED = IP_STATUS_BASE + 13;
  283. {$EXTERNALSYM IP_HOP_LIMIT_EXCEEDED}
  284. IP_REASSEMBLY_TIME_EXCEEDED = IP_STATUS_BASE + 14;
  285. {$EXTERNALSYM IP_REASSEMBLY_TIME_EXCEEDED}
  286. IP_PARAMETER_PROBLEM = IP_STATUS_BASE + 15;
  287. {$EXTERNALSYM IP_PARAMETER_PROBLEM}
  288. //
  289. // IPv6-only status codes
  290. //
  291. IP_DEST_UNREACHABLE = IP_STATUS_BASE + 40;
  292. {$EXTERNALSYM IP_DEST_UNREACHABLE}
  293. IP_TIME_EXCEEDED = IP_STATUS_BASE + 41;
  294. {$EXTERNALSYM IP_TIME_EXCEEDED}
  295. IP_BAD_HEADER = IP_STATUS_BASE + 42;
  296. {$EXTERNALSYM IP_BAD_HEADER}
  297. IP_UNRECOGNIZED_NEXT_HEADER = IP_STATUS_BASE + 43;
  298. {$EXTERNALSYM IP_UNRECOGNIZED_NEXT_HEADER}
  299. IP_ICMP_ERROR = IP_STATUS_BASE + 44;
  300. {$EXTERNALSYM IP_ICMP_ERROR}
  301. IP_DEST_SCOPE_MISMATCH = IP_STATUS_BASE + 45;
  302. {$EXTERNALSYM IP_DEST_SCOPE_MISMATCH}
  303. //
  304. // The next group are status codes passed up on status indications to
  305. // transport layer protocols.
  306. //
  307. IP_ADDR_DELETED = IP_STATUS_BASE + 19;
  308. {$EXTERNALSYM IP_ADDR_DELETED}
  309. IP_SPEC_MTU_CHANGE = IP_STATUS_BASE + 20;
  310. {$EXTERNALSYM IP_SPEC_MTU_CHANGE}
  311. IP_MTU_CHANGE = IP_STATUS_BASE + 21;
  312. {$EXTERNALSYM IP_MTU_CHANGE}
  313. IP_UNLOAD = IP_STATUS_BASE + 22;
  314. {$EXTERNALSYM IP_UNLOAD}
  315. IP_ADDR_ADDED = IP_STATUS_BASE + 23;
  316. {$EXTERNALSYM IP_ADDR_ADDED}
  317. IP_MEDIA_CONNECT = IP_STATUS_BASE + 24;
  318. {$EXTERNALSYM IP_MEDIA_CONNECT}
  319. IP_MEDIA_DISCONNECT = IP_STATUS_BASE + 25;
  320. {$EXTERNALSYM IP_MEDIA_DISCONNECT}
  321. IP_BIND_ADAPTER = IP_STATUS_BASE + 26;
  322. {$EXTERNALSYM IP_BIND_ADAPTER}
  323. IP_UNBIND_ADAPTER = IP_STATUS_BASE + 27;
  324. {$EXTERNALSYM IP_UNBIND_ADAPTER}
  325. IP_DEVICE_DOES_NOT_EXIST = IP_STATUS_BASE + 28;
  326. {$EXTERNALSYM IP_DEVICE_DOES_NOT_EXIST}
  327. IP_DUPLICATE_ADDRESS = IP_STATUS_BASE + 29;
  328. {$EXTERNALSYM IP_DUPLICATE_ADDRESS}
  329. IP_INTERFACE_METRIC_CHANGE = IP_STATUS_BASE + 30;
  330. {$EXTERNALSYM IP_INTERFACE_METRIC_CHANGE}
  331. IP_RECONFIG_SECFLTR = IP_STATUS_BASE + 31;
  332. {$EXTERNALSYM IP_RECONFIG_SECFLTR}
  333. IP_NEGOTIATING_IPSEC = IP_STATUS_BASE + 32;
  334. {$EXTERNALSYM IP_NEGOTIATING_IPSEC}
  335. IP_INTERFACE_WOL_CAPABILITY_CHANGE = IP_STATUS_BASE + 33;
  336. {$EXTERNALSYM IP_INTERFACE_WOL_CAPABILITY_CHANGE}
  337. IP_DUPLICATE_IPADD = IP_STATUS_BASE + 34;
  338. {$EXTERNALSYM IP_DUPLICATE_IPADD}
  339. IP_GENERAL_FAILURE = IP_STATUS_BASE + 50;
  340. {$EXTERNALSYM IP_GENERAL_FAILURE}
  341. MAX_IP_STATUS = IP_GENERAL_FAILURE;
  342. {$EXTERNALSYM MAX_IP_STATUS}
  343. IP_PENDING = IP_STATUS_BASE + 255;
  344. {$EXTERNALSYM IP_PENDING}
  345. //
  346. // Values used in the IP header Flags field.
  347. //
  348. IP_FLAG_DF = $2; // Don't fragment this packet.
  349. {$EXTERNALSYM IP_FLAG_DF}
  350. //
  351. // Supported IP Option Types.
  352. //
  353. // These types define the options which may be used in the OptionsData field
  354. // of the ip_option_information structure. See RFC 791 for a complete
  355. // description of each.
  356. //
  357. IP_OPT_EOL = 0; // End of list option
  358. {$EXTERNALSYM IP_OPT_EOL}
  359. IP_OPT_NOP = 1; // No operation
  360. {$EXTERNALSYM IP_OPT_NOP}
  361. IP_OPT_SECURITY = $82; // Security option
  362. {$EXTERNALSYM IP_OPT_SECURITY}
  363. IP_OPT_LSRR = $83; // Loose source route
  364. {$EXTERNALSYM IP_OPT_LSRR}
  365. IP_OPT_SSRR = $89; // Strict source route
  366. {$EXTERNALSYM IP_OPT_SSRR}
  367. IP_OPT_RR = $7; // Record route
  368. {$EXTERNALSYM IP_OPT_RR}
  369. IP_OPT_TS = $44; // Timestamp
  370. {$EXTERNALSYM IP_OPT_TS}
  371. IP_OPT_SID = $88; // Stream ID (obsolete)
  372. {$EXTERNALSYM IP_OPT_SID}
  373. IP_OPT_ROUTER_ALERT = $94; // Router Alert Option
  374. {$EXTERNALSYM IP_OPT_ROUTER_ALERT}
  375. MAX_OPT_SIZE = 40; // Maximum length of IP options in bytes
  376. {$EXTERNALSYM MAX_OPT_SIZE}
  377. // Ioctls code exposed by Memphis tcpip stack.
  378. // For NT these ioctls are define in ntddip.h (private\inc)
  379. IOCTL_IP_RTCHANGE_NOTIFY_REQUEST = 101;
  380. {$EXTERNALSYM IOCTL_IP_RTCHANGE_NOTIFY_REQUEST}
  381. IOCTL_IP_ADDCHANGE_NOTIFY_REQUEST = 102;
  382. {$EXTERNALSYM IOCTL_IP_ADDCHANGE_NOTIFY_REQUEST}
  383. IOCTL_ARP_SEND_REQUEST = 103;
  384. {$EXTERNALSYM IOCTL_ARP_SEND_REQUEST}
  385. IOCTL_IP_INTERFACE_INFO = 104;
  386. {$EXTERNALSYM IOCTL_IP_INTERFACE_INFO}
  387. IOCTL_IP_GET_BEST_INTERFACE = 105;
  388. {$EXTERNALSYM IOCTL_IP_GET_BEST_INTERFACE}
  389. IOCTL_IP_UNIDIRECTIONAL_ADAPTER_ADDRESS = 106;
  390. {$EXTERNALSYM IOCTL_IP_UNIDIRECTIONAL_ADAPTER_ADDRESS}
  391. implementation
  392. end.