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

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

Windows编程

开发平台：

Delphi

JwaDSGetDc.pas：源码内容
  1. {******************************************************************************}
  2. {                                                                       }
  3. { Directory Services 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: dsgetdc.h, released June 2000. The original Pascal     }
  9. { code is: DsGetDc.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 JwaDSGetDc;
  46. {$WEAKPACKAGEUNIT}
  48. {$HPPEMIT ''}
  49. {$HPPEMIT '#include "DsGetDC.h"'}
  50. {$HPPEMIT ''}
  52. {$I WINDEFINES.INC}
  54. interface
  56. uses
  57.   JwaNtSecApi, JwaWinNT, JwaWinType;
  59. //
  60. // Structure definitions
  61. //
  63. //
  64. // Flags to passed to DsGetDcName
  65. //
  67. const
  68.   DS_FORCE_REDISCOVERY = $00000001;
  69.   {$EXTERNALSYM DS_FORCE_REDISCOVERY}
  71.   DS_DIRECTORY_SERVICE_REQUIRED  = $00000010;
  72.   {$EXTERNALSYM DS_DIRECTORY_SERVICE_REQUIRED}
  73.   DS_DIRECTORY_SERVICE_PREFERRED = $00000020;
  74.   {$EXTERNALSYM DS_DIRECTORY_SERVICE_PREFERRED}
  75.   DS_GC_SERVER_REQUIRED          = $00000040;
  76.   {$EXTERNALSYM DS_GC_SERVER_REQUIRED}
  77.   DS_PDC_REQUIRED                = $00000080;
  78.   {$EXTERNALSYM DS_PDC_REQUIRED}
  79.   DS_BACKGROUND_ONLY             = $00000100;
  80.   {$EXTERNALSYM DS_BACKGROUND_ONLY}
  81.   DS_IP_REQUIRED                 = $00000200;
  82.   {$EXTERNALSYM DS_IP_REQUIRED}
  83.   DS_KDC_REQUIRED                = $00000400;
  84.   {$EXTERNALSYM DS_KDC_REQUIRED}
  85.   DS_TIMESERV_REQUIRED           = $00000800;
  86.   {$EXTERNALSYM DS_TIMESERV_REQUIRED}
  87.   DS_WRITABLE_REQUIRED           = $00001000;
  88.   {$EXTERNALSYM DS_WRITABLE_REQUIRED}
  89.   DS_GOOD_TIMESERV_PREFERRED     = $00002000;
  90.   {$EXTERNALSYM DS_GOOD_TIMESERV_PREFERRED}
  91.   DS_AVOID_SELF                  = $00004000;
  92.   {$EXTERNALSYM DS_AVOID_SELF}
  93.   DS_ONLY_LDAP_NEEDED            = $00008000;
  94.   {$EXTERNALSYM DS_ONLY_LDAP_NEEDED}
  96.   DS_IS_FLAT_NAME = $00010000;
  97.   {$EXTERNALSYM DS_IS_FLAT_NAME}
  98.   DS_IS_DNS_NAME  = $00020000;
  99.   {$EXTERNALSYM DS_IS_DNS_NAME}
  101.   DS_RETURN_DNS_NAME  = $40000000;
  102.   {$EXTERNALSYM DS_RETURN_DNS_NAME}
  103.   DS_RETURN_FLAT_NAME = DWORD($80000000);
  104.   {$EXTERNALSYM DS_RETURN_FLAT_NAME}
  106.   DSGETDC_VALID_FLAGS =
  107.     DS_FORCE_REDISCOVERY or
  108.     DS_DIRECTORY_SERVICE_REQUIRED or
  109.     DS_DIRECTORY_SERVICE_PREFERRED or
  110.     DS_GC_SERVER_REQUIRED or
  111.     DS_PDC_REQUIRED or
  112.     DS_BACKGROUND_ONLY or
  113.     DS_IP_REQUIRED or
  114.     DS_KDC_REQUIRED or
  115.     DS_TIMESERV_REQUIRED or
  116.     DS_WRITABLE_REQUIRED or
  117.     DS_GOOD_TIMESERV_PREFERRED or
  118.     DS_AVOID_SELF or
  119.     DS_ONLY_LDAP_NEEDED or
  120.     DS_IS_FLAT_NAME or
  121.     DS_IS_DNS_NAME or
  122.     DS_RETURN_FLAT_NAME or
  123.     DS_RETURN_DNS_NAME;
  124.   {$EXTERNALSYM DSGETDC_VALID_FLAGS}
  126. //
  127. // Structure returned from DsGetDcName
  128. //
  130. type
  131.   PDOMAIN_CONTROLLER_INFOA = ^DOMAIN_CONTROLLER_INFOA;
  132.   {$EXTERNALSYM PDOMAIN_CONTROLLER_INFOA}
  133.   _DOMAIN_CONTROLLER_INFOA = record
  134.     DomainControllerName: LPSTR;
  135.     DomainControllerAddress: LPSTR;
  136.     DomainControllerAddressType: ULONG;
  137.     DomainGuid: GUID;
  138.     DomainName: LPSTR;
  139.     DnsForestName: LPSTR;
  140.     Flags: ULONG;
  141.     DcSiteName: LPSTR;
  142.     ClientSiteName: LPSTR;
  143.   end;
  144.   {$EXTERNALSYM _DOMAIN_CONTROLLER_INFOA}
  145.   DOMAIN_CONTROLLER_INFOA = _DOMAIN_CONTROLLER_INFOA;
  146.   {$EXTERNALSYM DOMAIN_CONTROLLER_INFOA}
  147.   TDomainControllerInfoA = DOMAIN_CONTROLLER_INFOA;
  148.   PDomainControllerInfoA = PDOMAIN_CONTROLLER_INFOA;
  150.   PDOMAIN_CONTROLLER_INFOW = ^DOMAIN_CONTROLLER_INFOW;
  151.   {$EXTERNALSYM PDOMAIN_CONTROLLER_INFOW}
  152.   _DOMAIN_CONTROLLER_INFOW = record
  153.     DomainControllerName: LPWSTR;
  154.     DomainControllerAddress: LPWSTR;
  155.     DomainControllerAddressType: ULONG;
  156.     DomainGuid: GUID;
  157.     DomainName: LPWSTR;
  158.     DnsForestName: LPWSTR;
  159.     Flags: ULONG;
  160.     DcSiteName: LPWSTR;
  161.     ClientSiteName: LPWSTR;
  162.   end;
  163.   {$EXTERNALSYM _DOMAIN_CONTROLLER_INFOW}
  164.   DOMAIN_CONTROLLER_INFOW = _DOMAIN_CONTROLLER_INFOW;
  165.   {$EXTERNALSYM DOMAIN_CONTROLLER_INFOW}
  166.   TDomainControllerInfoW = DOMAIN_CONTROLLER_INFOW;
  167.   PDomainControllerInfoW = PDOMAIN_CONTROLLER_INFOW;
  169. {$IFDEF UNICODE}
  170.   DOMAIN_CONTROLLER_INFO = DOMAIN_CONTROLLER_INFOW;
  171.   {$EXTERNALSYM DOMAIN_CONTROLLER_INFO}
  172.   PDOMAIN_CONTROLLER_INFO = PDOMAIN_CONTROLLER_INFOW;
  173.   {$EXTERNALSYM PDOMAIN_CONTROLLER_INFO}
  174.   TDomainControllerInfo = TDomainControllerInfoW;
  175.   PDomainControllerInfo = PDomainControllerInfoW;
  176. {$ELSE}
  177.   DOMAIN_CONTROLLER_INFO = DOMAIN_CONTROLLER_INFOA;
  178.   {$EXTERNALSYM DOMAIN_CONTROLLER_INFO}
  179.   PDOMAIN_CONTROLLER_INFO = PDOMAIN_CONTROLLER_INFOA;
  180.   {$EXTERNALSYM PDOMAIN_CONTROLLER_INFO}
  181.   TDomainControllerInfo = TDomainControllerInfoA;
  182.   PDomainControllerInfo = PDomainControllerInfoA;
  183. {$ENDIF}
  185. //
  186. // Values for DomainControllerAddressType
  187. //
  189. const
  190.   DS_INET_ADDRESS    = 1;
  191.   {$EXTERNALSYM DS_INET_ADDRESS}
  192.   DS_NETBIOS_ADDRESS = 2;
  193.   {$EXTERNALSYM DS_NETBIOS_ADDRESS}
  195. //
  196. // Values for returned Flags
  197. //
  199.   DS_PDC_FLAG           = $00000001; // DC is PDC of Domain
  200.   {$EXTERNALSYM DS_PDC_FLAG}
  201.   DS_GC_FLAG            = $00000004; // DC is a GC of forest
  202.   {$EXTERNALSYM DS_GC_FLAG}
  203.   DS_LDAP_FLAG          = $00000008; // Server supports an LDAP server
  204.   {$EXTERNALSYM DS_LDAP_FLAG}
  205.   DS_DS_FLAG            = $00000010; // DC supports a DS and is a Domain Controller
  206.   {$EXTERNALSYM DS_DS_FLAG}
  207.   DS_KDC_FLAG           = $00000020; // DC is running KDC service
  208.   {$EXTERNALSYM DS_KDC_FLAG}
  209.   DS_TIMESERV_FLAG      = $00000040; // DC is running time service
  210.   {$EXTERNALSYM DS_TIMESERV_FLAG}
  211.   DS_CLOSEST_FLAG       = $00000080; // DC is in closest site to client
  212.   {$EXTERNALSYM DS_CLOSEST_FLAG}
  213.   DS_WRITABLE_FLAG      = $00000100; // DC has a writable DS
  214.   {$EXTERNALSYM DS_WRITABLE_FLAG}
  215.   DS_GOOD_TIMESERV_FLAG = $00000200; // DC is running time service (and has clock hardware)
  216.   {$EXTERNALSYM DS_GOOD_TIMESERV_FLAG}
  217.   DS_NDNC_FLAG          = $00000400; // DomainName is non-domain NC serviced by the LDAP server
  218.   {$EXTERNALSYM DS_NDNC_FLAG}
  219.   DS_PING_FLAGS         = $0000FFFF; // Flags returned on ping
  220.   {$EXTERNALSYM DS_PING_FLAGS}
  222.   DS_DNS_CONTROLLER_FLAG = $20000000; // DomainControllerName is a DNS name
  223.   {$EXTERNALSYM DS_DNS_CONTROLLER_FLAG}
  224.   DS_DNS_DOMAIN_FLAG     = $40000000; // DomainName is a DNS name
  225.   {$EXTERNALSYM DS_DNS_DOMAIN_FLAG}
  226.   DS_DNS_FOREST_FLAG     = DWORD($80000000); // DnsForestName is a DNS name
  227.   {$EXTERNALSYM DS_DNS_FOREST_FLAG}
  229. //
  230. // Function Prototypes
  231. //
  233. function DsGetDcNameA(ComputerName, DomainName: LPCSTR; DomainGuid: LPGUID;
  234.   SiteName: LPCSTR; Flags: ULONG; var DomainControllerInfo: PDOMAIN_CONTROLLER_INFOA): DWORD; stdcall;
  235. {$EXTERNALSYM DsGetDcNameA}
  236. function DsGetDcNameW(ComputerName, DomainName: LPCWSTR; DomainGuid: LPGUID;
  237.   SiteName: LPCWSTR; Flags: ULONG; var DomainControllerInfo: PDOMAIN_CONTROLLER_INFOW): DWORD; stdcall;
  238. {$EXTERNALSYM DsGetDcNameW}
  240. {$IFDEF UNICODE}
  241. function DsGetDcName(ComputerName, DomainName: LPCWSTR; DomainGuid: LPGUID;
  242.   SiteName: LPCWSTR; Flags: ULONG; var DomainControllerInfo: PDOMAIN_CONTROLLER_INFOW): DWORD; stdcall;
  243. {$EXTERNALSYM DsGetDcName}
  244. {$ELSE}
  245. function DsGetDcName(ComputerName, DomainName: LPCSTR; DomainGuid: LPGUID;
  246.   SiteName: LPCSTR; Flags: ULONG; var DomainControllerInfo: PDOMAIN_CONTROLLER_INFOA): DWORD; stdcall;
  247. {$EXTERNALSYM DsGetDcName}
  248. {$ENDIF}
  250. function DsGetSiteNameA(ComputerName: LPCSTR; var SiteName: LPSTR): DWORD; stdcall;
  251. {$EXTERNALSYM DsGetSiteNameA}
  252. function DsGetSiteNameW(ComputerName: LPCWSTR; var SiteName: LPWSTR): DWORD; stdcall;
  253. {$EXTERNALSYM DsGetSiteNameW}
  255. {$IFDEF UNICODE}
  256. function DsGetSiteName(ComputerName: LPCWSTR; var SiteName: LPWSTR): DWORD; stdcall;
  257. {$EXTERNALSYM DsGetSiteName}
  258. {$ELSE}
  259. function DsGetSiteName(ComputerName: LPCSTR; var SiteName: LPSTR): DWORD; stdcall;
  260. {$EXTERNALSYM DsGetSiteName}
  261. {$ENDIF}
  263. function DsValidateSubnetNameA(SubnetName: LPCSTR): DWORD; stdcall;
  264. {$EXTERNALSYM DsValidateSubnetNameA}
  265. function DsValidateSubnetNameW(SubnetName: LPCWSTR): DWORD; stdcall;
  266. {$EXTERNALSYM DsValidateSubnetNameW}
  268. {$IFDEF UNICODE}
  269. function DsValidateSubnetName(SubnetName: LPCWSTR): DWORD; stdcall;
  270. {$EXTERNALSYM DsValidateSubnetName}
  271. {$ELSE}
  272. function DsValidateSubnetName(SubnetName: LPCSTR): DWORD; stdcall;
  273. {$EXTERNALSYM DsValidateSubnetName}
  274. {$ENDIF}
  276. //
  277. // Only include if winsock2.h has been included
  278. //
  280. // Types from Winsock2.h 
  282. type
  283.   sockaddr = record
  284.     sa_family: Word;              // address family
  285.     sa_data: array [0..13]of Char;   // up to 14 bytes of direct address
  286.   end;
  287.   {$EXTERNALSYM sockaddr}
  289.   PSOCKADDR = ^SOCKADDR;
  290.   {$EXTERNALSYM PSOCKADDR}
  291.   LPSOCKADDR = PSOCKADDR;
  292.   {$EXTERNALSYM LPSOCKADDR}
  294.   _SOCKET_ADDRESS = record
  295.     lpSockaddr: LPSOCKADDR;
  296.     iSockaddrLength: Integer;
  297.   end;
  298.   {$EXTERNALSYM _SOCKET_ADDRESS}
  299.   SOCKET_ADDRESS = _SOCKET_ADDRESS;
  300.   {$EXTERNALSYM SOCKET_ADDRESS}
  301.   PSOCKET_ADDRESS = ^SOCKET_ADDRESS;
  302.   {$EXTERNALSYM PSOCKET_ADDRESS}
  303.   LPSOCKET_ADDRESS = PSOCKET_ADDRESS;
  304.   {$EXTERNALSYM LPSOCKET_ADDRESS}
  305.   TSocketAddress = SOCKET_ADDRESS;
  306.   PSocketAddress = LPSOCKET_ADDRESS;
  308. function DsAddressToSiteNamesA(ComputerName: LPCSTR; EntryCount: DWORD;
  309.   SocketAddresses: PSOCKET_ADDRESS; var SiteNames: PPChar): DWORD; stdcall;
  310. {$EXTERNALSYM DsAddressToSiteNamesA}
  311. function DsAddressToSiteNamesW(ComputerName: LPCWSTR; EntryCount: DWORD;
  312.   SocketAddresses: PSOCKET_ADDRESS; var SiteNames: PPWideChar): DWORD; stdcall;
  313. {$EXTERNALSYM DsAddressToSiteNamesW}
  315. {$IFDEF UNICODE}
  316. function DsAddressToSiteNames(ComputerName: LPCWSTR; EntryCount: DWORD;
  317.   SocketAddresses: PSOCKET_ADDRESS; var SiteNames: PPWideChar): DWORD; stdcall;
  318. {$EXTERNALSYM DsAddressToSiteNames}
  319. {$ELSE}
  320. function DsAddressToSiteNames(ComputerName: LPCSTR; EntryCount: DWORD;
  321.   SocketAddresses: PSOCKET_ADDRESS; var SiteNames: PPChar): DWORD; stdcall;
  322. {$EXTERNALSYM DsAddressToSiteNames}
  323. {$ENDIF}
  325. function DsAddressToSiteNamesExA(ComputerName: LPCSTR; EntryCount: DWORD;
  326.   SocketAddresses: PSOCKET_ADDRESS; var SiteNames, SubnetNames: PPChar): DWORD; stdcall;
  327. {$EXTERNALSYM DsAddressToSiteNamesExA}
  328. function DsAddressToSiteNamesExW(ComputerName: LPCWSTR; EntryCount: DWORD;
  329.   SocketAddresses: PSOCKET_ADDRESS; var SiteNames, SubnetNames: PPWideChar): DWORD; stdcall;
  330. {$EXTERNALSYM DsAddressToSiteNamesExW}
  332. {$IFDEF UNICODE}
  333. function DsAddressToSiteNamesEx(ComputerName: LPCWSTR; EntryCount: DWORD;
  334.   SocketAddresses: PSOCKET_ADDRESS; var SiteNames, SubnetNames: PPWideChar): DWORD; stdcall;
  335. {$EXTERNALSYM DsAddressToSiteNamesEx}
  336. {$ELSE}
  337. function DsAddressToSiteNamesEx(ComputerName: LPCSTR; EntryCount: DWORD;
  338.   SocketAddresses: PSOCKET_ADDRESS; var SiteNames, SubnetNames: PPChar): DWORD; stdcall;
  339. {$EXTERNALSYM DsAddressToSiteNamesEx}
  340. {$ENDIF}
  342. //
  343. // API to enumerate trusted domains
  344. //
  346. const
  347.   DS_DOMAIN_IN_FOREST       = $0001; // Domain is a member of the forest
  348.   {$EXTERNALSYM DS_DOMAIN_IN_FOREST}
  349.   DS_DOMAIN_DIRECT_OUTBOUND = $0002; // Domain is directly trusted
  350.   {$EXTERNALSYM DS_DOMAIN_DIRECT_OUTBOUND}
  351.   DS_DOMAIN_TREE_ROOT       = $0004; // Domain is root of a tree in the forest
  352.   {$EXTERNALSYM DS_DOMAIN_TREE_ROOT}
  353.   DS_DOMAIN_PRIMARY         = $0008; // Domain is the primary domain of queried server
  354.   {$EXTERNALSYM DS_DOMAIN_PRIMARY}
  355.   DS_DOMAIN_NATIVE_MODE     = $0010; // Primary domain is running in native mode
  356.   {$EXTERNALSYM DS_DOMAIN_NATIVE_MODE}
  357.   DS_DOMAIN_DIRECT_INBOUND  = $0020; // Domain is directly trusting
  358.   {$EXTERNALSYM DS_DOMAIN_DIRECT_INBOUND}
  359.   DS_DOMAIN_VALID_FLAGS = DS_DOMAIN_IN_FOREST or DS_DOMAIN_DIRECT_OUTBOUND or
  360.     DS_DOMAIN_TREE_ROOT or DS_DOMAIN_PRIMARY or DS_DOMAIN_NATIVE_MODE or
  361.     DS_DOMAIN_DIRECT_INBOUND;
  362.   {$EXTERNALSYM DS_DOMAIN_VALID_FLAGS}
  364. type
  365.   PDS_DOMAIN_TRUSTSW = ^DS_DOMAIN_TRUSTSW;
  366.   {$EXTERNALSYM PDS_DOMAIN_TRUSTSW}
  367.   _DS_DOMAIN_TRUSTSW = record
  368.     //
  369.     // Name of the trusted domain.
  370.     //
  371.     NetbiosDomainName: LPWSTR;
  372.     DnsDomainName: LPWSTR;
  373.     //
  374.     // Flags defining attributes of the trust.
  375.     //
  376.     Flags: ULONG;
  377.     //
  378.     // Index to the domain that is the parent of this domain.
  379.     //  Only defined if NETLOGON_DOMAIN_IN_FOREST is set and
  380.     //      NETLOGON_DOMAIN_TREE_ROOT is not set.
  381.     //
  382.     ParentIndex: ULONG;
  383.     //
  384.     // The trust type and attributes of this trust.
  385.     //
  386.     // If NETLOGON_DOMAIN_DIRECTLY_TRUSTED is not set,
  387.     //  these value are infered.
  388.     //
  389.     TrustType: ULONG;
  390.     TrustAttributes: ULONG;
  391.     //
  392.     // The SID of the trusted domain.
  393.     //
  394.     // If NETLOGON_DOMAIN_DIRECTLY_TRUSTED is not set,
  395.     //  this value will be NULL.
  396.     //
  397.     DomainSid: PSID;
  398.     //
  399.     // The GUID of the trusted domain.
  400.     //
  401.     DomainGuid: GUID;
  402.   end;
  403.   {$EXTERNALSYM _DS_DOMAIN_TRUSTSW}
  404.   DS_DOMAIN_TRUSTSW = _DS_DOMAIN_TRUSTSW;
  405.   {$EXTERNALSYM DS_DOMAIN_TRUSTSW}
  406.   TDsDomainTrustsW = DS_DOMAIN_TRUSTSW;
  407.   PDsDomainTrustsW = PDS_DOMAIN_TRUSTSW;
  409. //
  410. // ANSI version of the above struct
  411. //
  413.   PDS_DOMAIN_TRUSTSA = ^DS_DOMAIN_TRUSTSA;
  414.   {$EXTERNALSYM PDS_DOMAIN_TRUSTSA}
  415.   _DS_DOMAIN_TRUSTSA = record
  416.     NetbiosDomainName: LPSTR;
  417.     DnsDomainName: LPSTR;
  418.     Flags: ULONG;
  419.     ParentIndex: ULONG;
  420.     TrustType: ULONG;
  421.     TrustAttributes: ULONG;
  422.     DomainSid: PSID;
  423.     DomainGuid: GUID;
  424.   end;
  425.   {$EXTERNALSYM _DS_DOMAIN_TRUSTSA}
  426.   DS_DOMAIN_TRUSTSA = _DS_DOMAIN_TRUSTSA;
  427.   {$EXTERNALSYM DS_DOMAIN_TRUSTSA}
  428.   TDsDomainTrustsA = DS_DOMAIN_TRUSTSA;
  429.   PDsDomainTrustsA = PDS_DOMAIN_TRUSTSA;
  431. {$IFDEF UNICODE}
  432.   DS_DOMAIN_TRUSTS = DS_DOMAIN_TRUSTSW;
  433.   {$EXTERNALSYM DS_DOMAIN_TRUSTS}
  434.   PDS_DOMAIN_TRUSTS = PDS_DOMAIN_TRUSTSW;
  435.   {$EXTERNALSYM PDS_DOMAIN_TRUSTS}
  436.   TDsDomainTrusts = TDsDomainTrustsW;
  437.   PDsDomainTrusts = PDsDomainTrustsW;
  438. {$ELSE}
  439.   DS_DOMAIN_TRUSTS = DS_DOMAIN_TRUSTSA;
  440.   {$EXTERNALSYM DS_DOMAIN_TRUSTS}
  441.   PDS_DOMAIN_TRUSTS = PDS_DOMAIN_TRUSTSA;
  442.   {$EXTERNALSYM PDS_DOMAIN_TRUSTS}
  443.   TDsDomainTrusts = TDsDomainTrustsA;
  444.   PDsDomainTrusts = PDsDomainTrustsA;
  445. {$ENDIF}
  447. function DsEnumerateDomainTrustsA(ServerName: LPSTR; Flags: ULONG;
  448.   var Domains: PDS_DOMAIN_TRUSTSA; var DomainCount: ULONG): DWORD; stdcall;
  449. {$EXTERNALSYM DsEnumerateDomainTrustsA}
  450. function DsEnumerateDomainTrustsW(ServerName: LPWSTR; Flags: ULONG;
  451.   var Domains: PDS_DOMAIN_TRUSTSW; var DomainCount: ULONG): DWORD; stdcall;
  452. {$EXTERNALSYM DsEnumerateDomainTrustsW}
  454. {$IFDEF UNICODE}
  455. function DsEnumerateDomainTrusts(ServerName: LPWSTR; Flags: ULONG;
  456.   var Domains: PDS_DOMAIN_TRUSTSW; var DomainCount: ULONG): DWORD; stdcall;
  457. {$EXTERNALSYM DsEnumerateDomainTrusts}
  458. {$ELSE}
  459. function DsEnumerateDomainTrusts(ServerName: LPSTR; Flags: ULONG;
  460.   var Domains: PDS_DOMAIN_TRUSTSA; var DomainCount: ULONG): DWORD; stdcall;
  461. {$EXTERNALSYM DsEnumerateDomainTrusts}
  462. {$ENDIF}
  464. //
  465. // Only define this API if the caller has #included the pre-requisite ntlsa.h
  467. function DsGetForestTrustInformationW(ServerName, TrustedDomainName: LPCWSTR;
  468.   Flags: DWORD; var ForestTrustInfo: PLSA_FOREST_TRUST_INFORMATION): DWORD; stdcall;
  469. {$EXTERNALSYM DsGetForestTrustInformationW}
  471. const
  472.   DS_GFTI_UPDATE_TDO    = $1;     // Update TDO with information returned
  473.   {$EXTERNALSYM DS_GFTI_UPDATE_TDO}
  474.   DS_GFTI_VALID_FLAGS   = $1;     // All valid flags to DsGetForestTrustInformation
  475.   {$EXTERNALSYM DS_GFTI_VALID_FLAGS}
  477. function DsMergeForestTrustInformationW(DomainName: LPCWSTR; NewForestTrustInfo,
  478.   OldForestTrustInfo: PLSA_FOREST_TRUST_INFORMATION;
  479.   var MergedForestTrustInfo: PLSA_FOREST_TRUST_INFORMATION): DWORD; stdcall;
  480. {$EXTERNALSYM DsMergeForestTrustInformationW}
  482. function DsGetDcSiteCoverageA(ServerName: LPCSTR; var EntryCount: ULONG;
  483.   var SiteNames: PPChar): DWORD; stdcall;
  484. {$EXTERNALSYM DsGetDcSiteCoverageA}
  485. function DsGetDcSiteCoverageW(ServerName: LPCWSTR; var EntryCount: ULONG;
  486.   var SiteNames: PPWideChar): DWORD; stdcall;
  487. {$EXTERNALSYM DsGetDcSiteCoverageW}
  489. {$IFDEF UNICODE}
  490. function DsGetDcSiteCoverage(ServerName: LPCWSTR; var EntryCount: ULONG;
  491.   var SiteNames: PPWideChar): DWORD; stdcall;
  492. {$EXTERNALSYM DsGetDcSiteCoverage}
  493. {$ELSE}
  494. function DsGetDcSiteCoverage(ServerName: LPCSTR; var EntryCount: ULONG;
  495.   var SiteNames: PPChar): DWORD; stdcall;
  496. {$EXTERNALSYM DsGetDcSiteCoverage}
  497. {$ENDIF}
  499. function DsDeregisterDnsHostRecordsA(ServerName, DnsDomainName: LPSTR;
  500.   DomainGuid, DsaGuid: LPGUID; DnsHostName: LPSTR): DWORD; stdcall;
  501. {$EXTERNALSYM DsDeregisterDnsHostRecordsA}
  502. function DsDeregisterDnsHostRecordsW(ServerName, DnsDomainName: LPWSTR;
  503.   DomainGuid, DsaGuid: LPGUID; DnsHostName: LPWSTR): DWORD; stdcall;
  504. {$EXTERNALSYM DsDeregisterDnsHostRecordsW}
  506. {$IFDEF UNICODE}
  507. function DsDeregisterDnsHostRecords(ServerName, DnsDomainName: LPWSTR;
  508.   DomainGuid, DsaGuid: LPGUID; DnsHostName: LPWSTR): DWORD; stdcall;
  509. {$EXTERNALSYM DsDeregisterDnsHostRecords}
  510. {$ELSE}
  511. function DsDeregisterDnsHostRecords(ServerName, DnsDomainName: LPSTR;
  512.   DomainGuid, DsaGuid: LPGUID; DnsHostName: LPSTR): DWORD; stdcall;
  513. {$EXTERNALSYM DsDeregisterDnsHostRecords}
  514. {$ENDIF}
  516. //
  517. // Option flags passed to DsGetDcOpen
  518. //
  520. const
  521.   DS_ONLY_DO_SITE_NAME         = $01;   // Non-site specific names should be avoided.
  522.   {$EXTERNALSYM DS_ONLY_DO_SITE_NAME}
  523.   DS_NOTIFY_AFTER_SITE_RECORDS = $02;   // Return ERROR_FILEMARK_DETECTED after all
  524.   {$EXTERNALSYM DS_NOTIFY_AFTER_SITE_RECORDS}
  525.                                         //  site specific records have been processed.
  527.   DS_OPEN_VALID_OPTION_FLAGS = (DS_ONLY_DO_SITE_NAME or DS_NOTIFY_AFTER_SITE_RECORDS);
  528.   {$EXTERNALSYM DS_OPEN_VALID_OPTION_FLAGS}
  530. //
  531. // Valid DcFlags for DsGetDcOpen
  532. //
  534.   DS_OPEN_VALID_FLAGS =
  535.     DS_FORCE_REDISCOVERY or
  536.     DS_ONLY_LDAP_NEEDED or
  537.     DS_KDC_REQUIRED or
  538.     DS_PDC_REQUIRED or
  539.     DS_GC_SERVER_REQUIRED or
  540.     DS_WRITABLE_REQUIRED;
  541.   {$EXTERNALSYM DS_OPEN_VALID_FLAGS}
  543. function DsGetDcOpenW(DnsName: LPCWSTR; OptionFlags: ULONG; SiteName: LPCWSTR;
  544.   DomainGuid: PGUID; DnsForestName: LPCWSTR; DcFlags: ULONG;
  545.   var RetGetDcContext: HANDLE): DWORD; stdcall;
  546. {$EXTERNALSYM DsGetDcOpenW}
  548. function DsGetDcOpenA(DnsName: LPCSTR; OptionFlags: ULONG; SiteName: LPCSTR;
  549.   DomainGuid: PGUID; DnsForestName: LPCSTR; DcFlags: ULONG;
  550.   var RetGetDcContext: HANDLE): DWORD; stdcall;
  551. {$EXTERNALSYM DsGetDcOpenA}
  553. {$IFDEF UNICODE}
  554. function DsGetDcOpen(DnsName: LPCWSTR; OptionFlags: ULONG; SiteName: LPCWSTR;
  555.   DomainGuid: PGUID; DnsForestName: LPCWSTR; DcFlags: ULONG;
  556.   var RetGetDcContext: HANDLE): DWORD; stdcall;
  557. {$EXTERNALSYM DsGetDcOpen}
  558. {$ELSE}
  559. function DsGetDcOpen(DnsName: LPCSTR; OptionFlags: ULONG; SiteName: LPCSTR;
  560.   DomainGuid: PGUID; DnsForestName: LPCSTR; DcFlags: ULONG;
  561.   var RetGetDcContext: HANDLE): DWORD; stdcall;
  562. {$EXTERNALSYM DsGetDcOpen}
  563. {$ENDIF}
  565. function DsGetDcNextW(GetDcContextHandle: HANDLE; SockAddressCount: PULONG;
  566.   SockAddresses: LPSOCKET_ADDRESS; DnsHostName: LPWSTR): DWORD; stdcall;
  567. {$EXTERNALSYM DsGetDcNextW}
  569. function DsGetDcNextA(GetDcContextHandle: HANDLE; SockAddressCount: PULONG;
  570.   SockAddresses: LPSOCKET_ADDRESS; DnsHostName: LPSTR): DWORD; stdcall;
  571. {$EXTERNALSYM DsGetDcNextA}
  573. {$IFDEF UNICODE}
  574. function DsGetDcNext(GetDcContextHandle: HANDLE; SockAddressCount: PULONG;
  575.   SockAddresses: LPSOCKET_ADDRESS; DnsHostName: LPWSTR): DWORD; stdcall;
  576. {$EXTERNALSYM DsGetDcNext}
  577. {$ELSE}
  578. function DsGetDcNext(GetDcContextHandle: HANDLE; SockAddressCount: PULONG;
  579.   SockAddresses: LPSOCKET_ADDRESS; DnsHostName: LPSTR): DWORD; stdcall;
  580. {$EXTERNALSYM DsGetDcNext}
  581. {$ENDIF}
  583. procedure DsGetDcCloseW(GetDcContextHandle: HANDLE); stdcall;
  584. {$EXTERNALSYM DsGetDcCloseW}
  585. procedure DsGetDcClose(GetDcContextHandle: HANDLE); stdcall;
  586. {$EXTERNALSYM DsGetDcClose}
  588. implementation
  590. const
  591.   netapi32 = 'netapi32.dll';
  594. {$IFDEF DYNAMIC_LINK}
  595. var
  596.   _DsGetDcNameA: Pointer;
  598. function DsGetDcNameA;
  599. begin
  600.   GetProcedureAddress(_DsGetDcNameA, netapi32, 'DsGetDcNameA');
  601.   asm
  602.     mov esp, ebp
  603.     pop ebp
  604.     jmp [_DsGetDcNameA]
  605.   end;
  606. end;
  607. {$ELSE}
  608. function DsGetDcNameA; external netapi32 name 'DsGetDcNameA';
  609. {$ENDIF DYNAMIC_LINK}
  611. {$IFDEF DYNAMIC_LINK}
  612. var
  613.   _DsGetDcNameW: Pointer;
  615. function DsGetDcNameW;
  616. begin
  617.   GetProcedureAddress(_DsGetDcNameW, netapi32, 'DsGetDcNameW');
  618.   asm
  619.     mov esp, ebp
  620.     pop ebp
  621.     jmp [_DsGetDcNameW]
  622.   end;
  623. end;
  624. {$ELSE}
  625. function DsGetDcNameW; external netapi32 name 'DsGetDcNameW';
  626. {$ENDIF DYNAMIC_LINK}
  627. {$IFDEF UNICODE}
  629. {$IFDEF DYNAMIC_LINK}
  630. var
  631.   _DsGetDcName: Pointer;
  633. function DsGetDcName;
  634. begin
  635.   GetProcedureAddress(_DsGetDcName, netapi32, 'DsGetDcNameW');
  636.   asm
  637.     mov esp, ebp
  638.     pop ebp
  639.     jmp [_DsGetDcName]
  640.   end;
  641. end;
  642. {$ELSE}
  643. function DsGetDcName; external netapi32 name 'DsGetDcNameW';
  644. {$ENDIF DYNAMIC_LINK}
  645. {$ELSE}
  647. {$IFDEF DYNAMIC_LINK}
  648. var
  649.   _DsGetDcName: Pointer;
  651. function DsGetDcName;
  652. begin
  653.   GetProcedureAddress(_DsGetDcName, netapi32, 'DsGetDcNameA');
  654.   asm
  655.     mov esp, ebp
  656.     pop ebp
  657.     jmp [_DsGetDcName]
  658.   end;
  659. end;
  660. {$ELSE}
  661. function DsGetDcName; external netapi32 name 'DsGetDcNameA';
  662. {$ENDIF DYNAMIC_LINK}
  663. {$ENDIF}
  665. {$IFDEF DYNAMIC_LINK}
  666. var
  667.   _DsGetSiteNameA: Pointer;
  669. function DsGetSiteNameA;
  670. begin
  671.   GetProcedureAddress(_DsGetSiteNameA, netapi32, 'DsGetSiteNameA');
  672.   asm
  673.     mov esp, ebp
  674.     pop ebp
  675.     jmp [_DsGetSiteNameA]
  676.   end;
  677. end;
  678. {$ELSE}
  679. function DsGetSiteNameA; external netapi32 name 'DsGetSiteNameA';
  680. {$ENDIF DYNAMIC_LINK}
  682. {$IFDEF DYNAMIC_LINK}
  683. var
  684.   _DsGetSiteNameW: Pointer;
  686. function DsGetSiteNameW;
  687. begin
  688.   GetProcedureAddress(_DsGetSiteNameW, netapi32, 'DsGetSiteNameW');
  689.   asm
  690.     mov esp, ebp
  691.     pop ebp
  692.     jmp [_DsGetSiteNameW]
  693.   end;
  694. end;
  695. {$ELSE}
  696. function DsGetSiteNameW; external netapi32 name 'DsGetSiteNameW';
  697. {$ENDIF DYNAMIC_LINK}
  698. {$IFDEF UNICODE}
  700. {$IFDEF DYNAMIC_LINK}
  701. var
  702.   _DsGetSiteName: Pointer;
  704. function DsGetSiteName;
  705. begin
  706.   GetProcedureAddress(_DsGetSiteName, netapi32, 'DsGetSiteNameW');
  707.   asm
  708.     mov esp, ebp
  709.     pop ebp
  710.     jmp [_DsGetSiteName]
  711.   end;
  712. end;
  713. {$ELSE}
  714. function DsGetSiteName; external netapi32 name 'DsGetSiteNameW';
  715. {$ENDIF DYNAMIC_LINK}
  716. {$ELSE}
  718. {$IFDEF DYNAMIC_LINK}
  719. var
  720.   _DsGetSiteName: Pointer;
  722. function DsGetSiteName;
  723. begin
  724.   GetProcedureAddress(_DsGetSiteName, netapi32, 'DsGetSiteNameA');
  725.   asm
  726.     mov esp, ebp
  727.     pop ebp
  728.     jmp [_DsGetSiteName]
  729.   end;
  730. end;
  731. {$ELSE}
  732. function DsGetSiteName; external netapi32 name 'DsGetSiteNameA';
  733. {$ENDIF DYNAMIC_LINK}
  734. {$ENDIF}
  736. {$IFDEF DYNAMIC_LINK}
  737. var
  738.   _DsValidateSubnetNameA: Pointer;
  740. function DsValidateSubnetNameA;
  741. begin
  742.   GetProcedureAddress(_DsValidateSubnetNameA, netapi32, 'DsValidateSubnetNameA');
  743.   asm
  744.     mov esp, ebp
  745.     pop ebp
  746.     jmp [_DsValidateSubnetNameA]
  747.   end;
  748. end;
  749. {$ELSE}
  750. function DsValidateSubnetNameA; external netapi32 name 'DsValidateSubnetNameA';
  751. {$ENDIF DYNAMIC_LINK}
  753. {$IFDEF DYNAMIC_LINK}
  754. var
  755.   _DsValidateSubnetNameW: Pointer;
  757. function DsValidateSubnetNameW;
  758. begin
  759.   GetProcedureAddress(_DsValidateSubnetNameW, netapi32, 'DsValidateSubnetNameW');
  760.   asm
  761.     mov esp, ebp
  762.     pop ebp
  763.     jmp [_DsValidateSubnetNameW]
  764.   end;
  765. end;
  766. {$ELSE}
  767. function DsValidateSubnetNameW; external netapi32 name 'DsValidateSubnetNameW';
  768. {$ENDIF DYNAMIC_LINK}
  769. {$IFDEF UNICODE}
  771. {$IFDEF DYNAMIC_LINK}
  772. var
  773.   _DsValidateSubnetName: Pointer;
  775. function DsValidateSubnetName;
  776. begin
  777.   GetProcedureAddress(_DsValidateSubnetName, netapi32, 'DsValidateSubnetNameW');
  778.   asm
  779.     mov esp, ebp
  780.     pop ebp
  781.     jmp [_DsValidateSubnetName]
  782.   end;
  783. end;
  784. {$ELSE}
  785. function DsValidateSubnetName; external netapi32 name 'DsValidateSubnetNameW';
  786. {$ENDIF DYNAMIC_LINK}
  787. {$ELSE}
  789. {$IFDEF DYNAMIC_LINK}
  790. var
  791.   _DsValidateSubnetName: Pointer;
  793. function DsValidateSubnetName;
  794. begin
  795.   GetProcedureAddress(_DsValidateSubnetName, netapi32, 'DsValidateSubnetNameA');
  796.   asm
  797.     mov esp, ebp
  798.     pop ebp
  799.     jmp [_DsValidateSubnetName]
  800.   end;
  801. end;
  802. {$ELSE}
  803. function DsValidateSubnetName; external netapi32 name 'DsValidateSubnetNameA';
  804. {$ENDIF DYNAMIC_LINK}
  805. {$ENDIF}
  807. {$IFDEF DYNAMIC_LINK}
  808. var
  809.   _DsAddressToSiteNamesA: Pointer;
  811. function DsAddressToSiteNamesA;
  812. begin
  813.   GetProcedureAddress(_DsAddressToSiteNamesA, netapi32, 'DsAddressToSiteNamesA');
  814.   asm
  815.     mov esp, ebp
  816.     pop ebp
  817.     jmp [_DsAddressToSiteNamesA]
  818.   end;
  819. end;
  820. {$ELSE}
  821. function DsAddressToSiteNamesA; external netapi32 name 'DsAddressToSiteNamesA';
  822. {$ENDIF DYNAMIC_LINK}
  824. {$IFDEF DYNAMIC_LINK}
  825. var
  826.   _DsAddressToSiteNamesW: Pointer;
  828. function DsAddressToSiteNamesW;
  829. begin
  830.   GetProcedureAddress(_DsAddressToSiteNamesW, netapi32, 'DsAddressToSiteNamesW');
  831.   asm
  832.     mov esp, ebp
  833.     pop ebp
  834.     jmp [_DsAddressToSiteNamesW]
  835.   end;
  836. end;
  837. {$ELSE}
  838. function DsAddressToSiteNamesW; external netapi32 name 'DsAddressToSiteNamesW';
  839. {$ENDIF DYNAMIC_LINK}
  840. {$IFDEF UNICODE}
  842. {$IFDEF DYNAMIC_LINK}
  843. var
  844.   _DsAddressToSiteNames: Pointer;
  846. function DsAddressToSiteNames;
  847. begin
  848.   GetProcedureAddress(_DsAddressToSiteNames, netapi32, 'DsAddressToSiteNamesW');
  849.   asm
  850.     mov esp, ebp
  851.     pop ebp
  852.     jmp [_DsAddressToSiteNames]
  853.   end;
  854. end;
  855. {$ELSE}
  856. function DsAddressToSiteNames; external netapi32 name 'DsAddressToSiteNamesW';
  857. {$ENDIF DYNAMIC_LINK}
  858. {$ELSE}
  860. {$IFDEF DYNAMIC_LINK}
  861. var
  862.   _DsAddressToSiteNames: Pointer;
  864. function DsAddressToSiteNames;
  865. begin
  866.   GetProcedureAddress(_DsAddressToSiteNames, netapi32, 'DsAddressToSiteNamesA');
  867.   asm
  868.     mov esp, ebp
  869.     pop ebp
  870.     jmp [_DsAddressToSiteNames]
  871.   end;
  872. end;
  873. {$ELSE}
  874. function DsAddressToSiteNames; external netapi32 name 'DsAddressToSiteNamesA';
  875. {$ENDIF DYNAMIC_LINK}
  876. {$ENDIF}
  878. {$IFDEF DYNAMIC_LINK}
  879. var
  880.   _DsAddressToSiteNamesExA: Pointer;
  882. function DsAddressToSiteNamesExA;
  883. begin
  884.   GetProcedureAddress(_DsAddressToSiteNamesExA, netapi32, 'DsAddressToSiteNamesExA');
  885.   asm
  886.     mov esp, ebp
  887.     pop ebp
  888.     jmp [_DsAddressToSiteNamesExA]
  889.   end;
  890. end;
  891. {$ELSE}
  892. function DsAddressToSiteNamesExA; external netapi32 name 'DsAddressToSiteNamesExA';
  893. {$ENDIF DYNAMIC_LINK}
  895. {$IFDEF DYNAMIC_LINK}
  896. var
  897.   _DsAddressToSiteNamesExW: Pointer;
  899. function DsAddressToSiteNamesExW;
  900. begin
  901.   GetProcedureAddress(_DsAddressToSiteNamesExW, netapi32, 'DsAddressToSiteNamesExW');
  902.   asm
  903.     mov esp, ebp
  904.     pop ebp
  905.     jmp [_DsAddressToSiteNamesExW]
  906.   end;
  907. end;
  908. {$ELSE}
  909. function DsAddressToSiteNamesExW; external netapi32 name 'DsAddressToSiteNamesExW';
  910. {$ENDIF DYNAMIC_LINK}
  911. {$IFDEF UNICODE}
  913. {$IFDEF DYNAMIC_LINK}
  914. var
  915.   _DsAddressToSiteNamesEx: Pointer;
  917. function DsAddressToSiteNamesEx;
  918. begin
  919.   GetProcedureAddress(_DsAddressToSiteNamesEx, netapi32, 'DsAddressToSiteNamesExW');
  920.   asm
  921.     mov esp, ebp
  922.     pop ebp
  923.     jmp [_DsAddressToSiteNamesEx]
  924.   end;
  925. end;
  926. {$ELSE}
  927. function DsAddressToSiteNamesEx; external netapi32 name 'DsAddressToSiteNamesExW';
  928. {$ENDIF DYNAMIC_LINK}
  929. {$ELSE}
  931. {$IFDEF DYNAMIC_LINK}
  932. var
  933.   _DsAddressToSiteNamesEx: Pointer;
  935. function DsAddressToSiteNamesEx;
  936. begin
  937.   GetProcedureAddress(_DsAddressToSiteNamesEx, netapi32, 'DsAddressToSiteNamesExA');
  938.   asm
  939.     mov esp, ebp
  940.     pop ebp
  941.     jmp [_DsAddressToSiteNamesEx]
  942.   end;
  943. end;
  944. {$ELSE}
  945. function DsAddressToSiteNamesEx; external netapi32 name 'DsAddressToSiteNamesExA';
  946. {$ENDIF DYNAMIC_LINK}
  947. {$ENDIF}
  949. {$IFDEF DYNAMIC_LINK}
  950. var
  951.   _DsEnumerateDomainTrustsA: Pointer;
  953. function DsEnumerateDomainTrustsA;
  954. begin
  955.   GetProcedureAddress(_DsEnumerateDomainTrustsA, netapi32, 'DsEnumerateDomainTrustsA');
  956.   asm
  957.     mov esp, ebp
  958.     pop ebp
  959.     jmp [_DsEnumerateDomainTrustsA]
  960.   end;
  961. end;
  962. {$ELSE}
  963. function DsEnumerateDomainTrustsA; external netapi32 name 'DsEnumerateDomainTrustsA';
  964. {$ENDIF DYNAMIC_LINK}
  966. {$IFDEF DYNAMIC_LINK}
  967. var
  968.   _DsEnumerateDomainTrustsW: Pointer;
  970. function DsEnumerateDomainTrustsW;
  971. begin
  972.   GetProcedureAddress(_DsEnumerateDomainTrustsW, netapi32, 'DsEnumerateDomainTrustsW');
  973.   asm
  974.     mov esp, ebp
  975.     pop ebp
  976.     jmp [_DsEnumerateDomainTrustsW]
  977.   end;
  978. end;
  979. {$ELSE}
  980. function DsEnumerateDomainTrustsW; external netapi32 name 'DsEnumerateDomainTrustsW';
  981. {$ENDIF DYNAMIC_LINK}
  982. {$IFDEF UNICODE}
  984. {$IFDEF DYNAMIC_LINK}
  985. var
  986.   _DsEnumerateDomainTrusts: Pointer;
  988. function DsEnumerateDomainTrusts;
  989. begin
  990.   GetProcedureAddress(_DsEnumerateDomainTrusts, netapi32, 'DsEnumerateDomainTrustsW');
  991.   asm
  992.     mov esp, ebp
  993.     pop ebp
  994.     jmp [_DsEnumerateDomainTrusts]
  995.   end;
  996. end;
  997. {$ELSE}
  998. function DsEnumerateDomainTrusts; external netapi32 name 'DsEnumerateDomainTrustsW';
  999. {$ENDIF DYNAMIC_LINK}
  1000. {$ELSE}
  1002. {$IFDEF DYNAMIC_LINK}
  1003. var
  1004.   _DsEnumerateDomainTrusts: Pointer;
  1006. function DsEnumerateDomainTrusts;
  1007. begin
  1008.   GetProcedureAddress(_DsEnumerateDomainTrusts, netapi32, 'DsEnumerateDomainTrustsA');
  1009.   asm
  1010.     mov esp, ebp
  1011.     pop ebp
  1012.     jmp [_DsEnumerateDomainTrusts]
  1013.   end;
  1014. end;
  1015. {$ELSE}
  1016. function DsEnumerateDomainTrusts; external netapi32 name 'DsEnumerateDomainTrustsA';
  1017. {$ENDIF DYNAMIC_LINK}
  1018. {$ENDIF}
  1020. {$IFDEF DYNAMIC_LINK}
  1021. var
  1022.   _DsGetForestTrustInformationW: Pointer;
  1024. function DsGetForestTrustInformationW;
  1025. begin
  1026.   GetProcedureAddress(_DsGetForestTrustInformationW, netapi32, 'DsGetForestTrustInformationW');
  1027.   asm
  1028.     mov esp, ebp
  1029.     pop ebp
  1030.     jmp [_DsGetForestTrustInformationW]
  1031.   end;
  1032. end;
  1033. {$ELSE}
  1034. function DsGetForestTrustInformationW; external netapi32 name 'DsGetForestTrustInformationW';
  1035. {$ENDIF DYNAMIC_LINK}
  1037. {$IFDEF DYNAMIC_LINK}
  1038. var
  1039.   _DsMergeForestTrustInformationW: Pointer;
  1041. function DsMergeForestTrustInformationW;
  1042. begin
  1043.   GetProcedureAddress(_DsMergeForestTrustInformationW, netapi32, 'DsMergeForestTrustInformationW');
  1044.   asm
  1045.     mov esp, ebp
  1046.     pop ebp
  1047.     jmp [_DsMergeForestTrustInformationW]
  1048.   end;
  1049. end;
  1050. {$ELSE}
  1051. function DsMergeForestTrustInformationW; external netapi32 name 'DsMergeForestTrustInformationW';
  1052. {$ENDIF DYNAMIC_LINK}
  1054. {$IFDEF DYNAMIC_LINK}
  1055. var
  1056.   _DsGetDcSiteCoverageA: Pointer;
  1058. function DsGetDcSiteCoverageA;
  1059. begin
  1060.   GetProcedureAddress(_DsGetDcSiteCoverageA, netapi32, 'DsGetDcSiteCoverageA');
  1061.   asm
  1062.     mov esp, ebp
  1063.     pop ebp
  1064.     jmp [_DsGetDcSiteCoverageA]
  1065.   end;
  1066. end;
  1067. {$ELSE}
  1068. function DsGetDcSiteCoverageA; external netapi32 name 'DsGetDcSiteCoverageA';
  1069. {$ENDIF DYNAMIC_LINK}
  1071. {$IFDEF DYNAMIC_LINK}
  1072. var
  1073.   _DsGetDcSiteCoverageW: Pointer;
  1075. function DsGetDcSiteCoverageW;
  1076. begin
  1077.   GetProcedureAddress(_DsGetDcSiteCoverageW, netapi32, 'DsGetDcSiteCoverageW');
  1078.   asm
  1079.     mov esp, ebp
  1080.     pop ebp
  1081.     jmp [_DsGetDcSiteCoverageW]
  1082.   end;
  1083. end;
  1084. {$ELSE}
  1085. function DsGetDcSiteCoverageW; external netapi32 name 'DsGetDcSiteCoverageW';
  1086. {$ENDIF DYNAMIC_LINK}
  1087. {$IFDEF UNICODE}
  1089. {$IFDEF DYNAMIC_LINK}
  1090. var
  1091.   _DsGetDcSiteCoverage: Pointer;
  1093. function DsGetDcSiteCoverage;
  1094. begin
  1095.   GetProcedureAddress(_DsGetDcSiteCoverage, netapi32, 'DsGetDcSiteCoverageW');
  1096.   asm
  1097.     mov esp, ebp
  1098.     pop ebp
  1099.     jmp [_DsGetDcSiteCoverage]
  1100.   end;
  1101. end;
  1102. {$ELSE}
  1103. function DsGetDcSiteCoverage; external netapi32 name 'DsGetDcSiteCoverageW';
  1104. {$ENDIF DYNAMIC_LINK}
  1105. {$ELSE}
  1107. {$IFDEF DYNAMIC_LINK}
  1108. var
  1109.   _DsGetDcSiteCoverage: Pointer;
  1111. function DsGetDcSiteCoverage;
  1112. begin
  1113.   GetProcedureAddress(_DsGetDcSiteCoverage, netapi32, 'DsGetDcSiteCoverageA');
  1114.   asm
  1115.     mov esp, ebp
  1116.     pop ebp
  1117.     jmp [_DsGetDcSiteCoverage]
  1118.   end;
  1119. end;
  1120. {$ELSE}
  1121. function DsGetDcSiteCoverage; external netapi32 name 'DsGetDcSiteCoverageA';
  1122. {$ENDIF DYNAMIC_LINK}
  1123. {$ENDIF}
  1125. {$IFDEF DYNAMIC_LINK}
  1126. var
  1127.   _DsDeregisterDnsHostRecordsA: Pointer;
  1129. function DsDeregisterDnsHostRecordsA;
  1130. begin
  1131.   GetProcedureAddress(_DsDeregisterDnsHostRecordsA, netapi32, 'DsDeregisterDnsHostRecordsA');
  1132.   asm
  1133.     mov esp, ebp
  1134.     pop ebp
  1135.     jmp [_DsDeregisterDnsHostRecordsA]
  1136.   end;
  1137. end;
  1138. {$ELSE}
  1139. function DsDeregisterDnsHostRecordsA; external netapi32 name 'DsDeregisterDnsHostRecordsA';
  1140. {$ENDIF DYNAMIC_LINK}
  1142. {$IFDEF DYNAMIC_LINK}
  1143. var
  1144.   _DsDeregisterDnsHostRecordsW: Pointer;
  1146. function DsDeregisterDnsHostRecordsW;
  1147. begin
  1148.   GetProcedureAddress(_DsDeregisterDnsHostRecordsW, netapi32, 'DsDeregisterDnsHostRecordsW');
  1149.   asm
  1150.     mov esp, ebp
  1151.     pop ebp
  1152.     jmp [_DsDeregisterDnsHostRecordsW]
  1153.   end;
  1154. end;
  1155. {$ELSE}
  1156. function DsDeregisterDnsHostRecordsW; external netapi32 name 'DsDeregisterDnsHostRecordsW';
  1157. {$ENDIF DYNAMIC_LINK}
  1158. {$IFDEF UNICODE}
  1160. {$IFDEF DYNAMIC_LINK}
  1161. var
  1162.   _DsDeregisterDnsHostRecords: Pointer;
  1164. function DsDeregisterDnsHostRecords;
  1165. begin
  1166.   GetProcedureAddress(_DsDeregisterDnsHostRecords, netapi32, 'DsDeregisterDnsHostRecordsW');
  1167.   asm
  1168.     mov esp, ebp
  1169.     pop ebp
  1170.     jmp [_DsDeregisterDnsHostRecords]
  1171.   end;
  1172. end;
  1173. {$ELSE}
  1174. function DsDeregisterDnsHostRecords; external netapi32 name 'DsDeregisterDnsHostRecordsW';
  1175. {$ENDIF DYNAMIC_LINK}
  1176. {$ELSE}
  1178. {$IFDEF DYNAMIC_LINK}
  1179. var
  1180.   _DsDeregisterDnsHostRecords: Pointer;
  1182. function DsDeregisterDnsHostRecords;
  1183. begin
  1184.   GetProcedureAddress(_DsDeregisterDnsHostRecords, netapi32, 'DsDeregisterDnsHostRecordsA');
  1185.   asm
  1186.     mov esp, ebp
  1187.     pop ebp
  1188.     jmp [_DsDeregisterDnsHostRecords]
  1189.   end;
  1190. end;
  1191. {$ELSE}
  1192. function DsDeregisterDnsHostRecords; external netapi32 name 'DsDeregisterDnsHostRecordsA';
  1193. {$ENDIF DYNAMIC_LINK}
  1194. {$ENDIF}
  1196. {$IFDEF DYNAMIC_LINK}
  1197. var
  1198.   _DsGetDcOpenW: Pointer;
  1200. function DsGetDcOpenW;
  1201. begin
  1202.   GetProcedureAddress(_DsGetDcOpenW, netapi32, 'DsGetDcOpenW');
  1203.   asm
  1204.     mov esp, ebp
  1205.     pop ebp
  1206.     jmp [_DsGetDcOpenW]
  1207.   end;
  1208. end;
  1209. {$ELSE}
  1210. function DsGetDcOpenW; external netapi32 name 'DsGetDcOpenW';
  1211. {$ENDIF DYNAMIC_LINK}
  1213. {$IFDEF DYNAMIC_LINK}
  1214. var
  1215.   _DsGetDcOpenA: Pointer;
  1217. function DsGetDcOpenA;
  1218. begin
  1219.   GetProcedureAddress(_DsGetDcOpenA, netapi32, 'DsGetDcOpenA');
  1220.   asm
  1221.     mov esp, ebp
  1222.     pop ebp
  1223.     jmp [_DsGetDcOpenA]
  1224.   end;
  1225. end;
  1226. {$ELSE}
  1227. function DsGetDcOpenA; external netapi32 name 'DsGetDcOpenA';
  1228. {$ENDIF DYNAMIC_LINK}
  1229. {$IFDEF UNICODE}
  1231. {$IFDEF DYNAMIC_LINK}
  1232. var
  1233.   _DsGetDcOpen: Pointer;
  1235. function DsGetDcOpen;
  1236. begin
  1237.   GetProcedureAddress(_DsGetDcOpen, netapi32, 'DsGetDcOpenW');
  1238.   asm
  1239.     mov esp, ebp
  1240.     pop ebp
  1241.     jmp [_DsGetDcOpen]
  1242.   end;
  1243. end;
  1244. {$ELSE}
  1245. function DsGetDcOpen; external netapi32 name 'DsGetDcOpenW';
  1246. {$ENDIF DYNAMIC_LINK}
  1247. {$ELSE}
  1249. {$IFDEF DYNAMIC_LINK}
  1250. var
  1251.   _DsGetDcOpen: Pointer;
  1253. function DsGetDcOpen;
  1254. begin
  1255.   GetProcedureAddress(_DsGetDcOpen, netapi32, 'DsGetDcOpenA');
  1256.   asm
  1257.     mov esp, ebp
  1258.     pop ebp
  1259.     jmp [_DsGetDcOpen]
  1260.   end;
  1261. end;
  1262. {$ELSE}
  1263. function DsGetDcOpen; external netapi32 name 'DsGetDcOpenA';
  1264. {$ENDIF DYNAMIC_LINK}
  1265. {$ENDIF}
  1267. {$IFDEF DYNAMIC_LINK}
  1268. var
  1269.   _DsGetDcNextW: Pointer;
  1271. function DsGetDcNextW;
  1272. begin
  1273.   GetProcedureAddress(_DsGetDcNextW, netapi32, 'DsGetDcNextW');
  1274.   asm
  1275.     mov esp, ebp
  1276.     pop ebp
  1277.     jmp [_DsGetDcNextW]
  1278.   end;
  1279. end;
  1280. {$ELSE}
  1281. function DsGetDcNextW; external netapi32 name 'DsGetDcNextW';
  1282. {$ENDIF DYNAMIC_LINK}
  1284. {$IFDEF DYNAMIC_LINK}
  1285. var
  1286.   _DsGetDcNextA: Pointer;
  1288. function DsGetDcNextA;
  1289. begin
  1290.   GetProcedureAddress(_DsGetDcNextA, netapi32, 'DsGetDcNextA');
  1291.   asm
  1292.     mov esp, ebp
  1293.     pop ebp
  1294.     jmp [_DsGetDcNextA]
  1295.   end;
  1296. end;
  1297. {$ELSE}
  1298. function DsGetDcNextA; external netapi32 name 'DsGetDcNextA';
  1299. {$ENDIF DYNAMIC_LINK}
  1300. {$IFDEF UNICODE}
  1302. {$IFDEF DYNAMIC_LINK}
  1303. var
  1304.   _DsGetDcNext: Pointer;
  1306. function DsGetDcNext;
  1307. begin
  1308.   GetProcedureAddress(_DsGetDcNext, netapi32, 'DsGetDcNextW');
  1309.   asm
  1310.     mov esp, ebp
  1311.     pop ebp
  1312.     jmp [_DsGetDcNext]
  1313.   end;
  1314. end;
  1315. {$ELSE}
  1316. function DsGetDcNext; external netapi32 name 'DsGetDcNextW';
  1317. {$ENDIF DYNAMIC_LINK}
  1318. {$ELSE}
  1320. {$IFDEF DYNAMIC_LINK}
  1321. var
  1322.   _DsGetDcNext: Pointer;
  1324. function DsGetDcNext;
  1325. begin
  1326.   GetProcedureAddress(_DsGetDcNext, netapi32, 'DsGetDcNextA');
  1327.   asm
  1328.     mov esp, ebp
  1329.     pop ebp
  1330.     jmp [_DsGetDcNext]
  1331.   end;
  1332. end;
  1333. {$ELSE}
  1334. function DsGetDcNext; external netapi32 name 'DsGetDcNextA';
  1335. {$ENDIF DYNAMIC_LINK}
  1336. {$ENDIF}
  1338. {$IFDEF DYNAMIC_LINK}
  1339. var
  1340.   _DsGetDcCloseW: Pointer;
  1342. procedure DsGetDcCloseW;
  1343. begin
  1344.   GetProcedureAddress(_DsGetDcCloseW, netapi32, 'DsGetDcCloseW');
  1345.   asm
  1346.     mov esp, ebp
  1347.     pop ebp
  1348.     jmp [_DsGetDcCloseW]
  1349.   end;
  1350. end;
  1351. {$ELSE}
  1352. procedure DsGetDcCloseW; external netapi32 name 'DsGetDcCloseW';
  1353. {$ENDIF DYNAMIC_LINK}
  1355. {$IFDEF DYNAMIC_LINK}
  1356. var
  1357.   _DsGetDcClose: Pointer;
  1359. procedure DsGetDcClose;
  1360. begin
  1361.   GetProcedureAddress(_DsGetDcClose, netapi32, 'DsGetDcClose');
  1362.   asm
  1363.     mov esp, ebp
  1364.     pop ebp
  1365.     jmp [_DsGetDcClose]
  1366.   end;
  1367. end;
  1368. {$ELSE}
  1369. procedure DsGetDcClose; external netapi32 name 'DsGetDcClose';
  1370. {$ENDIF DYNAMIC_LINK}
  1372. end.