TSecurityDescriptor

type TSecurityDescriptor = class(TOleServer)

protected

  procedure InitServerData; override;

  function Get_Revision;

  procedure Set_Revision();

  function Get_Control;

  procedure Set_Control();

  function Get_Owner;

  procedure Set_Owner();

  function Get_OwnerDefaulted;

  procedure Set_OwnerDefaulted();

  function Get_Group;

  procedure Set_Group();

  function Get_GroupDefaulted;

  procedure Set_GroupDefaulted();

  function Get_DiscretionaryAcl;

  procedure Set_DiscretionaryAcl();

  function Get_DaclDefaulted;

  procedure Set_DaclDefaulted();

  function Get_SystemAcl;

  procedure Set_SystemAcl();

  function Get_SaclDefaulted;

  procedure Set_SaclDefaulted();

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Connect; override;

  procedure ConnectTo();

  procedure Disconnect; override;

  function CopySecurityDescriptor;

  property DefaultInterface: IADsSecurityDescriptor; [r]

  property DiscretionaryAcl: IDispatch; [rw]

  property SystemAcl: IDispatch; [rw]

  property Revision: Integer; [rw]

  property Control: Integer; [rw]

  property Owner: WideString; [rw]

  property OwnerDefaulted: WordBool; [rw]

  property Group: WideString; [rw]

  property GroupDefaulted: WordBool; [rw]

  property DaclDefaulted: WordBool; [rw]

  property SaclDefaulted: WordBool; [rw]

end;

TSecurityDescriptor

TOleServer

TObject