我已使用下一個代碼通過 MS Word 打開我的檔案：
ShellExecute(Handle, nil,
PChar(ExtractFilePath(Application.ExeName) 'Data\Quotation-Terms-1.rtf'),
nil, nil, SW_SHOWNORMAL);
我想在用戶關閉 MS Word 檔案后將我的檔案加載到我的 TRichEdit 控制元件中。
謝謝你。
uj5u.com熱心網友回復：
嘗試將檔案作為 TFileStream 寫入，將 fmShareExclusive 作為權限引數傳遞。如果打開成功，則該檔案未在 Word 中打開。
Success := FALSE;
try
fs := TFileStream.Create(ExtractFilePath(Application.ExeName) 'Data\Quotation-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 有時間加載檔案。
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/493568.html
標籤：德尔福