Z
Zephyr
Unregistered / Unconfirmed
GUEST, unregistred user!
我用以下代码试图打开一个结构化文件，但总是出现错误：
var
pw: PWideChar;
AStg: IStorage;
begin
pw := StringToOleStr('e:/MyDoc/99.doc');
AStg := nil;
try
OleCheck(StgOpenStorage(pw, nil, STGM_READWRITE or
STGM_SHARE_DENY_WRITE, nil, 0, AStg));
finally
SysFreeString(pw);
end;
end;
运行后出现一对话框告诉我“标志无效”，但我查了相关文档，我所用的
标志'STGM_READWRITE or STGM_SHARE_DENY_WRITE'这样的组合并无错误，
哪位大侠可告诉我为什么出错？错在哪里？
谢谢！
var
pw: PWideChar;
AStg: IStorage;
begin
pw := StringToOleStr('e:/MyDoc/99.doc');
AStg := nil;
try
OleCheck(StgOpenStorage(pw, nil, STGM_READWRITE or
STGM_SHARE_DENY_WRITE, nil, 0, AStg));
finally
SysFreeString(pw);
end;
end;
运行后出现一对话框告诉我“标志无效”，但我查了相关文档，我所用的
标志'STGM_READWRITE or STGM_SHARE_DENY_WRITE'这样的组合并无错误，
哪位大侠可告诉我为什么出错？错在哪里？
谢谢！