IStorage 中的函数:
//创建一个子 IStorage 接口function CreateStorage( pwcsName: POleStr; {指定子 IStorage 接口的名称} grfMode: Longint; {指定访问模式} dwStgFmt: Longint; {保留, 须是 0} reserved2: Longint; {保留, 须是 0} out stg: IStorage {返回子 IStorage 接口}): HResult; stdcall;//打开当前 IStorage 的子 IStoragefunction OpenStorage( pwcsName: POleStr; {指定子 IStorage 接口的名称} const stgPriority: IStorage; {已存在的 IStorage 接口, 一般为 nil} grfMode: Longint; {指定访问模式} snbExclude: TSNB; {是个指针, 一般为 nil; 好像是指定要排除的元素} reserved: Longint; {保留, 须是 0} out stg: IStorage {返回打开的子 IStorage 接口}): HResult; stdcall;//创建一个子 IStream 接口function CreateStream( pwcsName: POleStr; {指定子 IStream 接口的名称} grfMode: Longint; {指定访问模式} reserved1: Longint; {保留, 须是 0} reserved2: Longint; {保留, 须是 0} out stm: IStream {返回子 IStream 接口}): HResult; stdcall;//打开当前 IStorage 的子 IStreamfunction OpenStream( pwcsName: POleStr; {指定子 IStream 接口的名称} reserved1: Pointer; {保留, 须为 nil} grfMode: Longint; {指定访问模式} reserved2: Longint; {保留, 须是 0} out stm: IStream {返回子 IStream 接口}): HResult; stdcall;//复制 IStorage, 该函数可以实现“整理文件，释放碎片空间”的功能function CopyTo( ciidExclude: Longint; {要排除的元素数, 可以是 0} rgiidExclude: PIID; {好像是以 PIID 的方式指定要排除的元素, 可以是 nil} snbExclude: TSNB; {指定要被排除的元素, 一般为 nil} const stgDest: IStorage {目标 IStorage}): HResult; stdcall;//复制或移动 "子 IStorage" 或 "子 IStream" function MoveElementTo( pwcsName: POleStr; {要复制或移动的 IStorage 或 IStream 的名称} const stgDest: IStorage; {目标 IStorage 的名称} pwcsNewName: POleStr; {给复制或移动后的 IStorage 或 IStream 指定新的名称} grfFlags: Longint {指定是复制还是移动, 可选值: STGMOVE_MOVE、STGMOVE_COPY}): HResult; stdcall;//提交更改, 确保更改后的流能反映在父级存储中function Commit( grfCommitFlags: Longint {提交方式, 四个可选值见下面}): HResult; stdcall;//grfCommitFlags 可选值:STGC_DEFAULT = 0;STGC_OVERWRITE = 1;STGC_ONLYIFCURRENT = 2;STGC_DANGEROUSLYCOMMITMERELYTODISKCACHE = 4;//放弃自从上次 Commit 调用以来对事务处理流所做的所有更改function Revert: HResult; stdcall;//获取当前 IStorage 的 IEnumStatStg 接口变量; IEnumStatStg 列举了 IStorage 的层次结构function EnumElements( reserved1: Longint; {保留, 须为 0} reserved2: Pointer; {保留, 须为 nil} reserved3: Longint; {保留, 须为 0} out enm: IEnumStatStg {返回 IEnumStatStg 接口变量}): HResult; stdcall;//删除 "子 IStorage" 或 "子 IStream" function DestroyElement( pwcsName: POleStr {指定名称}): HResult; stdcall;//重命名 "子 IStorage" 或 "子 IStream" function RenameElement( pwcsOldName: POleStr; {原名} pwcsNewName: POleStr {新名}): HResult; stdcall;//设置元素的时间信息function SetElementTimes( pwcsName: POleStr; {元素名} const ctime: TFileTime; {创建时间} const atime: TFileTime; {访问时间} const mtime: TFileTime {修改时间}): HResult; stdcall;//在当前存储中建立一个特殊的流对象，用来保存 CLSIDfunction SetClass( const clsid: TCLSID {}): HResult; stdcall;//设置状态位function SetStateBits( grfStateBits: Longint; {} grfMask: Longint {}): HResult; stdcall;//返回一个 TStatStg 结构, 此结构包含该 IStorage 详细信息, 结构框架附下function Stat( out statstg: TStatStg; {TStatStg 结构变量} grfStatFlag: Longint {选项, 此值可决定是否返回成员值, 见下}): HResult; stdcall;//TStatStg 结构:tagSTATSTG = record pwcsName: POleStr; dwType: Longint; cbSize: Largeint; mtime: TFileTime; ctime: TFileTime; atime: TFileTime; grfMode: Longint; grfLocksSupported: Longint; clsid: TCLSID; grfStateBits: Longint; reserved: Longint;end;TStatStg = tagSTATSTG;//grfStatFlag 可选值:STATFLAG_DEFAULT = 0;STATFLAG_NONAME = 1; IStream 中的函数: //从 IStream 中读取数据function Read( pv: Pointer; {接受数据的变量的指针} cb: Longint; {要读取的字节数} pcbRead: PLongint {实际读出的字节数}): HResult; stdcall;//向 IStream 写入数据function Write( pv: Pointer; {要写入的数据的指针} cb: Longint; {要写入的字节数} pcbWritten: PLongint {实际写入的字节数}): HResult; stdcall;//移动指针function Seek( dlibMove: Largeint; {要移动的字节数} dwOrigin: Longint; {指定移动的起点, 三种取值分别是: 开始、当前、结尾} out libNewPosition: Largeint {返回新位置指针}): HResult; stdcall;//dwOrigin 可选值:STREAM_SEEK_SET = 0; {开始}STREAM_SEEK_CUR = 1; {当前}STREAM_SEEK_END = 2; {结尾}//更改流对象的大小function SetSize( libNewSize: Largeint {指定新的大小, 以字节为单位}): HResult; stdcall;//复制部分数据到另一个 IStreamfunction CopyTo( stm: IStream; {目标 IStream} cb: Largeint; {要复制的字节数} out cbRead: Largeint; {从源中实际读出的字节数} out cbWritten: Largeint {向目标实际写入的字节数}): HResult; stdcall;//提交更改, 确保更改后的流能反映在父级存储中function Commit( grfCommitFlags: Longint {提交方式, 四个可选值见下面}): HResult; stdcall;//grfCommitFlags 可选值:STGC_DEFAULT = 0;STGC_OVERWRITE = 1;STGC_ONLYIFCURRENT = 2;STGC_DANGEROUSLYCOMMITMERELYTODISKCACHE = 4;//放弃自从上次 Commit 调用以来对事务处理流所做的所有更改function Revert: HResult; stdcall;//限制对流中指定字节范围的访问function LockRegion( libOffset: Largeint; {起始字节(从头算)} cb: Largeint; {范围长度, 以字节为单位} dwLockType: Longint {限制类型, 可选值附下面}): HResult; stdcall;//dwLockType 可选值:LOCK_WRITE = 1;LOCK_EXCLUSIVE = 2;LOCK_ONLYONCE = 4;//移除用 LockRegion 设定的字节范围的访问限制, 参数同 LockRegionfunction UnlockRegion( libOffset: Largeint; {} cb: Largeint; {} dwLockType: Longint {}): HResult; stdcall;//返回一个 TStatStg 结构, 此结构包含该 IStream 详细信息, 结构框架附下function Stat( out statstg: TStatStg; {TStatStg 结构变量} grfStatFlag: Longint {选项, 此值可决定是否返回成员值, 见下}): HResult; stdcall;//TStatStg 结构:tagSTATSTG = record pwcsName: POleStr; dwType: Longint; cbSize: Largeint; mtime: TFileTime; ctime: TFileTime; atime: TFileTime; grfMode: Longint; grfLocksSupported: Longint; clsid: TCLSID; grfStateBits: Longint; reserved: Longint;end;TStatStg = tagSTATSTG;//grfStatFlag 可选值:STATFLAG_DEFAULT = 0;STATFLAG_NONAME = 1;//再制一个与指定 IStream 相同的副本function Clone( out stm: IStream {指定 IStream}): HResult; stdcall; IEnumStatStg 中的函数: //检索枚举序列中指定数目的项function Next( celt: Longint; {} out elt; {} pceltFetched: PLongint {}): HResult; stdcall;//跳过枚举序列中指定数目的项function Skip( celt: Longint {枚举中要跳过的元素数目}): HResult; stdcall;//将枚举序列重置到开始处function Reset: HResult; stdcall;//再制一个相同的 IEnumStatStg function Clone( out enm: IEnumStatStg {}): HResult; stdcall; 相关的函数还有: //创建一个复合文档, 并通过参数返回 IStorage 接口function StgCreateDocfile( pwcsName: POleStr; {指定文件名} grfMode: Longint; {指定访问模式} reserved: Longint; {保留, 须是 0} out stgOpen: IStorage {返回 IStorage 接口}): HResult; stdcall;//打开一个复合文档, 并通过参数返回 IStorage 接口function StgOpenStorage( pwcsName: POleStr; {指定文件名} stgPriority: IStorage; {已存在的 IStorage 接口, 一般为 nil} grfMode: Longint; {指定访问模式} snbExclude: TSNB; {是一个 POleStr(双字节字符串)类型的指针, 一般为 nil} reserved: Longint; {保留, 须是 0} out stgOpen: IStorage {返回 IStorage 接口}): HResult; stdcall;//判断指定文件是否是按照结构化方式存储的function StgIsStorageFile( pwcsName: POleStr {文件名}): HResult; stdcall;//function StgCreateDocfileOnILockBytes( lkbyt: ILockBytes; {} grfMode: Longint; {} reserved: Longint; {} out stgOpen: IStorage {}): HResult; stdcall;//function StgOpenStorageOnILockBytes( lkbyt: ILockBytes; {} stgPriority: IStorage; {} grfMode: Longint; {} snbExclude: TSNB; {} reserved: Longint; {} out stgOpen: IStorage {}): HResult; stdcall;//function StgIsStorageILockBytes( lkbyt: ILockBytes {}): HResult; stdcall;//function StgSetTimes( pszName: POleStr; {} const ctime: TFileTime; {} const atime: TFileTime; {} const mtime: TFileTime {}): HResult; stdcall;//function StgOpenAsyncDocfileOnIFillLockBytes( flb: IFillLockBytes; {} grfMode, asyncFlags: Longint; {} var stgOpen: IStorage {}): HResult; stdcall;//function StgGetIFillLockBytesOnILockBytes( ilb: ILockBytes; {} var flb: IFillLockBytes {}): HResult; stdcall;//function StgGetIFillLockBytesOnFile( pwcsName: POleStr; {} var flb: IFillLockBytes {}): HResult; stdcall;//function StgOpenLayoutDocfile( pwcsDfName: POleStr; {} grfMode, reserved: Longint; {} var stgOpen: IStorage {}): HResult; stdcall;//读出 WriteClassStg 写入的 CLSID, 相当于简化调用 IStorage.Statfunction ReadClassStg( stg: IStorage; {} out clsid: TCLSID {}): HResult; stdcall;//写 CLSID 到存储中, 同IStorage.SetClassfunction WriteClassStg( stg: IStorage; {} const clsid: TIID {}): HResult; stdcall;//读出 WriteClassStm 写入的 CLSID function ReadClassStm( stm: IStream; {} out clsid: TCLSID {}): HResult; stdcall;//写 CLSID 到流的开始位置function WriteClassStm( stm: IStream; {} const clsid: TIID {}): HResult; stdcall;//写入用户指定的剪贴板格式和名称到存储中function WriteFmtUserTypeStg( stg: IStorage; {} cf: TClipFormat; {} pszUserType: POleStr {}): HResult; stdcall;//读出 WriteFmtUserTypeStg 写入的信息function ReadFmtUserTypeStg( stg: IStorage; {} out cf: TClipFormat; {} out pszUserType: POleStr {}): HResult; stdcall;