jwaiaccess.pas 6.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140
  1. {******************************************************************************}
  2. { }
  3. { Access and Audit Control interfaces 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: iaccess.h, released November 2002. The original Pascal }
  9. { code is: IAccess.pas, released March 2002. The initial developer of the }
  10. { Pascal code is Marcel van Brakel (brakelm att chello dott 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 }
  18. { APILIB home page, located at http://jedi-apilib.sourceforge.net }
  19. { }
  20. { The contents of this file are used with permission, subject to the Mozilla }
  21. { Public License Version 1.1 (the "License"); you may not use this file except }
  22. { in compliance with the License. You may obtain a copy of the License at }
  23. { http://www.mozilla.org/MPL/MPL-1.1.html }
  24. { }
  25. { Software distributed under the License is distributed on an "AS IS" basis, }
  26. { WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
  27. { the specific language governing rights and limitations under the License. }
  28. { }
  29. { Alternatively, the contents of this file may be used under the terms of the }
  30. { GNU Lesser General Public License (the "LGPL License"), in which case the }
  31. { provisions of the LGPL License are applicable instead of those above. }
  32. { If you wish to allow use of your version of this file only under the terms }
  33. { of the LGPL License and not to allow others to use your version of this file }
  34. { under the MPL, indicate your decision by deleting the provisions above and }
  35. { replace them with the notice and other provisions required by the LGPL }
  36. { License. If you do not delete the provisions above, a recipient may use }
  37. { your version of this file under either the MPL or the LGPL License. }
  38. { }
  39. { For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html }
  40. { }
  41. {******************************************************************************}
  42. // $Id: JwaIAccess.pas,v 1.8 2007/09/05 11:58:49 dezipaitor Exp $
  43. {$IFNDEF JWA_OMIT_SECTIONS}
  44. unit JwaIAccess;
  45. {$WEAKPACKAGEUNIT}
  46. {$ENDIF JWA_OMIT_SECTIONS}
  47. {$HPPEMIT ''}
  48. {$HPPEMIT '#include "iaccess.h"'}
  49. {$HPPEMIT ''}
  50. {$IFNDEF JWA_OMIT_SECTIONS}
  51. {$I jediapilib.inc}
  52. interface
  53. uses
  54. JwaAccCtrl, JwaWinType;
  55. {$ENDIF JWA_OMIT_SECTIONS}
  56. {$IFNDEF JWA_IMPLEMENTATIONSECTION}
  57. {****************************************************************************
  58. * Storage access control interface
  59. ****************************************************************************}
  60. // All nested structures are allocated in the same block of memory.
  61. // Thus these types are freed with a single call to CoTaskMemFree.
  62. type
  63. PACTRL_ACCESSW_ALLOCATE_ALL_NODES = PACTRL_ACCESSW;
  64. {$EXTERNALSYM PACTRL_ACCESSW_ALLOCATE_ALL_NODES}
  65. PActrlAccessWAllocateAllNodes = PACTRL_ACCESSW_ALLOCATE_ALL_NODES;
  66. PACTRL_AUDITW_ALLOCATE_ALL_NODES = PACTRL_AUDITW;
  67. {$EXTERNALSYM PACTRL_AUDITW_ALLOCATE_ALL_NODES}
  68. PActrlAuditWAllocateAllNodes = PACTRL_AUDITW_ALLOCATE_ALL_NODES;
  69. const
  70. IID_IAccessControl = '{EEDD23E0-8410-11CE-A1C3-08002B2B8D8F}';
  71. {$EXTERNALSYM IID_IAccessControl}
  72. type
  73. IAccessControl = interface (IUnknown)
  74. ['{EEDD23E0-8410-11CE-A1C3-08002B2B8D8F}']
  75. function GrantAccessRights(pAccessList: PACTRL_ACCESSW): HRESULT; stdcall;
  76. function SetAccessRights(pAccessList: PACTRL_ACCESSW): HRESULT; stdcall;
  77. function SetOwner(pOwner: PTRUSTEEW; pGroup: PTRUSTEEW): HRESULT; stdcall;
  78. function RevokeAccessRights(lpProperty: LPWSTR; cTrustees: ULONG; prgTrustees: PTRUSTEEW): HRESULT; stdcall;
  79. function GetAllAccessRights(lpProperty: LPWSTR; var ppAccessList: PACTRL_ACCESSW_ALLOCATE_ALL_NODES; var ppOwner, ppGroup: PTRUSTEEW): HRESULT; stdcall;
  80. function IsAccessAllowed(pTrustee: PTRUSTEEW; lpProperty: LPWSTR; AccessRights: ACCESS_RIGHTS; var pfAccessAllowed: BOOL): HRESULT; stdcall;
  81. end;
  82. {$EXTERNALSYM IAccessControl}
  83. {****************************************************************************
  84. * Storage audit control interface
  85. ****************************************************************************}
  86. const
  87. IID_IAuditControl = '{1da6292f-bc66-11ce-aae3-00aa004c2737}';
  88. {$EXTERNALSYM IID_IAuditControl}
  89. type
  90. IAuditControl = interface (IUnknown)
  91. ['{1da6292f-bc66-11ce-aae3-00aa004c2737}']
  92. function GrantAuditRights(pAuditList: PACTRL_AUDITW): HRESULT; stdcall;
  93. function SetAuditRights(pAuditList: PACTRL_AUDITW): HRESULT; stdcall;
  94. function RevokeAuditRights(lpProperty: LPWSTR; cTrustees: ULONG; prgTrustees: PTRUSTEEW): HRESULT; stdcall;
  95. function GetAllAuditRights(lpProperty: LPWSTR; var ppAuditList: PACTRL_AUDITW): HRESULT; stdcall;
  96. //
  97. // Determines if the given trustee with the state audit rights will generate an audit event if the object is accessed.
  98. //
  99. function IsAccessAudited(pTrustee: PTRUSTEEW; AuditRights: ACCESS_RIGHTS; var pfAccessAudited: BOOL): HRESULT; stdcall;
  100. end;
  101. {$EXTERNALSYM IAuditControl}
  102. {$ENDIF JWA_IMPLEMENTATIONSECTION}
  103. {$IFNDEF JWA_OMIT_SECTIONS}
  104. implementation
  105. //uses ...
  106. {$ENDIF JWA_OMIT_SECTIONS}
  107. {$IFNDEF JWA_INTERFACESECTION}
  108. //your implementation here
  109. {$ENDIF JWA_INTERFACESECTION}
  110. {$IFNDEF JWA_OMIT_SECTIONS}
  111. end.
  112. {$ENDIF JWA_OMIT_SECTIONS}