Создание хранилищ осуществляется с использованием функции StgCreateDocFile из модуля ActiveX.pas:
function StgCreateDocfile (pwcsName: POleStr; grfMode: Longint;
reserved: Longint; out stgOpen: IStorage): HResult; stdcall;
где:
Результат функции как всегда транслируем в исключения Delphi посредством OleCheck.
Для открытия хранилища используется функция StgOpenStorage:
function StgOpenStorage (pwcsName: POleStr; stgPriority: IStorage;
grfMode: Longint; snbExclude: TSNB; reserved: Longint;
out stgOpen: IStorage): HResult; stdcall;
параметр stgPriority указывает на ранее открытый экземпляр главного хранилища (почти всегда nil).