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

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

Windows编程

开发平台：

Delphi

JwaActiveDS.pas：源码内容
  1. {******************************************************************************}
  2. {                                                                       }
  3. { Active 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: activeds.h, released June 2000. The original Pascal    }
  9. { code is: ActiveDS.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.gn.org/copyleft/lesser.html }
  41. {      u                }
  42. {******************************************************************************}
  44. unit JwaActiveDS;
  46. {$WEAKPACKAGEUNIT}
  48. {$HPPEMIT ''}
  49. {$HPPEMIT '#include "activeds.h"'}
  50. {$HPPEMIT ''}
  51. {$HPPEMIT 'typedef GUID REFIID'}
  52. {$HPPEMIT ''}
  54. {$I WINDEFINES.INC}
  56. interface
  58. uses
  59.   ActiveX {TODO}, JwaAdsTLB, JwaWinNT, JwaWinType, JwaWinUser;
  61. type
  62.   REFIID = GUID;
  63.   {$NODEFINE REFIID}
  65. type
  66.   // imports of a type library sometimes are missing a few decls, these are just
  67.   // a few of them to make this file compile at all. I really should do all of
  68.   // them one day.
  70.   PADSVALUE = ^_adsvalue;
  71.   {$EXTERNALSYM PADSVALUE}
  72.   PADS_ATTR_INFO = ^_ads_attr_info;
  73.   {$EXTERNALSYM PADS_ATTR_INFO}
  75. //  Contents:   Master include file for Ole Ds
  76. //
  77. //  Notes:      All Ole Ds client applications must include this file. This
  78. //              provides access to the primary Ole Ds interfaces, the error
  79. //              codes, and function prototypes for the Ole Ds helper apis.
  81. //
  82. // Interface definitions and well known GUIDS for Ole Ds
  83. //
  85. //#include "iads.h"  >> AdsTLB from activeds.dll
  87. //
  88. // Helper function prototypes for Ole Ds
  89. //
  91. //#include "adshlp.h"
  93. function ADsGetObject(lpszPathName: LPCWSTR; const riid: REFIID; out ppObject: Pointer): HRESULT; stdcall;
  94. {$EXTERNALSYM ADsGetObject}
  96. function ADsBuildEnumerator(pADsContainer: IADsContainer; out ppEnumVariant: IEnumVARIANT): HRESULT; stdcall;
  97. {$EXTERNALSYM ADsBuildEnumerator}
  99. function ADsFreeEnumerator(var pEnumVariant: IEnumVARIANT): HRESULT;
  100. {$EXTERNALSYM ADsFreeEnumerator}
  102. function ADsEnumerateNext(pEnumVariant: IEnumVARIANT; cElements: ULONG;
  103.   var pvar: OleVariant; var pcElementsFetched: ULONG): HRESULT; stdcall;
  104. {$EXTERNALSYM ADsEnumerateNext}
  106. function ADsBuildVarArrayStr(lppPathNames: LPWSTR; dwPathNames: DWORD;
  107.   var pVar: OleVariant): HRESULT; stdcall;
  108. {$EXTERNALSYM ADsBuildVarArrayStr}
  110. function ADsBuildVarArrayInt(lpdwObjectTypes: LPDWORD; dwObjectTypes: DWORD;
  111.   var pVar: OleVariant): HRESULT; stdcall;
  112. {$EXTERNALSYM ADsBuildVarArrayInt}
  114. function ADsOpenObject(lpszPathName, lpszUserName, lpszPassword: LPCWSTR;
  115.   dwReserved: DWORD; const riid: REFIID; out ppObject: Pointer): HRESULT; stdcall;
  116. {$EXTERNALSYM ADsOpenObject}
  118. //
  119. // Helper functions for extended error support
  120. //
  122. function ADsGetLastError(var lpError: DWORD; lpErrorBuf: LPWSTR;
  123.   dwErrorBufLen: DWORD; lpNameBuf: LPWSTR; dwNameBufLen: DWORD): HRESULT; stdcall;
  124. {$EXTERNALSYM ADsGetLastError}
  126. procedure ADsSetLastError(dwErr: DWORD; pszError, pszProvider: LPCWSTR); stdcall;
  127. {$EXTERNALSYM ADsSetLastError}
  129. //procedure ADsFreeAllErrorRecords; stdcall;
  130. //{$EXTERNALSYM ADsFreeAllErrorRecords}
  132. function AllocADsMem(cb: DWORD): LPVOID; stdcall;
  133. {$EXTERNALSYM AllocADsMem}
  135. function FreeADsMem(pMem: LPVOID): BOOL; stdcall;
  136. {$EXTERNALSYM FreeADsMem}
  138. function ReallocADsMem(pOldMem: LPVOID; cbOld, cbNew: DWORD): LPVOID; stdcall;
  139. {$EXTERNALSYM ReallocADsMem}
  141. function AllocADsStr(pStr: LPCWSTR): LPWSTR; stdcall;
  142. {$EXTERNALSYM AllocADsStr}
  144. function FreeADsStr(pStr: LPWSTR): BOOL; stdcall;
  145. {$EXTERNALSYM FreeADsStr}
  147. function ReallocADsStr(var ppStr: LPWSTR; pStr: LPWSTR): BOOL; stdcall;
  148. {$EXTERNALSYM ReallocADsStr}
  150. function ADsEncodeBinaryData(pbSrcData: PBYTE; dwSrcLen: DWORD;
  151.   var ppszDestData: LPWSTR): HRESULT; stdcall;
  152. {$EXTERNALSYM ADsEncodeBinaryData}
  154. function ADsDecodeBinaryData(szSrcData: LPCWSTR; var ppbDestData: PBYTE;
  155.   var pdwDestLen: ULONG): HRESULT; stdcall;
  156. {$EXTERNALSYM ADsDecodeBinaryData}
  158. function PropVariantToAdsType(var pVariant: OleVariant; dwNumVariant: DWORD;
  159.   var ppAdsValues: PADSVALUE; pdwNumValues: PDWORD): HRESULT; stdcall;
  160. {$EXTERNALSYM PropVariantToAdsType}
  162. function AdsTypeToPropVariant(pAdsValues: PADSVALUE; dwNumValues: DWORD;
  163.   var pVariant: OleVariant): HRESULT; stdcall;
  164. {$EXTERNALSYM AdsTypeToPropVariant}
  166. procedure AdsFreeAdsValues(pAdsValues: PADSVALUE; dwNumValues: DWORD); stdcall;
  167. {$EXTERNALSYM AdsFreeAdsValues}
  169. //
  170. // Error codes for Ole Ds - generated from ....errmsg
  171. //
  173. //#include "adserr.h"
  175. // ---------------------- HRESULT value definitions -----------------
  176. //
  177. // HRESULT definitions
  178. //
  180. //
  181. //  Values are 32 bit values layed out as follows:
  182. //
  183. //   3 3 2 2 2 2 2 2 2 2 2 2 1 1 1 1 1 1 1 1 1 1
  184. //   1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0
  185. //  +---+-+-+-----------------------+-------------------------------+
  186. //  |Sev|C|R|     Facility          |               Code            |
  187. //  +---+-+-+-----------------------+-------------------------------+
  188. //
  189. //  where
  190. //
  191. //      Sev - is the severity code
  192. //
  193. //          00 - Success
  194. //          01 - Informational
  195. //          10 - Warning
  196. //          11 - Error
  197. //
  198. //      C - is the Customer code flag
  199. //
  200. //      R - is a reserved bit
  201. //
  202. //      Facility - is the facility code
  203. //
  204. //      Code - is the facility's status code
  205. //
  206. //
  207. // Define the facility codes
  208. //
  210. const
  211.   FACILITY_WINDOWS  = 8;
  212.   {$EXTERNALSYM FACILITY_WINDOWS}
  213.   FACILITY_STORAGE  = 3;
  214.   {$EXTERNALSYM FACILITY_STORAGE}
  215.   FACILITY_RPC      = 1;
  216.   {$EXTERNALSYM FACILITY_RPC}
  217.   FACILITY_SSPI     = 9;
  218.   {$EXTERNALSYM FACILITY_SSPI}
  219.   FACILITY_WIN32    = 7;
  220.   {$EXTERNALSYM FACILITY_WIN32}
  221.   FACILITY_CONTROL  = 10;
  222.   {$EXTERNALSYM FACILITY_CONTROL}
  223.   FACILITY_NULL     = 0;
  224.   {$EXTERNALSYM FACILITY_NULL}
  225.   FACILITY_ITF      = 4;
  226.   {$EXTERNALSYM FACILITY_ITF}
  227.   FACILITY_DISPATCH = 2;
  228.   {$EXTERNALSYM FACILITY_DISPATCH}
  230. //
  231. // Define the severity codes
  232. //
  235. //
  236. // MessageId: E_ADS_BAD_PATHNAME
  237. //
  238. // MessageText:
  239. //
  240. //  An invalid Active Directory pathname was passed
  241. //
  243.   E_ADS_BAD_PATHNAME               = HRESULT($80005000);
  244.   {$EXTERNALSYM E_ADS_BAD_PATHNAME}
  246. //
  247. // MessageId: E_ADS_INVALID_DOMAIN_OBJECT
  248. //
  249. // MessageText:
  250. //
  251. //  An unknown Active Directory domain object was requested
  252. //
  254.   E_ADS_INVALID_DOMAIN_OBJECT      = HRESULT($80005001);
  255.   {$EXTERNALSYM  E_ADS_INVALID_DOMAIN_OBJECT}
  257. //
  258. // MessageId: E_ADS_INVALID_USER_OBJECT
  259. //
  260. // MessageText:
  261. //
  262. //  An unknown Active Directory user object was requested
  263. //
  265.   E_ADS_INVALID_USER_OBJECT        = HRESULT($80005002);
  266.   {$EXTERNALSYM E_ADS_INVALID_USER_OBJECT}
  268. //
  269. // MessageId: E_ADS_INVALID_COMPUTER_OBJECT
  270. //
  271. // MessageText:
  272. //
  273. //  An unknown Active Directory computer object was requested
  274. //
  276.   E_ADS_INVALID_COMPUTER_OBJECT    = HRESULT($80005003);
  277.   {$EXTERNALSYM E_ADS_INVALID_COMPUTER_OBJECT}
  279. //
  280. // MessageId: E_ADS_UNKNOWN_OBJECT
  281. //
  282. // MessageText:
  283. //
  284. //  An unknown Active Directory object was requested
  285. //
  287.   E_ADS_UNKNOWN_OBJECT             = HRESULT($80005004);
  288.   {$EXTERNALSYM E_ADS_UNKNOWN_OBJECT}
  290. //
  291. // MessageId: E_ADS_PROPERTY_NOT_SET
  292. //
  293. // MessageText:
  294. //
  295. //  The specified Active Directory property was not set
  296. //
  298.   E_ADS_PROPERTY_NOT_SET           = HRESULT($80005005);
  299.   {$EXTERNALSYM E_ADS_PROPERTY_NOT_SET}
  301. //
  302. // MessageId: E_ADS_PROPERTY_NOT_SUPPORTED
  303. //
  304. // MessageText:
  305. //
  306. //  The specified Active Directory property is not supported
  307. //
  309.   E_ADS_PROPERTY_NOT_SUPPORTED     = HRESULT($80005006);
  310.   {$EXTERNALSYM E_ADS_PROPERTY_NOT_SUPPORTED}
  312. //
  313. // MessageId: E_ADS_PROPERTY_INVALID
  314. //
  315. // MessageText:
  316. //
  317. //  The specified Active Directory property is invalid
  318. //
  320.   E_ADS_PROPERTY_INVALID           = HRESULT($80005007);
  321.   {$EXTERNALSYM E_ADS_PROPERTY_INVALID}
  323. //
  324. // MessageId: E_ADS_BAD_PARAMETER
  325. //
  326. // MessageText:
  327. //
  328. //  One or more input parameters are invalid
  329. //
  331.   E_ADS_BAD_PARAMETER              = HRESULT($80005008);
  332.   {$EXTERNALSYM E_ADS_BAD_PARAMETER}
  334. //
  335. // MessageId: E_ADS_OBJECT_UNBOUND
  336. //
  337. // MessageText:
  338. //
  339. //  The specified Active Directory object is not bound to a remote resource
  340. //
  342.   E_ADS_OBJECT_UNBOUND             = HRESULT($80005009);
  343.   {$EXTERNALSYM E_ADS_OBJECT_UNBOUND}
  345. //
  346. // MessageId: E_ADS_PROPERTY_NOT_MODIFIED
  347. //
  348. // MessageText:
  349. //
  350. //  The specified Active Directory object has not been modified
  351. //
  353.   E_ADS_PROPERTY_NOT_MODIFIED      = HRESULT($8000500A);
  354.   {$EXTERNALSYM E_ADS_PROPERTY_NOT_MODIFIED}
  356. //
  357. // MessageId: E_ADS_PROPERTY_MODIFIED
  358. //
  359. // MessageText:
  360. //
  361. //  The specified Active Directory object has not been modified
  362. //
  364.   E_ADS_PROPERTY_MODIFIED          = HRESULT($8000500B);
  365.   {$EXTERNALSYM E_ADS_PROPERTY_MODIFIED}
  367. //
  368. // MessageId: E_ADS_CANT_CONVERT_DATATYPE
  369. //
  370. // MessageText:
  371. //
  372. //  The Active Directory datatype cannot be converted to/from a native DS datatype
  373. //
  375.   E_ADS_CANT_CONVERT_DATATYPE      = HRESULT($8000500C);
  376.   {$EXTERNALSYM E_ADS_CANT_CONVERT_DATATYPE}
  378. //
  379. // MessageId: E_ADS_PROPERTY_NOT_FOUND
  380. //
  381. // MessageText:
  382. //
  383. //  The Active Directory property cannot be found in the cache.
  384. //
  386.   E_ADS_PROPERTY_NOT_FOUND         = HRESULT($8000500D);
  387.   {$EXTERNALSYM E_ADS_PROPERTY_NOT_FOUND}
  389. //
  390. // MessageId: E_ADS_OBJECT_EXISTS
  391. //
  392. // MessageText:
  393. //
  394. //  The Active Directory object exists.
  395. //
  397.   E_ADS_OBJECT_EXISTS              = HRESULT($8000500E);
  398.   {$EXTERNALSYM E_ADS_OBJECT_EXISTS}
  400. //
  401. // MessageId: E_ADS_SCHEMA_VIOLATION
  402. //
  403. // MessageText:
  404. //
  405. //  The attempted action violates the DS schema rules.
  406. //
  408.   E_ADS_SCHEMA_VIOLATION           = HRESULT($8000500F);
  409.   {$EXTERNALSYM E_ADS_SCHEMA_VIOLATION}
  411. //
  412. // MessageId: E_ADS_COLUMN_NOT_SET
  413. //
  414. // MessageText:
  415. //
  416. //  The specified column in the Active Directory was not set.
  417. //
  419.   E_ADS_COLUMN_NOT_SET             = HRESULT($80005010);
  420.   {$EXTERNALSYM E_ADS_COLUMN_NOT_SET}
  422. //
  423. // MessageId: S_ADS_ERRORSOCCURRED
  424. //
  425. // MessageText:
  426. //
  427. //  One or more errors occurred
  428. //
  430.   S_ADS_ERRORSOCCURRED             = HRESULT($00005011);
  431.   {$EXTERNALSYM S_ADS_ERRORSOCCURRED}
  433. //
  434. // MessageId: S_ADS_NOMORE_ROWS
  435. //
  436. // MessageText:
  437. //
  438. //  No more rows to be obatained by the search result.
  439. //
  441.   S_ADS_NOMORE_ROWS                = HRESULT($00005012);
  442.   {$EXTERNALSYM S_ADS_NOMORE_ROWS}
  444. //
  445. // MessageId: S_ADS_NOMORE_COLUMNS
  446. //
  447. // MessageText:
  448. //
  449. //  No more columns to be obatained for the current row.
  450. //
  452.   S_ADS_NOMORE_COLUMNS             = HRESULT($00005013);
  453.   {$EXTERNALSYM S_ADS_NOMORE_COLUMNS}
  455. //
  456. // MessageId: E_ADS_INVALID_FILTER
  457. //
  458. // MessageText:
  459. //
  460. //  The search filter specified is invalid
  461. //
  463.   E_ADS_INVALID_FILTER             = HRESULT($80005014);
  464.   {$EXTERNALSYM E_ADS_INVALID_FILTER}
  466. //
  467. // Globally accessible GUIDS
  468. //
  470. //#include "adsiid.h" -> adstlb from activeds.dll
  472. //
  473. // Status codes for ads objects
  474. //
  476. //#include "adssts.h"
  478. const
  479.   ADS_PRINTER_PAUSED            = $00000001;
  480.   {$EXTERNALSYM ADS_PRINTER_PAUSED}
  481.   ADS_PRINTER_PENDING_DELETION  = $00000002;
  482.   {$EXTERNALSYM ADS_PRINTER_PENDING_DELETION}
  483.   ADS_PRINTER_ERROR             = $00000003;
  484.   {$EXTERNALSYM ADS_PRINTER_ERROR}
  485.   ADS_PRINTER_PAPER_JAM         = $00000004;
  486.   {$EXTERNALSYM ADS_PRINTER_PAPER_JAM}
  487.   ADS_PRINTER_PAPER_OUT         = $00000005;
  488.   {$EXTERNALSYM ADS_PRINTER_PAPER_OUT}
  489.   ADS_PRINTER_MANUAL_FEED       = $00000006;
  490.   {$EXTERNALSYM ADS_PRINTER_MANUAL_FEED}
  491.   ADS_PRINTER_PAPER_PROBLEM     = $00000007;
  492.   {$EXTERNALSYM ADS_PRINTER_PAPER_PROBLEM}
  493.   ADS_PRINTER_OFFLINE           = $00000008;
  494.   {$EXTERNALSYM ADS_PRINTER_OFFLINE}
  495.   ADS_PRINTER_IO_ACTIVE         = $00000100;
  496.   {$EXTERNALSYM ADS_PRINTER_IO_ACTIVE}
  497.   ADS_PRINTER_BUSY              = $00000200;
  498.   {$EXTERNALSYM ADS_PRINTER_BUSY}
  499.   ADS_PRINTER_PRINTING          = $00000400;
  500.   {$EXTERNALSYM ADS_PRINTER_PRINTING}
  501.   ADS_PRINTER_OUTPUT_BIN_FULL   = $00000800;
  502.   {$EXTERNALSYM ADS_PRINTER_OUTPUT_BIN_FULL}
  503.   ADS_PRINTER_NOT_AVAILABLE     = $00001000;
  504.   {$EXTERNALSYM ADS_PRINTER_NOT_AVAILABLE}
  505.   ADS_PRINTER_WAITING           = $00002000;
  506.   {$EXTERNALSYM ADS_PRINTER_WAITING}
  507.   ADS_PRINTER_PROCESSING        = $00004000;
  508.   {$EXTERNALSYM ADS_PRINTER_PROCESSING}
  509.   ADS_PRINTER_INITIALIZING      = $00008000;
  510.   {$EXTERNALSYM ADS_PRINTER_INITIALIZING}
  511.   ADS_PRINTER_WARMING_UP        = $00010000;
  512.   {$EXTERNALSYM ADS_PRINTER_WARMING_UP}
  513.   ADS_PRINTER_TONER_LOW         = $00020000;
  514.   {$EXTERNALSYM ADS_PRINTER_TONER_LOW}
  515.   ADS_PRINTER_NO_TONER          = $00040000;
  516.   {$EXTERNALSYM ADS_PRINTER_NO_TONER}
  517.   ADS_PRINTER_PAGE_PUNT         = $00080000;
  518.   {$EXTERNALSYM ADS_PRINTER_PAGE_PUNT}
  519.   ADS_PRINTER_USER_INTERVENTION = $00100000;
  520.   {$EXTERNALSYM ADS_PRINTER_USER_INTERVENTION}
  521.   ADS_PRINTER_OUT_OF_MEMORY     = $00200000;
  522.   {$EXTERNALSYM ADS_PRINTER_OUT_OF_MEMORY}
  523.   ADS_PRINTER_DOOR_OPEN         = $00400000;
  524.   {$EXTERNALSYM ADS_PRINTER_DOOR_OPEN}
  525.   ADS_PRINTER_SERVER_UNKNOWN    = $00800000;
  526.   {$EXTERNALSYM ADS_PRINTER_SERVER_UNKNOWN}
  527.   ADS_PRINTER_POWER_SAVE        = $01000000;
  528.   {$EXTERNALSYM ADS_PRINTER_POWER_SAVE}
  530. //
  531. // job status values
  532. //
  534.   ADS_JOB_PAUSED   = $00000001;
  535.   {$EXTERNALSYM ADS_JOB_PAUSED}
  536.   ADS_JOB_ERROR    = $00000002;
  537.   {$EXTERNALSYM ADS_JOB_ERROR}
  538.   ADS_JOB_DELETING = $00000004;
  539.   {$EXTERNALSYM ADS_JOB_DELETING}
  540.   ADS_JOB_SPOOLING = $00000008;
  541.   {$EXTERNALSYM ADS_JOB_SPOOLING}
  542.   ADS_JOB_PRINTING = $00000010;
  543.   {$EXTERNALSYM ADS_JOB_PRINTING}
  544.   ADS_JOB_OFFLINE  = $00000020;
  545.   {$EXTERNALSYM ADS_JOB_OFFLINE}
  546.   ADS_JOB_PAPEROUT = $00000040;
  547.   {$EXTERNALSYM ADS_JOB_PAPEROUT}
  548.   ADS_JOB_PRINTED  = $00000080;
  549.   {$EXTERNALSYM ADS_JOB_PRINTED}
  550.   ADS_JOB_DELETED  = $00000100;
  551.   {$EXTERNALSYM ADS_JOB_DELETED}
  553. //
  554. // service status values
  555. //
  557.   ADS_SERVICE_STOPPED          = $00000001;
  558.   {$EXTERNALSYM ADS_SERVICE_STOPPED}
  559.   ADS_SERVICE_START_PENDING    = $00000002;
  560.   {$EXTERNALSYM ADS_SERVICE_START_PENDING }
  561.   ADS_SERVICE_STOP_PENDING     = $00000003;
  562.   {$EXTERNALSYM ADS_SERVICE_STOP_PENDING}
  563.   ADS_SERVICE_RUNNING          = $00000004;
  564.   {$EXTERNALSYM ADS_SERVICE_RUNNING }
  565.   ADS_SERVICE_CONTINUE_PENDING = $00000005;
  566.   {$EXTERNALSYM ADS_SERVICE_CONTINUE_PENDING}
  567.   ADS_SERVICE_PAUSE_PENDING    = $00000006;
  568.   {$EXTERNALSYM ADS_SERVICE_PAUSE_PENDING }
  569.   ADS_SERVICE_PAUSED           = $00000007;
  570.   {$EXTERNALSYM ADS_SERVICE_PAUSED}
  571.   ADS_SERVICE_ERROR            = $00000008;
  572.   {$EXTERNALSYM ADS_SERVICE_ERROR}
  574. //---------------------------------------------------------------------
  576. //
  577. // Service Type Valid Values
  578. //
  580.   ADS_SERVICE_OWN_PROCESS        = $00000010;
  581.   {$EXTERNALSYM ADS_SERVICE_OWN_PROCESS}
  582.   ADS_SERVICE_SHARE_PROCESS      = $00000020;
  583.   {$EXTERNALSYM ADS_SERVICE_SHARE_PROCESS}
  584.   ADS_SERVICE_KERNEL_DRIVER      = $00000001;
  585.   {$EXTERNALSYM ADS_SERVICE_KERNEL_DRIVER}
  586.   ADS_SERVICE_FILE_SYSTEM_DRIVER = $00000002;
  587.   {$EXTERNALSYM ADS_SERVICE_FILE_SYSTEM_DRIVER}
  589. //
  590. // Start Type Valid Values
  591. //
  593.   ADS_SERVICE_BOOT_START   = SERVICE_BOOT_START;
  594.   {$EXTERNALSYM ADS_SERVICE_BOOT_START}
  595.   ADS_SERVICE_SYSTEM_START = SERVICE_SYSTEM_START;
  596.   {$EXTERNALSYM ADS_SERVICE_SYSTEM_START}
  597.   ADS_SERVICE_AUTO_START   = SERVICE_AUTO_START;
  598.   {$EXTERNALSYM ADS_SERVICE_AUTO_START}
  599.   ADS_SERVICE_DEMAND_START = SERVICE_DEMAND_START;
  600.   {$EXTERNALSYM ADS_SERVICE_DEMAND_START}
  601.   ADS_SERVICE_DISABLED     = SERVICE_DISABLED;
  602.   {$EXTERNALSYM ADS_SERVICE_DISABLED}
  604. //
  605. // Error Control Values
  606. //
  608.   ADS_SERVICE_ERROR_IGNORE   = 0;
  609.   {$EXTERNALSYM ADS_SERVICE_ERROR_IGNORE}
  610.   ADS_SERVICE_ERROR_NORMAL   = 1;
  611.   {$EXTERNALSYM ADS_SERVICE_ERROR_NORMAL}
  612.   ADS_SERVICE_ERROR_SEVERE   = 2;
  613.   {$EXTERNALSYM ADS_SERVICE_ERROR_SEVERE}
  614.   ADS_SERVICE_ERROR_CRITICAL = 3;
  615.   {$EXTERNALSYM ADS_SERVICE_ERROR_CRITICAL}
  617. //
  618. // Schema class names and other schema related definitions
  619. //
  621. //#include "adsnms.h"
  623. const
  624.   NAMESPACE_CLASS_NAME        = 'Namespace';
  625.   {$EXTERNALSYM NAMESPACE_CLASS_NAME}
  626.   COUNTRY_CLASS_NAME          = 'Country';
  627.   {$EXTERNALSYM COUNTRY_CLASS_NAME}
  628.   LOCALITY_CLASS_NAME         = 'Locality';
  629.   {$EXTERNALSYM LOCALITY_CLASS_NAME}
  630.   ORGANIZATION_CLASS_NAME     = 'Organization';
  631.   {$EXTERNALSYM ORGANIZATION_CLASS_NAME}
  632.   ORGANIZATIONUNIT_CLASS_NAME = 'Organizational Unit';
  633.   {$EXTERNALSYM ORGANIZATIONUNIT_CLASS_NAME}
  634.   DOMAIN_CLASS_NAME           = 'Domain';
  635.   {$EXTERNALSYM DOMAIN_CLASS_NAME}
  636.   COMPUTER_CLASS_NAME         = 'Computer';
  637.   {$EXTERNALSYM COMPUTER_CLASS_NAME}
  638.   USER_CLASS_NAME             = 'User';
  639.   {$EXTERNALSYM USER_CLASS_NAME}
  640.   GROUP_CLASS_NAME            = 'Group';
  641.   {$EXTERNALSYM GROUP_CLASS_NAME}
  642.   GLOBALGROUP_CLASS_NAME      = 'GlobalGroup';
  643.   {$EXTERNALSYM GLOBALGROUP_CLASS_NAME}
  644.   LOCALGROUP_CLASS_NAME       = 'LocalGroup';
  645.   {$EXTERNALSYM LOCALGROUP_CLASS_NAME}
  646.   SERVICE_CLASS_NAME          = 'Service';
  647.   {$EXTERNALSYM SERVICE_CLASS_NAME}
  648.   FILESERVICE_CLASS_NAME      = 'FileService';
  649.   {$EXTERNALSYM FILESERVICE_CLASS_NAME}
  650.   SESSION_CLASS_NAME          = 'Session';
  651.   {$EXTERNALSYM SESSION_CLASS_NAME}
  652.   RESOURCE_CLASS_NAME         = 'Resource';
  653.   {$EXTERNALSYM RESOURCE_CLASS_NAME}
  654.   FILESHARE_CLASS_NAME        = 'FileShare';
  655.   {$EXTERNALSYM FILESHARE_CLASS_NAME}
  656.   PRINTER_CLASS_NAME          = 'PrintQueue';
  657.   {$EXTERNALSYM PRINTER_CLASS_NAME}
  658.   PRINTJOB_CLASS_NAME         = 'PrintJob';
  659.   {$EXTERNALSYM PRINTJOB_CLASS_NAME}
  660.   SCHEMA_CLASS_NAME           = 'Schema';
  661.   {$EXTERNALSYM SCHEMA_CLASS_NAME}
  662.   CLASS_CLASS_NAME            = 'Class';
  663.   {$EXTERNALSYM CLASS_CLASS_NAME}
  664.   PROPERTY_CLASS_NAME         = 'Property';
  665.   {$EXTERNALSYM PROPERTY_CLASS_NAME}
  666.   SYNTAX_CLASS_NAME           = 'Syntax';
  667.   {$EXTERNALSYM SYNTAX_CLASS_NAME}
  668.   ROOTDSE_CLASS_NAME          = 'RootDSE';
  669.   {$EXTERNALSYM ROOTDSE_CLASS_NAME}
  671.   NO_SCHEMA                    = '';
  672.   {$EXTERNALSYM NO_SCHEMA}
  673.   DOMAIN_SCHEMA_NAME           = 'Domain';
  674.   {$EXTERNALSYM DOMAIN_SCHEMA_NAME}
  675.   COMPUTER_SCHEMA_NAME         = 'Computer';
  676.   {$EXTERNALSYM COMPUTER_SCHEMA_NAME}
  677.   USER_SCHEMA_NAME             = 'User';
  678.   {$EXTERNALSYM USER_SCHEMA_NAME}
  679.   GROUP_SCHEMA_NAME            = 'Group';
  680.   {$EXTERNALSYM GROUP_SCHEMA_NAME}
  681.   GLOBALGROUP_SCHEMA_NAME      = 'GlobalGroup';
  682.   {$EXTERNALSYM GLOBALGROUP_SCHEMA_NAME}
  683.   LOCALGROUP_SCHEMA_NAME       = 'LocalGroup';
  684.   {$EXTERNALSYM LOCALGROUP_SCHEMA_NAME}
  685.   SERVICE_SCHEMA_NAME          = 'Service';
  686.   {$EXTERNALSYM SERVICE_SCHEMA_NAME}
  687.   PRINTER_SCHEMA_NAME          = 'PrintQueue';
  688.   {$EXTERNALSYM PRINTER_SCHEMA_NAME}
  689.   PRINTJOB_SCHEMA_NAME         = 'PrintJob';
  690.   {$EXTERNALSYM PRINTJOB_SCHEMA_NAME}
  691.   FILESERVICE_SCHEMA_NAME      = 'FileService';
  692.   {$EXTERNALSYM FILESERVICE_SCHEMA_NAME}
  693.   SESSION_SCHEMA_NAME          = 'Session';
  694.   {$EXTERNALSYM SESSION_SCHEMA_NAME}
  695.   RESOURCE_SCHEMA_NAME         = 'Resource';
  696.   {$EXTERNALSYM RESOURCE_SCHEMA_NAME}
  697.   FILESHARE_SCHEMA_NAME        = 'FileShare';
  698.   {$EXTERNALSYM FILESHARE_SCHEMA_NAME}
  699.   FPNW_FILESERVICE_SCHEMA_NAME = 'FPNWFileService';
  700.   {$EXTERNALSYM FPNW_FILESERVICE_SCHEMA_NAME}
  701.   FPNW_SESSION_SCHEMA_NAME     = 'FPNWSession';
  702.   {$EXTERNALSYM FPNW_SESSION_SCHEMA_NAME}
  703.   FPNW_RESOURCE_SCHEMA_NAME    = 'FPNWResource';
  704.   {$EXTERNALSYM FPNW_RESOURCE_SCHEMA_NAME}
  705.   FPNW_FILESHARE_SCHEMA_NAME   = 'FPNWFileShare';
  706.   {$EXTERNALSYM FPNW_FILESHARE_SCHEMA_NAME}
  708. //
  709. // Definitions in the OLE DB provider for ADSI
  710. //
  712. //#include "adsdb.h"
  714. //
  715. // printer status values
  716. //
  718. // Most of the constants have been moved into an enum in adstype.h and
  719. // are available publicly in iads.h. This file has been left here so that
  720. // old references to adsdb.h do not break compiles.
  722. const
  723.   DBPROPFLAGS_ADSISEARCH        = $0000C000;
  724.   {$EXTERNALSYM DBPROPFLAGS_ADSISEARCH}
  726. //#include "adsprop.h"
  728. //  Windows NT Active Directory Service Property Pages
  729. //
  730. //  Contents:   Functions and definitions used in the creation of AD property
  731. //              sheets.
  733. const
  734.   WM_ADSPROP_NOTIFY_PAGEINIT   = (WM_USER + 1101); // where LPARAM is the PADSPROPINITPARAMS pointer.
  735.   {$EXTERNALSYM WM_ADSPROP_NOTIFY_PAGEINIT}
  736.   WM_ADSPROP_NOTIFY_PAGEHWND   = (WM_USER + 1102); // where WPARAM => page's HWND
  737.   {$EXTERNALSYM WM_ADSPROP_NOTIFY_PAGEHWND}
  738.   WM_ADSPROP_NOTIFY_CHANGE     = (WM_USER + 1103); // used to send a change notification to a parent sheet
  739.   {$EXTERNALSYM WM_ADSPROP_NOTIFY_CHANGE}
  740.   WM_ADSPROP_NOTIFY_APPLY      = (WM_USER + 1104); // pages send this to the notification object.
  741.   {$EXTERNALSYM WM_ADSPROP_NOTIFY_APPLY}
  742.   WM_ADSPROP_NOTIFY_SETFOCUS   = (WM_USER + 1105); // used internally by the notification object.
  743.   {$EXTERNALSYM WM_ADSPROP_NOTIFY_SETFOCUS}
  744.   WM_ADSPROP_NOTIFY_FOREGROUND = (WM_USER + 1106); // used internally by the notification object.
  745.   {$EXTERNALSYM WM_ADSPROP_NOTIFY_FOREGROUND}
  746.   WM_ADSPROP_NOTIFY_EXIT       = (WM_USER + 1107); // sent on page release
  747.   {$EXTERNALSYM WM_ADSPROP_NOTIFY_EXIT}
  749. //+----------------------------------------------------------------------------
  750. //
  751. //  Structure:  ADSPROPINITPARAMS
  752. //
  753. //  Usage:      Used to pass page initialization information to new pages from
  754. //              the notify object.
  755. //
  756. //-----------------------------------------------------------------------------
  758. type
  759.   PADSPROPINITPARAMS = ^ADSPROPINITPARAMS;
  760.   {$EXTERNALSYM PADSPROPINITPARAMS}
  761.   _ADSPROPINITPARAMS = record
  762.     dwSize: DWORD;            // Set this to the size of the struct.
  763.     dwFlags: DWORD;           // Reserved for future use.
  764.     hr: HRESULT;              // If this is non-zero, then the others
  765.     pDsObj: IDirectoryObject; // should be ignored.
  766.     pwzCN: LPWSTR;
  767.     pWritableAttrs: PADS_ATTR_INFO;
  768.   end;
  769.   {$EXTERNALSYM _ADSPROPINITPARAMS}
  770.   ADSPROPINITPARAMS = _ADSPROPINITPARAMS;
  771.   {$EXTERNALSYM ADSPROPINITPARAMS}
  772.   TAdsPropInitParams = ADSPROPINITPARAMS;
  774. //+----------------------------------------------------------------------------
  775. //
  776. //  Function:   ADsPropCreateNotifyObj
  777. //
  778. //  Synopsis:   Checks to see if the notification window/object exists for this
  779. //              sheet instance and if not creates it.
  780. //
  781. //  Arguments:  [pAppThdDataObj] - the unmarshalled data object pointer.
  782. //              [pwzADsObjName]  - object path name.
  783. //              [phNotifyObj]    - to return the notificion window handle.
  784. //
  785. //  Returns:    HRESULTs.
  786. //
  787. //-----------------------------------------------------------------------------
  789. function ADsPropCreateNotifyObj(pAppThdDataObj: Pointer; {LPDATAOBJECT}
  790.   pwzADsObjName: PWSTR; var phNotifyObj: HWND): HRESULT; stdcall;
  791. {$EXTERNALSYM ADsPropCreateNotifyObj}
  793. //+----------------------------------------------------------------------------
  794. //
  795. //  Function:   ADsPropGetInitInfo
  796. //
  797. //  Synopsis:   Pages call this at their init time to retreive DS object info.
  798. //
  799. //  Arguments:  [hNotifyObj]  - the notificion window handle.
  800. //              [pInitParams] - struct filled in with DS object info. This
  801. //                              struct must be allocated by the caller before
  802. //                              the call.
  803. //
  804. //  Returns:    FALSE if the notify window has gone away for some reason or
  805. //              if the parameters are invalid.
  806. //
  807. //  Notes:      This call results in the sending of the
  808. //              WM_ADSPROP_NOTIFY_PAGEINIT message to the notify window.
  809. //              pInitParams->pWritableAttrs can be NULL if there are no
  810. //              writable attributes.
  811. //
  812. //-----------------------------------------------------------------------------
  814. function ADsPropGetInitInfo(hNotifyObj: HWND; pInitParams: PADSPROPINITPARAMS): BOOL; stdcall;
  815. {$EXTERNALSYM ADsPropGetInitInfo}
  817. //+----------------------------------------------------------------------------
  818. //
  819. //  Function:   ADsPropSetHwnd
  820. //
  821. //  Synopsis:   Pages call this at their dialog init time to send their hwnd.
  822. //
  823. //  Arguments:  [hNotifyObj]  - the notificion window handle.
  824. //              [hPage]       - the page's window handle.
  825. //
  826. //  Returns:    FALSE if the notify window has gone away for some reason.
  827. //
  828. //  Notes:      Sends the WM_ADSPROP_NOTIFY_PAGEHWND message to the notify
  829. //              window.
  830. //
  831. //-----------------------------------------------------------------------------
  833. function ADsPropSetHwnd(hNotifyObj: HWND; hPage: HWND): BOOL; stdcall;
  834. {$EXTERNALSYM ADsPropSetHwnd}
  836. //+----------------------------------------------------------------------------
  837. //
  838. //  function:   ADsPropCheckIfWritable
  839. //
  840. //  Synopsis:   See if the attribute is writable by checking if it is in
  841. //              the allowedAttributesEffective array.
  842. //
  843. //  Arguments:  [pwzAttr]        - the attribute name.
  844. //              [pWritableAttrs] - the array of writable attributes.
  845. //
  846. //  Returns:    FALSE if the attribute name is not found in the writable-attrs
  847. //              array or if the array pointer is NULL.
  848. //
  849. //-----------------------------------------------------------------------------
  851. function ADsPropCheckIfWritable(pwzAttr: PWSTR; pWritableAttrs: PADS_ATTR_INFO): BOOL; stdcall;
  852. {$EXTERNALSYM ADsPropCheckIfWritable}
  854. implementation
  856. const
  857.   adslib = 'activeds.dll';
  858.   dsprop = 'dsprop.dll';
  860. // adshlp.h
  863. {$IFDEF DYNAMIC_LINK}
  864. var
  865.   _ADsGetObject: Pointer;
  867. function ADsGetObject;
  868. begin
  869.   GetProcedureAddress(_ADsGetObject, adslib, 'ADsGetObject');
  870.   asm
  871.     mov esp, ebp
  872.     pop ebp
  873.     jmp [_ADsGetObject]
  874.   end;
  875. end;
  876. {$ELSE}
  877. function ADsGetObject; external adslib name 'ADsGetObject';
  878. {$ENDIF DYNAMIC_LINK}
  880. {$IFDEF DYNAMIC_LINK}
  881. var
  882.   _ADsBuildEnumerator: Pointer;
  884. function ADsBuildEnumerator;
  885. begin
  886.   GetProcedureAddress(_ADsBuildEnumerator, adslib, 'ADsBuildEnumerator');
  887.   asm
  888.     mov esp, ebp
  889.     pop ebp
  890.     jmp [_ADsBuildEnumerator]
  891.   end;
  892. end;
  893. {$ELSE}
  894. function ADsBuildEnumerator; external adslib name 'ADsBuildEnumerator';
  895. {$ENDIF DYNAMIC_LINK}
  897. function _ADsFreeEnumerator(pEnumVariant: IEnumVARIANT): HRESULT; stdcall; external adslib name 'ADsFreeEnumerator';
  899. function ADsFreeEnumerator(var pEnumVariant: IEnumVARIANT): HRESULT;
  900. begin
  901.   Result := _ADsFreeEnumerator(pEnumVariant);
  902.   // ADsFreeEnumerator doesn't set pEnumVariant to nil causing Delphi to call
  903.   // Release() again when pEnumVariant leaves scope. Result would be an access
  904.   // violation, explicitly setting the interface to nil prevents this.
  905.   if Result = 0{S_OK} then Pointer(pEnumVariant) := nil;
  906. end;
  909. {$IFDEF DYNAMIC_LINK}
  910. var
  911.   _ADsEnumerateNext: Pointer;
  913. function ADsEnumerateNext;
  914. begin
  915.   GetProcedureAddress(_ADsEnumerateNext, adslib, 'ADsEnumerateNext');
  916.   asm
  917.     mov esp, ebp
  918.     pop ebp
  919.     jmp [_ADsEnumerateNext]
  920.   end;
  921. end;
  922. {$ELSE}
  923. function ADsEnumerateNext; external adslib name 'ADsEnumerateNext';
  924. {$ENDIF DYNAMIC_LINK}
  926. {$IFDEF DYNAMIC_LINK}
  927. var
  928.   _ADsBuildVarArrayStr: Pointer;
  930. function ADsBuildVarArrayStr;
  931. begin
  932.   GetProcedureAddress(_ADsBuildVarArrayStr, adslib, 'ADsBuildVarArrayStr');
  933.   asm
  934.     mov esp, ebp
  935.     pop ebp
  936.     jmp [_ADsBuildVarArrayStr]
  937.   end;
  938. end;
  939. {$ELSE}
  940. function ADsBuildVarArrayStr; external adslib name 'ADsBuildVarArrayStr';
  941. {$ENDIF DYNAMIC_LINK}
  943. {$IFDEF DYNAMIC_LINK}
  944. var
  945.   _ADsBuildVarArrayInt: Pointer;
  947. function ADsBuildVarArrayInt;
  948. begin
  949.   GetProcedureAddress(_ADsBuildVarArrayInt, adslib, 'ADsBuildVarArrayInt');
  950.   asm
  951.     mov esp, ebp
  952.     pop ebp
  953.     jmp [_ADsBuildVarArrayInt]
  954.   end;
  955. end;
  956. {$ELSE}
  957. function ADsBuildVarArrayInt; external adslib name 'ADsBuildVarArrayInt';
  958. {$ENDIF DYNAMIC_LINK}
  960. {$IFDEF DYNAMIC_LINK}
  961. var
  962.   _ADsOpenObject: Pointer;
  964. function ADsOpenObject;
  965. begin
  966.   GetProcedureAddress(_ADsOpenObject, adslib, 'ADsOpenObject');
  967.   asm
  968.     mov esp, ebp
  969.     pop ebp
  970.     jmp [_ADsOpenObject]
  971.   end;
  972. end;
  973. {$ELSE}
  974. function ADsOpenObject; external adslib name 'ADsOpenObject';
  975. {$ENDIF DYNAMIC_LINK}
  977. {$IFDEF DYNAMIC_LINK}
  978. var
  979.   _ADsGetLastError: Pointer;
  981. function ADsGetLastError;
  982. begin
  983.   GetProcedureAddress(_ADsGetLastError, adslib, 'ADsGetLastError');
  984.   asm
  985.     mov esp, ebp
  986.     pop ebp
  987.     jmp [_ADsGetLastError]
  988.   end;
  989. end;
  990. {$ELSE}
  991. function ADsGetLastError; external adslib name 'ADsGetLastError';
  992. {$ENDIF DYNAMIC_LINK}
  994. {$IFDEF DYNAMIC_LINK}
  995. var
  996.   _ADsSetLastError: Pointer;
  998. procedure ADsSetLastError;
  999. begin
  1000.   GetProcedureAddress(_ADsSetLastError, adslib, 'ADsSetLastError');
  1001.   asm
  1002.     mov esp, ebp
  1003.     pop ebp
  1004.     jmp [_ADsSetLastError]
  1005.   end;
  1006. end;
  1007. {$ELSE}
  1008. procedure ADsSetLastError; external adslib name 'ADsSetLastError';
  1009. {$ENDIF DYNAMIC_LINK}
  1010. //procedure ADsFreeAllErrorRecords
  1012. {$IFDEF DYNAMIC_LINK}
  1013. var
  1014.   _AllocADsMem: Pointer;
  1016. function AllocADsMem;
  1017. begin
  1018.   GetProcedureAddress(_AllocADsMem, adslib, 'AllocADsMem');
  1019.   asm
  1020.     mov esp, ebp
  1021.     pop ebp
  1022.     jmp [_AllocADsMem]
  1023.   end;
  1024. end;
  1025. {$ELSE}
  1026. function AllocADsMem; external adslib name 'AllocADsMem';
  1027. {$ENDIF DYNAMIC_LINK}
  1029. {$IFDEF DYNAMIC_LINK}
  1030. var
  1031.   _FreeADsMem: Pointer;
  1033. function FreeADsMem;
  1034. begin
  1035.   GetProcedureAddress(_FreeADsMem, adslib, 'FreeADsMem');
  1036.   asm
  1037.     mov esp, ebp
  1038.     pop ebp
  1039.     jmp [_FreeADsMem]
  1040.   end;
  1041. end;
  1042. {$ELSE}
  1043. function FreeADsMem; external adslib name 'FreeADsMem';
  1044. {$ENDIF DYNAMIC_LINK}
  1046. {$IFDEF DYNAMIC_LINK}
  1047. var
  1048.   _ReallocADsMem: Pointer;
  1050. function ReallocADsMem;
  1051. begin
  1052.   GetProcedureAddress(_ReallocADsMem, adslib, 'ReallocADsMem');
  1053.   asm
  1054.     mov esp, ebp
  1055.     pop ebp
  1056.     jmp [_ReallocADsMem]
  1057.   end;
  1058. end;
  1059. {$ELSE}
  1060. function ReallocADsMem; external adslib name 'ReallocADsMem';
  1061. {$ENDIF DYNAMIC_LINK}
  1063. {$IFDEF DYNAMIC_LINK}
  1064. var
  1065.   _AllocADsStr: Pointer;
  1067. function AllocADsStr;
  1068. begin
  1069.   GetProcedureAddress(_AllocADsStr, adslib, 'AllocADsStr');
  1070.   asm
  1071.     mov esp, ebp
  1072.     pop ebp
  1073.     jmp [_AllocADsStr]
  1074.   end;
  1075. end;
  1076. {$ELSE}
  1077. function AllocADsStr; external adslib name 'AllocADsStr';
  1078. {$ENDIF DYNAMIC_LINK}
  1080. {$IFDEF DYNAMIC_LINK}
  1081. var
  1082.   _FreeADsStr: Pointer;
  1084. function FreeADsStr;
  1085. begin
  1086.   GetProcedureAddress(_FreeADsStr, adslib, 'FreeADsStr');
  1087.   asm
  1088.     mov esp, ebp
  1089.     pop ebp
  1090.     jmp [_FreeADsStr]
  1091.   end;
  1092. end;
  1093. {$ELSE}
  1094. function FreeADsStr; external adslib name 'FreeADsStr';
  1095. {$ENDIF DYNAMIC_LINK}
  1097. {$IFDEF DYNAMIC_LINK}
  1098. var
  1099.   _ReallocADsStr: Pointer;
  1101. function ReallocADsStr;
  1102. begin
  1103.   GetProcedureAddress(_ReallocADsStr, adslib, 'ReallocADsStr');
  1104.   asm
  1105.     mov esp, ebp
  1106.     pop ebp
  1107.     jmp [_ReallocADsStr]
  1108.   end;
  1109. end;
  1110. {$ELSE}
  1111. function ReallocADsStr; external adslib name 'ReallocADsStr';
  1112. {$ENDIF DYNAMIC_LINK}
  1114. {$IFDEF DYNAMIC_LINK}
  1115. var
  1116.   _ADsEncodeBinaryData: Pointer;
  1118. function ADsEncodeBinaryData;
  1119. begin
  1120.   GetProcedureAddress(_ADsEncodeBinaryData, adslib, 'ADsEncodeBinaryData');
  1121.   asm
  1122.     mov esp, ebp
  1123.     pop ebp
  1124.     jmp [_ADsEncodeBinaryData]
  1125.   end;
  1126. end;
  1127. {$ELSE}
  1128. function ADsEncodeBinaryData; external adslib name 'ADsEncodeBinaryData';
  1129. {$ENDIF DYNAMIC_LINK}
  1131. {$IFDEF DYNAMIC_LINK}
  1132. var
  1133.   _ADsDecodeBinaryData: Pointer;
  1135. function ADsDecodeBinaryData;
  1136. begin
  1137.   GetProcedureAddress(_ADsDecodeBinaryData, adslib, 'ADsDecodeBinaryData');
  1138.   asm
  1139.     mov esp, ebp
  1140.     pop ebp
  1141.     jmp [_ADsDecodeBinaryData]
  1142.   end;
  1143. end;
  1144. {$ELSE}
  1145. function ADsDecodeBinaryData; external adslib name 'ADsDecodeBinaryData';
  1146. {$ENDIF DYNAMIC_LINK}
  1148. {$IFDEF DYNAMIC_LINK}
  1149. var
  1150.   _PropVariantToAdsType: Pointer;
  1152. function PropVariantToAdsType;
  1153. begin
  1154.   GetProcedureAddress(_PropVariantToAdsType, adslib, 'PropVariantToAdsType');
  1155.   asm
  1156.     mov esp, ebp
  1157.     pop ebp
  1158.     jmp [_PropVariantToAdsType]
  1159.   end;
  1160. end;
  1161. {$ELSE}
  1162. function PropVariantToAdsType; external adslib name 'PropVariantToAdsType';
  1163. {$ENDIF DYNAMIC_LINK}
  1165. {$IFDEF DYNAMIC_LINK}
  1166. var
  1167.   _AdsTypeToPropVariant: Pointer;
  1169. function AdsTypeToPropVariant;
  1170. begin
  1171.   GetProcedureAddress(_AdsTypeToPropVariant, adslib, 'AdsTypeToPropVariant');
  1172.   asm
  1173.     mov esp, ebp
  1174.     pop ebp
  1175.     jmp [_AdsTypeToPropVariant]
  1176.   end;
  1177. end;
  1178. {$ELSE}
  1179. function AdsTypeToPropVariant; external adslib name 'AdsTypeToPropVariant';
  1180. {$ENDIF DYNAMIC_LINK}
  1182. {$IFDEF DYNAMIC_LINK}
  1183. var
  1184.   _AdsFreeAdsValues: Pointer;
  1186. procedure AdsFreeAdsValues;
  1187. begin
  1188.   GetProcedureAddress(_AdsFreeAdsValues, adslib, 'AdsFreeAdsValues');
  1189.   asm
  1190.     mov esp, ebp
  1191.     pop ebp
  1192.     jmp [_AdsFreeAdsValues]
  1193.   end;
  1194. end;
  1195. {$ELSE}
  1196. procedure AdsFreeAdsValues; external adslib name 'AdsFreeAdsValues';
  1197. {$ENDIF DYNAMIC_LINK}
  1199. // adsprop.h
  1202. {$IFDEF DYNAMIC_LINK}
  1203. var
  1204.   _ADsPropCreateNotifyObj: Pointer;
  1206. function ADsPropCreateNotifyObj;
  1207. begin
  1208.   GetProcedureAddress(_ADsPropCreateNotifyObj, dsprop, 'ADsPropCreateNotifyObj');
  1209.   asm
  1210.     mov esp, ebp
  1211.     pop ebp
  1212.     jmp [_ADsPropCreateNotifyObj]
  1213.   end;
  1214. end;
  1215. {$ELSE}
  1216. function ADsPropCreateNotifyObj; external dsprop name 'ADsPropCreateNotifyObj';
  1217. {$ENDIF DYNAMIC_LINK}
  1219. {$IFDEF DYNAMIC_LINK}
  1220. var
  1221.   _ADsPropGetInitInfo: Pointer;
  1223. function ADsPropGetInitInfo;
  1224. begin
  1225.   GetProcedureAddress(_ADsPropGetInitInfo, dsprop, 'ADsPropGetInitInfo');
  1226.   asm
  1227.     mov esp, ebp
  1228.     pop ebp
  1229.     jmp [_ADsPropGetInitInfo]
  1230.   end;
  1231. end;
  1232. {$ELSE}
  1233. function ADsPropGetInitInfo; external dsprop name 'ADsPropGetInitInfo';
  1234. {$ENDIF DYNAMIC_LINK}
  1236. {$IFDEF DYNAMIC_LINK}
  1237. var
  1238.   _ADsPropSetHwnd: Pointer;
  1240. function ADsPropSetHwnd;
  1241. begin
  1242.   GetProcedureAddress(_ADsPropSetHwnd, dsprop, 'ADsPropSetHwnd');
  1243.   asm
  1244.     mov esp, ebp
  1245.     pop ebp
  1246.     jmp [_ADsPropSetHwnd]
  1247.   end;
  1248. end;
  1249. {$ELSE}
  1250. function ADsPropSetHwnd; external dsprop name 'ADsPropSetHwnd';
  1251. {$ENDIF DYNAMIC_LINK}
  1253. {$IFDEF DYNAMIC_LINK}
  1254. var
  1255.   _ADsPropCheckIfWritable: Pointer;
  1257. function ADsPropCheckIfWritable;
  1258. begin
  1259.   GetProcedureAddress(_ADsPropCheckIfWritable, dsprop, 'ADsPropCheckIfWritable');
  1260.   asm
  1261.     mov esp, ebp
  1262.     pop ebp
  1263.     jmp [_ADsPropCheckIfWritable]
  1264.   end;
  1265. end;
  1266. {$ELSE}
  1267. function ADsPropCheckIfWritable; external dsprop name 'ADsPropCheckIfWritable';
  1268. {$ENDIF DYNAMIC_LINK}
  1270. end.