delphi 读写文件属性

最新推荐文章于 2020-12-04 11:01:45 发布

weixin_34405332

最新推荐文章于 2020-12-04 11:01:45 发布

阅读量210

点赞数

文章标签： python

原文链接：https://my.oschina.net/jingshishengxu/blog/504975

版权

2019独角兽企业重金招聘Python工程师标准>>>

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 );

转载于:https://my.oschina.net/jingshishengxu/blog/504975