delphi 读写文件属性

uses comobj,activex;
const
  IID_IPropertySetStorage:TGUID = '{0000013A-0000-0000-C000-000000000046}';

  FMTID_SummaryInformation:TGUID='{F29F85E0-4FF9-1068-AB91-08002B27B3D9}';

function StgOpenStorageEx( pwcsName: POleStr; grfMode: dword;
  stgfmt: DWORD; grfAttrs: DWORD; pStgOptions: STGOPTIONS; reserved2: Pointer;
  riid: PGUID; out ppObjectOpen: IPropertySetStorage): HResult; stdcall;external 'ole32.dll';

var
  pPropSetStg: IPropertySetStorage;
  pPropStg:IPropertyStorage;
  propspec:TPropSpec;
  propWrite:TPropVariant;


StgOpenStorageEx(PWChar('文件名'),STGM_DIRECT or STGM_SHARE_EXCLUSIVE or STGM_READWRITE,STGFMT_ANY, 0,nil,nil ,@IID_IPropertySetStorage, pPropSetStg);
//写入
pPropSetStg.Create( FMTID_SummaryInformation, FMTID_SummaryInformation,0,STGM_CREATE or STGM_READWRITE or STGM_SHARE_EXCLUSIVE,pPropStg);
propWrite.vt:= VT_LPWSTR;
propWrite.pwszVal:= pwchar('写入的数据');
pPropStg.WriteMultiple( 1, @propspec,@propWrite, PID_FIRST_USABLE );
//读出
pPropSetStg.Open( FMTID_SummaryInformation,STGM_READ or STGM_SHARE_EXCLUSIVE,pPropStg );
pPropStg.ReadMultiple( 1, @propspec, @propWrite );