Delphi通过IProperstySetStorage接口读取及修改文件属性单元