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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 查看源码
JwaNspApi.pas
资源名称：win32api.zip　[点击查看]
上传用户：davidchvip
上传日期：2009-07-28
资源大小：1749k
文件大小：39k
源码类别：

Windows编程

开发平台：

Delphi

JwaNspApi.pas：源码内容
  1. {******************************************************************************}
  2. {                                                                       }
  3. { Winsock2 Namespace 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: nspapi.h, released June 2000. The original Pascal      }
  9. { code is: NspApi.pas, released December 2000. The initial developer of the    }
  10. { Pascal code is Marcel van Brakel (brakelm@chello.nl).                        }
  11. {                                                                              }
  12. { Portions created by Marcel van Brakel are Copyright (C) 1999-2001            }
  13. { Marcel van Brakel. All Rights Reserved.                                      }
  14. {                 }
  15. { Obtained through: Joint Endeavour of Delphi Innovators (Project JEDI)        }
  16. {                }
  17. { You may retrieve the latest version of this file at the Project JEDI home    }
  18. { page, located at http://delphi-jedi.org or my personal homepage located at   }
  19. { http://members.chello.nl/m.vanbrakel2                                        }
  20. {                }
  21. { The contents of this file are used with permission, subject to the Mozilla   }
  22. { Public License Version 1.1 (the "License"); you may not use this file except }
  23. { in compliance with the License. You may obtain a copy of the License at      }
  24. { http://www.mozilla.org/MPL/MPL-1.1.html                                      }
  25. {                                                                              }
  26. { Software distributed under the License is distributed on an "AS IS" basis,   }
  27. { WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
  28. { the specific language governing rights and limitations under the License.    }
  29. {                                                                              }
  30. { Alternatively, the contents of this file may be used under the terms of the  }
  31. { GNU Lesser General Public License (the  "LGPL License"), in which case the   }
  32. { provisions of the LGPL License are applicable instead of those above.        }
  33. { If you wish to allow use of your version of this file only under the terms   }
  34. { of the LGPL License and not to allow others to use your version of this file }
  35. { under the MPL, indicate your decision by deleting  the provisions above and  }
  36. { replace  them with the notice and other provisions required by the LGPL      }
  37. { License.  If you do not delete the provisions above, a recipient may use     }
  38. { your version of this file under either the MPL or the LGPL License.          }
  39. {                 }
  40. { For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html }
  41. {                 }
  42. {******************************************************************************}
  44. unit JwaNspAPI;
  46. {$WEAKPACKAGEUNIT}
  48. {$HPPEMIT ''}
  49. {$HPPEMIT '#include "nspapi.h"'}
  50. {$HPPEMIT ''}
  52. {$I WINDEFINES.INC}
  54. interface
  56. uses
  57.   JwaWinType, JwaWinSock2;
  59. //
  60. // Service categories
  61. //
  63. const
  64.   SERVICE_RESOURCE = ($00000001);
  65.   {$EXTERNALSYM SERVICE_RESOURCE}
  66.   SERVICE_SERVICE  = ($00000002);
  67.   {$EXTERNALSYM SERVICE_SERVICE}
  68.   SERVICE_LOCAL    = ($00000004);
  69.   {$EXTERNALSYM SERVICE_LOCAL}
  71. //
  72. // Operation used when calling SetService()
  73. //
  75.   SERVICE_REGISTER    = ($00000001);
  76.   {$EXTERNALSYM SERVICE_REGISTER}
  77.   SERVICE_DEREGISTER  = ($00000002);
  78.   {$EXTERNALSYM SERVICE_DEREGISTER}
  79.   SERVICE_FLUSH       = ($00000003);
  80.   {$EXTERNALSYM SERVICE_FLUSH}
  81.   SERVICE_ADD_TYPE    = ($00000004);
  82.   {$EXTERNALSYM SERVICE_ADD_TYPE}
  83.   SERVICE_DELETE_TYPE = ($00000005);
  84.   {$EXTERNALSYM SERVICE_DELETE_TYPE}
  86. //
  87. // Flags that affect the operations above
  88. //
  90.   SERVICE_FLAG_DEFER = ($00000001);
  91.   {$EXTERNALSYM SERVICE_FLAG_DEFER}
  92.   SERVICE_FLAG_HARD  = ($00000002);
  93.   {$EXTERNALSYM SERVICE_FLAG_HARD}
  95. //
  96. // Used as input to GetService() for setting the dwProps parameter
  97. //
  99.   PROP_COMMENT      = ($00000001);
  100.   {$EXTERNALSYM PROP_COMMENT}
  101.   PROP_LOCALE       = ($00000002);
  102.   {$EXTERNALSYM PROP_LOCALE}
  103.   PROP_DISPLAY_HINT = ($00000004);
  104.   {$EXTERNALSYM PROP_DISPLAY_HINT}
  105.   PROP_VERSION      = ($00000008);
  106.   {$EXTERNALSYM PROP_VERSION}
  107.   PROP_START_TIME   = ($00000010);
  108.   {$EXTERNALSYM PROP_START_TIME}
  109.   PROP_MACHINE      = ($00000020);
  110.   {$EXTERNALSYM PROP_MACHINE}
  111.   PROP_ADDRESSES    = ($00000100);
  112.   {$EXTERNALSYM PROP_ADDRESSES}
  113.   PROP_SD           = ($00000200);
  114.   {$EXTERNALSYM PROP_SD}
  115.   PROP_ALL          = DWORD($80000000);
  116.   {$EXTERNALSYM PROP_ALL}
  118. //
  119. // Flags that describe attributes of Service Addresses
  120. //
  122.   SERVICE_ADDRESS_FLAG_RPC_CN = ($00000001);
  123.   {$EXTERNALSYM SERVICE_ADDRESS_FLAG_RPC_CN}
  124.   SERVICE_ADDRESS_FLAG_RPC_DG = ($00000002);
  125.   {$EXTERNALSYM SERVICE_ADDRESS_FLAG_RPC_DG}
  126.   SERVICE_ADDRESS_FLAG_RPC_NB = ($00000004);
  127.   {$EXTERNALSYM SERVICE_ADDRESS_FLAG_RPC_NB}
  129. //
  130. // Name Spaces
  131. //
  133.   NS_DEFAULT = (0);
  134.   {$EXTERNALSYM NS_DEFAULT}
  136.   NS_SAP         = (1);
  137.   {$EXTERNALSYM NS_SAP}
  138.   NS_NDS         = (2);
  139.   {$EXTERNALSYM NS_NDS}
  140.   NS_PEER_BROWSE = (3);
  141.   {$EXTERNALSYM NS_PEER_BROWSE}
  143.   NS_TCPIP_LOCAL = (10);
  144.   {$EXTERNALSYM NS_TCPIP_LOCAL}
  145.   NS_TCPIP_HOSTS = (11);
  146.   {$EXTERNALSYM NS_TCPIP_HOSTS}
  147.   NS_DNS         = (12);
  148.   {$EXTERNALSYM NS_DNS}
  149.   NS_NETBT       = (13);
  150.   {$EXTERNALSYM NS_NETBT}
  151.   NS_WINS        = (14);
  152.   {$EXTERNALSYM NS_WINS}
  154.   NS_NBP = (20);
  155.   {$EXTERNALSYM NS_NBP}
  157.   NS_MS   = (30);
  158.   {$EXTERNALSYM NS_MS}
  159.   NS_STDA = (31);
  160.   {$EXTERNALSYM NS_STDA}
  161.   NS_NTDS = (32);
  162.   {$EXTERNALSYM NS_NTDS}
  164.   NS_X500 = (40);
  165.   {$EXTERNALSYM NS_X500}
  166.   NS_NIS  = (41);
  167.   {$EXTERNALSYM NS_NIS}
  169.   NS_VNS = (50);
  170.   {$EXTERNALSYM NS_VNS}
  172. //
  173. // Name space attributes.
  174. //
  176.   NSTYPE_HIERARCHICAL = ($00000001);
  177.   {$EXTERNALSYM NSTYPE_HIERARCHICAL}
  178.   NSTYPE_DYNAMIC      = ($00000002);
  179.   {$EXTERNALSYM NSTYPE_DYNAMIC}
  180.   NSTYPE_ENUMERABLE   = ($00000004);
  181.   {$EXTERNALSYM NSTYPE_ENUMERABLE}
  182.   NSTYPE_WORKGROUP    = ($00000008);
  183.   {$EXTERNALSYM NSTYPE_WORKGROUP}
  185. //
  186. // Transport attributes.
  187. //
  189.   XP_CONNECTIONLESS       = ($00000001);
  190.   {$EXTERNALSYM XP_CONNECTIONLESS}
  191.   XP_GUARANTEED_DELIVERY  = ($00000002);
  192.   {$EXTERNALSYM XP_GUARANTEED_DELIVERY}
  193.   XP_GUARANTEED_ORDER     = ($00000004);
  194.   {$EXTERNALSYM XP_GUARANTEED_ORDER}
  195.   XP_MESSAGE_ORIENTED     = ($00000008);
  196.   {$EXTERNALSYM XP_MESSAGE_ORIENTED}
  197.   XP_PSEUDO_STREAM        = ($00000010);
  198.   {$EXTERNALSYM XP_PSEUDO_STREAM}
  199.   XP_GRACEFUL_CLOSE       = ($00000020);
  200.   {$EXTERNALSYM XP_GRACEFUL_CLOSE}
  201.   XP_EXPEDITED_DATA       = ($00000040);
  202.   {$EXTERNALSYM XP_EXPEDITED_DATA}
  203.   XP_CONNECT_DATA         = ($00000080);
  204.   {$EXTERNALSYM XP_CONNECT_DATA}
  205.   XP_DISCONNECT_DATA      = ($00000100);
  206.   {$EXTERNALSYM XP_DISCONNECT_DATA}
  207.   XP_SUPPORTS_BROADCAST   = ($00000200);
  208.   {$EXTERNALSYM XP_SUPPORTS_BROADCAST}
  209.   XP_SUPPORTS_MULTICAST   = ($00000400);
  210.   {$EXTERNALSYM XP_SUPPORTS_MULTICAST}
  211.   XP_BANDWIDTH_ALLOCATION = ($00000800);
  212.   {$EXTERNALSYM XP_BANDWIDTH_ALLOCATION}
  213.   XP_FRAGMENTATION        = ($00001000);
  214.   {$EXTERNALSYM XP_FRAGMENTATION}
  215.   XP_ENCRYPTS             = ($00002000);
  216.   {$EXTERNALSYM XP_ENCRYPTS}
  218. //
  219. // Resolution flags for GetAddressByName().
  220. //
  222.   RES_SOFT_SEARCH   = ($00000001);
  223.   {$EXTERNALSYM RES_SOFT_SEARCH}
  224.   RES_FIND_MULTIPLE = ($00000002);
  225.   {$EXTERNALSYM RES_FIND_MULTIPLE}
  226.   RES_SERVICE       = ($00000004);
  227.   {$EXTERNALSYM RES_SERVICE}
  229. //
  230. // Well known value names for Service Types
  231. //
  233.   SERVICE_TYPE_VALUE_SAPIDA = 'SapId';
  234.   {$EXTERNALSYM SERVICE_TYPE_VALUE_SAPIDA}
  235.   SERVICE_TYPE_VALUE_SAPIDW = WideString('SapId');
  236.   {$EXTERNALSYM SERVICE_TYPE_VALUE_SAPIDW}
  238.   SERVICE_TYPE_VALUE_CONNA = 'ConnectionOriented';
  239.   {$EXTERNALSYM SERVICE_TYPE_VALUE_CONNA}
  240.   SERVICE_TYPE_VALUE_CONNW = WideString('ConnectionOriented');
  241.   {$EXTERNALSYM SERVICE_TYPE_VALUE_CONNW}
  243.   SERVICE_TYPE_VALUE_TCPPORTA = 'TcpPort';
  244.   {$EXTERNALSYM SERVICE_TYPE_VALUE_TCPPORTA}
  245.   SERVICE_TYPE_VALUE_TCPPORTW = WideString('TcpPort');
  246.   {$EXTERNALSYM SERVICE_TYPE_VALUE_TCPPORTW}
  248.   SERVICE_TYPE_VALUE_UDPPORTA = 'UdpPort';
  249.   {$EXTERNALSYM SERVICE_TYPE_VALUE_UDPPORTA}
  250.   SERVICE_TYPE_VALUE_UDPPORTW = WideString('UdpPort');
  251.   {$EXTERNALSYM SERVICE_TYPE_VALUE_UDPPORTW}
  253. {$IFDEF UNICODE}
  255.   SERVICE_TYPE_VALUE_SAPID   = SERVICE_TYPE_VALUE_SAPIDW;
  256.   {$EXTERNALSYM SERVICE_TYPE_VALUE_SAPID}
  257.   SERVICE_TYPE_VALUE_CONN    = SERVICE_TYPE_VALUE_CONNW;
  258.   {$EXTERNALSYM SERVICE_TYPE_VALUE_CONN}
  259.   SERVICE_TYPE_VALUE_TCPPORT = SERVICE_TYPE_VALUE_TCPPORTW;
  260.   {$EXTERNALSYM SERVICE_TYPE_VALUE_TCPPORT}
  261.   SERVICE_TYPE_VALUE_UDPPORT = SERVICE_TYPE_VALUE_UDPPORTW;
  262.   {$EXTERNALSYM SERVICE_TYPE_VALUE_UDPPORT}
  264. {$ELSE}
  266.   SERVICE_TYPE_VALUE_SAPID   = SERVICE_TYPE_VALUE_SAPIDA;
  267.   {$EXTERNALSYM SERVICE_TYPE_VALUE_SAPID}
  268.   SERVICE_TYPE_VALUE_CONN    = SERVICE_TYPE_VALUE_CONNA;
  269.   {$EXTERNALSYM SERVICE_TYPE_VALUE_CONN}
  270.   SERVICE_TYPE_VALUE_TCPPORT = SERVICE_TYPE_VALUE_TCPPORTA;
  271.   {$EXTERNALSYM SERVICE_TYPE_VALUE_TCPPORT}
  272.   SERVICE_TYPE_VALUE_UDPPORT = SERVICE_TYPE_VALUE_UDPPORTA;
  273.   {$EXTERNALSYM SERVICE_TYPE_VALUE_UDPPORT}
  275. {$ENDIF}
  278. //
  279. // status flags returned by SetService
  280. //
  282.   SET_SERVICE_PARTIAL_SUCCESS = ($00000001);
  283.   {$EXTERNALSYM SET_SERVICE_PARTIAL_SUCCESS}
  285. //
  286. // Name Space Information
  287. //
  289. type
  290.   _NS_INFOA = record
  291.     dwNameSpace: DWORD;
  292.     dwNameSpaceFlags: DWORD;
  293.     lpNameSpace: LPSTR;
  294.   end;
  295.   {$EXTERNALSYM _NS_INFOA}
  296.   NS_INFOA = _NS_INFOA;
  297.   {$EXTERNALSYM NS_INFOA}
  298.   PNS_INFOA = ^NS_INFOA;
  299.   {$EXTERNALSYM PNS_INFOA}
  300.   LPNS_INFOA = ^NS_INFOA;
  301.   {$EXTERNALSYM LPNS_INFOA}
  302.   TNsInfoA = NS_INFOA;
  303.   PNsInfoA = LPNS_INFOA;
  305. //
  306. // Name Space Information
  307. //
  309.   _NS_INFOW = record
  310.     dwNameSpace: DWORD;
  311.     dwNameSpaceFlags: DWORD;
  312.     lpNameSpace: LPWSTR;
  313.   end;
  314.   {$EXTERNALSYM _NS_INFOW}
  315.   NS_INFOW = _NS_INFOW;
  316.   {$EXTERNALSYM NS_INFOW}
  317.   PNS_INFOW = ^NS_INFOW;
  318.   {$EXTERNALSYM PNS_INFOW}
  319.   LPNS_INFOW = ^NS_INFOW;
  320.   {$EXTERNALSYM LPNS_INFOW}
  321.   TNsInfoW = NS_INFOW;
  322.   PNsInfoW = LPNS_INFOW;
  324. {$IFDEF UNICODE}
  325.   NS_INFO = NS_INFOW;
  326.   {$EXTERNALSYM NS_INFO}
  327.   PNS_INFO = PNS_INFOW;
  328.   {$EXTERNALSYM PNS_INFO}
  329.   LPNS_INFO = LPNS_INFOW;
  330.   {$EXTERNALSYM LPNS_INFO}
  331.   TNsInfo = TNsInfoW;
  332.   PNsInfo = PNsInfoW;
  333. {$ELSE}
  334.   NS_INFO = NS_INFOA;
  335.   {$EXTERNALSYM NS_INFO}
  336.   PNS_INFO = PNS_INFOA;
  337.   {$EXTERNALSYM PNS_INFO}
  338.   LPNS_INFO = LPNS_INFOA;
  339.   {$EXTERNALSYM LPNS_INFO}
  340.   TNsInfo = TNsInfoA;
  341.   PNsInfo = PNsInfoA;
  342. {$ENDIF}
  344. //
  345. // Service Type Values. The structures are used to define named Service
  346. // Type specific values. This structure is self relative and has no pointers.
  347. //
  349.   LPSERVICE_TYPE_VALUE = ^SERVICE_TYPE_VALUE;
  350.   {$EXTERNALSYM LPSERVICE_TYPE_VALUE}
  351.   PSERVICE_TYPE_VALUE = ^SERVICE_TYPE_VALUE;
  352.   {$EXTERNALSYM PSERVICE_TYPE_VALUE}
  353.   _SERVICE_TYPE_VALUE = record
  354.     dwNameSpace: DWORD;
  355.     dwValueType: DWORD;
  356.     dwValueSize: DWORD;
  357.     dwValueNameOffset: DWORD;
  358.     dwValueOffset: DWORD;
  359.   end;
  360.   {$EXTERNALSYM _SERVICE_TYPE_VALUE}
  361.   SERVICE_TYPE_VALUE = _SERVICE_TYPE_VALUE;
  362.   {$EXTERNALSYM SERVICE_TYPE_VALUE}
  363.   TServiceTypeValue = SERVICE_TYPE_VALUE;
  364.   PServiceTypeValue = LPSERVICE_TYPE_VALUE;
  366. //
  367. // An absolute version of above. This structure does contain pointers.
  368. //
  370.   LPSERVICE_TYPE_VALUE_ABSA = ^SERVICE_TYPE_VALUE_ABSA;
  371.   {$EXTERNALSYM LPSERVICE_TYPE_VALUE_ABSA}
  372.   PSERVICE_TYPE_VALUE_ABSA = ^SERVICE_TYPE_VALUE_ABSA;
  373.   {$EXTERNALSYM PSERVICE_TYPE_VALUE_ABSA}
  374.   _SERVICE_TYPE_VALUE_ABSA = record
  375.     dwNameSpace: DWORD;
  376.     dwValueType: DWORD;
  377.     dwValueSize: DWORD;
  378.     lpValueName: LPSTR;
  379.     lpValue: LPVOID;
  380.   end;
  381.   {$EXTERNALSYM _SERVICE_TYPE_VALUE_ABSA}
  382.   SERVICE_TYPE_VALUE_ABSA = _SERVICE_TYPE_VALUE_ABSA;
  383.   {$EXTERNALSYM SERVICE_TYPE_VALUE_ABSA}
  384.   TServiceTypeValueAbsA = SERVICE_TYPE_VALUE_ABSA;
  385.   PServiceTypeValueAbsA = LPSERVICE_TYPE_VALUE_ABSA;
  387. //
  388. // An absolute version of above. This structure does contain pointers.
  389. //
  391.   LPSERVICE_TYPE_VALUE_ABSW = ^SERVICE_TYPE_VALUE_ABSW;
  392.   {$EXTERNALSYM LPSERVICE_TYPE_VALUE_ABSW}
  393.   PSERVICE_TYPE_VALUE_ABSW = ^SERVICE_TYPE_VALUE_ABSW;
  394.   {$EXTERNALSYM PSERVICE_TYPE_VALUE_ABSW}
  395.   _SERVICE_TYPE_VALUE_ABSW = record
  396.     dwNameSpace: DWORD;
  397.     dwValueType: DWORD;
  398.     dwValueSize: DWORD;
  399.     lpValueName: LPWSTR;
  400.     lpValue: LPVOID;
  401.   end;
  402.   {$EXTERNALSYM _SERVICE_TYPE_VALUE_ABSW}
  403.   SERVICE_TYPE_VALUE_ABSW = _SERVICE_TYPE_VALUE_ABSW;
  404.   {$EXTERNALSYM SERVICE_TYPE_VALUE_ABSW}
  405.   TServiceTypeValueAbsW = SERVICE_TYPE_VALUE_ABSW;
  406.   PServiceTypeValueAbsW = LPSERVICE_TYPE_VALUE_ABSW;
  408. {$IFDEF UNICODE}
  409.   SERVICE_TYPE_VALUE_ABS = SERVICE_TYPE_VALUE_ABSW;
  410.   {$EXTERNALSYM SERVICE_TYPE_VALUE_ABS}
  411.   PSERVICE_TYPE_VALUE_ABS = PSERVICE_TYPE_VALUE_ABSW;
  412.   {$EXTERNALSYM PSERVICE_TYPE_VALUE_ABS}
  413.   LPSERVICE_TYPE_VALUE_ABS = LPSERVICE_TYPE_VALUE_ABSW;
  414.   {$EXTERNALSYM LPSERVICE_TYPE_VALUE_ABS}
  415.   TServiceTypeValueAbs = TServiceTypeValueAbsW;
  416.   PServiceTypeValueAbs = PServiceTypeValueAbsW;
  417. {$ELSE}
  418.   SERVICE_TYPE_VALUE_ABS = SERVICE_TYPE_VALUE_ABSA;
  419.   {$EXTERNALSYM SERVICE_TYPE_VALUE_ABS}
  420.   PSERVICE_TYPE_VALUE_ABS = PSERVICE_TYPE_VALUE_ABSA;
  421.   {$EXTERNALSYM PSERVICE_TYPE_VALUE_ABS}
  422.   LPSERVICE_TYPE_VALUE_ABS = LPSERVICE_TYPE_VALUE_ABSA;
  423.   {$EXTERNALSYM LPSERVICE_TYPE_VALUE_ABS}
  424.   TServiceTypeValueAbs = TServiceTypeValueAbsA;
  425.   PServiceTypeValueAbs = PServiceTypeValueAbsA;
  426. {$ENDIF}
  428. //
  429. // Service Type Information. Contains the name of the Service Type and
  430. // and an array of SERVICE_NS_TYPE_VALUE structures. This structure is self
  431. // relative and has no pointers in it.
  432. //
  434.   LPSERVICE_TYPE_INFO = ^SERVICE_TYPE_INFO;
  435.   {$EXTERNALSYM LPSERVICE_TYPE_INFO}
  436.   PSERVICE_TYPE_INFO = ^SERVICE_TYPE_INFO;
  437.   {$EXTERNALSYM PSERVICE_TYPE_INFO}
  438.   _SERVICE_TYPE_INFO = record
  439.     dwTypeNameOffset: DWORD;
  440.     dwValueCount: DWORD;
  441.     Values: array [0..0] of SERVICE_TYPE_VALUE;
  442.   end;
  443.   {$EXTERNALSYM _SERVICE_TYPE_INFO}
  444.   SERVICE_TYPE_INFO = _SERVICE_TYPE_INFO;
  445.   {$EXTERNALSYM SERVICE_TYPE_INFO}
  446.   TServiceTypeInfo = SERVICE_TYPE_INFO;
  447.   PServiceTypeInfo = LPSERVICE_TYPE_INFO;
  449.   LPSERVICE_TYPE_INFO_ABSA = ^SERVICE_TYPE_INFO_ABSA;
  450.   {$EXTERNALSYM LPSERVICE_TYPE_INFO_ABSA}
  451.   PSERVICE_TYPE_INFO_ABSA = ^SERVICE_TYPE_INFO_ABSA;
  452.   {$EXTERNALSYM PSERVICE_TYPE_INFO_ABSA}
  453.   _SERVICE_TYPE_INFO_ABSA = record
  454.     lpTypeName: LPSTR;
  455.     dwValueCount: DWORD;
  456.     Values: array [0..0] of SERVICE_TYPE_VALUE_ABSA;
  457.   end;
  458.   {$EXTERNALSYM _SERVICE_TYPE_INFO_ABSA}
  459.   SERVICE_TYPE_INFO_ABSA = _SERVICE_TYPE_INFO_ABSA;
  460.   {$EXTERNALSYM SERVICE_TYPE_INFO_ABSA}
  461.   TServiceTypeInfoAbsA = SERVICE_TYPE_INFO_ABSA;
  462.   PServiceTypeInfoAbsA = PSERVICE_TYPE_INFO_ABSA;
  464.   LPSERVICE_TYPE_INFO_ABSW = ^SERVICE_TYPE_INFO_ABSW;
  465.   {$EXTERNALSYM LPSERVICE_TYPE_INFO_ABSW}
  466.   PSERVICE_TYPE_INFO_ABSW = ^SERVICE_TYPE_INFO_ABSW;
  467.   {$EXTERNALSYM PSERVICE_TYPE_INFO_ABSW}
  468.   _SERVICE_TYPE_INFO_ABSW = record
  469.     lpTypeName: LPWSTR;
  470.     dwValueCount: DWORD;
  471.     Values: array [0..0] of SERVICE_TYPE_VALUE_ABSW;
  472.   end;
  473.   {$EXTERNALSYM _SERVICE_TYPE_INFO_ABSW}
  474.   SERVICE_TYPE_INFO_ABSW = _SERVICE_TYPE_INFO_ABSW;
  475.   {$EXTERNALSYM SERVICE_TYPE_INFO_ABSW}
  476.   TServiceTypeInfoAbsW = SERVICE_TYPE_INFO_ABSW;
  477.   PServiceTypeInfoAbsW = LPSERVICE_TYPE_INFO_ABSW;
  479. {$IFDEF UNICODE}
  480.   SERVICE_TYPE_INFO_ABS = SERVICE_TYPE_INFO_ABSW;
  481.   {$EXTERNALSYM SERVICE_TYPE_INFO_ABS}
  482.   PSERVICE_TYPE_INFO_ABS = PSERVICE_TYPE_INFO_ABSW;
  483.   {$EXTERNALSYM PSERVICE_TYPE_INFO_ABS}
  484.   LPSERVICE_TYPE_INFO_ABS = LPSERVICE_TYPE_INFO_ABSW;
  485.   {$EXTERNALSYM LPSERVICE_TYPE_INFO_ABS}
  486.   TServiceTypeInfoAbs = TServiceTypeInfoAbsW;
  487.   PServiceTypeInfoAbs = PServiceTypeInfoAbsW;
  488. {$ELSE}
  489.   SERVICE_TYPE_INFO_ABS = SERVICE_TYPE_INFO_ABSA;
  490.   {$EXTERNALSYM SERVICE_TYPE_INFO_ABS}
  491.   PSERVICE_TYPE_INFO_ABS = PSERVICE_TYPE_INFO_ABSA;
  492.   {$EXTERNALSYM PSERVICE_TYPE_INFO_ABS}
  493.   LPSERVICE_TYPE_INFO_ABS = LPSERVICE_TYPE_INFO_ABSA;
  494.   {$EXTERNALSYM LPSERVICE_TYPE_INFO_ABS}
  495.   TServiceTypeInfoAbs = TServiceTypeInfoAbsA;
  496.   PServiceTypeInfoAbs = PServiceTypeInfoAbsA;
  497. {$ENDIF}
  499. //
  500. // A Single Address definition.
  501. //
  503.   LPSERVICE_ADDRESS = ^SERVICE_ADDRESS;
  504.   {$EXTERNALSYM LPSERVICE_ADDRESS}
  505.   PSERVICE_ADDRESS = ^SERVICE_ADDRESS;
  506.   {$EXTERNALSYM PSERVICE_ADDRESS}
  507.   _SERVICE_ADDRESS = record
  508.     dwAddressType: DWORD;
  509.     dwAddressFlags: DWORD;
  510.     dwAddressLength: DWORD;
  511.     dwPrincipalLength: DWORD;
  512.     lpAddress: LPBYTE;
  513.     lpPrincipal: LPBYTE;
  514.   end;
  515.   {$EXTERNALSYM _SERVICE_ADDRESS}
  516.   SERVICE_ADDRESS = _SERVICE_ADDRESS;
  517.   {$EXTERNALSYM SERVICE_ADDRESS}
  518.   TServiceAddress = SERVICE_ADDRESS;
  519.   PServiceAddress = LPSERVICE_ADDRESS;
  521. //
  522. // Addresses used by the service. Contains array of SERVICE_ADDRESS.
  523. //
  525.   LPSERVICE_ADDRESSES = ^SERVICE_ADDRESSES;
  526.   {$EXTERNALSYM LPSERVICE_ADDRESSES}
  527.   PSERVICE_ADDRESSES = ^SERVICE_ADDRESSES;
  528.   {$EXTERNALSYM PSERVICE_ADDRESSES}
  529.   _SERVICE_ADDRESSES = record
  530.     dwAddressCount: DWORD;
  531.     Addresses: array [0..0] of SERVICE_ADDRESS;
  532.   end;
  533.   {$EXTERNALSYM _SERVICE_ADDRESSES}
  534.   SERVICE_ADDRESSES = _SERVICE_ADDRESSES;
  535.   {$EXTERNALSYM SERVICE_ADDRESSES}
  536.   TServiceAddresses = SERVICE_ADDRESSES;
  537.   PServiceAddresses = PSERVICE_ADDRESSES;
  539. //
  540. // Service Information.
  541. //
  543.   LPSERVICE_INFOA = ^SERVICE_INFOA;
  544.   {$EXTERNALSYM LPSERVICE_INFOA}
  545.   PSERVICE_INFOA = ^SERVICE_INFOA;
  546.   {$EXTERNALSYM PSERVICE_INFOA}
  547.   _SERVICE_INFOA = record
  548.     lpServiceType: PGUID;
  549.     lpServiceName: LPSTR;
  550.     lpComment: LPSTR;
  551.     lpLocale: LPSTR;
  552.     dwDisplayHint: DWORD;
  553.     dwVersion: DWORD;
  554.     dwTime: DWORD;
  555.     lpMachineName: LPSTR;
  556.     lpServiceAddress: LPSERVICE_ADDRESSES;
  557.     ServiceSpecificInfo: BLOB;
  558.   end;
  559.   {$EXTERNALSYM _SERVICE_INFOA}
  560.   SERVICE_INFOA = _SERVICE_INFOA;
  561.   {$EXTERNALSYM SERVICE_INFOA}
  562.   TServiceInfoA = SERVICE_INFOA;
  563.   PServiceInfoA = PSERVICE_INFOA;
  565. //
  566. // Service Information.
  567. //
  569.   LPSERVICE_INFOW = ^SERVICE_INFOW;
  570.   {$EXTERNALSYM LPSERVICE_INFOW}
  571.   PSERVICE_INFOW = ^SERVICE_INFOW;
  572.   {$EXTERNALSYM PSERVICE_INFOW}
  573.   _SERVICE_INFOW = record
  574.     lpServiceType: PGUID;
  575.     lpServiceName: LPWSTR;
  576.     lpComment: LPWSTR;
  577.     lpLocale: LPWSTR;
  578.     dwDisplayHint: DWORD;
  579.     dwVersion: DWORD;
  580.     dwTime: DWORD;
  581.     lpMachineName: LPWSTR;
  582.     lpServiceAddress: LPSERVICE_ADDRESSES;
  583.     ServiceSpecificInfo: BLOB;
  584.   end;
  585.   {$EXTERNALSYM _SERVICE_INFOW}
  586.   SERVICE_INFOW = _SERVICE_INFOW;
  587.   {$EXTERNALSYM SERVICE_INFOW}
  588.   TServiceInfoW = SERVICE_INFOW;
  589.   PServiceInfoW = PSERVICE_INFOW;
  591. {$IFDEF UNICODE}
  592.   SERVICE_INFO = SERVICE_INFOW;
  593.   {$EXTERNALSYM SERVICE_INFO}
  594.   PSERVICE_INFO = PSERVICE_INFOW;
  595.   {$EXTERNALSYM PSERVICE_INFO}
  596.   LPSERVICE_INFO = LPSERVICE_INFOW;
  597.   {$EXTERNALSYM LPSERVICE_INFO}
  598.   TServiceInfo = TServiceInfoW;
  599.   PServiceInfo = PServiceInfoW;
  600. {$ELSE}
  601.   SERVICE_INFO = SERVICE_INFOA;
  602.   {$EXTERNALSYM SERVICE_INFO}
  603.   PSERVICE_INFO = PSERVICE_INFOA;
  604.   {$EXTERNALSYM PSERVICE_INFO}
  605.   LPSERVICE_INFO = LPSERVICE_INFOA;
  606.   {$EXTERNALSYM LPSERVICE_INFO}
  607.   TServiceInfo = TServiceInfoA;
  608.   PServiceInfo = PServiceInfoA;
  609. {$ENDIF}
  611. //
  612. // Name Space & Service Information
  613. //
  615.   LPNS_SERVICE_INFOA = ^NS_SERVICE_INFOA;
  616.   {$EXTERNALSYM LPNS_SERVICE_INFOA}
  617.   PNS_SERVICE_INFOA = ^NS_SERVICE_INFOA;
  618.   {$EXTERNALSYM PNS_SERVICE_INFOA}
  619.   _NS_SERVICE_INFOA = record
  620.     dwNameSpace: DWORD;
  621.     ServiceInfo: SERVICE_INFOA;
  622.   end;
  623.   {$EXTERNALSYM _NS_SERVICE_INFOA}
  624.   NS_SERVICE_INFOA = _NS_SERVICE_INFOA;
  625.   {$EXTERNALSYM NS_SERVICE_INFOA}
  626.   TNsServiceInfoA = NS_SERVICE_INFOA;
  627.   PNsServiceInfoA = LPNS_SERVICE_INFOA;
  629. //
  630. // Name Space & Service Information
  631. //
  633.   LPNS_SERVICE_INFOW = ^NS_SERVICE_INFOW;
  634.   {$EXTERNALSYM LPNS_SERVICE_INFOW}
  635.   PNS_SERVICE_INFOW = ^NS_SERVICE_INFOW;
  636.   {$EXTERNALSYM PNS_SERVICE_INFOW}
  637.   _NS_SERVICE_INFOW = record
  638.     dwNameSpace: DWORD;
  639.     ServiceInfo: SERVICE_INFOW;
  640.   end;
  641.   {$EXTERNALSYM _NS_SERVICE_INFOW}
  642.   NS_SERVICE_INFOW = _NS_SERVICE_INFOW;
  643.   {$EXTERNALSYM NS_SERVICE_INFOW}
  644.   TNsServiceInfoW = NS_SERVICE_INFOW;
  645.   PNsServiceInfoW = LPNS_SERVICE_INFOW;
  647. {$IFDEF UNICODE}
  648.   NS_SERVICE_INFO = NS_SERVICE_INFOW;
  649.   {$EXTERNALSYM NS_SERVICE_INFO}
  650.   PNS_SERVICE_INFO = PNS_SERVICE_INFOW;
  651.   {$EXTERNALSYM PNS_SERVICE_INFO}
  652.   LPNS_SERVICE_INFO = LPNS_SERVICE_INFOW;
  653.   {$EXTERNALSYM LPNS_SERVICE_INFO}
  654.   TNsServiceInfo = TNsServiceInfoW;
  655.   PNsServiceInfo = PNsServiceInfoW;
  656. {$ELSE}
  657.   NS_SERVICE_INFO = NS_SERVICE_INFOA;
  658.   {$EXTERNALSYM NS_SERVICE_INFO}
  659.   PNS_SERVICE_INFO = PNS_SERVICE_INFOA;
  660.   {$EXTERNALSYM PNS_SERVICE_INFO}
  661.   LPNS_SERVICE_INFO = LPNS_SERVICE_INFOA;
  662.   {$EXTERNALSYM LPNS_SERVICE_INFO}
  663.   TNsServiceInfo = TNsServiceInfoA;
  664.   PNsServiceInfo = PNsServiceInfoA;
  665. {$ENDIF}
  667. //
  668. // SockAddr Information
  669. //
  671.   LPSOCKET_ADDRESS = ^SOCKET_ADDRESS;
  672.   {$EXTERNALSYM LPSOCKET_ADDRESS}
  673.   PSOCKET_ADDRESS = ^SOCKET_ADDRESS;
  674.   {$EXTERNALSYM PSOCKET_ADDRESS}
  675.   _SOCKET_ADDRESS = record
  676.     lpSockaddr: LPSOCKADDR;
  677.     iSockaddrLength: Integer;
  678.   end;
  679.   {$EXTERNALSYM _SOCKET_ADDRESS}
  680.   SOCKET_ADDRESS = _SOCKET_ADDRESS;
  681.   {$EXTERNALSYM SOCKET_ADDRESS}
  682.   TSocketAddress = SOCKET_ADDRESS;
  683.   PSocketAddress = PSOCKET_ADDRESS;
  685. //
  686. // CSAddr Information
  687. //
  689.   LPCSADDR_INFO = ^CSADDR_INFO;
  690.   {$EXTERNALSYM LPCSADDR_INFO}
  691.   PCSADDR_INFO = ^CSADDR_INFO;
  692.   {$EXTERNALSYM PCSADDR_INFO}
  693.   _CSADDR_INFO = record
  694.     LocalAddr: SOCKET_ADDRESS;
  695.     RemoteAddr: SOCKET_ADDRESS;
  696.     iSocketType: Integer;
  697.     iProtocol: Integer;
  698.   end;
  699.   {$EXTERNALSYM _CSADDR_INFO}
  700.   CSADDR_INFO = _CSADDR_INFO;
  701.   {$EXTERNALSYM CSADDR_INFO}
  702.   TCsAddrInfo = CSADDR_INFO;
  703.   PCsAddrInfo = LPCSADDR_INFO;
  705. //
  706. // Protocol Information
  707. //
  709.   LPPROTOCOL_INFOA = ^PROTOCOL_INFOA;
  710.   {$EXTERNALSYM LPPROTOCOL_INFOA}
  711.   PPROTOCOL_INFOA = ^PROTOCOL_INFOA;
  712.   {$EXTERNALSYM PPROTOCOL_INFOA}
  713.   _PROTOCOL_INFOA = record
  714.     dwServiceFlags: DWORD;
  715.     iAddressFamily: Integer;
  716.     iMaxSockAddr: Integer;
  717.     iMinSockAddr: Integer;
  718.     iSocketType: Integer;
  719.     iProtocol: Integer;
  720.     dwMessageSize: DWORD;
  721.     lpProtocol: LPSTR;
  722.   end;
  723.   {$EXTERNALSYM _PROTOCOL_INFOA}
  724.   PROTOCOL_INFOA = _PROTOCOL_INFOA;
  725.   {$EXTERNALSYM PROTOCOL_INFOA}
  726.   TProtocolInfoA = PROTOCOL_INFOA;
  727.   PProtocolInfoA = LPPROTOCOL_INFOA;
  729. //
  730. // Protocol Information
  731. //
  733.   LPPROTOCOL_INFOW = ^PROTOCOL_INFOW;
  734.   {$EXTERNALSYM LPPROTOCOL_INFOW}
  735.   PPROTOCOL_INFOW = ^PROTOCOL_INFOW;
  736.   {$EXTERNALSYM PPROTOCOL_INFOW}
  737.   _PROTOCOL_INFOW = record
  738.     dwServiceFlags: DWORD;
  739.     iAddressFamily: Integer;
  740.     iMaxSockAddr: Integer;
  741.     iMinSockAddr: Integer;
  742.     iSocketType: Integer;
  743.     iProtocol: Integer;
  744.     dwMessageSize: DWORD;
  745.     lpProtocol: LPWSTR;
  746.   end;
  747.   {$EXTERNALSYM _PROTOCOL_INFOW}
  748.   PROTOCOL_INFOW = _PROTOCOL_INFOW;
  749.   {$EXTERNALSYM PROTOCOL_INFOW}
  750.   TProtocolInfoW = PROTOCOL_INFOW;
  751.   PProtocolInfoW = LPPROTOCOL_INFOW;
  753. {$IFDEF UNICODE}
  754.   PROTOCOL_INFO = PROTOCOL_INFOW;
  755.   {$EXTERNALSYM PROTOCOL_INFO}
  756.   PPROTOCOL_INFO = PPROTOCOL_INFOW;
  757.   {$EXTERNALSYM PPROTOCOL_INFO}
  758.   LPPROTOCOL_INFO = LPPROTOCOL_INFOW;
  759.   {$EXTERNALSYM LPPROTOCOL_INFO}
  760.   TProtocolInfo = TProtocolInfoW;
  761.   PProtocolInfo = PProtocolInfoW;
  762. {$ELSE}
  763.   PROTOCOL_INFO = PROTOCOL_INFOA;
  764.   {$EXTERNALSYM PROTOCOL_INFO}
  765.   PPROTOCOL_INFO = PPROTOCOL_INFOA;
  766.   {$EXTERNALSYM PPROTOCOL_INFO}
  767.   LPPROTOCOL_INFO = LPPROTOCOL_INFOA;
  768.   {$EXTERNALSYM LPPROTOCOL_INFO}
  769.   TProtocolInfo = TProtocolInfoA;
  770.   PProtocolInfo = PProtocolInfoA;
  771. {$ENDIF}
  773. //
  774. // NETRESOURCE2 Structure
  775. //
  777.   LPNETRESOURCE2A = ^NETRESOURCE2A;
  778.   {$EXTERNALSYM LPNETRESOURCE2A}
  779.   PNETRESOURCE2A = ^NETRESOURCE2A;
  780.   {$EXTERNALSYM PNETRESOURCE2A}
  781.   _NETRESOURCE2A = record
  782.     dwScope: DWORD;
  783.     dwType: DWORD;
  784.     dwUsage: DWORD;
  785.     dwDisplayType: DWORD;
  786.     lpLocalName: LPSTR;
  787.     lpRemoteName: LPSTR;
  788.     lpComment: LPSTR;
  789.     ns_info: NS_INFO;
  790.     ServiceType: TGUID;
  791.     dwProtocols: DWORD;
  792.     lpiProtocols: PINT;
  793.   end;
  794.   {$EXTERNALSYM _NETRESOURCE2A}
  795.   NETRESOURCE2A = _NETRESOURCE2A;
  796.   {$EXTERNALSYM NETRESOURCE2A}
  797.   TNetResource2A = NETRESOURCE2A;
  799. //
  800. // NETRESOURCE2 Structure
  801. //
  803.   LPNETRESOURCE2W = ^NETRESOURCE2W;
  804.   {$EXTERNALSYM LPNETRESOURCE2W}
  805.   PNETRESOURCE2W = ^NETRESOURCE2W;
  806.   {$EXTERNALSYM PNETRESOURCE2W}
  807.   _NETRESOURCE2W = record
  808.     dwScope: DWORD;
  809.     dwType: DWORD;
  810.     dwUsage: DWORD;
  811.     dwDisplayType: DWORD;
  812.     lpLocalName: LPWSTR;
  813.     lpRemoteName: LPWSTR;
  814.     lpComment: LPWSTR;
  815.     ns_info: NS_INFO;
  816.     ServiceType: TGUID;
  817.     dwProtocols: DWORD;
  818.     lpiProtocols: PINT;
  819.   end;
  820.   {$EXTERNALSYM _NETRESOURCE2W}
  821.   NETRESOURCE2W = _NETRESOURCE2W;
  822.   {$EXTERNALSYM NETRESOURCE2W}
  823.   TNetResource2W = NETRESOURCE2W;
  825. {$IFDEF UNICODE}
  826.   NETRESOURCE2 = NETRESOURCE2W;
  827.   {$EXTERNALSYM NETRESOURCE2}
  828.   PNETRESOURCE2 = PNETRESOURCE2W;
  829.   {$EXTERNALSYM PNETRESOURCE2}
  830.   LPNETRESOURCE2 = LPNETRESOURCE2W;
  831.   {$EXTERNALSYM LPNETRESOURCE2}
  832.   TNetResource2 = TNetResource2W;
  833. {$ELSE}
  834.   NETRESOURCE2 = NETRESOURCE2A;
  835.   {$EXTERNALSYM NETRESOURCE2}
  836.   PNETRESOURCE2 = PNETRESOURCE2A;
  837.   {$EXTERNALSYM PNETRESOURCE2}
  838.   LPNETRESOURCE2 = LPNETRESOURCE2A;
  839.   {$EXTERNALSYM LPNETRESOURCE2}
  840.   TNetResource2 = TNetResource2A;
  841. {$ENDIF}
  843.   LPFN_NSPAPI = function: DWORD; stdcall;
  844.   {$EXTERNALSYM LPFN_NSPAPI}
  845.   TFnNspApi = LPFN_NSPAPI; 
  847. //
  848. // Structures for using the service routines asynchronously.
  849. //
  851. type
  852.   LPSERVICE_CALLBACK_PROC = procedure (lParam: LPARAM; hAsyncTaskHandle: HANDLE); stdcall;
  853.   {$EXTERNALSYM LPSERVICE_CALLBACK_PROC}
  854.   TServiceCallbackProc = LPSERVICE_CALLBACK_PROC;
  856. type
  857.   LPSERVICE_ASYNC_INFO = ^SERVICE_ASYNC_INFO;
  858.   {$EXTERNALSYM LPSERVICE_ASYNC_INFO}
  859.   PSERVICE_ASYNC_INFO = ^SERVICE_ASYNC_INFO;
  860.   {$EXTERNALSYM PSERVICE_ASYNC_INFO}
  861.   _SERVICE_ASYNC_INFO = record
  862.     lpServiceCallbackProc: LPSERVICE_CALLBACK_PROC;
  863.     lParam: LPARAM;
  864.     hAsyncTaskHandle: HANDLE;
  865.   end;
  866.   {$EXTERNALSYM _SERVICE_ASYNC_INFO}
  867.   SERVICE_ASYNC_INFO = _SERVICE_ASYNC_INFO;
  868.   {$EXTERNALSYM SERVICE_ASYNC_INFO}
  869.   TServiceAsyncInfo = SERVICE_ASYNC_INFO;
  870.   PServiceAsyncInfo = LPSERVICE_ASYNC_INFO;
  872. //
  873. // Public NSP API prototypes.
  874. //
  876. function EnumProtocolsA(lpiProtocols: PINT; lpProtocolBuffer: LPVOID; lpdwBufferLength: LPDWORD): Integer; stdcall;
  877. {$EXTERNALSYM EnumProtocolsA}
  878. function EnumProtocolsW(lpiProtocols: PINT; lpProtocolBuffer: LPVOID; lpdwBufferLength: LPDWORD): Integer; stdcall;
  879. {$EXTERNALSYM EnumProtocolsW}
  881. {$IFDEF UNICODE}
  882. function EnumProtocols(lpiProtocols: PINT; lpProtocolBuffer: LPVOID; lpdwBufferLength: LPDWORD): Integer; stdcall;
  883. {$EXTERNALSYM EnumProtocols}
  884. {$ELSE}
  885. function EnumProtocols(lpiProtocols: PINT; lpProtocolBuffer: LPVOID; lpdwBufferLength: LPDWORD): Integer; stdcall;
  886. {$EXTERNALSYM EnumProtocols}
  887. {$ENDIF}
  889. function GetAddressByNameA(dwNameSpace: DWORD; const lpServiceType: TGUID;
  890.   lpServiceName: LPSTR; lpiProtocols: PINT; dwResolution: DWORD;
  891.   lpServiceAsyncInfo: LPSERVICE_ASYNC_INFO; lpCsaddrBuffer: LPVOID;
  892.   var lpdwBufferLength: DWORD; lpAliasBuffer: LPSTR; lpdwAliasBufferLength: LPDWORD): Integer; stdcall;
  893. {$EXTERNALSYM GetAddressByNameA}
  894. function GetAddressByNameW(dwNameSpace: DWORD; const lpServiceType: TGUID;
  895.   lpServiceName: LPWSTR; lpiProtocols: PINT; dwResolution: DWORD;
  896.   lpServiceAsyncInfo: LPSERVICE_ASYNC_INFO; lpCsaddrBuffer: LPVOID;
  897.   var lpdwBufferLength: DWORD; lpAliasBuffer: LPWSTR; lpdwAliasBufferLength: LPDWORD): Integer; stdcall;
  898. {$EXTERNALSYM GetAddressByNameW}
  900. {$IFDEF UNICODE}
  901. function GetAddressByName(dwNameSpace: DWORD; const lpServiceType: TGUID;
  902.   lpServiceName: LPWSTR; lpiProtocols: PINT; dwResolution: DWORD;
  903.   lpServiceAsyncInfo: LPSERVICE_ASYNC_INFO; lpCsaddrBuffer: LPVOID;
  904.   var lpdwBufferLength: DWORD; lpAliasBuffer: LPWSTR; lpdwAliasBufferLength: LPDWORD): Integer; stdcall;
  905. {$EXTERNALSYM GetAddressByName}
  906. {$ELSE}
  907. function GetAddressByName(dwNameSpace: DWORD; const lpServiceType: TGUID;
  908.   lpServiceName: LPSTR; lpiProtocols: PINT; dwResolution: DWORD;
  909.   lpServiceAsyncInfo: LPSERVICE_ASYNC_INFO; lpCsaddrBuffer: LPVOID;
  910.   var lpdwBufferLength: DWORD; lpAliasBuffer: LPSTR; lpdwAliasBufferLength: LPDWORD): Integer; stdcall;
  911. {$EXTERNALSYM GetAddressByName}
  912. {$ENDIF}
  914. function GetTypeByNameA(lpServiceName: LPSTR; var lpServiceType: TGUID): Integer; stdcall;
  915. {$EXTERNALSYM GetTypeByNameA}
  916. function GetTypeByNameW(lpServiceName: LPWSTR; var lpServiceType: TGUID): Integer; stdcall;
  917. {$EXTERNALSYM GetTypeByNameW}
  919. {$IFDEF UNICODE}
  920. function GetTypeByName(lpServiceName: LPWSTR; var lpServiceType: TGUID): Integer; stdcall;
  921. {$EXTERNALSYM GetTypeByName}
  922. {$ELSE}
  923. function GetTypeByName(lpServiceName: LPSTR; var lpServiceType: TGUID): Integer; stdcall;
  924. {$EXTERNALSYM GetTypeByName}
  925. {$ENDIF}
  927. function GetNameByTypeA(const lpServiceType: TGUID; lpServiceName: LPSTR; dwNameLength: DWORD): Integer; stdcall;
  928. {$EXTERNALSYM GetNameByTypeA}
  929. function GetNameByTypeW(const lpServiceType: TGUID; lpServiceName: LPWSTR; dwNameLength: DWORD): Integer; stdcall;
  930. {$EXTERNALSYM GetNameByTypeW}
  932. {$IFDEF UNICODE}
  933. function GetNameByType(const lpServiceType: TGUID; lpServiceName: LPWSTR; dwNameLength: DWORD): Integer; stdcall;
  934. {$EXTERNALSYM GetNameByType}
  935. {$ELSE}
  936. function GetNameByType(const lpServiceType: TGUID; lpServiceName: LPSTR; dwNameLength: DWORD): Integer; stdcall;
  937. {$EXTERNALSYM GetNameByType}
  938. {$ENDIF}
  940. function SetServiceA(dwNameSpace, dwOperation, dwFlags: DWORD;
  941.   const lpServiceInfo: SERVICE_INFOA; lpServiceAsyncInfo: LPSERVICE_ASYNC_INFO;
  942.   var lpdwStatusFlags: DWORD): Integer; stdcall;
  943. {$EXTERNALSYM SetServiceA}
  944. function SetServiceW(dwNameSpace, dwOperation, dwFlags: DWORD;
  945.   const lpServiceInfo: SERVICE_INFOW; lpServiceAsyncInfo: LPSERVICE_ASYNC_INFO;
  946.   var lpdwStatusFlags: DWORD): Integer; stdcall;
  947. {$EXTERNALSYM SetServiceW}
  949. {$IFDEF UNICODE}
  950. function SetService(dwNameSpace, dwOperation, dwFlags: DWORD;
  951.   const lpServiceInfo: SERVICE_INFOW; lpServiceAsyncInfo: LPSERVICE_ASYNC_INFO;
  952.   var lpdwStatusFlags: DWORD): Integer; stdcall;
  953. {$EXTERNALSYM SetService}
  954. {$ELSE}
  955. function SetService(dwNameSpace, dwOperation, dwFlags: DWORD;
  956.   const lpServiceInfo: SERVICE_INFOA; lpServiceAsyncInfo: LPSERVICE_ASYNC_INFO;
  957.   var lpdwStatusFlags: DWORD): Integer; stdcall;
  958. {$EXTERNALSYM SetService}
  959. {$ENDIF}
  961. function GetServiceA(dwNameSpace: DWORD; const lpGuid: TGUID; lpServiceName: LPSTR;
  962.   dwProperties: DWORD; lpBuffer: LPVOID; var lpdwBufferSize: DWORD;
  963.   lpServiceAsyncInfo: LPSERVICE_ASYNC_INFO): Integer; stdcall;
  964. {$EXTERNALSYM GetServiceA}
  965. function GetServiceW(dwNameSpace: DWORD; const lpGuid: TGUID; lpServiceName: LPWSTR;
  966.   dwProperties: DWORD; lpBuffer: LPVOID; var lpdwBufferSize: DWORD;
  967.   lpServiceAsyncInfo: LPSERVICE_ASYNC_INFO): Integer; stdcall;
  968. {$EXTERNALSYM GetServiceW}
  970. {$IFDEF UNICODE}
  971. function GetService(dwNameSpace: DWORD; const lpGuid: TGUID; lpServiceName: LPWSTR;
  972.   dwProperties: DWORD; lpBuffer: LPVOID; var lpdwBufferSize: DWORD;
  973.   lpServiceAsyncInfo: LPSERVICE_ASYNC_INFO): Integer; stdcall;
  974. {$EXTERNALSYM GetService}
  975. {$ELSE}
  976. function GetService(dwNameSpace: DWORD; const lpGuid: TGUID; lpServiceName: LPSTR;
  977.   dwProperties: DWORD; lpBuffer: LPVOID; var lpdwBufferSize: DWORD;
  978.   lpServiceAsyncInfo: LPSERVICE_ASYNC_INFO): Integer; stdcall;
  979. {$EXTERNALSYM GetService}
  980. {$ENDIF}
  982. implementation
  984. const
  985.   nsplib = 'wsock32.dll';
  988. {$IFDEF DYNAMIC_LINK}
  989. var
  990.   _EnumProtocolsA: Pointer;
  992. function EnumProtocolsA;
  993. begin
  994.   GetProcedureAddress(_EnumProtocolsA, nsplib, 'EnumProtocolsA');
  995.   asm
  996.     mov esp, ebp
  997.     pop ebp
  998.     jmp [_EnumProtocolsA]
  999.   end;
  1000. end;
  1001. {$ELSE}
  1002. function EnumProtocolsA; external nsplib name 'EnumProtocolsA';
  1003. {$ENDIF DYNAMIC_LINK}
  1005. {$IFDEF DYNAMIC_LINK}
  1006. var
  1007.   _EnumProtocolsW: Pointer;
  1009. function EnumProtocolsW;
  1010. begin
  1011.   GetProcedureAddress(_EnumProtocolsW, nsplib, 'EnumProtocolsW');
  1012.   asm
  1013.     mov esp, ebp
  1014.     pop ebp
  1015.     jmp [_EnumProtocolsW]
  1016.   end;
  1017. end;
  1018. {$ELSE}
  1019. function EnumProtocolsW; external nsplib name 'EnumProtocolsW';
  1020. {$ENDIF DYNAMIC_LINK}
  1021. {$IFDEF UNICODE}
  1023. {$IFDEF DYNAMIC_LINK}
  1024. var
  1025.   _EnumProtocols: Pointer;
  1027. function EnumProtocols;
  1028. begin
  1029.   GetProcedureAddress(_EnumProtocols, nsplib, 'EnumProtocolsW');
  1030.   asm
  1031.     mov esp, ebp
  1032.     pop ebp
  1033.     jmp [_EnumProtocols]
  1034.   end;
  1035. end;
  1036. {$ELSE}
  1037. function EnumProtocols; external nsplib name 'EnumProtocolsW';
  1038. {$ENDIF DYNAMIC_LINK}
  1039. {$ELSE}
  1041. {$IFDEF DYNAMIC_LINK}
  1042. var
  1043.   _EnumProtocols: Pointer;
  1045. function EnumProtocols;
  1046. begin
  1047.   GetProcedureAddress(_EnumProtocols, nsplib, 'EnumProtocolsA');
  1048.   asm
  1049.     mov esp, ebp
  1050.     pop ebp
  1051.     jmp [_EnumProtocols]
  1052.   end;
  1053. end;
  1054. {$ELSE}
  1055. function EnumProtocols; external nsplib name 'EnumProtocolsA';
  1056. {$ENDIF DYNAMIC_LINK}
  1057. {$ENDIF}
  1059. {$IFDEF DYNAMIC_LINK}
  1060. var
  1061.   _GetAddressByNameA: Pointer;
  1063. function GetAddressByNameA;
  1064. begin
  1065.   GetProcedureAddress(_GetAddressByNameA, nsplib, 'GetAddressByNameA');
  1066.   asm
  1067.     mov esp, ebp
  1068.     pop ebp
  1069.     jmp [_GetAddressByNameA]
  1070.   end;
  1071. end;
  1072. {$ELSE}
  1073. function GetAddressByNameA; external nsplib name 'GetAddressByNameA';
  1074. {$ENDIF DYNAMIC_LINK}
  1076. {$IFDEF DYNAMIC_LINK}
  1077. var
  1078.   _GetAddressByNameW: Pointer;
  1080. function GetAddressByNameW;
  1081. begin
  1082.   GetProcedureAddress(_GetAddressByNameW, nsplib, 'GetAddressByNameW');
  1083.   asm
  1084.     mov esp, ebp
  1085.     pop ebp
  1086.     jmp [_GetAddressByNameW]
  1087.   end;
  1088. end;
  1089. {$ELSE}
  1090. function GetAddressByNameW; external nsplib name 'GetAddressByNameW';
  1091. {$ENDIF DYNAMIC_LINK}
  1092. {$IFDEF UNICODE}
  1094. {$IFDEF DYNAMIC_LINK}
  1095. var
  1096.   _GetAddressByName: Pointer;
  1098. function GetAddressByName;
  1099. begin
  1100.   GetProcedureAddress(_GetAddressByName, nsplib, 'GetAddressByNameW');
  1101.   asm
  1102.     mov esp, ebp
  1103.     pop ebp
  1104.     jmp [_GetAddressByName]
  1105.   end;
  1106. end;
  1107. {$ELSE}
  1108. function GetAddressByName; external nsplib name 'GetAddressByNameW';
  1109. {$ENDIF DYNAMIC_LINK}
  1110. {$ELSE}
  1112. {$IFDEF DYNAMIC_LINK}
  1113. var
  1114.   _GetAddressByName: Pointer;
  1116. function GetAddressByName;
  1117. begin
  1118.   GetProcedureAddress(_GetAddressByName, nsplib, 'GetAddressByNameA');
  1119.   asm
  1120.     mov esp, ebp
  1121.     pop ebp
  1122.     jmp [_GetAddressByName]
  1123.   end;
  1124. end;
  1125. {$ELSE}
  1126. function GetAddressByName; external nsplib name 'GetAddressByNameA';
  1127. {$ENDIF DYNAMIC_LINK}
  1128. {$ENDIF}
  1130. {$IFDEF DYNAMIC_LINK}
  1131. var
  1132.   _GetTypeByNameA: Pointer;
  1134. function GetTypeByNameA;
  1135. begin
  1136.   GetProcedureAddress(_GetTypeByNameA, nsplib, 'GetTypeByNameA');
  1137.   asm
  1138.     mov esp, ebp
  1139.     pop ebp
  1140.     jmp [_GetTypeByNameA]
  1141.   end;
  1142. end;
  1143. {$ELSE}
  1144. function GetTypeByNameA; external nsplib name 'GetTypeByNameA';
  1145. {$ENDIF DYNAMIC_LINK}
  1147. {$IFDEF DYNAMIC_LINK}
  1148. var
  1149.   _GetTypeByNameW: Pointer;
  1151. function GetTypeByNameW;
  1152. begin
  1153.   GetProcedureAddress(_GetTypeByNameW, nsplib, 'GetTypeByNameW');
  1154.   asm
  1155.     mov esp, ebp
  1156.     pop ebp
  1157.     jmp [_GetTypeByNameW]
  1158.   end;
  1159. end;
  1160. {$ELSE}
  1161. function GetTypeByNameW; external nsplib name 'GetTypeByNameW';
  1162. {$ENDIF DYNAMIC_LINK}
  1163. {$IFDEF UNICODE}
  1165. {$IFDEF DYNAMIC_LINK}
  1166. var
  1167.   _GetTypeByName: Pointer;
  1169. function GetTypeByName;
  1170. begin
  1171.   GetProcedureAddress(_GetTypeByName, nsplib, 'GetTypeByNameW');
  1172.   asm
  1173.     mov esp, ebp
  1174.     pop ebp
  1175.     jmp [_GetTypeByName]
  1176.   end;
  1177. end;
  1178. {$ELSE}
  1179. function GetTypeByName; external nsplib name 'GetTypeByNameW';
  1180. {$ENDIF DYNAMIC_LINK}
  1181. {$ELSE}
  1183. {$IFDEF DYNAMIC_LINK}
  1184. var
  1185.   _GetTypeByName: Pointer;
  1187. function GetTypeByName;
  1188. begin
  1189.   GetProcedureAddress(_GetTypeByName, nsplib, 'GetTypeByNameA');
  1190.   asm
  1191.     mov esp, ebp
  1192.     pop ebp
  1193.     jmp [_GetTypeByName]
  1194.   end;
  1195. end;
  1196. {$ELSE}
  1197. function GetTypeByName; external nsplib name 'GetTypeByNameA';
  1198. {$ENDIF DYNAMIC_LINK}
  1199. {$ENDIF}
  1201. {$IFDEF DYNAMIC_LINK}
  1202. var
  1203.   _GetNameByTypeA: Pointer;
  1205. function GetNameByTypeA;
  1206. begin
  1207.   GetProcedureAddress(_GetNameByTypeA, nsplib, 'GetNameByTypeA');
  1208.   asm
  1209.     mov esp, ebp
  1210.     pop ebp
  1211.     jmp [_GetNameByTypeA]
  1212.   end;
  1213. end;
  1214. {$ELSE}
  1215. function GetNameByTypeA; external nsplib name 'GetNameByTypeA';
  1216. {$ENDIF DYNAMIC_LINK}
  1218. {$IFDEF DYNAMIC_LINK}
  1219. var
  1220.   _GetNameByTypeW: Pointer;
  1222. function GetNameByTypeW;
  1223. begin
  1224.   GetProcedureAddress(_GetNameByTypeW, nsplib, 'GetNameByTypeW');
  1225.   asm
  1226.     mov esp, ebp
  1227.     pop ebp
  1228.     jmp [_GetNameByTypeW]
  1229.   end;
  1230. end;
  1231. {$ELSE}
  1232. function GetNameByTypeW; external nsplib name 'GetNameByTypeW';
  1233. {$ENDIF DYNAMIC_LINK}
  1234. {$IFDEF UNICODE}
  1236. {$IFDEF DYNAMIC_LINK}
  1237. var
  1238.   _GetNameByType: Pointer;
  1240. function GetNameByType;
  1241. begin
  1242.   GetProcedureAddress(_GetNameByType, nsplib, 'GetNameByTypeW');
  1243.   asm
  1244.     mov esp, ebp
  1245.     pop ebp
  1246.     jmp [_GetNameByType]
  1247.   end;
  1248. end;
  1249. {$ELSE}
  1250. function GetNameByType; external nsplib name 'GetNameByTypeW';
  1251. {$ENDIF DYNAMIC_LINK}
  1252. {$ELSE}
  1254. {$IFDEF DYNAMIC_LINK}
  1255. var
  1256.   _GetNameByType: Pointer;
  1258. function GetNameByType;
  1259. begin
  1260.   GetProcedureAddress(_GetNameByType, nsplib, 'GetNameByTypeA');
  1261.   asm
  1262.     mov esp, ebp
  1263.     pop ebp
  1264.     jmp [_GetNameByType]
  1265.   end;
  1266. end;
  1267. {$ELSE}
  1268. function GetNameByType; external nsplib name 'GetNameByTypeA';
  1269. {$ENDIF DYNAMIC_LINK}
  1270. {$ENDIF}
  1272. {$IFDEF DYNAMIC_LINK}
  1273. var
  1274.   _SetServiceA: Pointer;
  1276. function SetServiceA;
  1277. begin
  1278.   GetProcedureAddress(_SetServiceA, nsplib, 'SetServiceA');
  1279.   asm
  1280.     mov esp, ebp
  1281.     pop ebp
  1282.     jmp [_SetServiceA]
  1283.   end;
  1284. end;
  1285. {$ELSE}
  1286. function SetServiceA; external nsplib name 'SetServiceA';
  1287. {$ENDIF DYNAMIC_LINK}
  1289. {$IFDEF DYNAMIC_LINK}
  1290. var
  1291.   _SetServiceW: Pointer;
  1293. function SetServiceW;
  1294. begin
  1295.   GetProcedureAddress(_SetServiceW, nsplib, 'SetServiceW');
  1296.   asm
  1297.     mov esp, ebp
  1298.     pop ebp
  1299.     jmp [_SetServiceW]
  1300.   end;
  1301. end;
  1302. {$ELSE}
  1303. function SetServiceW; external nsplib name 'SetServiceW';
  1304. {$ENDIF DYNAMIC_LINK}
  1305. {$IFDEF UNICODE}
  1307. {$IFDEF DYNAMIC_LINK}
  1308. var
  1309.   _SetService: Pointer;
  1311. function SetService;
  1312. begin
  1313.   GetProcedureAddress(_SetService, nsplib, 'SetServiceW');
  1314.   asm
  1315.     mov esp, ebp
  1316.     pop ebp
  1317.     jmp [_SetService]
  1318.   end;
  1319. end;
  1320. {$ELSE}
  1321. function SetService; external nsplib name 'SetServiceW';
  1322. {$ENDIF DYNAMIC_LINK}
  1323. {$ELSE}
  1325. {$IFDEF DYNAMIC_LINK}
  1326. var
  1327.   _SetService: Pointer;
  1329. function SetService;
  1330. begin
  1331.   GetProcedureAddress(_SetService, nsplib, 'SetServiceA');
  1332.   asm
  1333.     mov esp, ebp
  1334.     pop ebp
  1335.     jmp [_SetService]
  1336.   end;
  1337. end;
  1338. {$ELSE}
  1339. function SetService; external nsplib name 'SetServiceA';
  1340. {$ENDIF DYNAMIC_LINK}
  1341. {$ENDIF}
  1343. {$IFDEF DYNAMIC_LINK}
  1344. var
  1345.   _GetServiceA: Pointer;
  1347. function GetServiceA;
  1348. begin
  1349.   GetProcedureAddress(_GetServiceA, nsplib, 'GetServiceA');
  1350.   asm
  1351.     mov esp, ebp
  1352.     pop ebp
  1353.     jmp [_GetServiceA]
  1354.   end;
  1355. end;
  1356. {$ELSE}
  1357. function GetServiceA; external nsplib name 'GetServiceA';
  1358. {$ENDIF DYNAMIC_LINK}
  1360. {$IFDEF DYNAMIC_LINK}
  1361. var
  1362.   _GetServiceW: Pointer;
  1364. function GetServiceW;
  1365. begin
  1366.   GetProcedureAddress(_GetServiceW, nsplib, 'GetServiceW');
  1367.   asm
  1368.     mov esp, ebp
  1369.     pop ebp
  1370.     jmp [_GetServiceW]
  1371.   end;
  1372. end;
  1373. {$ELSE}
  1374. function GetServiceW; external nsplib name 'GetServiceW';
  1375. {$ENDIF DYNAMIC_LINK}
  1376. {$IFDEF UNICODE}
  1378. {$IFDEF DYNAMIC_LINK}
  1379. var
  1380.   _GetService: Pointer;
  1382. function GetService;
  1383. begin
  1384.   GetProcedureAddress(_GetService, nsplib, 'GetServiceW');
  1385.   asm
  1386.     mov esp, ebp
  1387.     pop ebp
  1388.     jmp [_GetService]
  1389.   end;
  1390. end;
  1391. {$ELSE}
  1392. function GetService; external nsplib name 'GetServiceW';
  1393. {$ENDIF DYNAMIC_LINK}
  1394. {$ELSE}
  1396. {$IFDEF DYNAMIC_LINK}
  1397. var
  1398.   _GetService: Pointer;
  1400. function GetService;
  1401. begin
  1402.   GetProcedureAddress(_GetService, nsplib, 'GetServiceA');
  1403.   asm
  1404.     mov esp, ebp
  1405.     pop ebp
  1406.     jmp [_GetService]
  1407.   end;
  1408. end;
  1409. {$ELSE}
  1410. function GetService; external nsplib name 'GetServiceA';
  1411. {$ENDIF DYNAMIC_LINK}
  1412. {$ENDIF}
  1414. end.