TAccessControlEntry

type TAccessControlEntry = class(TOleServer)

protected

  procedure InitServerData; override;

  function Get_AccessMask;

  procedure Set_AccessMask();

  function Get_AceType;

  procedure Set_AceType();

  function Get_AceFlags;

  procedure Set_AceFlags();

  function Get_Flags;

  procedure Set_Flags();

  function Get_ObjectType;

  procedure Set_ObjectType();

  function Get_InheritedObjectType;

  procedure Set_InheritedObjectType();

  function Get_Trustee;

  procedure Set_Trustee();

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Connect; override;

  procedure ConnectTo();

  procedure Disconnect; override;

  property DefaultInterface: IADsAccessControlEntry; [r]

  property AccessMask: Integer; [rw]

  property AceType: Integer; [rw]

  property AceFlags: Integer; [rw]

  property Flags: Integer; [rw]

  property ObjectType: WideString; [rw]

  property InheritedObjectType: WideString; [rw]

  property Trustee: WideString; [rw]

end;

TAccessControlEntry

TOleServer

TObject