Question

delphi 打开共享文件夹中的word文件

我在本机上做了映射
1. strs := 'Z:\explain.doc';
2. strs := 'G:\rule\explain.doc';
wordapp := createoleobject('Word.application');
doc := wordapp.Documents.Open(FileName := strs);

2是本地文件的路径 1是映射的路径
2可以正常使用 如果换成1 word文件就打不开了 进程里有word 但是看不到

Answer 1

结束word进程后，手工点击打开那个映射网络磁盘（是映射吧？）中的word文件看看？

追问

手工可以打开

追答

只读还是可写？是映射网络磁盘？

追问

运行的时候会闪一下 然后360里显示有word在运行 进程里没有没有  手工可以正常打开 可写

追答

把360卫士退出看看？

追问

一样
还是打不开

追答

procedure TForm1.btn2Click(Sender: TObject);
var
  strs : String;
  wordapp : Variant;
  doc : Variant;
begin

  strs := ‘Z:\explain.doc';
  wordapp := CreateOLEObject('Word.Application');
 // doc := wordapp.Documents.Open(FileName := strs);
  doc := wordapp.Documents.Open(strs,False);//后面的参数好像是屏蔽警告，具体的查vba

  wordapp.Visible := true; //是否显示word在前台

end;