IPropertySetStorage接口负责创建、打开、删除和枚举属性集存储的IPropertyStorage接口实例，IPropertyStorage接口管理单个属性集的持久化属性。

IPropertyStorage接口定义如下：

IPropertyStorage = interface(IUnknown)

    ['{00000138-0000-0000-C000-000000000046}']

    function ReadMultiple(cpspec: ULONG;

 rgpspec : PPropSpec;

 rgpropvar: PPropVariant): HResult;

stdcall;

    function WriteMultiple(cpspec: ULONG;

rgpspec : PPropSpec;

rgpropvar: PPropVariant;

propidNameFirst: TPropID): HResult;

stdcall;

    function DeleteMultiple(cpspec: ULONG; rgpspec: PPropSpec): HResult; stdcall;

    function ReadPropertyNames(cpropid: ULONG; rgpropid: PPropID;      rglpwstrName: PPOleStr): HResult;

stdcall;

    function WritePropertyNames(cpropid: ULONG; rgpropid: PPropID;      rglpwstrName: PPOleStr): HResult;

 stdcall;

    function DeletePropertyNames(cpropid: ULONG; rgpropid: PPropID): HResult; stdcall;

    function Commit(grfCommitFlags: DWORD): HResult;

stdcall;

    function Revert: HResult; stdcall;

    function Enum(out ppenum: IEnumSTATPROPSTG): HResult;

stdcall;

    function SetTimes(const pctime, patime, pmtime: TFileTime): HResult; stdcall;

    function SetClass(const clsid: TCLSID): HResult; stdcall;

    function Stat(pstatpsstg: PStatPropSetStg): HResult; stdcall;

  end;

其中ReadMultiple、WriteMultiple方法用于读、写属性集的属性值；DeleteMultiple方法用于删除属性集的属性；Enum方法用于枚举属性集的所有属性。

IPropertyStorage接口定义如下：

  IPropertySetStorage = interface(IUnknown)

    ['{0000013A-0000-0000-C000-000000000046}']

    function Create(const rfmtid: TFmtID; const pclsid: TCLSID; grfFlags,      grfMode: DWORD; out ppprstg: IPropertyStorage): HResult; stdcall;

    function Open(const rfmtid: TFmtID; grfMode: DWORD;      out ppprstg: IPropertyStorage): HResult; stdcall;

    function Delete(const rfmtid: TFmtID): HResult; stdcall;

    function Enum(out ppenum: IEnumSTATPROPSETSTG): HResult; stdcall;

  end;