如何检测MS word文档是否已关闭

Question

我使用了下面的代码来打开我的文档，使用MS Word:

ShellExecute(Handle, nil,
PChar(ExtractFilePath(Application.ExeName)+'DataQuotation-Terms-1.rtf'),
nil, nil, SW_SHOWNORMAL);

，我想在用户关闭MS Word文档后加载我的TRichEdit控件中的文档。

谢谢。

Answer 1

尝试将文件作为TFileStream写入，并将fmShareExclusive作为权限参数传递。如果打开成功，则文件未在Word中打开。

Success := FALSE;
try
fs := TFileStream.Create(ExtractFilePath(Application.ExeName)+'DataQuotation-Terms-1.rtf',
fmOpenReadWrite,
fmShareExclusive);
Success := TRUE;
except
on E:EFOpenError do
Success := FALSE;
else
raise;
end;
if success then begin
// More code
end;

您可能需要在测试前等待几秒钟，以便Word有时间加载文件。