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

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

Windows编程

开发平台：

Delphi

JwaAccCtrl.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: accctrl.h, released June 2000. The original Pascal     }
  9. { code is: AccCtrl.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 JwaAccCtrl;
  46. {$WEAKPACKAGEUNIT}
  48. {$HPPEMIT ''}
  49. {$HPPEMIT '#include "aclapi.h"'}
  50. {$HPPEMIT ''}
  51. {$HPPEMIT 'typedef PTRUSTEE_A *PPTRUSTEE_A'}
  52. {$HPPEMIT 'typedef PTRUSTEE_W *PPTRUSTEE_W'}
  53. {$HPPEMIT '#ifdef UNICODE'}
  54. {$HPPEMIT 'typedef PPTRUSTEE_W PPTRUSTEE'}
  55. {$HPPEMIT '#else'}
  56. {$HPPEMIT 'typedef PPTRUSTEE_A PPTRUSTEE'}
  57. {$HPPEMIT '#endif'}
  58. {$HPPEMIT ''}
  60. {$I WINDEFINES.INC}
  62. interface
  64. uses
  65.   JwaWinNT, JwaWinType;
  67. (* Dependencies
  68. // winnt
  69. PSID
  70. //wintype
  71. HLOCAL
  72. DWORD
  73. GUID
  74. LPSTR
  75. LPWSTR
  76. ULONG
  77. PVOID
  78. HANDLE
  79. BOOL
  80. LONG
  81. *)
  83. function AccFree(hMem: HLOCAL): HLOCAL;
  84. {$EXTERNALSYM AccFree}
  86. //
  87. // Definition:
  88. // This enumerated type defines the objects supported by the get/set API within
  89. // this document.  See section 3.1, Object Types for a detailed definition of the
  90. // supported object types, and their name formats.
  91. //
  93. type
  94.   _SE_OBJECT_TYPE = (
  95.     SE_UNKNOWN_OBJECT_TYPE,
  96.     SE_FILE_OBJECT,
  97.     SE_SERVICE,
  98.     SE_PRINTER,
  99.     SE_REGISTRY_KEY,
  100.     SE_LMSHARE,
  101.     SE_KERNEL_OBJECT,
  102.     SE_WINDOW_OBJECT,
  103.     SE_DS_OBJECT,
  104.     SE_DS_OBJECT_ALL,
  105.     SE_PROVIDER_DEFINED_OBJECT,
  106.     SE_WMIGUID_OBJECT,
  107.     SE_REGISTRY_WOW64_32KEY);
  108.   {$EXTERNALSYM _SE_OBJECT_TYPE}
  109.   SE_OBJECT_TYPE = _SE_OBJECT_TYPE;
  110.   {$EXTERNALSYM SE_OBJECT_TYPE}
  111.   TSeObjectType = SE_OBJECT_TYPE;
  113. //
  114. // Definition: TRUSTEE_TYPE
  115. // This enumerated type specifies the type of trustee account for the trustee
  116. // returned by the API described in this document.
  117. // TRUSTEE_IS_UNKNOWN - The trustee is an unknown, but not necessarily invalid
  118. //                      type.  This field is not validated on input to the APIs
  119. //                      that take Trustees.
  120. // TRUSTEE_IS_USER      The trustee account is a user account.
  121. // TRUSTEE_IS_GROUP     The trustee account is a group account.
  122. //
  124.   _TRUSTEE_TYPE = (
  125.     TRUSTEE_IS_UNKNOWN,
  126.     TRUSTEE_IS_USER,
  127.     TRUSTEE_IS_GROUP,
  128.     TRUSTEE_IS_DOMAIN,
  129.     TRUSTEE_IS_ALIAS,
  130.     TRUSTEE_IS_WELL_KNOWN_GROUP,
  131.     TRUSTEE_IS_DELETED,
  132.     TRUSTEE_IS_INVALID,
  133.     TRUSTEE_IS_COMPUTER);
  134.   {$EXTERNALSYM _TRUSTEE_TYPE}
  135.   TRUSTEE_TYPE = _TRUSTEE_TYPE;
  136.   {$EXTERNALSYM TRUSTEE_TYPE}
  137.   TTrusteeType = TRUSTEE_TYPE;
  139. //
  140. // Definition: TRUSTEE_FORM
  141. // This enumerated type specifies the form the trustee identifier is in for a
  142. // particular trustee.
  143. // TRUSTEE_IS_SID       The trustee is identified with a SID rather than with a name.
  144. // TRUSTEE_IS_NAME      The trustee is identified with a name.
  145. //
  147.   _TRUSTEE_FORM = (
  148.     TRUSTEE_IS_SID,
  149.     TRUSTEE_IS_NAME,
  150.     TRUSTEE_BAD_FORM,
  151.     TRUSTEE_IS_OBJECTS_AND_SID,
  152.     TRUSTEE_IS_OBJECTS_AND_NAME);
  153.   {$EXTERNALSYM _TRUSTEE_FORM}
  154.   TRUSTEE_FORM = _TRUSTEE_FORM;
  155.   {$EXTERNALSYM TRUSTEE_FORM}
  156.   TTrusteeForm = TRUSTEE_FORM;
  158. //
  159. // Definition: MULTIPLE_TRUSTEE_OPERATION
  160. // If the trustee is a multiple trustee, this enumerated type specifies the type.
  161. // TRUSTEE_IS_IMPERSONATE       The trustee is an impersonate trustee and the multiple
  162. //                          trustee field in the trustee points to another trustee
  163. //                          that is a trustee for the server that will be doing the
  164. //                          impersonation.
  165. //
  167.   _MULTIPLE_TRUSTEE_OPERATION = (NO_MULTIPLE_TRUSTEE, TRUSTEE_IS_IMPERSONATE);
  168.   {$EXTERNALSYM _MULTIPLE_TRUSTEE_OPERATION}
  169.   MULTIPLE_TRUSTEE_OPERATION = _MULTIPLE_TRUSTEE_OPERATION;
  170.   {$EXTERNALSYM MULTIPLE_TRUSTEE_OPERATION}
  171.   TMultipleTrusteeOperation = MULTIPLE_TRUSTEE_OPERATION;
  173.   POBJECTS_AND_SID = ^OBJECTS_AND_SID;
  174.   {$EXTERNALSYM POBJECTS_AND_SID}
  175.   _OBJECTS_AND_SID = packed record
  176.     ObjectsPresent: DWORD;
  177.     ObjectTypeGuid: GUID;
  178.     InheritedObjectTypeGuid: GUID;
  179.     pSid: PSID;
  180.   end;
  181.   {$EXTERNALSYM _OBJECTS_AND_SID}
  182.   OBJECTS_AND_SID = _OBJECTS_AND_SID;
  183.   {$EXTERNALSYM OBJECTS_AND_SID}
  184.   TObjectsAndSid = OBJECTS_AND_SID;
  185.   PObjectsAndSid = POBJECTS_AND_SID;
  187.   POBJECTS_AND_NAME_A = ^OBJECTS_AND_NAME_A;
  188.   {$EXTERNALSYM POBJECTS_AND_NAME_A}
  189.   _OBJECTS_AND_NAME_A = packed record
  190.     ObjectsPresent: DWORD;
  191.     ObjectType: SE_OBJECT_TYPE;
  192.     ObjectTypeName: LPSTR;
  193.     InheritedObjectTypeName: LPSTR;
  194.     ptstrName: LPSTR;
  195.   end;
  196.   {$EXTERNALSYM _OBJECTS_AND_NAME_A}
  197.   OBJECTS_AND_NAME_A = _OBJECTS_AND_NAME_A;
  198.   {$EXTERNALSYM OBJECTS_AND_NAME_A}
  199.   TObjectsAndNameA = OBJECTS_AND_NAME_A;
  200.   PObjectsAndNameA = POBJECTS_AND_NAME_A;
  202.   POBJECTS_AND_NAME_W = ^OBJECTS_AND_NAME_W;
  203.   {$EXTERNALSYM POBJECTS_AND_NAME_W}
  204.   _OBJECTS_AND_NAME_W = packed record
  205.     ObjectsPresent: DWORD;
  206.     ObjectType: SE_OBJECT_TYPE;
  207.     ObjectTypeName: LPWSTR;
  208.     InheritedObjectTypeName: LPWSTR;
  209.     ptstrName: LPWSTR;
  210.   end;
  211.   {$EXTERNALSYM _OBJECTS_AND_NAME_W}
  212.   OBJECTS_AND_NAME_W = _OBJECTS_AND_NAME_W;
  213.   {$EXTERNALSYM OBJECTS_AND_NAME_W}
  214.   TObjectsAndNameW = OBJECTS_AND_NAME_W;
  215.   PObjectsAndNameW = POBJECTS_AND_NAME_W;
  217. {$IFDEF UNICODE}
  218.   OBJECTS_AND_NAME_ = OBJECTS_AND_NAME_W;
  219.   {$EXTERNALSYM OBJECTS_AND_NAME_}
  220.   POBJECTS_AND_NAME_ = POBJECTS_AND_NAME_W;
  221.   {$EXTERNALSYM POBJECTS_AND_NAME_}
  222.   TObjectsAndName = TObjectsAndNameW;
  223.   PObjectsAndName = PObjectsAndNameW;
  224. {$ELSE}
  225.   OBJECTS_AND_NAME_ = OBJECTS_AND_NAME_A;
  226.   {$EXTERNALSYM OBJECTS_AND_NAME_}
  227.   POBJECTS_AND_NAME_ = POBJECTS_AND_NAME_A;
  228.   {$EXTERNALSYM POBJECTS_AND_NAME_}
  229.   TObjectsAndName = TObjectsAndNameA;
  230.   PObjectsAndName = PObjectsAndNameA;
  231. {$ENDIF}
  233. //
  234. // Definition: TRUSTEE
  235. // This structure is used to pass account information into and out of the system
  236. // using the API defined in this document.
  237. // PMultipleTrustee     - if NON-NULL, points to another trustee structure, as
  238. //                    defined by the multiple trustee operation field.
  239. // MultipleTrusteeOperation - Defines the multiple trustee operation/type.
  240. // TrusteeForm - defines if the trustee is defined by name or SID.
  241. // TrusteeType - defines if the trustee type is unknown, a user or a group.
  242. // PwcsName     - points to the trustee name or the trustee SID.
  243. //
  245.   PTRUSTEE_A = ^TRUSTEE_A;
  246.   {$EXTERNALSYM PTRUSTEE_A}
  247.   _TRUSTEE_A = packed record
  248.     pMultipleTrustee: PTRUSTEE_A;
  249.     MultipleTrusteeOperation: MULTIPLE_TRUSTEE_OPERATION;
  250.     TrusteeForm: TRUSTEE_FORM;
  251.     TrusteeType: TRUSTEE_TYPE;
  252.     ptstrName: LPSTR;
  253.   end;
  254.   {$EXTERNALSYM _TRUSTEE_A}
  255.   TRUSTEE_A = _TRUSTEE_A;
  256.   {$EXTERNALSYM TRUSTEE_A}
  257.   TRUSTEEA = TRUSTEE_A;
  258.   {$EXTERNALSYM PTRUSTEEA}
  259.   PPTRUSTEE_A = ^PTRUSTEE_A;
  260.   {$NODEFINE PPTRUSTEE_A}
  261.   TTrusteeA = TRUSTEE_A;
  262.   PTrusteeA = PTRUSTEE_A;
  264.   PTRUSTEE_W = ^TRUSTEE_W;
  265.   {$EXTERNALSYM PTRUSTEE_W}
  266.   _TRUSTEE_W = packed record
  267.     pMultipleTrustee: PTRUSTEE_W;
  268.     MultipleTrusteeOperation: MULTIPLE_TRUSTEE_OPERATION;
  269.     TrusteeForm: TRUSTEE_FORM;
  270.     TrusteeType: TRUSTEE_TYPE;
  271.     ptstrName: LPWSTR;
  272.   end;
  273.   {$EXTERNALSYM _TRUSTEE_W}
  274.   TRUSTEE_W = _TRUSTEE_W;
  275.   {$EXTERNALSYM TRUSTEE_W}
  276.   TRUSTEEW = TRUSTEE_W;
  277.   {$EXTERNALSYM TRUSTEEW}
  278.   PPTRUSTEE_W = ^PTRUSTEE_W;
  279.   {$NODEFINE PPTRUSTEE_W}
  280.   TTrusteeW = TRUSTEE_W;
  281.   PTrusteeW = PTRUSTEE_W;
  283. {$IFDEF UNICODE}
  284.   TRUSTEE_ = TRUSTEE_W;
  285.   {$EXTERNALSYM TRUSTEE_}
  286.   PTRUSTEE_ = PTRUSTEE_W;
  287.   {$EXTERNALSYM PTRUSTEE_}
  288.   TRUSTEE = TRUSTEEW;
  289.   {$EXTERNALSYM TRUSTEE}
  290.   PPTRUSTEE = ^PPTRUSTEE_W;
  291.   {$NODEFINE PPTRUSTEE}
  292.   TTrustee = TTrusteeW;
  293.   PTrustee = PTrusteeW;
  294. {$ELSE}
  295.   TRUSTEE_ = TRUSTEE_A;
  296.   {$EXTERNALSYM TRUSTEE_}
  297.   PTRUSTEE_ = PTRUSTEE_A;
  298.   {$EXTERNALSYM PTRUSTEE_}
  299.   TRUSTEE = TRUSTEEA;
  300.   {$EXTERNALSYM TRUSTEE}
  301.   PPTRUSTEE = ^PPTRUSTEE_A;
  302.   {$NODEFINE PPTRUSTEE}
  303.   TTrustee = TTrusteeA;
  304.   PTrustee = PTrusteeA;
  305. {$ENDIF}
  307. //
  308. // Definition: ACCESS_MODE
  309. // This enumerated type specifies how permissions are (requested)/to be applied
  310. //  for the trustee by the access control entry.  On input this field can by any
  311. //  of the values, although it is not meaningful to mix access control and audit
  312. //  control entries.  On output this field will be either SET_ACCESS, DENY_ACCESS,
  313. // SET_AUDIT_SUCCESS, SET_AUDIT_FAILURE.
  314. // The following descriptions define how this type effects an explicit access
  315. // request to apply access permissions to an object.
  316. // GRANT_ACCESS - The trustee will have at least the requested permissions upon
  317. //                successful completion of the command. (If the trustee has
  318. //                additional permissions they will not be removed).
  319. // SET_ACCESS - The trustee will have exactly the requested permissions upon
  320. //              successful completion of the command.
  321. // DENY_ACCESS - The trustee will be denied the specified permissions.
  322. // REVOKE_ACCESS - Any explicit access rights the trustee has will be revoked.
  323. // SET_AUDIT_SUCCESS - The trustee will be audited for successful opens of the
  324. //                     object using the requested permissions.
  325. // SET_AUDIT_FAILURE - The trustee will be audited for failed opens of the object
  326. //                     using the requested permissions.
  327. //
  329.   _ACCESS_MODE = (
  330.     NOT_USED_ACCESS,
  331.     GRANT_ACCESS,
  332.     SET_ACCESS,
  333.     DENY_ACCESS,
  334.     REVOKE_ACCESS,
  335.     SET_AUDIT_SUCCESS,
  336.     SET_AUDIT_FAILURE);
  337.   {$EXTERNALSYM _ACCESS_MODE}
  338.   ACCESS_MODE = _ACCESS_MODE;
  339.   {$EXTERNALSYM ACCESS_MODE}
  340.   TAccessMode = _ACCESS_MODE;
  342. //
  343. // Definition: Inheritance flags
  344. // These bit masks are provided to allow simple application of inheritance in
  345. // explicit access requests on containers.
  346. // NO_INHERITANCE       The specific access permissions will only be applied to
  347. //                  the container, and will not be inherited by objects created
  348. //                  within the container.
  349. // SUB_CONTAINERS_ONLY_INHERIT  The specific access permissions will be inherited
  350. //                              and applied to sub containers created within the
  351. //                              container, and will be applied to the container
  352. //                              itself.
  353. // SUB_OBJECTS_ONLY_INHERIT     The specific access permissions will only be inherited
  354. //                              by objects created within the specific container.
  355. //                              The access permissions will not be applied to the
  356. //                              container itself.
  357. // SUB_CONTAINERS_AND_OBJECTS_INHERIT   The specific access permissions will be
  358. //                                      inherited by containers created within the
  359. //                                      specific container, will be applied to
  360. //                                      objects created within the container, but
  361. //                                      will not be applied to the container itself.
  362. //
  364. const
  365.   NO_INHERITANCE                     = $0;
  366.   {$EXTERNALSYM NO_INHERITANCE}
  367.   SUB_OBJECTS_ONLY_INHERIT           = $1;
  368.   {$EXTERNALSYM SUB_OBJECTS_ONLY_INHERIT}
  369.   SUB_CONTAINERS_ONLY_INHERIT        = $2;
  370.   {$EXTERNALSYM SUB_CONTAINERS_ONLY_INHERIT}
  371.   SUB_CONTAINERS_AND_OBJECTS_INHERIT = $3;
  372.   {$EXTERNALSYM SUB_CONTAINERS_AND_OBJECTS_INHERIT}
  373.   INHERIT_NO_PROPAGATE               = $4;
  374.   {$EXTERNALSYM INHERIT_NO_PROPAGATE}
  375.   INHERIT_ONLY                       = $8;
  376.   {$EXTERNALSYM INHERIT_ONLY}
  378. //
  379. // Informational bit that is returned
  380. //
  382.   INHERITED_ACCESS_ENTRY = $10;
  383.   {$EXTERNALSYM INHERITED_ACCESS_ENTRY}
  385. //
  386. // Informational bit that tells where a node was inherited from.  Valid only
  387. // for NT 5 APIs
  388. //
  390.   INHERITED_PARENT      = $10000000;
  391.   {$EXTERNALSYM INHERITED_PARENT}
  392.   INHERITED_GRANDPARENT = $20000000;
  393.   {$EXTERNALSYM INHERITED_GRANDPARENT}
  395. //
  396. // Definition: EXPLICIT_ACCESS
  397. // This structure is used to pass access control entry information into and out
  398. // of the system using the API defined in this document.
  399. // grfAccessPermissions - This contains the access permissions to assign for the
  400. //                     trustee.  It is in the form of an NT access mask.
  401. // grfAccessMode - This field defines how the permissions are to be applied for
  402. //                 the trustee.
  403. // grfInheritance - For containers, this field defines how the access control
  404. //                  entry is/(is requested) to be inherited on
  405. //                  objects/sub-containers created within the container.
  406. // Trustee - This field contains the definition of the trustee account the
  407. //           explicit access applies to.
  408. //
  410. type
  411.   PEXPLICIT_ACCESS_A = ^EXPLICIT_ACCESS_A;
  412.   {$EXTERNALSYM PEXPLICIT_ACCESS_A}
  413.   _EXPLICIT_ACCESS_A = packed record
  414.     grfAccessPermissions: DWORD;
  415.     grfAccessMode: ACCESS_MODE;
  416.     grfInheritance: DWORD;
  417.     Trustee: TRUSTEE_A;
  418.   end;
  419.   {$EXTERNALSYM _EXPLICIT_ACCESS_A}
  420.   EXPLICIT_ACCESS_A = _EXPLICIT_ACCESS_A;
  421.   {$EXTERNALSYM EXPLICIT_ACCESS_A}
  422.   EXPLICIT_ACCESSA = EXPLICIT_ACCESS_A;
  423.   {$EXTERNALSYM EXPLICIT_ACCESSA}
  424.   PEXPLICIT_ACCESSA = PEXPLICIT_ACCESS_A;
  425.   {$EXTERNALSYM PEXPLICIT_ACCESSA}
  426.   TExplicitAccessA = EXPLICIT_ACCESS_A;
  427.   PExplicitAccessA = PEXPLICIT_ACCESS_A;
  429.   PEXPLICIT_ACCESS_W = ^EXPLICIT_ACCESS_W;
  430.   {$EXTERNALSYM PEXPLICIT_ACCESS_W}
  431.   _EXPLICIT_ACCESS_W = packed record
  432.     grfAccessPermissions: DWORD;
  433.     grfAccessMode: ACCESS_MODE;
  434.     grfInheritance: DWORD;
  435.     Trustee: TRUSTEE_W;
  436.   end;
  437.   {$EXTERNALSYM _EXPLICIT_ACCESS_W}
  438.   EXPLICIT_ACCESS_W = _EXPLICIT_ACCESS_W;
  439.   {$EXTERNALSYM EXPLICIT_ACCESS_W}
  440.   EXPLICIT_ACCESSW = EXPLICIT_ACCESS_W;
  441.   {$EXTERNALSYM EXPLICIT_ACCESSW}
  442.   PEXPLICIT_ACCESSW = PEXPLICIT_ACCESS_W;
  443.   {$EXTERNALSYM PEXPLICIT_ACCESSW}
  444.   TExplicitAccessW = EXPLICIT_ACCESS_W;
  445.   PExplicitAccessW = PEXPLICIT_ACCESS_W;
  447. {$IFDEF UNICODE}
  448.   EXPLICIT_ACCESS_ = EXPLICIT_ACCESS_W;
  449.   {$EXTERNALSYM EXPLICIT_ACCESS_}
  450.   PEXPLICIT_ACCESS_ = PEXPLICIT_ACCESS_W;
  451.   {$EXTERNALSYM PEXPLICIT_ACCESS_}
  452.   EXPLICIT_ACCESS = EXPLICIT_ACCESSW;
  453.   {$EXTERNALSYM EXPLICIT_ACCESS}
  454.   PEXPLICIT_ACCESS = PEXPLICIT_ACCESSW;
  455.   {$EXTERNALSYM PEXPLICIT_ACCESS}
  456.   TExplicitAccess = TExplicitAccessW;
  457.   PExplicitAccess = PExplicitAccessW;
  458. {$ELSE}
  459.   EXPLICIT_ACCESS_ = EXPLICIT_ACCESS_A;
  460.   {$EXTERNALSYM EXPLICIT_ACCESS_}
  461.   PEXPLICIT_ACCESS_ = PEXPLICIT_ACCESS_A;
  462.   {$EXTERNALSYM PEXPLICIT_ACCESS_}
  463.   EXPLICIT_ACCESS = EXPLICIT_ACCESSA;
  464.   {$EXTERNALSYM EXPLICIT_ACCESS}
  465.   PEXPLICIT_ACCESS = PEXPLICIT_ACCESSA;
  466.   {$EXTERNALSYM PEXPLICIT_ACCESS}
  467.   TExplicitAccess = TExplicitAccessA;
  468.   PExplicitAccess = PExplicitAccessA;
  469. {$ENDIF}
  471. //------------------------------------------------------------------------------
  472. //                              NT5 APIs
  473. //------------------------------------------------------------------------------
  475. //
  476. // Default provider
  477. //
  479. const
  480.   ACCCTRL_DEFAULT_PROVIDERA = 'Windows NT Access Provider';
  481.   {$EXTERNALSYM ACCCTRL_DEFAULT_PROVIDERA}
  482.   ACCCTRL_DEFAULT_PROVIDERW = 'Windows NT Access Provider';
  483.   {$EXTERNALSYM ACCCTRL_DEFAULT_PROVIDERW}
  485. {$IFDEF UNICODE}
  486.   ACCCTRL_DEFAULT_PROVIDER = ACCCTRL_DEFAULT_PROVIDERW;
  487.   {$EXTERNALSYM ACCCTRL_DEFAULT_PROVIDER}
  488. {$ELSE}
  489.   ACCCTRL_DEFAULT_PROVIDER = ACCCTRL_DEFAULT_PROVIDERA;
  490.   {$EXTERNALSYM ACCCTRL_DEFAULT_PROVIDER}
  491. {$ENDIF}
  493. //
  494. // Access rights
  495. //
  497. type
  498.   ACCESS_RIGHTS = ULONG;
  499.   {$EXTERNALSYM ACCESS_RIGHTS}
  500.   PACCESS_RIGHTS = ^ACCESS_RIGHTS;
  501.   {$EXTERNALSYM PACCESS_RIGHTS}
  503. //
  504. // Inheritance flags
  505. //
  507.   INHERIT_FLAGS = ULONG;
  508.   {$EXTERNALSYM INHERIT_FLAGS}
  509.   PINHERIT_FLAGS = ^INHERIT_FLAGS;
  510.   {$EXTERNALSYM PINHERIT_FLAGS}
  512. //
  513. // Access / Audit structures
  514. //
  516.   PACTRL_ACCESS_ENTRYA = ^ACTRL_ACCESS_ENTRYA;
  517.   {$EXTERNALSYM PACTRL_ACCESS_ENTRYA}
  518.   _ACTRL_ACCESS_ENTRYA = packed record
  519.     Trustee: TRUSTEE_A;
  520.     fAccessFlags: ULONG;
  521.     Access: ACCESS_RIGHTS;
  522.     ProvSpecificAccess: ACCESS_RIGHTS;
  523.     Inheritance: INHERIT_FLAGS;
  524.     lpInheritProperty: LPSTR;
  525.   end;
  526.   {$EXTERNALSYM _ACTRL_ACCESS_ENTRYA}
  527.   ACTRL_ACCESS_ENTRYA = _ACTRL_ACCESS_ENTRYA;
  528.   {$EXTERNALSYM ACTRL_ACCESS_ENTRYA}
  529.   TActrlAccessEntryA = ACTRL_ACCESS_ENTRYA;
  530.   PActrlAccessEntryA = PACTRL_ACCESS_ENTRYA;
  532. //
  533. // Access / Audit structures
  534. //
  536.   PACTRL_ACCESS_ENTRYW = ^ACTRL_ACCESS_ENTRYW;
  537.   {$EXTERNALSYM PACTRL_ACCESS_ENTRYW}
  538.   _ACTRL_ACCESS_ENTRYW = packed record
  539.     Trustee: TRUSTEE_W;
  540.     fAccessFlags: ULONG;
  541.     Access: ACCESS_RIGHTS;
  542.     ProvSpecificAccess: ACCESS_RIGHTS;
  543.     Inheritance: INHERIT_FLAGS;
  544.     lpInheritProperty: LPWSTR;
  545.   end;
  546.   {$EXTERNALSYM _ACTRL_ACCESS_ENTRYW}
  547.   ACTRL_ACCESS_ENTRYW = _ACTRL_ACCESS_ENTRYW;
  548.   {$EXTERNALSYM ACTRL_ACCESS_ENTRYW}
  549.   TActrlAccessEntryW = ACTRL_ACCESS_ENTRYW;
  550.   PActrlAccessEntryW = PACTRL_ACCESS_ENTRYW;
  552. {$IFDEF UNICODE}
  553.   ACTRL_ACCESS_ENTRY = ACTRL_ACCESS_ENTRYW;
  554.   {$EXTERNALSYM ACTRL_ACCESS_ENTRY}
  555.   PACTRL_ACCESS_ENTRY = PACTRL_ACCESS_ENTRYW;
  556.   {$EXTERNALSYM PACTRL_ACCESS_ENTRY}
  557.   TActrlAccessEntry = TActrlAccessEntryW;
  558.   PActrlAccessEntry = PActrlAccessEntryW;
  559. {$ELSE}
  560.   ACTRL_ACCESS_ENTRY = ACTRL_ACCESS_ENTRYA;
  561.   {$EXTERNALSYM ACTRL_ACCESS_ENTRY}
  562.   PACTRL_ACCESS_ENTRY = PACTRL_ACCESS_ENTRYA;
  563.   {$EXTERNALSYM PACTRL_ACCESS_ENTRY}
  564.   TActrlAccessEntry = TActrlAccessEntryA;
  565.   PActrlAccessEntry = PActrlAccessEntryA;
  566. {$ENDIF}
  568.   PACTRL_ACCESS_ENTRY_LISTA = ^ACTRL_ACCESS_ENTRY_LISTA;
  569.   {$EXTERNALSYM PACTRL_ACCESS_ENTRY_LISTA}
  570.   _ACTRL_ACCESS_ENTRY_LISTA = packed record
  571.     cEntries: ULONG;
  572.     pAccessList: PACTRL_ACCESS_ENTRYA;
  573.   end;
  574.   {$EXTERNALSYM _ACTRL_ACCESS_ENTRY_LISTA}
  575.   ACTRL_ACCESS_ENTRY_LISTA = _ACTRL_ACCESS_ENTRY_LISTA;
  576.   {$EXTERNALSYM ACTRL_ACCESS_ENTRY_LISTA}
  577.   TActrlAccessEntryListA = ACTRL_ACCESS_ENTRY_LISTA;
  578.   PActrlAccessEntryListA = PACTRL_ACCESS_ENTRY_LISTA;
  580.   PACTRL_ACCESS_ENTRY_LISTW = ^ACTRL_ACCESS_ENTRY_LISTW;
  581.   {$EXTERNALSYM PACTRL_ACCESS_ENTRY_LISTW}
  582.   _ACTRL_ACCESS_ENTRY_LISTW = packed record
  583.     cEntries: ULONG;
  584.     pAccessList: PACTRL_ACCESS_ENTRYW;
  585.   end;
  586.   {$EXTERNALSYM _ACTRL_ACCESS_ENTRY_LISTW}
  587.   ACTRL_ACCESS_ENTRY_LISTW = _ACTRL_ACCESS_ENTRY_LISTW;
  588.   {$EXTERNALSYM ACTRL_ACCESS_ENTRY_LISTW}
  589.   TActrlAccessEntryListW = ACTRL_ACCESS_ENTRY_LISTW;
  590.   PActrlAccessEntryListW = PACTRL_ACCESS_ENTRY_LISTW;
  592. {$IFDEF UNICODE}
  593.   ACTRL_ACCESS_ENTRY_LIST = ACTRL_ACCESS_ENTRY_LISTW;
  594.   {$EXTERNALSYM ACTRL_ACCESS_ENTRY_LIST}
  595.   PACTRL_ACCESS_ENTRY_LIST = PACTRL_ACCESS_ENTRY_LISTW;
  596.   {$EXTERNALSYM PACTRL_ACCESS_ENTRY_LIST}
  597.   TActrlAccessEntryList = TActrlAccessEntryListW;
  598.   PActrlAccessEntryList = PActrlAccessEntryListW;
  599. {$ELSE}
  600.   ACTRL_ACCESS_ENTRY_LIST = ACTRL_ACCESS_ENTRY_LISTA;
  601.   {$EXTERNALSYM ACTRL_ACCESS_ENTRY_LIST}
  602.   PACTRL_ACCESS_ENTRY_LIST = PACTRL_ACCESS_ENTRY_LISTA;
  603.   {$EXTERNALSYM PACTRL_ACCESS_ENTRY_LIST}
  604.   TActrlAccessEntryList = TActrlAccessEntryListA;
  605.   PActrlAccessEntryList = PActrlAccessEntryListA;
  606. {$ENDIF}
  608.   PACTRL_PROPERTY_ENTRYA = ^ACTRL_PROPERTY_ENTRYA;
  609.   {$EXTERNALSYM PACTRL_PROPERTY_ENTRYA}
  610.   _ACTRL_PROPERTY_ENTRYA = packed record
  611.     lpProperty: LPSTR;
  612.     pAccessEntryList: PACTRL_ACCESS_ENTRY_LISTA;
  613.     fListFlags: ULONG;
  614.   end;
  615.   {$EXTERNALSYM _ACTRL_PROPERTY_ENTRYA}
  616.   ACTRL_PROPERTY_ENTRYA = _ACTRL_PROPERTY_ENTRYA;
  617.   {$EXTERNALSYM ACTRL_PROPERTY_ENTRYA}
  618.   TActrlPropertyEntryA = ACTRL_PROPERTY_ENTRYA;
  619.   PActrlPropertyEntryA = PACTRL_PROPERTY_ENTRYA;
  621.   PACTRL_PROPERTY_ENTRYW = ^ACTRL_PROPERTY_ENTRYW;
  622.   {$EXTERNALSYM PACTRL_PROPERTY_ENTRYW}
  623.   _ACTRL_PROPERTY_ENTRYW = packed record
  624.     lpProperty: LPWSTR;
  625.     pAccessEntryList: PACTRL_ACCESS_ENTRY_LISTW;
  626.     fListFlags: ULONG;
  627.   end;
  628.   {$EXTERNALSYM _ACTRL_PROPERTY_ENTRYW}
  629.   ACTRL_PROPERTY_ENTRYW = _ACTRL_PROPERTY_ENTRYW;
  630.   {$EXTERNALSYM ACTRL_PROPERTY_ENTRYW}
  631.   TActrlPropertyEntryW = ACTRL_PROPERTY_ENTRYW;
  632.   PActrlPropertyEntryW = PACTRL_PROPERTY_ENTRYW;
  634. {$IFDEF UNICODE}
  635.   ACTRL_PROPERTY_ENTRY = ACTRL_PROPERTY_ENTRYW;
  636.   {$EXTERNALSYM ACTRL_PROPERTY_ENTRY}
  637.   PACTRL_PROPERTY_ENTRY = PACTRL_PROPERTY_ENTRYW;
  638.   {$EXTERNALSYM PACTRL_PROPERTY_ENTRY}
  639.   TActrlPropertyEntry = TActrlPropertyEntryW;
  640.   PActrlPropertyEntry = PActrlPropertyEntryW;
  641. {$ELSE}
  642.   ACTRL_PROPERTY_ENTRY = ACTRL_PROPERTY_ENTRYA;
  643.   {$EXTERNALSYM ACTRL_PROPERTY_ENTRY}
  644.   PACTRL_PROPERTY_ENTRY = PACTRL_PROPERTY_ENTRYA;
  645.   {$EXTERNALSYM PACTRL_PROPERTY_ENTRY}
  646.   TActrlPropertyEntry = TActrlPropertyEntryA;
  647.   PActrlPropertyEntry = PActrlPropertyEntryA;
  648. {$ENDIF}
  650.   PActrlAlistA = ^TActrlAlistA;
  651.   _ACTRL_ALISTA = packed record
  652.     cEntries: ULONG;
  653.     pPropertyAccessList: PACTRL_PROPERTY_ENTRYA;
  654.   end;
  655.   {$EXTERNALSYM _ACTRL_ALISTA}
  656.   ACTRL_ACCESSA = _ACTRL_ALISTA;
  657.   {$EXTERNALSYM ACTRL_ACCESSA}
  658.   PACTRL_ACCESSA = ^_ACTRL_ALISTA;
  659.   {$EXTERNALSYM PACTRL_ACCESSA}
  660.   ACTRL_AUDITA = ACTRL_ACCESSA;
  661.   {$EXTERNALSYM ACTRL_AUDITA}
  662.   PACTRL_AUDITA = ^ACTRL_AUDITA;
  663.   {$EXTERNALSYM PACTRL_AUDITA}
  664.   TActrlAlistA = _ACTRL_ALISTA;
  666.   PActrlAlistW = ^TActrlAlistW;
  667.   _ACTRL_ALISTW = packed record
  668.     cEntries: ULONG;
  669.     pPropertyAccessList: PACTRL_PROPERTY_ENTRYW;
  670.   end;
  671.   {$EXTERNALSYM _ACTRL_ALISTW}
  672.   ACTRL_ACCESSW = _ACTRL_ALISTW;
  673.   {$EXTERNALSYM ACTRL_ACCESSW}
  674.   PACTRL_ACCESSW = ^_ACTRL_ALISTW;
  675.   {$EXTERNALSYM PACTRL_ACCESSW}
  676.   ACTRL_AUDITW = ACTRL_ACCESSW;
  677.   {$EXTERNALSYM ACTRL_AUDITW}
  678.   PACTRL_AUDITW = ^ACTRL_AUDITW;
  679.   {$EXTERNALSYM PACTRL_AUDITW}
  680.   TActrlAlistW = _ACTRL_ALISTW;
  682. {$IFDEF UNICODE}
  683.   ACTRL_ACCESS = ACTRL_ACCESSW;
  684.   {$EXTERNALSYM ACTRL_ACCESS}
  685.   PACTRL_ACCESS = PACTRL_ACCESSW;
  686.   {$EXTERNALSYM PACTRL_ACCESS}
  687.   ACTRL_AUDIT = ACTRL_AUDITW;
  688.   {$EXTERNALSYM ACTRL_AUDIT}
  689.   PACTRL_AUDIT = PACTRL_AUDITW;
  690.   {$EXTERNALSYM PACTRL_AUDIT}
  691.   TActrlAlist = TActrlAlistW;
  692.   PActrlAlist = PActrlAlistW;
  693. {$ELSE}
  694.   ACTRL_ACCESS = ACTRL_ACCESSA;
  695.   {$EXTERNALSYM ACTRL_ACCESS}
  696.   PACTRL_ACCESS = PACTRL_ACCESSA;
  697.   {$EXTERNALSYM PACTRL_ACCESS}
  698.   ACTRL_AUDIT = ACTRL_AUDITA;
  699.   {$EXTERNALSYM ACTRL_AUDIT}
  700.   PACTRL_AUDIT = PACTRL_AUDITA;
  701.   {$EXTERNALSYM PACTRL_AUDIT}
  702.   TActrlAlist = TActrlAlistA;
  703.   PActrlAlist = PActrlAlistA;
  704. {$ENDIF}
  706. //
  707. // TRUSTEE_ACCESS flags
  708. //
  710. const
  711.   TRUSTEE_ACCESS_ALLOWED    = $00000001;
  712.   {$EXTERNALSYM TRUSTEE_ACCESS_ALLOWED}
  713.   TRUSTEE_ACCESS_READ       = $00000002;
  714.   {$EXTERNALSYM TRUSTEE_ACCESS_READ}
  715.   TRUSTEE_ACCESS_WRITE      = $00000004;
  716.   {$EXTERNALSYM TRUSTEE_ACCESS_WRITE}
  718.   TRUSTEE_ACCESS_EXPLICIT   = $00000001;
  719.   {$EXTERNALSYM TRUSTEE_ACCESS_EXPLICIT}
  720.   TRUSTEE_ACCESS_READ_WRITE = TRUSTEE_ACCESS_READ or TRUSTEE_ACCESS_WRITE;
  721.   {$EXTERNALSYM TRUSTEE_ACCESS_READ_WRITE}
  723.   TRUSTEE_ACCESS_ALL = DWORD($FFFFFFFF);
  724.   {$EXTERNALSYM TRUSTEE_ACCESS_ALL}
  726. type
  727.   PTRUSTEE_ACCESSA = ^TRUSTEE_ACCESSA;
  728.   {$EXTERNALSYM PTRUSTEE_ACCESSA}
  729.   _TRUSTEE_ACCESSA = packed record
  730.     lpProperty: LPSTR;
  731.     Access: ACCESS_RIGHTS;
  732.     fAccessFlags: ULONG;
  733.     fReturnedAccess: ULONG;
  734.   end;
  735.   {$EXTERNALSYM _TRUSTEE_ACCESSA}
  736.   TRUSTEE_ACCESSA = _TRUSTEE_ACCESSA;
  737.   {$EXTERNALSYM TRUSTEE_ACCESSA}
  738.   TTrusteeAccessA = TRUSTEE_ACCESSA;
  739.   PTrusteeAccessA = PTRUSTEE_ACCESSA;
  741.   PTRUSTEE_ACCESSW = ^TRUSTEE_ACCESSW;
  742.   {$EXTERNALSYM PTRUSTEE_ACCESSW}
  743.   _TRUSTEE_ACCESSW = packed record
  744.     lpProperty: LPWSTR;
  745.     Access: ACCESS_RIGHTS;
  746.     fAccessFlags: ULONG;
  747.     fReturnedAccess: ULONG;
  748.   end;
  749.   {$EXTERNALSYM _TRUSTEE_ACCESSW}
  750.   TRUSTEE_ACCESSW = _TRUSTEE_ACCESSW;
  751.   {$EXTERNALSYM TRUSTEE_ACCESSW}
  752.   TTrusteeAccessW = TRUSTEE_ACCESSW;
  753.   PTrusteeAccessW = PTRUSTEE_ACCESSW;
  755. {$IFDEF UNICODE}
  756.   TRUSTEE_ACCESS = TRUSTEE_ACCESSW;
  757.   {$EXTERNALSYM TRUSTEE_ACCESS}
  758.   PTRUSTEE_ACCESS = PTRUSTEE_ACCESSW;
  759.   {$EXTERNALSYM PTRUSTEE_ACCESS}
  760.   TTrusteeAccess = TTrusteeAccessW;
  761.   PTrusteeAccess = PTrusteeAccessW;
  762. {$ELSE}
  763.   TRUSTEE_ACCESS = TRUSTEE_ACCESSA;
  764.   {$EXTERNALSYM TRUSTEE_ACCESS}
  765.   PTRUSTEE_ACCESS = PTRUSTEE_ACCESSA;
  766.   {$EXTERNALSYM PTRUSTEE_ACCESS}
  767.   TTrusteeAccess = TTrusteeAccessA;
  768.   PTrusteeAccess = PTrusteeAccessA;
  769. {$ENDIF}
  771. //
  772. // Generic permission values
  773. //
  775. const
  776.   ACTRL_RESERVED = $00000000;
  777.   {$EXTERNALSYM ACTRL_RESERVED}
  778.   ACTRL_PERM_1   = $00000001;
  779.   {$EXTERNALSYM ACTRL_PERM_1}
  780.   ACTRL_PERM_2   = $00000002;
  781.   {$EXTERNALSYM ACTRL_PERM_2}
  782.   ACTRL_PERM_3   = $00000004;
  783.   {$EXTERNALSYM ACTRL_PERM_3}
  784.   ACTRL_PERM_4   = $00000008;
  785.   {$EXTERNALSYM ACTRL_PERM_4}
  786.   ACTRL_PERM_5   = $00000010;
  787.   {$EXTERNALSYM ACTRL_PERM_5}
  788.   ACTRL_PERM_6   = $00000020;
  789.   {$EXTERNALSYM ACTRL_PERM_6}
  790.   ACTRL_PERM_7   = $00000040;
  791.   {$EXTERNALSYM ACTRL_PERM_7}
  792.   ACTRL_PERM_8   = $00000080;
  793.   {$EXTERNALSYM ACTRL_PERM_8}
  794.   ACTRL_PERM_9   = $00000100;
  795.   {$EXTERNALSYM ACTRL_PERM_9}
  796.   ACTRL_PERM_10  = $00000200;
  797.   {$EXTERNALSYM ACTRL_PERM_10}
  798.   ACTRL_PERM_11  = $00000400;
  799.   {$EXTERNALSYM ACTRL_PERM_11}
  800.   ACTRL_PERM_12  = $00000800;
  801.   {$EXTERNALSYM ACTRL_PERM_12}
  802.   ACTRL_PERM_13  = $00001000;
  803.   {$EXTERNALSYM ACTRL_PERM_13}
  804.   ACTRL_PERM_14  = $00002000;
  805.   {$EXTERNALSYM ACTRL_PERM_14}
  806.   ACTRL_PERM_15  = $00004000;
  807.   {$EXTERNALSYM ACTRL_PERM_15}
  808.   ACTRL_PERM_16  = $00008000;
  809.   {$EXTERNALSYM ACTRL_PERM_16}
  810.   ACTRL_PERM_17  = $00010000;
  811.   {$EXTERNALSYM ACTRL_PERM_17}
  812.   ACTRL_PERM_18  = $00020000;
  813.   {$EXTERNALSYM ACTRL_PERM_18}
  814.   ACTRL_PERM_19  = $00040000;
  815.   {$EXTERNALSYM ACTRL_PERM_19}
  816.   ACTRL_PERM_20  = $00080000;
  817.   {$EXTERNALSYM ACTRL_PERM_20}
  819. //
  820. // Access permissions
  821. //
  823.   ACTRL_ACCESS_ALLOWED = $00000001;
  824.   {$EXTERNALSYM ACTRL_ACCESS_ALLOWED}
  825.   ACTRL_ACCESS_DENIED  = $00000002;
  826.   {$EXTERNALSYM ACTRL_ACCESS_DENIED}
  827.   ACTRL_AUDIT_SUCCESS  = $00000004;
  828.   {$EXTERNALSYM ACTRL_AUDIT_SUCCESS}
  829.   ACTRL_AUDIT_FAILURE  = $00000008;
  830.   {$EXTERNALSYM ACTRL_AUDIT_FAILURE}
  832. //
  833. // Property list flags
  834. //
  836.   ACTRL_ACCESS_PROTECTED = $00000001;
  837.   {$EXTERNALSYM ACTRL_ACCESS_PROTECTED}
  839. //
  840. // Standard and object rights
  841. //
  843.   ACTRL_SYSTEM_ACCESS      = $04000000;
  844.   {$EXTERNALSYM ACTRL_SYSTEM_ACCESS}
  845.   ACTRL_DELETE             = $08000000;
  846.   {$EXTERNALSYM ACTRL_DELETE}
  847.   ACTRL_READ_CONTROL       = $10000000;
  848.   {$EXTERNALSYM ACTRL_READ_CONTROL}
  849.   ACTRL_CHANGE_ACCESS      = $20000000;
  850.   {$EXTERNALSYM ACTRL_CHANGE_ACCESS}
  851.   ACTRL_CHANGE_OWNER       = $40000000;
  852.   {$EXTERNALSYM ACTRL_CHANGE_OWNER}
  853.   ACTRL_SYNCHRONIZE        = DWORD($80000000);
  854.   {$EXTERNALSYM ACTRL_SYNCHRONIZE}
  855.   ACTRL_STD_RIGHTS_ALL     = DWORD($f8000000);
  856.   {$EXTERNALSYM ACTRL_STD_RIGHTS_ALL}
  857.   ACTRL_STD_RIGHT_REQUIRED = DWORD(ACTRL_STD_RIGHTS_ALL and not ACTRL_SYNCHRONIZE);
  858.   {$EXTERNALSYM ACTRL_STD_RIGHT_REQUIRED}
  860.   ACTRL_DS_OPEN           = ACTRL_RESERVED;
  861.   {$EXTERNALSYM ACTRL_DS_OPEN}
  862.   ACTRL_DS_CREATE_CHILD   = ACTRL_PERM_1;
  863.   {$EXTERNALSYM ACTRL_DS_CREATE_CHILD}
  864.   ACTRL_DS_DELETE_CHILD   = ACTRL_PERM_2;
  865.   {$EXTERNALSYM ACTRL_DS_DELETE_CHILD}
  866.   ACTRL_DS_LIST           = ACTRL_PERM_3;
  867.   {$EXTERNALSYM ACTRL_DS_LIST}
  868.   ACTRL_DS_SELF           = ACTRL_PERM_4;
  869.   {$EXTERNALSYM ACTRL_DS_SELF}
  870.   ACTRL_DS_READ_PROP      = ACTRL_PERM_5;
  871.   {$EXTERNALSYM ACTRL_DS_READ_PROP}
  872.   ACTRL_DS_WRITE_PROP     = ACTRL_PERM_6;
  873.   {$EXTERNALSYM ACTRL_DS_WRITE_PROP}
  874.   ACTRL_DS_DELETE_TREE    = ACTRL_PERM_7;
  875.   {$EXTERNALSYM ACTRL_DS_DELETE_TREE}
  876.   ACTRL_DS_LIST_OBJECT    = ACTRL_PERM_8;
  877.   {$EXTERNALSYM ACTRL_DS_LIST_OBJECT}
  878.   ACTRL_DS_CONTROL_ACCESS = ACTRL_PERM_9;
  879.   {$EXTERNALSYM ACTRL_DS_CONTROL_ACCESS}
  881.   ACTRL_FILE_READ           = ACTRL_PERM_1;
  882.   {$EXTERNALSYM ACTRL_FILE_READ}
  883.   ACTRL_FILE_WRITE          = ACTRL_PERM_2;
  884.   {$EXTERNALSYM ACTRL_FILE_WRITE}
  885.   ACTRL_FILE_APPEND         = ACTRL_PERM_3;
  886.   {$EXTERNALSYM ACTRL_FILE_APPEND}
  887.   ACTRL_FILE_READ_PROP      = ACTRL_PERM_4;
  888.   {$EXTERNALSYM ACTRL_FILE_READ_PROP}
  889.   ACTRL_FILE_WRITE_PROP     = ACTRL_PERM_5;
  890.   {$EXTERNALSYM ACTRL_FILE_WRITE_PROP}
  891.   ACTRL_FILE_EXECUTE        = ACTRL_PERM_6;
  892.   {$EXTERNALSYM ACTRL_FILE_EXECUTE}
  893.   ACTRL_FILE_READ_ATTRIB    = ACTRL_PERM_8;
  894.   {$EXTERNALSYM ACTRL_FILE_READ_ATTRIB}
  895.   ACTRL_FILE_WRITE_ATTRIB   = ACTRL_PERM_9;
  896.   {$EXTERNALSYM ACTRL_FILE_WRITE_ATTRIB}
  897.   ACTRL_FILE_CREATE_PIPE    = ACTRL_PERM_10;
  898.   {$EXTERNALSYM ACTRL_FILE_CREATE_PIPE}
  899.   ACTRL_DIR_LIST            = ACTRL_PERM_1;
  900.   {$EXTERNALSYM ACTRL_DIR_LIST}
  901.   ACTRL_DIR_CREATE_OBJECT   = ACTRL_PERM_2;
  902.   {$EXTERNALSYM ACTRL_DIR_CREATE_OBJECT}
  903.   ACTRL_DIR_CREATE_CHILD    = ACTRL_PERM_3;
  904.   {$EXTERNALSYM ACTRL_DIR_CREATE_CHILD}
  905.   ACTRL_DIR_DELETE_CHILD    = ACTRL_PERM_7;
  906.   {$EXTERNALSYM ACTRL_DIR_DELETE_CHILD}
  907.   ACTRL_DIR_TRAVERSE        = ACTRL_PERM_6;
  908.   {$EXTERNALSYM ACTRL_DIR_TRAVERSE}
  909.   ACTRL_KERNEL_TERMINATE    = ACTRL_PERM_1;
  910.   {$EXTERNALSYM ACTRL_KERNEL_TERMINATE}
  911.   ACTRL_KERNEL_THREAD       = ACTRL_PERM_2;
  912.   {$EXTERNALSYM ACTRL_KERNEL_THREAD}
  913.   ACTRL_KERNEL_VM           = ACTRL_PERM_3;
  914.   {$EXTERNALSYM ACTRL_KERNEL_VM}
  915.   ACTRL_KERNEL_VM_READ      = ACTRL_PERM_4;
  916.   {$EXTERNALSYM ACTRL_KERNEL_VM_READ}
  917.   ACTRL_KERNEL_VM_WRITE     = ACTRL_PERM_5;
  918.   {$EXTERNALSYM ACTRL_KERNEL_VM_WRITE}
  919.   ACTRL_KERNEL_DUP_HANDLE   = ACTRL_PERM_6;
  920.   {$EXTERNALSYM ACTRL_KERNEL_DUP_HANDLE}
  921.   ACTRL_KERNEL_PROCESS      = ACTRL_PERM_7;
  922.   {$EXTERNALSYM ACTRL_KERNEL_PROCESS}
  923.   ACTRL_KERNEL_SET_INFO     = ACTRL_PERM_8;
  924.   {$EXTERNALSYM ACTRL_KERNEL_SET_INFO}
  925.   ACTRL_KERNEL_GET_INFO     = ACTRL_PERM_9;
  926.   {$EXTERNALSYM ACTRL_KERNEL_GET_INFO}
  927.   ACTRL_KERNEL_CONTROL      = ACTRL_PERM_10;
  928.   {$EXTERNALSYM ACTRL_KERNEL_CONTROL}
  929.   ACTRL_KERNEL_ALERT        = ACTRL_PERM_11;
  930.   {$EXTERNALSYM ACTRL_KERNEL_ALERT}
  931.   ACTRL_KERNEL_GET_CONTEXT  = ACTRL_PERM_12;
  932.   {$EXTERNALSYM ACTRL_KERNEL_GET_CONTEXT}
  933.   ACTRL_KERNEL_SET_CONTEXT  = ACTRL_PERM_13;
  934.   {$EXTERNALSYM ACTRL_KERNEL_SET_CONTEXT}
  935.   ACTRL_KERNEL_TOKEN        = ACTRL_PERM_14;
  936.   {$EXTERNALSYM ACTRL_KERNEL_TOKEN}
  937.   ACTRL_KERNEL_IMPERSONATE  = ACTRL_PERM_15;
  938.   {$EXTERNALSYM ACTRL_KERNEL_IMPERSONATE}
  939.   ACTRL_KERNEL_DIMPERSONATE = ACTRL_PERM_16;
  940.   {$EXTERNALSYM ACTRL_KERNEL_DIMPERSONATE}
  941.   ACTRL_PRINT_SADMIN        = ACTRL_PERM_1;
  942.   {$EXTERNALSYM ACTRL_PRINT_SADMIN}
  943.   ACTRL_PRINT_SLIST         = ACTRL_PERM_2;
  944.   {$EXTERNALSYM ACTRL_PRINT_SLIST}
  945.   ACTRL_PRINT_PADMIN        = ACTRL_PERM_3;
  946.   {$EXTERNALSYM ACTRL_PRINT_PADMIN}
  947.   ACTRL_PRINT_PUSE          = ACTRL_PERM_4;
  948.   {$EXTERNALSYM ACTRL_PRINT_PUSE}
  949.   ACTRL_PRINT_JADMIN        = ACTRL_PERM_5;
  950.   {$EXTERNALSYM ACTRL_PRINT_JADMIN}
  951.   ACTRL_SVC_GET_INFO        = ACTRL_PERM_1;
  952.   {$EXTERNALSYM ACTRL_SVC_GET_INFO}
  953.   ACTRL_SVC_SET_INFO        = ACTRL_PERM_2;
  954.   {$EXTERNALSYM ACTRL_SVC_SET_INFO}
  955.   ACTRL_SVC_STATUS          = ACTRL_PERM_3;
  956.   {$EXTERNALSYM ACTRL_SVC_STATUS}
  957.   ACTRL_SVC_LIST            = ACTRL_PERM_4;
  958.   {$EXTERNALSYM ACTRL_SVC_LIST}
  959.   ACTRL_SVC_START           = ACTRL_PERM_5;
  960.   {$EXTERNALSYM ACTRL_SVC_START}
  961.   ACTRL_SVC_STOP            = ACTRL_PERM_6;
  962.   {$EXTERNALSYM ACTRL_SVC_STOP}
  963.   ACTRL_SVC_PAUSE           = ACTRL_PERM_7;
  964.   {$EXTERNALSYM ACTRL_SVC_PAUSE}
  965.   ACTRL_SVC_INTERROGATE     = ACTRL_PERM_8;
  966.   {$EXTERNALSYM ACTRL_SVC_INTERROGATE}
  967.   ACTRL_SVC_UCONTROL        = ACTRL_PERM_9;
  968.   {$EXTERNALSYM ACTRL_SVC_UCONTROL}
  969.   ACTRL_REG_QUERY           = ACTRL_PERM_1;
  970.   {$EXTERNALSYM ACTRL_REG_QUERY}
  971.   ACTRL_REG_SET             = ACTRL_PERM_2;
  972.   {$EXTERNALSYM ACTRL_REG_SET}
  973.   ACTRL_REG_CREATE_CHILD    = ACTRL_PERM_3;
  974.   {$EXTERNALSYM ACTRL_REG_CREATE_CHILD}
  975.   ACTRL_REG_LIST            = ACTRL_PERM_4;
  976.   {$EXTERNALSYM ACTRL_REG_LIST}
  977.   ACTRL_REG_NOTIFY          = ACTRL_PERM_5;
  978.   {$EXTERNALSYM ACTRL_REG_NOTIFY}
  979.   ACTRL_REG_LINK            = ACTRL_PERM_6;
  980.   {$EXTERNALSYM ACTRL_REG_LINK}
  981.   ACTRL_WIN_CLIPBRD         = ACTRL_PERM_1;
  982.   {$EXTERNALSYM ACTRL_WIN_CLIPBRD}
  983.   ACTRL_WIN_GLOBAL_ATOMS    = ACTRL_PERM_2;
  984.   {$EXTERNALSYM ACTRL_WIN_GLOBAL_ATOMS}
  985.   ACTRL_WIN_CREATE          = ACTRL_PERM_3;
  986.   {$EXTERNALSYM ACTRL_WIN_CREATE}
  987.   ACTRL_WIN_LIST_DESK       = ACTRL_PERM_4;
  988.   {$EXTERNALSYM ACTRL_WIN_LIST_DESK}
  989.   ACTRL_WIN_LIST            = ACTRL_PERM_5;
  990.   {$EXTERNALSYM ACTRL_WIN_LIST}
  991.   ACTRL_WIN_READ_ATTRIBS    = ACTRL_PERM_6;
  992.   {$EXTERNALSYM ACTRL_WIN_READ_ATTRIBS}
  993.   ACTRL_WIN_WRITE_ATTRIBS   = ACTRL_PERM_7;
  994.   {$EXTERNALSYM ACTRL_WIN_WRITE_ATTRIBS}
  995.   ACTRL_WIN_SCREEN          = ACTRL_PERM_8;
  996.   {$EXTERNALSYM ACTRL_WIN_SCREEN}
  997.   ACTRL_WIN_EXIT            = ACTRL_PERM_9;
  998.   {$EXTERNALSYM ACTRL_WIN_EXIT}
  1001. type
  1002.   PACTRL_OVERLAPPED = ^ACTRL_OVERLAPPED;
  1003.   {$EXTERNALSYM PACTRL_OVERLAPPED}
  1004.   _ACTRL_OVERLAPPED = packed record
  1005.     //union {
  1006.     Provider: PVOID;
  1007.     //    ULONG Reserved1;
  1008.     //};
  1009.     Reserved2: ULONG;
  1010.     hEvent: HANDLE;
  1011.   end;
  1012.   {$EXTERNALSYM _ACTRL_OVERLAPPED}
  1013.   ACTRL_OVERLAPPED = _ACTRL_OVERLAPPED;
  1014.   {$EXTERNALSYM ACTRL_OVERLAPPED}
  1015.   TActrlOverlapped = ACTRL_OVERLAPPED;
  1016.   PActrlOverlapped = PACTRL_OVERLAPPED;
  1018.   PACTRL_ACCESS_INFOA = ^ACTRL_ACCESS_INFOA;
  1019.   {$EXTERNALSYM PACTRL_ACCESS_INFOA}
  1020.   _ACTRL_ACCESS_INFOA = packed record
  1021.     fAccessPermission: ULONG;
  1022.     lpAccessPermissionName: LPSTR;
  1023.   end;
  1024.   {$EXTERNALSYM _ACTRL_ACCESS_INFOA}
  1025.   ACTRL_ACCESS_INFOA = _ACTRL_ACCESS_INFOA;
  1026.   {$EXTERNALSYM ACTRL_ACCESS_INFOA}
  1027.   TActrlAccessInfoA = ACTRL_ACCESS_INFOA;
  1028.   PActrlAccessInfoA = PACTRL_ACCESS_INFOA;
  1030.   PACTRL_ACCESS_INFOW = ^ACTRL_ACCESS_INFOW;
  1031.   {$EXTERNALSYM PACTRL_ACCESS_INFOW}
  1032.   _ACTRL_ACCESS_INFOW = packed record
  1033.     fAccessPermission: ULONG;
  1034.     lpAccessPermissionName: LPWSTR;
  1035.   end;
  1036.   {$EXTERNALSYM _ACTRL_ACCESS_INFOW}
  1037.   ACTRL_ACCESS_INFOW = _ACTRL_ACCESS_INFOW;
  1038.   {$EXTERNALSYM ACTRL_ACCESS_INFOW}
  1039.   TActrlAccessInfoW = ACTRL_ACCESS_INFOW;
  1040.   PActrlAccessInfoW = PACTRL_ACCESS_INFOW;
  1042. {$IFDEF UNICODE}
  1043.   ACTRL_ACCESS_INFO = ACTRL_ACCESS_INFOW;
  1044.   {$EXTERNALSYM ACTRL_ACCESS_INFO}
  1045.   PACTRL_ACCESS_INFO = PACTRL_ACCESS_INFOW;
  1046.   {$EXTERNALSYM PACTRL_ACCESS_INFO}
  1047.   TActrlAccessInfo = TActrlAccessInfoW;
  1048.   PActrlAccessInfo = PActrlAccessInfoW;
  1049. {$ELSE}
  1050.   ACTRL_ACCESS_INFO = ACTRL_ACCESS_INFOA;
  1051.   {$EXTERNALSYM ACTRL_ACCESS_INFO}
  1052.   PACTRL_ACCESS_INFO = PACTRL_ACCESS_INFOA;
  1053.   {$EXTERNALSYM PACTRL_ACCESS_INFO}
  1054.   TActrlAccessInfo = TActrlAccessInfoA;
  1055.   PActrlAccessInfo = PActrlAccessInfoA;
  1056. {$ENDIF}
  1058.   PACTRL_CONTROL_INFOA = ^ACTRL_CONTROL_INFOA;
  1059.   {$EXTERNALSYM PACTRL_CONTROL_INFOA}
  1060.   _ACTRL_CONTROL_INFOA = packed record
  1061.     lpControlId: LPSTR;
  1062.     lpControlName: LPSTR;
  1063.   end;
  1064.   {$EXTERNALSYM _ACTRL_CONTROL_INFOA}
  1065.   ACTRL_CONTROL_INFOA = _ACTRL_CONTROL_INFOA;
  1066.   {$EXTERNALSYM ACTRL_CONTROL_INFOA}
  1067.   TActrlControlInfoA = ACTRL_CONTROL_INFOA;
  1068.   PActrlControlInfoA = PACTRL_CONTROL_INFOA;
  1070.   PACTRL_CONTROL_INFOW = ^ACTRL_CONTROL_INFOW;
  1071.   {$EXTERNALSYM PACTRL_CONTROL_INFOW}
  1072.   _ACTRL_CONTROL_INFOW = packed record
  1073.     lpControlId: LPWSTR;
  1074.     lpControlName: LPWSTR;
  1075.   end;
  1076.   {$EXTERNALSYM _ACTRL_CONTROL_INFOW}
  1077.   ACTRL_CONTROL_INFOW = _ACTRL_CONTROL_INFOW;
  1078.   {$EXTERNALSYM ACTRL_CONTROL_INFOW}
  1079.   TActrlControlInfoW = ACTRL_CONTROL_INFOW;
  1080.   PActrlControlInfoW = PACTRL_CONTROL_INFOW;
  1082. {$IFDEF UNICODE}
  1083.   ACTRL_CONTROL_INFO = ACTRL_CONTROL_INFOW;
  1084.   {$EXTERNALSYM ACTRL_CONTROL_INFO}
  1085.   PACTRL_CONTROL_INFO = PACTRL_CONTROL_INFOW;
  1086.   {$EXTERNALSYM PACTRL_CONTROL_INFO}
  1087.   TActrlControlInfo = TActrlControlInfoW;
  1088.   PActrlControlInfo = PActrlControlInfoW;
  1089. {$ELSE}
  1090.   ACTRL_CONTROL_INFO = ACTRL_CONTROL_INFOA;
  1091.   {$EXTERNALSYM ACTRL_CONTROL_INFO}
  1092.   PACTRL_CONTROL_INFO = PACTRL_CONTROL_INFOA;
  1093.   {$EXTERNALSYM PACTRL_CONTROL_INFO}
  1094.   TActrlControlInfo = TActrlControlInfoA;
  1095.   PActrlControlInfo = PActrlControlInfoA;
  1096. {$ENDIF}
  1098. const
  1099.   ACTRL_ACCESS_NO_OPTIONS              = $00000000;
  1100.   {$EXTERNALSYM ACTRL_ACCESS_NO_OPTIONS}
  1101.   ACTRL_ACCESS_SUPPORTS_OBJECT_ENTRIES = $00000001;
  1102.   {$EXTERNALSYM ACTRL_ACCESS_SUPPORTS_OBJECT_ENTRIES}
  1104.   ProgressInvokeNever = 1;        // Never invoke the progress function
  1105.   {$EXTERNALSYM ProgressInvokeNever}
  1106.   ProgressInvokeEveryObject = 2;  // Invoke for each object
  1107.   {$EXTERNALSYM ProgressInvokeEveryObject}
  1108.   ProgressInvokeOnError = 3;      // Invoke only for each error case
  1109.   {$EXTERNALSYM ProgressInvokeOnError}
  1110.   ProgressCancelOperation = 4;    // Stop propagation and return
  1111.   {$EXTERNALSYM ProgressCancelOperation}
  1112.   ProgressRetryOperation = 5;     // Retry operation on subtree
  1113.   {$EXTERNALSYM ProgressRetryOperation}
  1115. type
  1116.   PROG_INVOKE_SETTING = DWORD;
  1117.   {$EXTERNALSYM PROG_INVOKE_SETTING}
  1118.   PPROG_INVOKE_SETTING = ^PROG_INVOKE_SETTING;
  1119.   {$EXTERNALSYM PPROG_INVOKE_SETTING}
  1120.   TProgInvokeSetting = PROG_INVOKE_SETTING;
  1121.   PProgInvokeSetting = PPROG_INVOKE_SETTING;
  1123. //
  1124. // Progress Function:
  1125. // Caller of tree operation implements this Progress function, then
  1126. // passes its function pointer to tree operation.
  1127. // Tree operation invokes Progress function to provide progress and error
  1128. // information to the caller during the potentially long execution
  1129. // of the tree operation.  Tree operation provides the name of the object
  1130. // last processed and the error status of the operation on that object.
  1131. // Tree operation also passes the current InvokeSetting value.
  1132. // Caller may change the InvokeSetting value, for example, from "Always"
  1133. // to "Only On Error."
  1134. //
  1136. type
  1137.   FN_PROGRESS = procedure (pObjectName: LPWSTR; Status: DWORD;
  1138.     var pInvokeSetting: PROG_INVOKE_SETTING; Args: PVOID; SecuritySet: BOOL); stdcall;
  1139.   {$EXTERNALSYM FN_PROGRESS}
  1140.   TFnProgress = FN_PROGRESS;
  1142. //
  1143. // New Object Type function pointers.  TBD.
  1144. // To support additional object resource managers generically, the
  1145. // resource manager must provide it's own functions for operations
  1146. // like:
  1147. // GetAncestorAcl(IN ObjName, IN GenerationGap, IN DaclOrSacl?, ...)
  1148. // GetAncestorName(...)
  1149. // FreeNameStructure(...)
  1150. //
  1152. type
  1153.   _FN_OBJECT_MGR_FUNCTIONS = record
  1154.     Placeholder: ULONG;
  1155.   end;
  1156.   {$EXTERNALSYM _FN_OBJECT_MGR_FUNCTIONS}
  1157.   FN_OBJECT_MGR_FUNCTS = _FN_OBJECT_MGR_FUNCTIONS;
  1158.   {$EXTERNALSYM FN_OBJECT_MGR_FUNCTS}
  1159.   PFN_OBJECT_MGR_FUNCTS = ^FN_OBJECT_MGR_FUNCTS;
  1160.   {$EXTERNALSYM PFN_OBJECT_MGR_FUNCTS}
  1161.   TFnObjectMgrFuncts = FN_OBJECT_MGR_FUNCTS;
  1162.   PFnObjectMgrFuncts = PFN_OBJECT_MGR_FUNCTS;  
  1164. //
  1165. // Name of ancestor and number of generations between
  1166. // ancestor and inheriting object.
  1167. //
  1168. // GenerationGap:
  1169. //     Name of ancestor from which ACE was inherited.
  1170. //     NULL for explicit ACE.
  1171. //
  1172. // AncestorName:
  1173. //     Number of levels (or generations) between the object and the ancestor.
  1174. //     Parent, gap=1.
  1175. //     Grandparent, gap=2.
  1176. //     Set to 0 for explicit ACE on object.
  1177. //
  1179. type
  1180.   _INHERITED_FROMA = record
  1181.     GenerationGap: LONG;
  1182.     AncestorName: LPSTR;
  1183.   end;
  1184.   {$EXTERNALSYM _INHERITED_FROMA}
  1185.   INHERITED_FROMA = _INHERITED_FROMA;
  1186.   {$EXTERNALSYM INHERITED_FROMA}
  1187.   PINHERITED_FROMA = ^INHERITED_FROMA;
  1188.   {$EXTERNALSYM PINHERITED_FROMA}
  1189.   TInheritedFromA = INHERITED_FROMA;
  1190.   PInheritedFromA = PINHERITED_FROMA;
  1192.   _INHERITED_FROMW = record
  1193.     GenerationGap: LONG;
  1194.     AncestorName: LPWSTR;
  1195.   end;
  1196.   {$EXTERNALSYM _INHERITED_FROMW}
  1197.   INHERITED_FROMW = _INHERITED_FROMW;
  1198.   {$EXTERNALSYM INHERITED_FROMW}
  1199.   PINHERITED_FROMW = ^INHERITED_FROMW;
  1200.   {$EXTERNALSYM PINHERITED_FROMW}
  1201.   TInheritedFromW = INHERITED_FROMW;
  1202.   PInheritedFromW = PINHERITED_FROMW;
  1204. {$IFDEF UNICODE}
  1205.   INHERITED_FROM = INHERITED_FROMW;
  1206.   {$EXTERNALSYM INHERITED_FROM}
  1207.   PINHERITED_FROM = PINHERITED_FROMW;
  1208.   {$EXTERNALSYM PINHERITED_FROM}
  1209.   TInheritedFrom = TInheritedFromW;
  1210.   PInheritedFrom = PInheritedFromW;
  1211. {$ELSE}
  1212.   INHERITED_FROM = INHERITED_FROMA;
  1213.   {$EXTERNALSYM INHERITED_FROM}
  1214.   PINHERITED_FROM = PINHERITED_FROMA;
  1215.   {$EXTERNALSYM PINHERITED_FROM}
  1216.   TInheritedFrom = TInheritedFromA;
  1217.   PInheritedFrom = PInheritedFromA;
  1218. {$ENDIF}
  1220. implementation
  1222. uses
  1223.   JwaWinBase;
  1225. function AccFree(hMem: HLOCAL): HLOCAL;
  1226. begin
  1227.   Result := LocalFree(hMem);
  1228. end;
  1230. end.