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

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

Windows编程

开发平台：

Delphi

JwaAclApi.pas：源码内容
  1. {******************************************************************************}
  2. {                                                                       }
  3. { Access Control 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: aclapi.h, released June 2000. The original Pascal      }
  9. { code is: AclApi.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 JwaAclApi;
  46. {$WEAKPACKAGEUNIT}
  48. {$HPPEMIT ''}
  49. {$HPPEMIT '#include "aclapi.h"'}
  50. {$HPPEMIT ''}
  52. {$I WINDEFINES.INC}
  54. interface
  56. uses
  57.   JwaAccCtrl, JwaWinNT, JwaWinType;
  59. //
  60. // Progress Function:
  61. // Caller of tree operation implements this Progress function, then
  62. // passes its function pointer to tree operation.
  63. // Tree operation invokes Progress function to provide progress and error
  64. // information to the caller during the potentially long execution
  65. // of the tree operation.  Tree operation provides the name of the object
  66. // last processed and the error status of the operation on that object.
  67. // Tree operation also passes the current InvokeSetting value.
  68. // Caller may change the InvokeSetting value, for example, from "Always"
  69. // to "Only On Error."
  70. //
  72. type
  73.   FN_PROGRESS = procedure (
  74.     pObjectName: LPWSTR;    // name of object just processed
  75.     Status: DWORD;          // status of operation on object
  76.     var pInvokeSetting: PPROG_INVOKE_SETTING; // Never, always,
  77.     Args: PVOID;            // Caller specific data
  78.     SecuritySet: BOOL       // Whether security was set
  79.     ); stdcall;
  80.   {$EXTERNALSYM FN_PROGRESS}
  81.   TFnProgress = FN_PROGRESS;
  83. function SetEntriesInAclA(cCountOfExplicitEntries: ULONG;
  84.   pListOfExplicitEntries: PEXPLICIT_ACCESS_A; OldAcl: PACL;
  85.   var NewAcl: PACL): DWORD; stdcall;
  86. {$EXTERNALSYM SetEntriesInAclA}
  87. function SetEntriesInAclW(cCountOfExplicitEntries: ULONG;
  88.   pListOfExplicitEntries: PEXPLICIT_ACCESS_W; OldAcl: PACL;
  89.   var NewAcl: PACL): DWORD; stdcall;
  90. {$EXTERNALSYM SetEntriesInAclW}
  92. {$IFDEF UNICODE}
  93. function SetEntriesInAcl(cCountOfExplicitEntries: ULONG;
  94.   pListOfExplicitEntries: PEXPLICIT_ACCESS_W; OldAcl: PACL;
  95.   var NewAcl: PACL): DWORD; stdcall;
  96. {$EXTERNALSYM SetEntriesInAcl}
  97. {$ELSE}
  98. function SetEntriesInAcl(cCountOfExplicitEntries: ULONG;
  99.   pListOfExplicitEntries: PEXPLICIT_ACCESS_A; OldAcl: PACL;
  100.   var NewAcl: PACL): DWORD; stdcall;
  101. {$EXTERNALSYM SetEntriesInAcl}
  102. {$ENDIF}
  104. function GetExplicitEntriesFromAclA(pacl: PACL; var pcCountOfExplicitEntries: ULONG;
  105.   var pListOfExplicitEntries: PEXPLICIT_ACCESS_A): DWORD; stdcall;
  106. {$EXTERNALSYM GetExplicitEntriesFromAclA}
  107. function GetExplicitEntriesFromAclW(pacl: PACL; var pcCountOfExplicitEntries: ULONG;
  108.   var pListOfExplicitEntries: PEXPLICIT_ACCESS_W): DWORD; stdcall;
  109. {$EXTERNALSYM GetExplicitEntriesFromAclW}
  111. {$IFDEF UNICODE}
  112. function GetExplicitEntriesFromAcl(pacl: PACL; var pcCountOfExplicitEntries: ULONG;
  113.   var pListOfExplicitEntries: PEXPLICIT_ACCESS_W): DWORD; stdcall;
  114. {$EXTERNALSYM GetExplicitEntriesFromAcl}
  115. {$ELSE}
  116. function GetExplicitEntriesFromAcl(pacl: PACL; var pcCountOfExplicitEntries: ULONG;
  117.   var pListOfExplicitEntries: PEXPLICIT_ACCESS_A): DWORD; stdcall;
  118. {$EXTERNALSYM GetExplicitEntriesFromAcl}
  119. {$ENDIF}
  121. function GetEffectiveRightsFromAclA(pacl: PACL; pTrustee: PTRUSTEE_A;
  122.   var pAccessRights: ACCESS_MASK): DWORD; stdcall;
  123. {$EXTERNALSYM GetEffectiveRightsFromAclA}
  124. function GetEffectiveRightsFromAclW(pacl: PACL; pTrustee: PTRUSTEE_W;
  125.   var pAccessRights: ACCESS_MASK): DWORD; stdcall;
  126. {$EXTERNALSYM GetEffectiveRightsFromAclW}
  128. {$IFDEF UNICODE}
  129. function GetEffectiveRightsFromAcl(pacl: PACL; pTrustee: PTRUSTEE_W;
  130.   var pAccessRights: ACCESS_MASK): DWORD; stdcall;
  131. {$EXTERNALSYM GetEffectiveRightsFromAcl}
  132. {$ELSE}
  133. function GetEffectiveRightsFromAcl(pacl: PACL; pTrustee: PTRUSTEE_A;
  134.   var pAccessRights: ACCESS_MASK): DWORD; stdcall;
  135. {$EXTERNALSYM GetEffectiveRightsFromAcl}
  136. {$ENDIF}
  138. function GetAuditedPermissionsFromAclA(pacl: PACL; pTrustee: PTRUSTEE_A;
  139.   var pSuccessfulAuditedRights, pFailedAuditRights: ACCESS_MASK): DWORD; stdcall;
  140. {$EXTERNALSYM GetAuditedPermissionsFromAclA}
  141. function GetAuditedPermissionsFromAclW(pacl: PACL; pTrustee: PTRUSTEE_W;
  142.   var pSuccessfulAuditedRights, pFailedAuditRights: ACCESS_MASK): DWORD; stdcall;
  143. {$EXTERNALSYM GetAuditedPermissionsFromAclW}
  145. {$IFDEF UNICODE}
  146. function GetAuditedPermissionsFromAcl(pacl: PACL; pTrustee: PTRUSTEE_W;
  147.   var pSuccessfulAuditedRights, pFailedAuditRights: ACCESS_MASK): DWORD; stdcall;
  148. {$EXTERNALSYM GetAuditedPermissionsFromAcl}
  149. {$ELSE}
  150. function GetAuditedPermissionsFromAcl(pacl: PACL; pTrustee: PTRUSTEE_A;
  151.   var pSuccessfulAuditedRights, pFailedAuditRights: ACCESS_MASK): DWORD; stdcall;
  152. {$EXTERNALSYM GetAuditedPermissionsFromAcl}
  153. {$ENDIF}
  155. function GetNamedSecurityInfoA(pObjectName: LPSTR; ObjectType: SE_OBJECT_TYPE;
  156.   SecurityInfo: SECURITY_INFORMATION; ppsidOwner, ppsidGroup: PPSID; ppDacl,
  157.   ppSacl: PPACL; var ppSecurityDescriptor: PSECURITY_DESCRIPTOR): DWORD; stdcall;
  158. {$EXTERNALSYM GetNamedSecurityInfoA}
  159. function GetNamedSecurityInfoW(pObjectName: LPWSTR; ObjectType: SE_OBJECT_TYPE;
  160.   SecurityInfo: SECURITY_INFORMATION; ppsidOwner, ppsidGroup: PPSID; ppDacl,
  161.   ppSacl: PPACL; var ppSecurityDescriptor: PSECURITY_DESCRIPTOR): DWORD; stdcall;
  162. {$EXTERNALSYM GetNamedSecurityInfoW}
  164. {$IFDEF UNICODE}
  165. function GetNamedSecurityInfo(pObjectName: LPWSTR; ObjectType: SE_OBJECT_TYPE;
  166.   SecurityInfo: SECURITY_INFORMATION; ppsidOwner, ppsidGroup: PPSID; ppDacl,
  167.   ppSacl: PPACL; var ppSecurityDescriptor: PSECURITY_DESCRIPTOR): DWORD; stdcall;
  168. {$EXTERNALSYM GetNamedSecurityInfo}
  169. {$ELSE}
  170. function GetNamedSecurityInfo(pObjectName: LPSTR; ObjectType: SE_OBJECT_TYPE;
  171.   SecurityInfo: SECURITY_INFORMATION; ppsidOwner, ppsidGroup: PPSID; ppDacl,
  172.   ppSacl: PPACL; var ppSecurityDescriptor: PSECURITY_DESCRIPTOR): DWORD; stdcall;
  173. {$EXTERNALSYM GetNamedSecurityInfo}
  174. {$ENDIF}
  176. function GetSecurityInfo(handle: HANDLE; ObjectType: SE_OBJECT_TYPE;
  177.   SecurityInfo: SECURITY_INFORMATION; ppsidOwner: PPSID; ppsidGroup: PPSID;
  178.   ppDacl, ppSacl: PPACL; var ppSecurityDescriptor: PSECURITY_DESCRIPTOR): DWORD; stdcall;
  179. {$EXTERNALSYM GetSecurityInfo}
  181. function SetNamedSecurityInfoA(pObjectName: LPSTR; ObjectType: SE_OBJECT_TYPE;
  182.   SecurityInfo: SECURITY_INFORMATION; psidOwner, psidGroup: PSID;
  183.   pDacl, pSacl: PACL): DWORD; stdcall;
  184. {$EXTERNALSYM SetNamedSecurityInfoA}
  185. function SetNamedSecurityInfoW(pObjectName: LPWSTR; ObjectType: SE_OBJECT_TYPE;
  186.   SecurityInfo: SECURITY_INFORMATION; psidOwner, psidGroup: PSID;
  187.   pDacl, pSacl: PACL): DWORD; stdcall;
  188. {$EXTERNALSYM SetNamedSecurityInfoW}
  190. {$IFDEF UNICODE}
  191. function SetNamedSecurityInfo(pObjectName: LPWSTR; ObjectType: SE_OBJECT_TYPE;
  192.   SecurityInfo: SECURITY_INFORMATION; psidOwner, psidGroup: PSID;
  193.   pDacl, pSacl: PACL): DWORD; stdcall;
  194. {$EXTERNALSYM SetNamedSecurityInfo}
  195. {$ELSE}
  196. function SetNamedSecurityInfo(pObjectName: LPSTR; ObjectType: SE_OBJECT_TYPE;
  197.   SecurityInfo: SECURITY_INFORMATION; psidOwner, psidGroup: PSID;
  198.   pDacl, pSacl: PACL): DWORD; stdcall;
  199. {$EXTERNALSYM SetNamedSecurityInfo}
  200. {$ENDIF}
  202. function SetSecurityInfo(handle: HANDLE; ObjectType: SE_OBJECT_TYPE;
  203.   SecurityInfo: SECURITY_INFORMATION; psidOwner, psidGroup: PSID;
  204.   pDacl, pSacl: PACL): DWORD; stdcall;
  205. {$EXTERNALSYM SetSecurityInfo}
  207. function GetInheritanceSourceA(pObjectName: LPSTR; ObjectType: SE_OBJECT_TYPE;
  208.   SecurityInfo: SECURITY_INFORMATION; Container: BOOL; pObjectClassGuids: LPGUID;
  209.   GuidCount: DWORD; pAcl: PACL; pfnArray: PFN_OBJECT_MGR_FUNCTS;
  210.   pGenericMapping: PGENERIC_MAPPING; pInheritArray:  PINHERITED_FROMA): DWORD; stdcall;
  211. {$EXTERNALSYM GetInheritanceSourceA}
  213. function GetInheritanceSourceW(pObjectName: LPWSTR; ObjectType: SE_OBJECT_TYPE;
  214.   SecurityInfo: SECURITY_INFORMATION; Container: BOOL; pObjectClassGuids: LPGUID;
  215.   GuidCount: DWORD; pAcl: PACL; pfnArray: PFN_OBJECT_MGR_FUNCTS;
  216.   pGenericMapping: PGENERIC_MAPPING; pInheritArray:  PINHERITED_FROMW): DWORD; stdcall;
  217. {$EXTERNALSYM GetInheritanceSourceW}
  219. {$IFDEF UNICODE}
  220. function GetInheritanceSource(pObjectName: LPWSTR; ObjectType: SE_OBJECT_TYPE;
  221.   SecurityInfo: SECURITY_INFORMATION; Container: BOOL; pObjectClassGuids: LPGUID;
  222.   GuidCount: DWORD; pAcl: PACL; pfnArray: PFN_OBJECT_MGR_FUNCTS;
  223.   pGenericMapping: PGENERIC_MAPPING; pInheritArray:  PINHERITED_FROMW): DWORD; stdcall;
  224. {$EXTERNALSYM GetInheritanceSource}
  225. {$ELSE}
  226. function GetInheritanceSource(pObjectName: LPSTR; ObjectType: SE_OBJECT_TYPE;
  227.   SecurityInfo: SECURITY_INFORMATION; Container: BOOL; pObjectClassGuids: LPGUID;
  228.   GuidCount: DWORD; pAcl: PACL; pfnArray: PFN_OBJECT_MGR_FUNCTS;
  229.   pGenericMapping: PGENERIC_MAPPING; pInheritArray:  PINHERITED_FROMA): DWORD; stdcall;
  230. {$EXTERNALSYM GetInheritanceSource}
  231. {$ENDIF}
  233. function FreeInheritedFromArray(pInheritArray: PINHERITED_FROMW; AceCnt: USHORT;
  234.   pfnArray: PFN_OBJECT_MGR_FUNCTS): DWORD; stdcall;
  235. {$EXTERNALSYM FreeInheritedFromArray}
  237. function TreeResetNamedSecurityInfoA(pObjectName: LPSTR; ObjectType: SE_OBJECT_TYPE;
  238.   SecurityInfo: SECURITY_INFORMATION; pOwner, pGroup: PSID; pDacl, pSacl: PACL;
  239.   KeepExplicit: BOOL; fnProgress: FN_PROGRESS; ProgressInvokeSetting: PROG_INVOKE_SETTING;
  240.   Args: PVOID): DWORD; stdcall;
  241. {$EXTERNALSYM TreeResetNamedSecurityInfoA}
  243. function TreeResetNamedSecurityInfoW(pObjectName: LPWSTR; ObjectType: SE_OBJECT_TYPE;
  244.   SecurityInfo: SECURITY_INFORMATION; pOwner, pGroup: PSID; pDacl, pSacl: PACL;
  245.   KeepExplicit: BOOL; fnProgress: FN_PROGRESS; ProgressInvokeSetting: PROG_INVOKE_SETTING;
  246.   Args: PVOID): DWORD; stdcall;
  247. {$EXTERNALSYM TreeResetNamedSecurityInfoW}
  249. {$IFDEF UNICODE}
  250. function TreeResetNamedSecurityInfo(pObjectName: LPWSTR; ObjectType: SE_OBJECT_TYPE;
  251.   SecurityInfo: SECURITY_INFORMATION; pOwner, pGroup: PSID; pDacl, pSacl: PACL;
  252.   KeepExplicit: BOOL; fnProgress: FN_PROGRESS; ProgressInvokeSetting: PROG_INVOKE_SETTING;
  253.   Args: PVOID): DWORD; stdcall;
  254. {$EXTERNALSYM TreeResetNamedSecurityInfo}
  255. {$ELSE}
  256. function TreeResetNamedSecurityInfo(pObjectName: LPSTR; ObjectType: SE_OBJECT_TYPE;
  257.   SecurityInfo: SECURITY_INFORMATION; pOwner, pGroup: PSID; pDacl, pSacl: PACL;
  258.   KeepExplicit: BOOL; fnProgress: FN_PROGRESS; ProgressInvokeSetting: PROG_INVOKE_SETTING;
  259.   Args: PVOID): DWORD; stdcall;
  260. {$EXTERNALSYM TreeResetNamedSecurityInfo}
  261. {$ENDIF}
  263. //----------------------------------------------------------------------------
  264. // The following API are provided for trusted servers to use to
  265. // implement access control on their own objects.
  266. //----------------------------------------------------------------------------
  268. function BuildSecurityDescriptorA(pOwner: PTRUSTEE_A; pGroup: PTRUSTEE_A;
  269.   cCountOfAccessEntries: ULONG; pListOfAccessEntries: PEXPLICIT_ACCESS_A;
  270.   cCountOfAuditEntries: ULONG; pListOfAuditEntries: PEXPLICIT_ACCESS_A;
  271.   pOldSD: PSECURITY_DESCRIPTOR; var pSizeNewSD: ULONG;
  272.   var pNewSD: PSECURITY_DESCRIPTOR): DWORD; stdcall;
  273. {$EXTERNALSYM BuildSecurityDescriptorA}
  274. function BuildSecurityDescriptorW(pOwner: PTRUSTEE_W; pGroup: PTRUSTEE_W;
  275.   cCountOfAccessEntries: ULONG; pListOfAccessEntries: PEXPLICIT_ACCESS_W;
  276.   cCountOfAuditEntries: ULONG; pListOfAuditEntries: PEXPLICIT_ACCESS_W;
  277.   pOldSD: PSECURITY_DESCRIPTOR; var pSizeNewSD: ULONG;
  278.   var pNewSD: PSECURITY_DESCRIPTOR): DWORD; stdcall;
  279. {$EXTERNALSYM BuildSecurityDescriptorW}
  281. {$IFDEF UNICODE}
  282. function BuildSecurityDescriptor(pOwner: PTRUSTEE_W; pGroup: PTRUSTEE_W;
  283.   cCountOfAccessEntries: ULONG; pListOfAccessEntries: PEXPLICIT_ACCESS_W;
  284.   cCountOfAuditEntries: ULONG; pListOfAuditEntries: PEXPLICIT_ACCESS_W;
  285.   pOldSD: PSECURITY_DESCRIPTOR; var pSizeNewSD: ULONG;
  286.   var pNewSD: PSECURITY_DESCRIPTOR): DWORD; stdcall;
  287. {$EXTERNALSYM BuildSecurityDescriptor}
  288. {$ELSE}
  289. function BuildSecurityDescriptor(pOwner: PTRUSTEE_A; pGroup: PTRUSTEE_A;
  290.   cCountOfAccessEntries: ULONG; pListOfAccessEntries: PEXPLICIT_ACCESS_A;
  291.   cCountOfAuditEntries: ULONG; pListOfAuditEntries: PEXPLICIT_ACCESS_A;
  292.   pOldSD: PSECURITY_DESCRIPTOR; var pSizeNewSD: ULONG;
  293.   var pNewSD: PSECURITY_DESCRIPTOR): DWORD; stdcall;
  294. {$EXTERNALSYM BuildSecurityDescriptor}
  295. {$ENDIF}
  297. function LookupSecurityDescriptorPartsA(pOwner, pGroup: PPTRUSTEE_A;
  298.   cCountOfAccessEntries: PULONG; pListOfAccessEntries: PEXPLICIT_ACCESS_A;
  299.   cCountOfAuditEntries: PULONG; pListOfAuditEntries: PEXPLICIT_ACCESS_A;
  300.   var pSD: SECURITY_DESCRIPTOR): DWORD; stdcall;
  301. {$EXTERNALSYM LookupSecurityDescriptorPartsA}
  302. function LookupSecurityDescriptorPartsW(pOwner, pGroup: PPTRUSTEE_W;
  303.   cCountOfAccessEntries: PULONG; pListOfAccessEntries: PEXPLICIT_ACCESS_W;
  304.   cCountOfAuditEntries: PULONG; pListOfAuditEntries: PEXPLICIT_ACCESS_W;
  305.   var pSD: SECURITY_DESCRIPTOR): DWORD; stdcall;
  306. {$EXTERNALSYM LookupSecurityDescriptorPartsW}
  308. {$IFDEF UNICODE}
  309. function LookupSecurityDescriptorParts(pOwner, pGroup: PPTRUSTEE_W;
  310.   cCountOfAccessEntries: PULONG; pListOfAccessEntries: PEXPLICIT_ACCESS_W;
  311.   cCountOfAuditEntries: PULONG; pListOfAuditEntries: PEXPLICIT_ACCESS_W;
  312.   var pSD: SECURITY_DESCRIPTOR): DWORD; stdcall;
  313. {$EXTERNALSYM LookupSecurityDescriptorParts}
  314. {$ELSE}
  315. function LookupSecurityDescriptorParts(pOwner, pGroup: PPTRUSTEE_A;
  316.   cCountOfAccessEntries: PULONG; pListOfAccessEntries: PEXPLICIT_ACCESS_A;
  317.   cCountOfAuditEntries: PULONG; pListOfAuditEntries: PEXPLICIT_ACCESS_A;
  318.   var pSD: SECURITY_DESCRIPTOR): DWORD; stdcall;
  319. {$EXTERNALSYM LookupSecurityDescriptorParts}
  320. {$ENDIF}
  322. //----------------------------------------------------------------------------
  323. // The following helper API are provided for building
  324. // access control structures.
  325. //----------------------------------------------------------------------------
  327. procedure BuildExplicitAccessWithNameA(pExplicitAccess: PEXPLICIT_ACCESS_A;
  328.   pTrusteeName: LPSTR; AccessPermissions: DWORD; AccessMode: ACCESS_MODE;
  329.   Inheritance: DWORD); stdcall;
  330. {$EXTERNALSYM BuildExplicitAccessWithNameA}
  331. procedure BuildExplicitAccessWithNameW(pExplicitAccess: PEXPLICIT_ACCESS_W;
  332.   pTrusteeName: LPWSTR; AccessPermissions: DWORD; AccessMode: ACCESS_MODE;
  333.   Inheritance: DWORD); stdcall;
  334. {$EXTERNALSYM BuildExplicitAccessWithNameW}
  336. {$IFDEF UNICODE}
  337. procedure BuildExplicitAccessWithName(pExplicitAccess: PEXPLICIT_ACCESS_W;
  338.   pTrusteeName: LPWSTR; AccessPermissions: DWORD; AccessMode: ACCESS_MODE;
  339.   Inheritance: DWORD); stdcall;
  340. {$EXTERNALSYM BuildExplicitAccessWithName}
  341. {$ELSE}
  342. procedure BuildExplicitAccessWithName(pExplicitAccess: PEXPLICIT_ACCESS_A;
  343.   pTrusteeName: LPSTR; AccessPermissions: DWORD; AccessMode: ACCESS_MODE;
  344.   Inheritance: DWORD); stdcall;
  345. {$EXTERNALSYM BuildExplicitAccessWithName}
  346. {$ENDIF}
  348. procedure BuildImpersonateExplicitAccessWithNameA(pExplicitAccess: PEXPLICIT_ACCESS_A;
  349.   pTrusteeName: LPSTR; pTrustee: PTRUSTEE_A; AccessPermissions: DWORD;
  350.   AccessMode: ACCESS_MODE; Inheritance: DWORD); stdcall;
  351. {$EXTERNALSYM BuildImpersonateExplicitAccessWithNameA}
  352. procedure BuildImpersonateExplicitAccessWithNameW(pExplicitAccess: PEXPLICIT_ACCESS_W;
  353.   pTrusteeName: LPWSTR; pTrustee: PTRUSTEE_W; AccessPermissions: DWORD;
  354.   AccessMode: ACCESS_MODE; Inheritance: DWORD); stdcall;
  355. {$EXTERNALSYM BuildImpersonateExplicitAccessWithNameW}
  357. {$IFDEF UNICODE}
  358. procedure BuildImpersonateExplicitAccessWithName(pExplicitAccess: PEXPLICIT_ACCESS_W;
  359.   pTrusteeName: LPWSTR; pTrustee: PTRUSTEE_W; AccessPermissions: DWORD;
  360.   AccessMode: ACCESS_MODE; Inheritance: DWORD); stdcall;
  361. {$EXTERNALSYM BuildImpersonateExplicitAccessWithName}
  362. {$ELSE}
  363. procedure BuildImpersonateExplicitAccessWithName(pExplicitAccess: PEXPLICIT_ACCESS_A;
  364.   pTrusteeName: LPSTR; pTrustee: PTRUSTEE_A; AccessPermissions: DWORD;
  365.   AccessMode: ACCESS_MODE; Inheritance: DWORD); stdcall;
  366. {$EXTERNALSYM BuildImpersonateExplicitAccessWithName}
  367. {$ENDIF}
  369. procedure BuildTrusteeWithNameA(pTrustee: PTRUSTEE_A; pName: LPSTR); stdcall;
  370. {$EXTERNALSYM BuildTrusteeWithNameA}
  371. procedure BuildTrusteeWithNameW(pTrustee: PTRUSTEE_W; pName: LPWSTR); stdcall;
  372. {$EXTERNALSYM BuildTrusteeWithNameW}
  374. {$IFDEF UNICODE}
  375. procedure BuildTrusteeWithName(pTrustee: PTRUSTEE_W; pName: LPWSTR); stdcall;
  376. {$EXTERNALSYM BuildTrusteeWithName}
  377. {$ELSE}
  378. procedure BuildTrusteeWithName(pTrustee: PTRUSTEE_A; pName: LPSTR); stdcall;
  379. {$EXTERNALSYM BuildTrusteeWithName}
  380. {$ENDIF}
  382. procedure BuildImpersonateTrusteeA(pTrustee: PTRUSTEE_A;
  383.   pImpersonateTrustee: PTRUSTEE_A); stdcall;
  384. {$EXTERNALSYM BuildImpersonateTrusteeA}
  385. procedure BuildImpersonateTrusteeW(pTrustee: PTRUSTEE_W;
  386.   pImpersonateTrustee: PTRUSTEE_W); stdcall;
  387. {$EXTERNALSYM BuildImpersonateTrusteeW}
  389. {$IFDEF UNICODE}
  390. procedure BuildImpersonateTrustee(pTrustee: PTRUSTEE_W;
  391.   pImpersonateTrustee: PTRUSTEE_W); stdcall;
  392. {$EXTERNALSYM BuildImpersonateTrustee}
  393. {$ELSE}
  394. procedure BuildImpersonateTrustee(pTrustee: PTRUSTEE_A;
  395.   pImpersonateTrustee: PTRUSTEE_A); stdcall;
  396. {$EXTERNALSYM BuildImpersonateTrustee}
  397. {$ENDIF}
  399. procedure BuildTrusteeWithSidA(pTrustee: PTRUSTEE_A; pSid: PSID); stdcall;
  400. {$EXTERNALSYM BuildTrusteeWithSidA}
  401. procedure BuildTrusteeWithSidW(pTrustee: PTRUSTEE_W; pSid: PSID); stdcall;
  402. {$EXTERNALSYM BuildTrusteeWithSidW}
  404. {$IFDEF UNICODE}
  405. procedure BuildTrusteeWithSid(pTrustee: PTRUSTEE_W; pSid: PSID); stdcall;
  406. {$EXTERNALSYM BuildTrusteeWithSid}
  407. {$ELSE}
  408. procedure BuildTrusteeWithSid(pTrustee: PTRUSTEE_A; pSid: PSID); stdcall;
  409. {$EXTERNALSYM BuildTrusteeWithSid}
  410. {$ENDIF}
  412. procedure BuildTrusteeWithObjectsAndSidA(pTrustee: PTRUSTEE_A;
  413.   pObjSid: POBJECTS_AND_SID; pObjectGuid: PGUID; pInheritedObjectGuid: PGUID;
  414.   pSid: PSID); stdcall;
  415. {$EXTERNALSYM BuildTrusteeWithObjectsAndSidA}
  416. procedure BuildTrusteeWithObjectsAndSidW(pTrustee: PTRUSTEE_W;
  417.   pObjSid: POBJECTS_AND_SID; pObjectGuid: PGUID; pInheritedObjectGuid: PGUID;
  418.   pSid: PSID); stdcall;
  419. {$EXTERNALSYM BuildTrusteeWithObjectsAndSidW}
  421. {$IFDEF UNICODE}
  422. procedure BuildTrusteeWithObjectsAndSid(pTrustee: PTRUSTEE_W;
  423.   pObjSid: POBJECTS_AND_SID; pObjectGuid: PGUID; pInheritedObjectGuid: PGUID;
  424.   pSid: PSID); stdcall;
  425. {$EXTERNALSYM BuildTrusteeWithObjectsAndSid}
  426. {$ELSE}
  427. procedure BuildTrusteeWithObjectsAndSid(pTrustee: PTRUSTEE_A;
  428.   pObjSid: POBJECTS_AND_SID; pObjectGuid: PGUID; pInheritedObjectGuid: PGUID;
  429.   pSid: PSID); stdcall;
  430. {$EXTERNALSYM BuildTrusteeWithObjectsAndSid}
  431. {$ENDIF}
  433. procedure BuildTrusteeWithObjectsAndNameA(pTrustee: PTRUSTEE_A;
  434.   pObjName: POBJECTS_AND_NAME_A; ObjectType: SE_OBJECT_TYPE;
  435.   ObjectTypeName, InheritedObjectTypeName, Name: LPSTR); stdcall;
  436. {$EXTERNALSYM BuildTrusteeWithObjectsAndNameA}
  437. procedure BuildTrusteeWithObjectsAndNameW(pTrustee: PTRUSTEE_W;
  438.   pObjName: POBJECTS_AND_NAME_W; ObjectType: SE_OBJECT_TYPE;
  439.   ObjectTypeName, InheritedObjectTypeName, Name: LPWSTR); stdcall;
  440. {$EXTERNALSYM BuildTrusteeWithObjectsAndNameW}
  442. {$IFDEF UNICODE}
  443. procedure BuildTrusteeWithObjectsAndName(pTrustee: PTRUSTEE_W;
  444.   pObjName: POBJECTS_AND_NAME_W; ObjectType: SE_OBJECT_TYPE;
  445.   ObjectTypeName, InheritedObjectTypeName, Name: LPWSTR); stdcall;
  446. {$EXTERNALSYM BuildTrusteeWithObjectsAndName}
  447. {$ELSE}
  448. procedure BuildTrusteeWithObjectsAndName(pTrustee: PTRUSTEE_A;
  449.   pObjName: POBJECTS_AND_NAME_A; ObjectType: SE_OBJECT_TYPE;
  450.   ObjectTypeName, InheritedObjectTypeName, Name: LPSTR); stdcall;
  451. {$EXTERNALSYM BuildTrusteeWithObjectsAndName}
  452. {$ENDIF}
  454. function GetTrusteeNameA(pTrustee: PTRUSTEE_A): LPSTR; stdcall;
  455. {$EXTERNALSYM GetTrusteeNameA}
  456. function GetTrusteeNameW(pTrustee: PTRUSTEE_W): LPWSTR; stdcall;
  457. {$EXTERNALSYM GetTrusteeNameW}
  459. {$IFDEF UNICODE}
  460. function GetTrusteeName(pTrustee: PTRUSTEE_W): LPWSTR; stdcall;
  461. {$EXTERNALSYM GetTrusteeName}
  462. {$ELSE}
  463. function GetTrusteeName(pTrustee: PTRUSTEE_A): LPSTR; stdcall;
  464. {$EXTERNALSYM GetTrusteeName}
  465. {$ENDIF}
  467. function GetTrusteeTypeA(pTrustee: PTRUSTEE_A): TRUSTEE_TYPE; stdcall;
  468. {$EXTERNALSYM GetTrusteeTypeA}
  469. function GetTrusteeTypeW(pTrustee: PTRUSTEE_W): TRUSTEE_TYPE; stdcall;
  470. {$EXTERNALSYM GetTrusteeTypeW}
  472. {$IFDEF UNICODE}
  473. function GetTrusteeType(pTrustee: PTRUSTEE_W): TRUSTEE_TYPE; stdcall;
  474. {$EXTERNALSYM GetTrusteeType}
  475. {$ELSE}
  476. function GetTrusteeType(pTrustee: PTRUSTEE_A): TRUSTEE_TYPE; stdcall;
  477. {$EXTERNALSYM GetTrusteeType}
  478. {$ENDIF}
  480. function GetTrusteeFormA(pTrustee: PTRUSTEE_A): TRUSTEE_FORM; stdcall;
  481. {$EXTERNALSYM GetTrusteeFormA}
  482. function GetTrusteeFormW(pTrustee: PTRUSTEE_W): TRUSTEE_FORM; stdcall;
  483. {$EXTERNALSYM GetTrusteeFormW}
  485. {$IFDEF UNICODE}
  486. function GetTrusteeForm(pTrustee: PTRUSTEE_W): TRUSTEE_FORM; stdcall;
  487. {$EXTERNALSYM GetTrusteeForm}
  488. {$ELSE}
  489. function GetTrusteeForm(pTrustee: PTRUSTEE_A): TRUSTEE_FORM; stdcall;
  490. {$EXTERNALSYM GetTrusteeForm}
  491. {$ENDIF}
  493. function GetMultipleTrusteeOperationA(pTrustee: PTRUSTEE_A): MULTIPLE_TRUSTEE_OPERATION; stdcall;
  494. {$EXTERNALSYM GetMultipleTrusteeOperationA}
  495. function GetMultipleTrusteeOperationW(pTrustee: PTRUSTEE_W): MULTIPLE_TRUSTEE_OPERATION; stdcall;
  496. {$EXTERNALSYM GetMultipleTrusteeOperationW}
  498. {$IFDEF UNICODE}
  499. function GetMultipleTrusteeOperation(pTrustee: PTRUSTEE_W): MULTIPLE_TRUSTEE_OPERATION; stdcall;
  500. {$EXTERNALSYM GetMultipleTrusteeOperation}
  501. {$ELSE}
  502. function GetMultipleTrusteeOperation(pTrustee: PTRUSTEE_A): MULTIPLE_TRUSTEE_OPERATION; stdcall;
  503. {$EXTERNALSYM GetMultipleTrusteeOperation}
  504. {$ENDIF}
  506. function GetMultipleTrusteeA(pTrustee: PTRUSTEE_A): PTRUSTEE_A; stdcall;
  507. {$EXTERNALSYM GetMultipleTrusteeA}
  508. function GetMultipleTrusteeW(pTrustee: PTRUSTEE_W): PTRUSTEE_W; stdcall;
  509. {$EXTERNALSYM GetMultipleTrusteeW}
  511. {$IFDEF UNICODE}
  512. function GetMultipleTrustee(pTrustee: PTRUSTEE_W): PTRUSTEE_W; stdcall;
  513. {$EXTERNALSYM GetMultipleTrustee}
  514. {$ELSE}
  515. function GetMultipleTrustee(pTrustee: PTRUSTEE_A): PTRUSTEE_A; stdcall;
  516. {$EXTERNALSYM GetMultipleTrustee}
  517. {$ENDIF}
  519. implementation
  521. const
  522.   aclapilib = 'advapi32.dll';
  525. {$IFDEF DYNAMIC_LINK}
  526. var
  527.   _SetEntriesInAclA: Pointer;
  529. function SetEntriesInAclA;
  530. begin
  531.   GetProcedureAddress(_SetEntriesInAclA, aclapilib, 'SetEntriesInAclA');
  532.   asm
  533.     mov esp, ebp
  534.     pop ebp
  535.     jmp [_SetEntriesInAclA]
  536.   end;
  537. end;
  538. {$ELSE}
  539. function SetEntriesInAclA; external aclapilib name 'SetEntriesInAclA';
  540. {$ENDIF DYNAMIC_LINK}
  542. {$IFDEF DYNAMIC_LINK}
  543. var
  544.   _SetEntriesInAclW: Pointer;
  546. function SetEntriesInAclW;
  547. begin
  548.   GetProcedureAddress(_SetEntriesInAclW, aclapilib, 'SetEntriesInAclW');
  549.   asm
  550.     mov esp, ebp
  551.     pop ebp
  552.     jmp [_SetEntriesInAclW]
  553.   end;
  554. end;
  555. {$ELSE}
  556. function SetEntriesInAclW; external aclapilib name 'SetEntriesInAclW';
  557. {$ENDIF DYNAMIC_LINK}
  558. {$IFDEF UNICODE}
  560. {$IFDEF DYNAMIC_LINK}
  561. var
  562.   _SetEntriesInAcl: Pointer;
  564. function SetEntriesInAcl;
  565. begin
  566.   GetProcedureAddress(_SetEntriesInAcl, aclapilib, 'SetEntriesInAclW');
  567.   asm
  568.     mov esp, ebp
  569.     pop ebp
  570.     jmp [_SetEntriesInAcl]
  571.   end;
  572. end;
  573. {$ELSE}
  574. function SetEntriesInAcl; external aclapilib name 'SetEntriesInAclW';
  575. {$ENDIF DYNAMIC_LINK}
  576. {$ELSE}
  578. {$IFDEF DYNAMIC_LINK}
  579. var
  580.   _SetEntriesInAcl: Pointer;
  582. function SetEntriesInAcl;
  583. begin
  584.   GetProcedureAddress(_SetEntriesInAcl, aclapilib, 'SetEntriesInAclA');
  585.   asm
  586.     mov esp, ebp
  587.     pop ebp
  588.     jmp [_SetEntriesInAcl]
  589.   end;
  590. end;
  591. {$ELSE}
  592. function SetEntriesInAcl; external aclapilib name 'SetEntriesInAclA';
  593. {$ENDIF DYNAMIC_LINK}
  594. {$ENDIF}
  596. {$IFDEF DYNAMIC_LINK}
  597. var
  598.   _GetExplicitEntriesFromAclA: Pointer;
  600. function GetExplicitEntriesFromAclA;
  601. begin
  602.   GetProcedureAddress(_GetExplicitEntriesFromAclA, aclapilib, 'GetExplicitEntriesFromAclA');
  603.   asm
  604.     mov esp, ebp
  605.     pop ebp
  606.     jmp [_GetExplicitEntriesFromAclA]
  607.   end;
  608. end;
  609. {$ELSE}
  610. function GetExplicitEntriesFromAclA; external aclapilib name 'GetExplicitEntriesFromAclA';
  611. {$ENDIF DYNAMIC_LINK}
  613. {$IFDEF DYNAMIC_LINK}
  614. var
  615.   _GetExplicitEntriesFromAclW: Pointer;
  617. function GetExplicitEntriesFromAclW;
  618. begin
  619.   GetProcedureAddress(_GetExplicitEntriesFromAclW, aclapilib, 'GetExplicitEntriesFromAclW');
  620.   asm
  621.     mov esp, ebp
  622.     pop ebp
  623.     jmp [_GetExplicitEntriesFromAclW]
  624.   end;
  625. end;
  626. {$ELSE}
  627. function GetExplicitEntriesFromAclW; external aclapilib name 'GetExplicitEntriesFromAclW';
  628. {$ENDIF DYNAMIC_LINK}
  629. {$IFDEF UNICODE}
  631. {$IFDEF DYNAMIC_LINK}
  632. var
  633.   _GetExplicitEntriesFromAcl: Pointer;
  635. function GetExplicitEntriesFromAcl;
  636. begin
  637.   GetProcedureAddress(_GetExplicitEntriesFromAcl, aclapilib, 'GetExplicitEntriesFromAclW');
  638.   asm
  639.     mov esp, ebp
  640.     pop ebp
  641.     jmp [_GetExplicitEntriesFromAcl]
  642.   end;
  643. end;
  644. {$ELSE}
  645. function GetExplicitEntriesFromAcl; external aclapilib name 'GetExplicitEntriesFromAclW';
  646. {$ENDIF DYNAMIC_LINK}
  647. {$ELSE}
  649. {$IFDEF DYNAMIC_LINK}
  650. var
  651.   _GetExplicitEntriesFromAcl: Pointer;
  653. function GetExplicitEntriesFromAcl;
  654. begin
  655.   GetProcedureAddress(_GetExplicitEntriesFromAcl, aclapilib, 'GetExplicitEntriesFromAclA');
  656.   asm
  657.     mov esp, ebp
  658.     pop ebp
  659.     jmp [_GetExplicitEntriesFromAcl]
  660.   end;
  661. end;
  662. {$ELSE}
  663. function GetExplicitEntriesFromAcl; external aclapilib name 'GetExplicitEntriesFromAclA';
  664. {$ENDIF DYNAMIC_LINK}
  665. {$ENDIF}
  667. {$IFDEF DYNAMIC_LINK}
  668. var
  669.   _GetEffectiveRightsFromAclA: Pointer;
  671. function GetEffectiveRightsFromAclA;
  672. begin
  673.   GetProcedureAddress(_GetEffectiveRightsFromAclA, aclapilib, 'GetEffectiveRightsFromAclA');
  674.   asm
  675.     mov esp, ebp
  676.     pop ebp
  677.     jmp [_GetEffectiveRightsFromAclA]
  678.   end;
  679. end;
  680. {$ELSE}
  681. function GetEffectiveRightsFromAclA; external aclapilib name 'GetEffectiveRightsFromAclA';
  682. {$ENDIF DYNAMIC_LINK}
  684. {$IFDEF DYNAMIC_LINK}
  685. var
  686.   _GetEffectiveRightsFromAclW: Pointer;
  688. function GetEffectiveRightsFromAclW;
  689. begin
  690.   GetProcedureAddress(_GetEffectiveRightsFromAclW, aclapilib, 'GetEffectiveRightsFromAclW');
  691.   asm
  692.     mov esp, ebp
  693.     pop ebp
  694.     jmp [_GetEffectiveRightsFromAclW]
  695.   end;
  696. end;
  697. {$ELSE}
  698. function GetEffectiveRightsFromAclW; external aclapilib name 'GetEffectiveRightsFromAclW';
  699. {$ENDIF DYNAMIC_LINK}
  700. {$IFDEF UNICODE}
  702. {$IFDEF DYNAMIC_LINK}
  703. var
  704.   _GetEffectiveRightsFromAcl: Pointer;
  706. function GetEffectiveRightsFromAcl;
  707. begin
  708.   GetProcedureAddress(_GetEffectiveRightsFromAcl, aclapilib, 'GetEffectiveRightsFromAclW');
  709.   asm
  710.     mov esp, ebp
  711.     pop ebp
  712.     jmp [_GetEffectiveRightsFromAcl]
  713.   end;
  714. end;
  715. {$ELSE}
  716. function GetEffectiveRightsFromAcl; external aclapilib name 'GetEffectiveRightsFromAclW';
  717. {$ENDIF DYNAMIC_LINK}
  718. {$ELSE}
  720. {$IFDEF DYNAMIC_LINK}
  721. var
  722.   _GetEffectiveRightsFromAcl: Pointer;
  724. function GetEffectiveRightsFromAcl;
  725. begin
  726.   GetProcedureAddress(_GetEffectiveRightsFromAcl, aclapilib, 'GetEffectiveRightsFromAclA');
  727.   asm
  728.     mov esp, ebp
  729.     pop ebp
  730.     jmp [_GetEffectiveRightsFromAcl]
  731.   end;
  732. end;
  733. {$ELSE}
  734. function GetEffectiveRightsFromAcl; external aclapilib name 'GetEffectiveRightsFromAclA';
  735. {$ENDIF DYNAMIC_LINK}
  736. {$ENDIF}
  738. {$IFDEF DYNAMIC_LINK}
  739. var
  740.   _GetAuditedPermissionsFromAclA: Pointer;
  742. function GetAuditedPermissionsFromAclA;
  743. begin
  744.   GetProcedureAddress(_GetAuditedPermissionsFromAclA, aclapilib, 'GetAuditedPermissionsFromAclA');
  745.   asm
  746.     mov esp, ebp
  747.     pop ebp
  748.     jmp [_GetAuditedPermissionsFromAclA]
  749.   end;
  750. end;
  751. {$ELSE}
  752. function GetAuditedPermissionsFromAclA; external aclapilib name 'GetAuditedPermissionsFromAclA';
  753. {$ENDIF DYNAMIC_LINK}
  755. {$IFDEF DYNAMIC_LINK}
  756. var
  757.   _GetAuditedPermissionsFromAclW: Pointer;
  759. function GetAuditedPermissionsFromAclW;
  760. begin
  761.   GetProcedureAddress(_GetAuditedPermissionsFromAclW, aclapilib, 'GetAuditedPermissionsFromAclW');
  762.   asm
  763.     mov esp, ebp
  764.     pop ebp
  765.     jmp [_GetAuditedPermissionsFromAclW]
  766.   end;
  767. end;
  768. {$ELSE}
  769. function GetAuditedPermissionsFromAclW; external aclapilib name 'GetAuditedPermissionsFromAclW';
  770. {$ENDIF DYNAMIC_LINK}
  771. {$IFDEF UNICODE}
  773. {$IFDEF DYNAMIC_LINK}
  774. var
  775.   _GetAuditedPermissionsFromAcl: Pointer;
  777. function GetAuditedPermissionsFromAcl;
  778. begin
  779.   GetProcedureAddress(_GetAuditedPermissionsFromAcl, aclapilib, 'GetAuditedPermissionsFromAclW');
  780.   asm
  781.     mov esp, ebp
  782.     pop ebp
  783.     jmp [_GetAuditedPermissionsFromAcl]
  784.   end;
  785. end;
  786. {$ELSE}
  787. function GetAuditedPermissionsFromAcl; external aclapilib name 'GetAuditedPermissionsFromAclW';
  788. {$ENDIF DYNAMIC_LINK}
  789. {$ELSE}
  791. {$IFDEF DYNAMIC_LINK}
  792. var
  793.   _GetAuditedPermissionsFromAcl: Pointer;
  795. function GetAuditedPermissionsFromAcl;
  796. begin
  797.   GetProcedureAddress(_GetAuditedPermissionsFromAcl, aclapilib, 'GetAuditedPermissionsFromAclA');
  798.   asm
  799.     mov esp, ebp
  800.     pop ebp
  801.     jmp [_GetAuditedPermissionsFromAcl]
  802.   end;
  803. end;
  804. {$ELSE}
  805. function GetAuditedPermissionsFromAcl; external aclapilib name 'GetAuditedPermissionsFromAclA';
  806. {$ENDIF DYNAMIC_LINK}
  807. {$ENDIF}
  809. {$IFDEF DYNAMIC_LINK}
  810. var
  811.   _GetNamedSecurityInfoA: Pointer;
  813. function GetNamedSecurityInfoA;
  814. begin
  815.   GetProcedureAddress(_GetNamedSecurityInfoA, aclapilib, 'GetNamedSecurityInfoA');
  816.   asm
  817.     mov esp, ebp
  818.     pop ebp
  819.     jmp [_GetNamedSecurityInfoA]
  820.   end;
  821. end;
  822. {$ELSE}
  823. function GetNamedSecurityInfoA; external aclapilib name 'GetNamedSecurityInfoA';
  824. {$ENDIF DYNAMIC_LINK}
  826. {$IFDEF DYNAMIC_LINK}
  827. var
  828.   _GetNamedSecurityInfoW: Pointer;
  830. function GetNamedSecurityInfoW;
  831. begin
  832.   GetProcedureAddress(_GetNamedSecurityInfoW, aclapilib, 'GetNamedSecurityInfoW');
  833.   asm
  834.     mov esp, ebp
  835.     pop ebp
  836.     jmp [_GetNamedSecurityInfoW]
  837.   end;
  838. end;
  839. {$ELSE}
  840. function GetNamedSecurityInfoW; external aclapilib name 'GetNamedSecurityInfoW';
  841. {$ENDIF DYNAMIC_LINK}
  842. {$IFDEF UNICODE}
  844. {$IFDEF DYNAMIC_LINK}
  845. var
  846.   _GetNamedSecurityInfo: Pointer;
  848. function GetNamedSecurityInfo;
  849. begin
  850.   GetProcedureAddress(_GetNamedSecurityInfo, aclapilib, 'GetNamedSecurityInfoW');
  851.   asm
  852.     mov esp, ebp
  853.     pop ebp
  854.     jmp [_GetNamedSecurityInfo]
  855.   end;
  856. end;
  857. {$ELSE}
  858. function GetNamedSecurityInfo; external aclapilib name 'GetNamedSecurityInfoW';
  859. {$ENDIF DYNAMIC_LINK}
  860. {$ELSE}
  862. {$IFDEF DYNAMIC_LINK}
  863. var
  864.   _GetNamedSecurityInfo: Pointer;
  866. function GetNamedSecurityInfo;
  867. begin
  868.   GetProcedureAddress(_GetNamedSecurityInfo, aclapilib, 'GetNamedSecurityInfoA');
  869.   asm
  870.     mov esp, ebp
  871.     pop ebp
  872.     jmp [_GetNamedSecurityInfo]
  873.   end;
  874. end;
  875. {$ELSE}
  876. function GetNamedSecurityInfo; external aclapilib name 'GetNamedSecurityInfoA';
  877. {$ENDIF DYNAMIC_LINK}
  878. {$ENDIF}
  880. {$IFDEF DYNAMIC_LINK}
  881. var
  882.   _GetSecurityInfo: Pointer;
  884. function GetSecurityInfo;
  885. begin
  886.   GetProcedureAddress(_GetSecurityInfo, aclapilib, 'GetSecurityInfo');
  887.   asm
  888.     mov esp, ebp
  889.     pop ebp
  890.     jmp [_GetSecurityInfo]
  891.   end;
  892. end;
  893. {$ELSE}
  894. function GetSecurityInfo; external aclapilib name 'GetSecurityInfo';
  895. {$ENDIF DYNAMIC_LINK}
  897. {$IFDEF DYNAMIC_LINK}
  898. var
  899.   _SetNamedSecurityInfoA: Pointer;
  901. function SetNamedSecurityInfoA;
  902. begin
  903.   GetProcedureAddress(_SetNamedSecurityInfoA, aclapilib, 'SetNamedSecurityInfoA');
  904.   asm
  905.     mov esp, ebp
  906.     pop ebp
  907.     jmp [_SetNamedSecurityInfoA]
  908.   end;
  909. end;
  910. {$ELSE}
  911. function SetNamedSecurityInfoA; external aclapilib name 'SetNamedSecurityInfoA';
  912. {$ENDIF DYNAMIC_LINK}
  914. {$IFDEF DYNAMIC_LINK}
  915. var
  916.   _SetNamedSecurityInfoW: Pointer;
  918. function SetNamedSecurityInfoW;
  919. begin
  920.   GetProcedureAddress(_SetNamedSecurityInfoW, aclapilib, 'SetNamedSecurityInfoW');
  921.   asm
  922.     mov esp, ebp
  923.     pop ebp
  924.     jmp [_SetNamedSecurityInfoW]
  925.   end;
  926. end;
  927. {$ELSE}
  928. function SetNamedSecurityInfoW; external aclapilib name 'SetNamedSecurityInfoW';
  929. {$ENDIF DYNAMIC_LINK}
  930. {$IFDEF UNICODE}
  932. {$IFDEF DYNAMIC_LINK}
  933. var
  934.   _SetNamedSecurityInfo: Pointer;
  936. function SetNamedSecurityInfo;
  937. begin
  938.   GetProcedureAddress(_SetNamedSecurityInfo, aclapilib, 'SetNamedSecurityInfoW');
  939.   asm
  940.     mov esp, ebp
  941.     pop ebp
  942.     jmp [_SetNamedSecurityInfo]
  943.   end;
  944. end;
  945. {$ELSE}
  946. function SetNamedSecurityInfo; external aclapilib name 'SetNamedSecurityInfoW';
  947. {$ENDIF DYNAMIC_LINK}
  948. {$ELSE}
  950. {$IFDEF DYNAMIC_LINK}
  951. var
  952.   _SetNamedSecurityInfo: Pointer;
  954. function SetNamedSecurityInfo;
  955. begin
  956.   GetProcedureAddress(_SetNamedSecurityInfo, aclapilib, 'SetNamedSecurityInfoA');
  957.   asm
  958.     mov esp, ebp
  959.     pop ebp
  960.     jmp [_SetNamedSecurityInfo]
  961.   end;
  962. end;
  963. {$ELSE}
  964. function SetNamedSecurityInfo; external aclapilib name 'SetNamedSecurityInfoA';
  965. {$ENDIF DYNAMIC_LINK}
  966. {$ENDIF}
  968. {$IFDEF DYNAMIC_LINK}
  969. var
  970.   _SetSecurityInfo: Pointer;
  972. function SetSecurityInfo;
  973. begin
  974.   GetProcedureAddress(_SetSecurityInfo, aclapilib, 'SetSecurityInfo');
  975.   asm
  976.     mov esp, ebp
  977.     pop ebp
  978.     jmp [_SetSecurityInfo]
  979.   end;
  980. end;
  981. {$ELSE}
  982. function SetSecurityInfo; external aclapilib name 'SetSecurityInfo';
  983. {$ENDIF DYNAMIC_LINK}
  985. {$IFDEF DYNAMIC_LINK}
  986. var
  987.   _GetInheritanceSourceA: Pointer;
  989. function GetInheritanceSourceA;
  990. begin
  991.   GetProcedureAddress(_GetInheritanceSourceA, aclapilib, 'GetInheritanceSourceA');
  992.   asm
  993.     mov esp, ebp
  994.     pop ebp
  995.     jmp [_GetInheritanceSourceA]
  996.   end;
  997. end;
  998. {$ELSE}
  999. function GetInheritanceSourceA; external aclapilib name 'GetInheritanceSourceA';
  1000. {$ENDIF DYNAMIC_LINK}
  1002. {$IFDEF DYNAMIC_LINK}
  1003. var
  1004.   _GetInheritanceSourceW: Pointer;
  1006. function GetInheritanceSourceW;
  1007. begin
  1008.   GetProcedureAddress(_GetInheritanceSourceW, aclapilib, 'GetInheritanceSourceW');
  1009.   asm
  1010.     mov esp, ebp
  1011.     pop ebp
  1012.     jmp [_GetInheritanceSourceW]
  1013.   end;
  1014. end;
  1015. {$ELSE}
  1016. function GetInheritanceSourceW; external aclapilib name 'GetInheritanceSourceW';
  1017. {$ENDIF DYNAMIC_LINK}
  1018. {$IFDEF UNICODE}
  1020. {$IFDEF DYNAMIC_LINK}
  1021. var
  1022.   _GetInheritanceSource: Pointer;
  1024. function GetInheritanceSource;
  1025. begin
  1026.   GetProcedureAddress(_GetInheritanceSource, aclapilib, 'GetInheritanceSourceW');
  1027.   asm
  1028.     mov esp, ebp
  1029.     pop ebp
  1030.     jmp [_GetInheritanceSource]
  1031.   end;
  1032. end;
  1033. {$ELSE}
  1034. function GetInheritanceSource; external aclapilib name 'GetInheritanceSourceW';
  1035. {$ENDIF DYNAMIC_LINK}
  1036. {$ELSE}
  1038. {$IFDEF DYNAMIC_LINK}
  1039. var
  1040.   _GetInheritanceSource: Pointer;
  1042. function GetInheritanceSource;
  1043. begin
  1044.   GetProcedureAddress(_GetInheritanceSource, aclapilib, 'GetInheritanceSourceA');
  1045.   asm
  1046.     mov esp, ebp
  1047.     pop ebp
  1048.     jmp [_GetInheritanceSource]
  1049.   end;
  1050. end;
  1051. {$ELSE}
  1052. function GetInheritanceSource; external aclapilib name 'GetInheritanceSourceA';
  1053. {$ENDIF DYNAMIC_LINK}
  1054. {$ENDIF}
  1056. {$IFDEF DYNAMIC_LINK}
  1057. var
  1058.   _FreeInheritedFromArray: Pointer;
  1060. function FreeInheritedFromArray;
  1061. begin
  1062.   GetProcedureAddress(_FreeInheritedFromArray, aclapilib, 'FreeInheritedFromArray');
  1063.   asm
  1064.     mov esp, ebp
  1065.     pop ebp
  1066.     jmp [_FreeInheritedFromArray]
  1067.   end;
  1068. end;
  1069. {$ELSE}
  1070. function FreeInheritedFromArray; external aclapilib name 'FreeInheritedFromArray';
  1071. {$ENDIF DYNAMIC_LINK}
  1073. {$IFDEF DYNAMIC_LINK}
  1074. var
  1075.   _TreeResetNamedSecurityInfoA: Pointer;
  1077. function TreeResetNamedSecurityInfoA;
  1078. begin
  1079.   GetProcedureAddress(_TreeResetNamedSecurityInfoA, aclapilib, 'TreeResetNamedSecurityInfoA');
  1080.   asm
  1081.     mov esp, ebp
  1082.     pop ebp
  1083.     jmp [_TreeResetNamedSecurityInfoA]
  1084.   end;
  1085. end;
  1086. {$ELSE}
  1087. function TreeResetNamedSecurityInfoA; external aclapilib name 'TreeResetNamedSecurityInfoA';
  1088. {$ENDIF DYNAMIC_LINK}
  1090. {$IFDEF DYNAMIC_LINK}
  1091. var
  1092.   _TreeResetNamedSecurityInfoW: Pointer;
  1094. function TreeResetNamedSecurityInfoW;
  1095. begin
  1096.   GetProcedureAddress(_TreeResetNamedSecurityInfoW, aclapilib, 'TreeResetNamedSecurityInfoW');
  1097.   asm
  1098.     mov esp, ebp
  1099.     pop ebp
  1100.     jmp [_TreeResetNamedSecurityInfoW]
  1101.   end;
  1102. end;
  1103. {$ELSE}
  1104. function TreeResetNamedSecurityInfoW; external aclapilib name 'TreeResetNamedSecurityInfoW';
  1105. {$ENDIF DYNAMIC_LINK}
  1106. {$IFDEF UNICODE}
  1108. {$IFDEF DYNAMIC_LINK}
  1109. var
  1110.   _TreeResetNamedSecurityInfo: Pointer;
  1112. function TreeResetNamedSecurityInfo;
  1113. begin
  1114.   GetProcedureAddress(_TreeResetNamedSecurityInfo, aclapilib, 'TreeResetNamedSecurityInfoW');
  1115.   asm
  1116.     mov esp, ebp
  1117.     pop ebp
  1118.     jmp [_TreeResetNamedSecurityInfo]
  1119.   end;
  1120. end;
  1121. {$ELSE}
  1122. function TreeResetNamedSecurityInfo; external aclapilib name 'TreeResetNamedSecurityInfoW';
  1123. {$ENDIF DYNAMIC_LINK}
  1124. {$ELSE}
  1126. {$IFDEF DYNAMIC_LINK}
  1127. var
  1128.   _TreeResetNamedSecurityInfo: Pointer;
  1130. function TreeResetNamedSecurityInfo;
  1131. begin
  1132.   GetProcedureAddress(_TreeResetNamedSecurityInfo, aclapilib, 'TreeResetNamedSecurityInfoA');
  1133.   asm
  1134.     mov esp, ebp
  1135.     pop ebp
  1136.     jmp [_TreeResetNamedSecurityInfo]
  1137.   end;
  1138. end;
  1139. {$ELSE}
  1140. function TreeResetNamedSecurityInfo; external aclapilib name 'TreeResetNamedSecurityInfoA';
  1141. {$ENDIF DYNAMIC_LINK}
  1142. {$ENDIF}
  1144. {$IFDEF DYNAMIC_LINK}
  1145. var
  1146.   _BuildSecurityDescriptorA: Pointer;
  1148. function BuildSecurityDescriptorA;
  1149. begin
  1150.   GetProcedureAddress(_BuildSecurityDescriptorA, aclapilib, 'BuildSecurityDescriptorA');
  1151.   asm
  1152.     mov esp, ebp
  1153.     pop ebp
  1154.     jmp [_BuildSecurityDescriptorA]
  1155.   end;
  1156. end;
  1157. {$ELSE}
  1158. function BuildSecurityDescriptorA; external aclapilib name 'BuildSecurityDescriptorA';
  1159. {$ENDIF DYNAMIC_LINK}
  1161. {$IFDEF DYNAMIC_LINK}
  1162. var
  1163.   _BuildSecurityDescriptorW: Pointer;
  1165. function BuildSecurityDescriptorW;
  1166. begin
  1167.   GetProcedureAddress(_BuildSecurityDescriptorW, aclapilib, 'BuildSecurityDescriptorW');
  1168.   asm
  1169.     mov esp, ebp
  1170.     pop ebp
  1171.     jmp [_BuildSecurityDescriptorW]
  1172.   end;
  1173. end;
  1174. {$ELSE}
  1175. function BuildSecurityDescriptorW; external aclapilib name 'BuildSecurityDescriptorW';
  1176. {$ENDIF DYNAMIC_LINK}
  1177. {$IFDEF UNICODE}
  1179. {$IFDEF DYNAMIC_LINK}
  1180. var
  1181.   _BuildSecurityDescriptor: Pointer;
  1183. function BuildSecurityDescriptor;
  1184. begin
  1185.   GetProcedureAddress(_BuildSecurityDescriptor, aclapilib, 'BuildSecurityDescriptorW');
  1186.   asm
  1187.     mov esp, ebp
  1188.     pop ebp
  1189.     jmp [_BuildSecurityDescriptor]
  1190.   end;
  1191. end;
  1192. {$ELSE}
  1193. function BuildSecurityDescriptor; external aclapilib name 'BuildSecurityDescriptorW';
  1194. {$ENDIF DYNAMIC_LINK}
  1195. {$ELSE}
  1197. {$IFDEF DYNAMIC_LINK}
  1198. var
  1199.   _BuildSecurityDescriptor: Pointer;
  1201. function BuildSecurityDescriptor;
  1202. begin
  1203.   GetProcedureAddress(_BuildSecurityDescriptor, aclapilib, 'BuildSecurityDescriptorA');
  1204.   asm
  1205.     mov esp, ebp
  1206.     pop ebp
  1207.     jmp [_BuildSecurityDescriptor]
  1208.   end;
  1209. end;
  1210. {$ELSE}
  1211. function BuildSecurityDescriptor; external aclapilib name 'BuildSecurityDescriptorA';
  1212. {$ENDIF DYNAMIC_LINK}
  1213. {$ENDIF}
  1215. {$IFDEF DYNAMIC_LINK}
  1216. var
  1217.   _LookupSecurityDescriptorPartsA: Pointer;
  1219. function LookupSecurityDescriptorPartsA;
  1220. begin
  1221.   GetProcedureAddress(_LookupSecurityDescriptorPartsA, aclapilib, 'LookupSecurityDescriptorPartsA');
  1222.   asm
  1223.     mov esp, ebp
  1224.     pop ebp
  1225.     jmp [_LookupSecurityDescriptorPartsA]
  1226.   end;
  1227. end;
  1228. {$ELSE}
  1229. function LookupSecurityDescriptorPartsA; external aclapilib name 'LookupSecurityDescriptorPartsA';
  1230. {$ENDIF DYNAMIC_LINK}
  1232. {$IFDEF DYNAMIC_LINK}
  1233. var
  1234.   _LookupSecurityDescriptorPartsW: Pointer;
  1236. function LookupSecurityDescriptorPartsW;
  1237. begin
  1238.   GetProcedureAddress(_LookupSecurityDescriptorPartsW, aclapilib, 'LookupSecurityDescriptorPartsW');
  1239.   asm
  1240.     mov esp, ebp
  1241.     pop ebp
  1242.     jmp [_LookupSecurityDescriptorPartsW]
  1243.   end;
  1244. end;
  1245. {$ELSE}
  1246. function LookupSecurityDescriptorPartsW; external aclapilib name 'LookupSecurityDescriptorPartsW';
  1247. {$ENDIF DYNAMIC_LINK}
  1248. {$IFDEF UNICODE}
  1250. {$IFDEF DYNAMIC_LINK}
  1251. var
  1252.   _LookupSecurityDescriptorParts: Pointer;
  1254. function LookupSecurityDescriptorParts;
  1255. begin
  1256.   GetProcedureAddress(_LookupSecurityDescriptorParts, aclapilib, 'LookupSecurityDescriptorPartsW');
  1257.   asm
  1258.     mov esp, ebp
  1259.     pop ebp
  1260.     jmp [_LookupSecurityDescriptorParts]
  1261.   end;
  1262. end;
  1263. {$ELSE}
  1264. function LookupSecurityDescriptorParts; external aclapilib name 'LookupSecurityDescriptorPartsW';
  1265. {$ENDIF DYNAMIC_LINK}
  1266. {$ELSE}
  1268. {$IFDEF DYNAMIC_LINK}
  1269. var
  1270.   _LookupSecurityDescriptorParts: Pointer;
  1272. function LookupSecurityDescriptorParts;
  1273. begin
  1274.   GetProcedureAddress(_LookupSecurityDescriptorParts, aclapilib, 'LookupSecurityDescriptorPartsA');
  1275.   asm
  1276.     mov esp, ebp
  1277.     pop ebp
  1278.     jmp [_LookupSecurityDescriptorParts]
  1279.   end;
  1280. end;
  1281. {$ELSE}
  1282. function LookupSecurityDescriptorParts; external aclapilib name 'LookupSecurityDescriptorPartsA';
  1283. {$ENDIF DYNAMIC_LINK}
  1284. {$ENDIF}
  1286. {$IFDEF DYNAMIC_LINK}
  1287. var
  1288.   _BuildExplicitAccessWithNameA: Pointer;
  1290. procedure BuildExplicitAccessWithNameA;
  1291. begin
  1292.   GetProcedureAddress(_BuildExplicitAccessWithNameA, aclapilib, 'BuildExplicitAccessWithNameA');
  1293.   asm
  1294.     mov esp, ebp
  1295.     pop ebp
  1296.     jmp [_BuildExplicitAccessWithNameA]
  1297.   end;
  1298. end;
  1299. {$ELSE}
  1300. procedure BuildExplicitAccessWithNameA; external aclapilib name 'BuildExplicitAccessWithNameA';
  1301. {$ENDIF DYNAMIC_LINK}
  1303. {$IFDEF DYNAMIC_LINK}
  1304. var
  1305.   _BuildExplicitAccessWithNameW: Pointer;
  1307. procedure BuildExplicitAccessWithNameW;
  1308. begin
  1309.   GetProcedureAddress(_BuildExplicitAccessWithNameW, aclapilib, 'BuildExplicitAccessWithNameW');
  1310.   asm
  1311.     mov esp, ebp
  1312.     pop ebp
  1313.     jmp [_BuildExplicitAccessWithNameW]
  1314.   end;
  1315. end;
  1316. {$ELSE}
  1317. procedure BuildExplicitAccessWithNameW; external aclapilib name 'BuildExplicitAccessWithNameW';
  1318. {$ENDIF DYNAMIC_LINK}
  1319. {$IFDEF UNICODE}
  1321. {$IFDEF DYNAMIC_LINK}
  1322. var
  1323.   _BuildExplicitAccessWithName: Pointer;
  1325. procedure BuildExplicitAccessWithName;
  1326. begin
  1327.   GetProcedureAddress(_BuildExplicitAccessWithName, aclapilib, 'BuildExplicitAccessWithNameW');
  1328.   asm
  1329.     mov esp, ebp
  1330.     pop ebp
  1331.     jmp [_BuildExplicitAccessWithName]
  1332.   end;
  1333. end;
  1334. {$ELSE}
  1335. procedure BuildExplicitAccessWithName; external aclapilib name 'BuildExplicitAccessWithNameW';
  1336. {$ENDIF DYNAMIC_LINK}
  1337. {$ELSE}
  1339. {$IFDEF DYNAMIC_LINK}
  1340. var
  1341.   _BuildExplicitAccessWithName: Pointer;
  1343. procedure BuildExplicitAccessWithName;
  1344. begin
  1345.   GetProcedureAddress(_BuildExplicitAccessWithName, aclapilib, 'BuildExplicitAccessWithNameA');
  1346.   asm
  1347.     mov esp, ebp
  1348.     pop ebp
  1349.     jmp [_BuildExplicitAccessWithName]
  1350.   end;
  1351. end;
  1352. {$ELSE}
  1353. procedure BuildExplicitAccessWithName; external aclapilib name 'BuildExplicitAccessWithNameA';
  1354. {$ENDIF DYNAMIC_LINK}
  1355. {$ENDIF}
  1357. {$IFDEF DYNAMIC_LINK}
  1358. var
  1359.   _BuildImpersonateExplAccWNA: Pointer;
  1361. procedure BuildImpersonateExplicitAccessWithNameA;
  1362. begin
  1363.   GetProcedureAddress(_BuildImpersonateExplAccWNA, aclapilib, 'BuildImpersonateExplicitAccessWithNameA');
  1364.   asm
  1365.     mov esp, ebp
  1366.     pop ebp
  1367.     jmp [_BuildImpersonateExplAccWNA]
  1368.   end;
  1369. end;
  1370. {$ELSE}
  1371. procedure BuildImpersonateExplicitAccessWithNameA; external aclapilib name 'BuildImpersonateExplicitAccessWithNameA';
  1372. {$ENDIF DYNAMIC_LINK}
  1374. {$IFDEF DYNAMIC_LINK}
  1375. var
  1376.   _BuildImpersonateExplAccWNW: Pointer;
  1378. procedure BuildImpersonateExplicitAccessWithNameW;
  1379. begin
  1380.   GetProcedureAddress(_BuildImpersonateExplAccWNW, aclapilib, 'BuildImpersonateExplicitAccessWithNameW');
  1381.   asm
  1382.     mov esp, ebp
  1383.     pop ebp
  1384.     jmp [_BuildImpersonateExplAccWNW]
  1385.   end;
  1386. end;
  1387. {$ELSE}
  1388. procedure BuildImpersonateExplicitAccessWithNameW; external aclapilib name 'BuildImpersonateExplicitAccessWithNameW';
  1389. {$ENDIF DYNAMIC_LINK}
  1390. {$IFDEF UNICODE}
  1392. {$IFDEF DYNAMIC_LINK}
  1393. var
  1394.   _BuildImpersonateExplAccWN: Pointer;
  1396. procedure BuildImpersonateExplicitAccessWithName;
  1397. begin
  1398.   GetProcedureAddress(_BuildImpersonateExplAccWN, aclapilib, 'BuildImpersonateExplicitAccessWithNameW');
  1399.   asm
  1400.     mov esp, ebp
  1401.     pop ebp
  1402.     jmp [_BuildImpersonateExplAccWN]
  1403.   end;
  1404. end;
  1405. {$ELSE}
  1406. procedure BuildImpersonateExplicitAccessWithName; external aclapilib name 'BuildImpersonateExplicitAccessWithNameW';
  1407. {$ENDIF DYNAMIC_LINK}
  1408. {$ELSE}
  1410. {$IFDEF DYNAMIC_LINK}
  1411. var
  1412.   _BuildImpersonateExplAccWN: Pointer;
  1414. procedure BuildImpersonateExplicitAccessWithName;
  1415. begin
  1416.   GetProcedureAddress(_BuildImpersonateExplAccWN, aclapilib, 'BuildImpersonateExplicitAccessWithNameA');
  1417.   asm
  1418.     mov esp, ebp
  1419.     pop ebp
  1420.     jmp [_BuildImpersonateExplAccWN]
  1421.   end;
  1422. end;
  1423. {$ELSE}
  1424. procedure BuildImpersonateExplicitAccessWithName; external aclapilib name 'BuildImpersonateExplicitAccessWithNameA';
  1425. {$ENDIF DYNAMIC_LINK}
  1426. {$ENDIF}
  1428. {$IFDEF DYNAMIC_LINK}
  1429. var
  1430.   _BuildTrusteeWithNameA: Pointer;
  1432. procedure BuildTrusteeWithNameA;
  1433. begin
  1434.   GetProcedureAddress(_BuildTrusteeWithNameA, aclapilib, 'BuildTrusteeWithNameA');
  1435.   asm
  1436.     mov esp, ebp
  1437.     pop ebp
  1438.     jmp [_BuildTrusteeWithNameA]
  1439.   end;
  1440. end;
  1441. {$ELSE}
  1442. procedure BuildTrusteeWithNameA; external aclapilib name 'BuildTrusteeWithNameA';
  1443. {$ENDIF DYNAMIC_LINK}
  1445. {$IFDEF DYNAMIC_LINK}
  1446. var
  1447.   _BuildTrusteeWithNameW: Pointer;
  1449. procedure BuildTrusteeWithNameW;
  1450. begin
  1451.   GetProcedureAddress(_BuildTrusteeWithNameW, aclapilib, 'BuildTrusteeWithNameW');
  1452.   asm
  1453.     mov esp, ebp
  1454.     pop ebp
  1455.     jmp [_BuildTrusteeWithNameW]
  1456.   end;
  1457. end;
  1458. {$ELSE}
  1459. procedure BuildTrusteeWithNameW; external aclapilib name 'BuildTrusteeWithNameW';
  1460. {$ENDIF DYNAMIC_LINK}
  1461. {$IFDEF UNICODE}
  1463. {$IFDEF DYNAMIC_LINK}
  1464. var
  1465.   _BuildTrusteeWithName: Pointer;
  1467. procedure BuildTrusteeWithName;
  1468. begin
  1469.   GetProcedureAddress(_BuildTrusteeWithName, aclapilib, 'BuildTrusteeWithNameW');
  1470.   asm
  1471.     mov esp, ebp
  1472.     pop ebp
  1473.     jmp [_BuildTrusteeWithName]
  1474.   end;
  1475. end;
  1476. {$ELSE}
  1477. procedure BuildTrusteeWithName; external aclapilib name 'BuildTrusteeWithNameW';
  1478. {$ENDIF DYNAMIC_LINK}
  1479. {$ELSE}
  1481. {$IFDEF DYNAMIC_LINK}
  1482. var
  1483.   _BuildTrusteeWithName: Pointer;
  1485. procedure BuildTrusteeWithName;
  1486. begin
  1487.   GetProcedureAddress(_BuildTrusteeWithName, aclapilib, 'BuildTrusteeWithNameA');
  1488.   asm
  1489.     mov esp, ebp
  1490.     pop ebp
  1491.     jmp [_BuildTrusteeWithName]
  1492.   end;
  1493. end;
  1494. {$ELSE}
  1495. procedure BuildTrusteeWithName; external aclapilib name 'BuildTrusteeWithNameA';
  1496. {$ENDIF DYNAMIC_LINK}
  1497. {$ENDIF}
  1499. {$IFDEF DYNAMIC_LINK}
  1500. var
  1501.   _BuildImpersonateTrusteeA: Pointer;
  1503. procedure BuildImpersonateTrusteeA;
  1504. begin
  1505.   GetProcedureAddress(_BuildImpersonateTrusteeA, aclapilib, 'BuildImpersonateTrusteeA');
  1506.   asm
  1507.     mov esp, ebp
  1508.     pop ebp
  1509.     jmp [_BuildImpersonateTrusteeA]
  1510.   end;
  1511. end;
  1512. {$ELSE}
  1513. procedure BuildImpersonateTrusteeA; external aclapilib name 'BuildImpersonateTrusteeA';
  1514. {$ENDIF DYNAMIC_LINK}
  1516. {$IFDEF DYNAMIC_LINK}
  1517. var
  1518.   _BuildImpersonateTrusteeW: Pointer;
  1520. procedure BuildImpersonateTrusteeW;
  1521. begin
  1522.   GetProcedureAddress(_BuildImpersonateTrusteeW, aclapilib, 'BuildImpersonateTrusteeW');
  1523.   asm
  1524.     mov esp, ebp
  1525.     pop ebp
  1526.     jmp [_BuildImpersonateTrusteeW]
  1527.   end;
  1528. end;
  1529. {$ELSE}
  1530. procedure BuildImpersonateTrusteeW; external aclapilib name 'BuildImpersonateTrusteeW';
  1531. {$ENDIF DYNAMIC_LINK}
  1532. {$IFDEF UNICODE}
  1534. {$IFDEF DYNAMIC_LINK}
  1535. var
  1536.   _BuildImpersonateTrustee: Pointer;
  1538. procedure BuildImpersonateTrustee;
  1539. begin
  1540.   GetProcedureAddress(_BuildImpersonateTrustee, aclapilib, 'BuildImpersonateTrusteeW');
  1541.   asm
  1542.     mov esp, ebp
  1543.     pop ebp
  1544.     jmp [_BuildImpersonateTrustee]
  1545.   end;
  1546. end;
  1547. {$ELSE}
  1548. procedure BuildImpersonateTrustee; external aclapilib name 'BuildImpersonateTrusteeW';
  1549. {$ENDIF DYNAMIC_LINK}
  1550. {$ELSE}
  1552. {$IFDEF DYNAMIC_LINK}
  1553. var
  1554.   _BuildImpersonateTrustee: Pointer;
  1556. procedure BuildImpersonateTrustee;
  1557. begin
  1558.   GetProcedureAddress(_BuildImpersonateTrustee, aclapilib, 'BuildImpersonateTrusteeA');
  1559.   asm
  1560.     mov esp, ebp
  1561.     pop ebp
  1562.     jmp [_BuildImpersonateTrustee]
  1563.   end;
  1564. end;
  1565. {$ELSE}
  1566. procedure BuildImpersonateTrustee; external aclapilib name 'BuildImpersonateTrusteeA';
  1567. {$ENDIF DYNAMIC_LINK}
  1568. {$ENDIF}
  1570. {$IFDEF DYNAMIC_LINK}
  1571. var
  1572.   _BuildTrusteeWithSidA: Pointer;
  1574. procedure BuildTrusteeWithSidA;
  1575. begin
  1576.   GetProcedureAddress(_BuildTrusteeWithSidA, aclapilib, 'BuildTrusteeWithSidA');
  1577.   asm
  1578.     mov esp, ebp
  1579.     pop ebp
  1580.     jmp [_BuildTrusteeWithSidA]
  1581.   end;
  1582. end;
  1583. {$ELSE}
  1584. procedure BuildTrusteeWithSidA; external aclapilib name 'BuildTrusteeWithSidA';
  1585. {$ENDIF DYNAMIC_LINK}
  1587. {$IFDEF DYNAMIC_LINK}
  1588. var
  1589.   _BuildTrusteeWithSidW: Pointer;
  1591. procedure BuildTrusteeWithSidW;
  1592. begin
  1593.   GetProcedureAddress(_BuildTrusteeWithSidW, aclapilib, 'BuildTrusteeWithSidW');
  1594.   asm
  1595.     mov esp, ebp
  1596.     pop ebp
  1597.     jmp [_BuildTrusteeWithSidW]
  1598.   end;
  1599. end;
  1600. {$ELSE}
  1601. procedure BuildTrusteeWithSidW; external aclapilib name 'BuildTrusteeWithSidW';
  1602. {$ENDIF DYNAMIC_LINK}
  1603. {$IFDEF UNICODE}
  1605. {$IFDEF DYNAMIC_LINK}
  1606. var
  1607.   _BuildTrusteeWithSid: Pointer;
  1609. procedure BuildTrusteeWithSid;
  1610. begin
  1611.   GetProcedureAddress(_BuildTrusteeWithSid, aclapilib, 'BuildTrusteeWithSidW');
  1612.   asm
  1613.     mov esp, ebp
  1614.     pop ebp
  1615.     jmp [_BuildTrusteeWithSid]
  1616.   end;
  1617. end;
  1618. {$ELSE}
  1619. procedure BuildTrusteeWithSid; external aclapilib name 'BuildTrusteeWithSidW';
  1620. {$ENDIF DYNAMIC_LINK}
  1621. {$ELSE}
  1623. {$IFDEF DYNAMIC_LINK}
  1624. var
  1625.   _BuildTrusteeWithSid: Pointer;
  1627. procedure BuildTrusteeWithSid;
  1628. begin
  1629.   GetProcedureAddress(_BuildTrusteeWithSid, aclapilib, 'BuildTrusteeWithSidA');
  1630.   asm
  1631.     mov esp, ebp
  1632.     pop ebp
  1633.     jmp [_BuildTrusteeWithSid]
  1634.   end;
  1635. end;
  1636. {$ELSE}
  1637. procedure BuildTrusteeWithSid; external aclapilib name 'BuildTrusteeWithSidA';
  1638. {$ENDIF DYNAMIC_LINK}
  1639. {$ENDIF}
  1641. {$IFDEF DYNAMIC_LINK}
  1642. var
  1643.   _BuildTrusteeWithObjectsAndSidA: Pointer;
  1645. procedure BuildTrusteeWithObjectsAndSidA;
  1646. begin
  1647.   GetProcedureAddress(_BuildTrusteeWithObjectsAndSidA, aclapilib, 'BuildTrusteeWithObjectsAndSidA');
  1648.   asm
  1649.     mov esp, ebp
  1650.     pop ebp
  1651.     jmp [_BuildTrusteeWithObjectsAndSidA]
  1652.   end;
  1653. end;
  1654. {$ELSE}
  1655. procedure BuildTrusteeWithObjectsAndSidA; external aclapilib name 'BuildTrusteeWithObjectsAndSidA';
  1656. {$ENDIF DYNAMIC_LINK}
  1658. {$IFDEF DYNAMIC_LINK}
  1659. var
  1660.   _BuildTrusteeWithObjectsAndSidW: Pointer;
  1662. procedure BuildTrusteeWithObjectsAndSidW;
  1663. begin
  1664.   GetProcedureAddress(_BuildTrusteeWithObjectsAndSidW, aclapilib, 'BuildTrusteeWithObjectsAndSidW');
  1665.   asm
  1666.     mov esp, ebp
  1667.     pop ebp
  1668.     jmp [_BuildTrusteeWithObjectsAndSidW]
  1669.   end;
  1670. end;
  1671. {$ELSE}
  1672. procedure BuildTrusteeWithObjectsAndSidW; external aclapilib name 'BuildTrusteeWithObjectsAndSidW';
  1673. {$ENDIF DYNAMIC_LINK}
  1674. {$IFDEF UNICODE}
  1676. {$IFDEF DYNAMIC_LINK}
  1677. var
  1678.   _BuildTrusteeWithObjectsAndSid: Pointer;
  1680. procedure BuildTrusteeWithObjectsAndSid;
  1681. begin
  1682.   GetProcedureAddress(_BuildTrusteeWithObjectsAndSid, aclapilib, 'BuildTrusteeWithObjectsAndSidW');
  1683.   asm
  1684.     mov esp, ebp
  1685.     pop ebp
  1686.     jmp [_BuildTrusteeWithObjectsAndSid]
  1687.   end;
  1688. end;
  1689. {$ELSE}
  1690. procedure BuildTrusteeWithObjectsAndSid; external aclapilib name 'BuildTrusteeWithObjectsAndSidW';
  1691. {$ENDIF DYNAMIC_LINK}
  1692. {$ELSE}
  1694. {$IFDEF DYNAMIC_LINK}
  1695. var
  1696.   _BuildTrusteeWithObjectsAndSid: Pointer;
  1698. procedure BuildTrusteeWithObjectsAndSid;
  1699. begin
  1700.   GetProcedureAddress(_BuildTrusteeWithObjectsAndSid, aclapilib, 'BuildTrusteeWithObjectsAndSidA');
  1701.   asm
  1702.     mov esp, ebp
  1703.     pop ebp
  1704.     jmp [_BuildTrusteeWithObjectsAndSid]
  1705.   end;
  1706. end;
  1707. {$ELSE}
  1708. procedure BuildTrusteeWithObjectsAndSid; external aclapilib name 'BuildTrusteeWithObjectsAndSidA';
  1709. {$ENDIF DYNAMIC_LINK}
  1710. {$ENDIF}
  1712. {$IFDEF DYNAMIC_LINK}
  1713. var
  1714.   _BuildTrusteeWithObjectsAndNameA: Pointer;
  1716. procedure BuildTrusteeWithObjectsAndNameA;
  1717. begin
  1718.   GetProcedureAddress(_BuildTrusteeWithObjectsAndNameA, aclapilib, 'BuildTrusteeWithObjectsAndNameA');
  1719.   asm
  1720.     mov esp, ebp
  1721.     pop ebp
  1722.     jmp [_BuildTrusteeWithObjectsAndNameA]
  1723.   end;
  1724. end;
  1725. {$ELSE}
  1726. procedure BuildTrusteeWithObjectsAndNameA; external aclapilib name 'BuildTrusteeWithObjectsAndNameA';
  1727. {$ENDIF DYNAMIC_LINK}
  1729. {$IFDEF DYNAMIC_LINK}
  1730. var
  1731.   _BuildTrusteeWithObjectsAndNameW: Pointer;
  1733. procedure BuildTrusteeWithObjectsAndNameW;
  1734. begin
  1735.   GetProcedureAddress(_BuildTrusteeWithObjectsAndNameW, aclapilib, 'BuildTrusteeWithObjectsAndNameW');
  1736.   asm
  1737.     mov esp, ebp
  1738.     pop ebp
  1739.     jmp [_BuildTrusteeWithObjectsAndNameW]
  1740.   end;
  1741. end;
  1742. {$ELSE}
  1743. procedure BuildTrusteeWithObjectsAndNameW; external aclapilib name 'BuildTrusteeWithObjectsAndNameW';
  1744. {$ENDIF DYNAMIC_LINK}
  1745. {$IFDEF UNICODE}
  1747. {$IFDEF DYNAMIC_LINK}
  1748. var
  1749.   _BuildTrusteeWithObjectsAndName: Pointer;
  1751. procedure BuildTrusteeWithObjectsAndName;
  1752. begin
  1753.   GetProcedureAddress(_BuildTrusteeWithObjectsAndName, aclapilib, 'BuildTrusteeWithObjectsAndNameW');
  1754.   asm
  1755.     mov esp, ebp
  1756.     pop ebp
  1757.     jmp [_BuildTrusteeWithObjectsAndName]
  1758.   end;
  1759. end;
  1760. {$ELSE}
  1761. procedure BuildTrusteeWithObjectsAndName; external aclapilib name 'BuildTrusteeWithObjectsAndNameW';
  1762. {$ENDIF DYNAMIC_LINK}
  1763. {$ELSE}
  1765. {$IFDEF DYNAMIC_LINK}
  1766. var
  1767.   _BuildTrusteeWithObjectsAndName: Pointer;
  1769. procedure BuildTrusteeWithObjectsAndName;
  1770. begin
  1771.   GetProcedureAddress(_BuildTrusteeWithObjectsAndName, aclapilib, 'BuildTrusteeWithObjectsAndNameA');
  1772.   asm
  1773.     mov esp, ebp
  1774.     pop ebp
  1775.     jmp [_BuildTrusteeWithObjectsAndName]
  1776.   end;
  1777. end;
  1778. {$ELSE}
  1779. procedure BuildTrusteeWithObjectsAndName; external aclapilib name 'BuildTrusteeWithObjectsAndNameA';
  1780. {$ENDIF DYNAMIC_LINK}
  1781. {$ENDIF}
  1783. {$IFDEF DYNAMIC_LINK}
  1784. var
  1785.   _GetTrusteeNameA: Pointer;
  1787. function GetTrusteeNameA;
  1788. begin
  1789.   GetProcedureAddress(_GetTrusteeNameA, aclapilib, 'GetTrusteeNameA');
  1790.   asm
  1791.     mov esp, ebp
  1792.     pop ebp
  1793.     jmp [_GetTrusteeNameA]
  1794.   end;
  1795. end;
  1796. {$ELSE}
  1797. function GetTrusteeNameA; external aclapilib name 'GetTrusteeNameA';
  1798. {$ENDIF DYNAMIC_LINK}
  1800. {$IFDEF DYNAMIC_LINK}
  1801. var
  1802.   _GetTrusteeNameW: Pointer;
  1804. function GetTrusteeNameW;
  1805. begin
  1806.   GetProcedureAddress(_GetTrusteeNameW, aclapilib, 'GetTrusteeNameW');
  1807.   asm
  1808.     mov esp, ebp
  1809.     pop ebp
  1810.     jmp [_GetTrusteeNameW]
  1811.   end;
  1812. end;
  1813. {$ELSE}
  1814. function GetTrusteeNameW; external aclapilib name 'GetTrusteeNameW';
  1815. {$ENDIF DYNAMIC_LINK}
  1816. {$IFDEF UNICODE}
  1818. {$IFDEF DYNAMIC_LINK}
  1819. var
  1820.   _GetTrusteeName: Pointer;
  1822. function GetTrusteeName;
  1823. begin
  1824.   GetProcedureAddress(_GetTrusteeName, aclapilib, 'GetTrusteeNameW');
  1825.   asm
  1826.     mov esp, ebp
  1827.     pop ebp
  1828.     jmp [_GetTrusteeName]
  1829.   end;
  1830. end;
  1831. {$ELSE}
  1832. function GetTrusteeName; external aclapilib name 'GetTrusteeNameW';
  1833. {$ENDIF DYNAMIC_LINK}
  1834. {$ELSE}
  1836. {$IFDEF DYNAMIC_LINK}
  1837. var
  1838.   _GetTrusteeName: Pointer;
  1840. function GetTrusteeName;
  1841. begin
  1842.   GetProcedureAddress(_GetTrusteeName, aclapilib, 'GetTrusteeNameA');
  1843.   asm
  1844.     mov esp, ebp
  1845.     pop ebp
  1846.     jmp [_GetTrusteeName]
  1847.   end;
  1848. end;
  1849. {$ELSE}
  1850. function GetTrusteeName; external aclapilib name 'GetTrusteeNameA';
  1851. {$ENDIF DYNAMIC_LINK}
  1852. {$ENDIF}
  1854. {$IFDEF DYNAMIC_LINK}
  1855. var
  1856.   _GetTrusteeTypeA: Pointer;
  1858. function GetTrusteeTypeA;
  1859. begin
  1860.   GetProcedureAddress(_GetTrusteeTypeA, aclapilib, 'GetTrusteeTypeA');
  1861.   asm
  1862.     mov esp, ebp
  1863.     pop ebp
  1864.     jmp [_GetTrusteeTypeA]
  1865.   end;
  1866. end;
  1867. {$ELSE}
  1868. function GetTrusteeTypeA; external aclapilib name 'GetTrusteeTypeA';
  1869. {$ENDIF DYNAMIC_LINK}
  1871. {$IFDEF DYNAMIC_LINK}
  1872. var
  1873.   _GetTrusteeTypeW: Pointer;
  1875. function GetTrusteeTypeW;
  1876. begin
  1877.   GetProcedureAddress(_GetTrusteeTypeW, aclapilib, 'GetTrusteeTypeW');
  1878.   asm
  1879.     mov esp, ebp
  1880.     pop ebp
  1881.     jmp [_GetTrusteeTypeW]
  1882.   end;
  1883. end;
  1884. {$ELSE}
  1885. function GetTrusteeTypeW; external aclapilib name 'GetTrusteeTypeW';
  1886. {$ENDIF DYNAMIC_LINK}
  1887. {$IFDEF UNICODE}
  1889. {$IFDEF DYNAMIC_LINK}
  1890. var
  1891.   _GetTrusteeType: Pointer;
  1893. function GetTrusteeType;
  1894. begin
  1895.   GetProcedureAddress(_GetTrusteeType, aclapilib, 'GetTrusteeTypeW');
  1896.   asm
  1897.     mov esp, ebp
  1898.     pop ebp
  1899.     jmp [_GetTrusteeType]
  1900.   end;
  1901. end;
  1902. {$ELSE}
  1903. function GetTrusteeType; external aclapilib name 'GetTrusteeTypeW';
  1904. {$ENDIF DYNAMIC_LINK}
  1905. {$ELSE}
  1907. {$IFDEF DYNAMIC_LINK}
  1908. var
  1909.   _GetTrusteeType: Pointer;
  1911. function GetTrusteeType;
  1912. begin
  1913.   GetProcedureAddress(_GetTrusteeType, aclapilib, 'GetTrusteeTypeA');
  1914.   asm
  1915.     mov esp, ebp
  1916.     pop ebp
  1917.     jmp [_GetTrusteeType]
  1918.   end;
  1919. end;
  1920. {$ELSE}
  1921. function GetTrusteeType; external aclapilib name 'GetTrusteeTypeA';
  1922. {$ENDIF DYNAMIC_LINK}
  1923. {$ENDIF}
  1925. {$IFDEF DYNAMIC_LINK}
  1926. var
  1927.   _GetTrusteeFormA: Pointer;
  1929. function GetTrusteeFormA;
  1930. begin
  1931.   GetProcedureAddress(_GetTrusteeFormA, aclapilib, 'GetTrusteeFormA');
  1932.   asm
  1933.     mov esp, ebp
  1934.     pop ebp
  1935.     jmp [_GetTrusteeFormA]
  1936.   end;
  1937. end;
  1938. {$ELSE}
  1939. function GetTrusteeFormA; external aclapilib name 'GetTrusteeFormA';
  1940. {$ENDIF DYNAMIC_LINK}
  1942. {$IFDEF DYNAMIC_LINK}
  1943. var
  1944.   _GetTrusteeFormW: Pointer;
  1946. function GetTrusteeFormW;
  1947. begin
  1948.   GetProcedureAddress(_GetTrusteeFormW, aclapilib, 'GetTrusteeFormW');
  1949.   asm
  1950.     mov esp, ebp
  1951.     pop ebp
  1952.     jmp [_GetTrusteeFormW]
  1953.   end;
  1954. end;
  1955. {$ELSE}
  1956. function GetTrusteeFormW; external aclapilib name 'GetTrusteeFormW';
  1957. {$ENDIF DYNAMIC_LINK}
  1958. {$IFDEF UNICODE}
  1960. {$IFDEF DYNAMIC_LINK}
  1961. var
  1962.   _GetTrusteeForm: Pointer;
  1964. function GetTrusteeForm;
  1965. begin
  1966.   GetProcedureAddress(_GetTrusteeForm, aclapilib, 'GetTrusteeFormW');
  1967.   asm
  1968.     mov esp, ebp
  1969.     pop ebp
  1970.     jmp [_GetTrusteeForm]
  1971.   end;
  1972. end;
  1973. {$ELSE}
  1974. function GetTrusteeForm; external aclapilib name 'GetTrusteeFormW';
  1975. {$ENDIF DYNAMIC_LINK}
  1976. {$ELSE}
  1978. {$IFDEF DYNAMIC_LINK}
  1979. var
  1980.   _GetTrusteeForm: Pointer;
  1982. function GetTrusteeForm;
  1983. begin
  1984.   GetProcedureAddress(_GetTrusteeForm, aclapilib, 'GetTrusteeFormA');
  1985.   asm
  1986.     mov esp, ebp
  1987.     pop ebp
  1988.     jmp [_GetTrusteeForm]
  1989.   end;
  1990. end;
  1991. {$ELSE}
  1992. function GetTrusteeForm; external aclapilib name 'GetTrusteeFormA';
  1993. {$ENDIF DYNAMIC_LINK}
  1994. {$ENDIF}
  1996. {$IFDEF DYNAMIC_LINK}
  1997. var
  1998.   _GetMultipleTrusteeOperationA: Pointer;
  2000. function GetMultipleTrusteeOperationA;
  2001. begin
  2002.   GetProcedureAddress(_GetMultipleTrusteeOperationA, aclapilib, 'GetMultipleTrusteeOperationA');
  2003.   asm
  2004.     mov esp, ebp
  2005.     pop ebp
  2006.     jmp [_GetMultipleTrusteeOperationA]
  2007.   end;
  2008. end;
  2009. {$ELSE}
  2010. function GetMultipleTrusteeOperationA; external aclapilib name 'GetMultipleTrusteeOperationA';
  2011. {$ENDIF DYNAMIC_LINK}
  2013. {$IFDEF DYNAMIC_LINK}
  2014. var
  2015.   _GetMultipleTrusteeOperationW: Pointer;
  2017. function GetMultipleTrusteeOperationW;
  2018. begin
  2019.   GetProcedureAddress(_GetMultipleTrusteeOperationW, aclapilib, 'GetMultipleTrusteeOperationW');
  2020.   asm
  2021.     mov esp, ebp
  2022.     pop ebp
  2023.     jmp [_GetMultipleTrusteeOperationW]
  2024.   end;
  2025. end;
  2026. {$ELSE}
  2027. function GetMultipleTrusteeOperationW; external aclapilib name 'GetMultipleTrusteeOperationW';
  2028. {$ENDIF DYNAMIC_LINK}
  2029. {$IFDEF UNICODE}
  2031. {$IFDEF DYNAMIC_LINK}
  2032. var
  2033.   _GetMultipleTrusteeOperation: Pointer;
  2035. function GetMultipleTrusteeOperation;
  2036. begin
  2037.   GetProcedureAddress(_GetMultipleTrusteeOperation, aclapilib, 'GetMultipleTrusteeOperationW');
  2038.   asm
  2039.     mov esp, ebp
  2040.     pop ebp
  2041.     jmp [_GetMultipleTrusteeOperation]
  2042.   end;
  2043. end;
  2044. {$ELSE}
  2045. function GetMultipleTrusteeOperation; external aclapilib name 'GetMultipleTrusteeOperationW';
  2046. {$ENDIF DYNAMIC_LINK}
  2047. {$ELSE}
  2049. {$IFDEF DYNAMIC_LINK}
  2050. var
  2051.   _GetMultipleTrusteeOperation: Pointer;
  2053. function GetMultipleTrusteeOperation;
  2054. begin
  2055.   GetProcedureAddress(_GetMultipleTrusteeOperation, aclapilib, 'GetMultipleTrusteeOperationA');
  2056.   asm
  2057.     mov esp, ebp
  2058.     pop ebp
  2059.     jmp [_GetMultipleTrusteeOperation]
  2060.   end;
  2061. end;
  2062. {$ELSE}
  2063. function GetMultipleTrusteeOperation; external aclapilib name 'GetMultipleTrusteeOperationA';
  2064. {$ENDIF DYNAMIC_LINK}
  2065. {$ENDIF}
  2067. {$IFDEF DYNAMIC_LINK}
  2068. var
  2069.   _GetMultipleTrusteeA: Pointer;
  2071. function GetMultipleTrusteeA;
  2072. begin
  2073.   GetProcedureAddress(_GetMultipleTrusteeA, aclapilib, 'GetMultipleTrusteeA');
  2074.   asm
  2075.     mov esp, ebp
  2076.     pop ebp
  2077.     jmp [_GetMultipleTrusteeA]
  2078.   end;
  2079. end;
  2080. {$ELSE}
  2081. function GetMultipleTrusteeA; external aclapilib name 'GetMultipleTrusteeA';
  2082. {$ENDIF DYNAMIC_LINK}
  2084. {$IFDEF DYNAMIC_LINK}
  2085. var
  2086.   _GetMultipleTrusteeW: Pointer;
  2088. function GetMultipleTrusteeW;
  2089. begin
  2090.   GetProcedureAddress(_GetMultipleTrusteeW, aclapilib, 'GetMultipleTrusteeW');
  2091.   asm
  2092.     mov esp, ebp
  2093.     pop ebp
  2094.     jmp [_GetMultipleTrusteeW]
  2095.   end;
  2096. end;
  2097. {$ELSE}
  2098. function GetMultipleTrusteeW; external aclapilib name 'GetMultipleTrusteeW';
  2099. {$ENDIF DYNAMIC_LINK}
  2100. {$IFDEF UNICODE}
  2102. {$IFDEF DYNAMIC_LINK}
  2103. var
  2104.   _GetMultipleTrustee: Pointer;
  2106. function GetMultipleTrustee;
  2107. begin
  2108.   GetProcedureAddress(_GetMultipleTrustee, aclapilib, 'GetMultipleTrusteeW');
  2109.   asm
  2110.     mov esp, ebp
  2111.     pop ebp
  2112.     jmp [_GetMultipleTrustee]
  2113.   end;
  2114. end;
  2115. {$ELSE}
  2116. function GetMultipleTrustee; external aclapilib name 'GetMultipleTrusteeW';
  2117. {$ENDIF DYNAMIC_LINK}
  2118. {$ELSE}
  2120. {$IFDEF DYNAMIC_LINK}
  2121. var
  2122.   _GetMultipleTrustee: Pointer;
  2124. function GetMultipleTrustee;
  2125. begin
  2126.   GetProcedureAddress(_GetMultipleTrustee, aclapilib, 'GetMultipleTrusteeA');
  2127.   asm
  2128.     mov esp, ebp
  2129.     pop ebp
  2130.     jmp [_GetMultipleTrustee]
  2131.   end;
  2132. end;
  2133. {$ELSE}
  2134. function GetMultipleTrustee; external aclapilib name 'GetMultipleTrusteeA';
  2135. {$ENDIF DYNAMIC_LINK}
  2136. {$ENDIF}
  2138. end.