如何在delphi中打开指定的word文档！并判断如果系统装有word 则提示word 未安装，否则打开指定word文档!谢谢..

Question

用OLE，CONNECTTONEWOBJECT，通过返回值判断是否安装了WORD。
打开后再用OLE的方法FILEOPEN。

Answer 1

var
  XL:variant;
...
//Word
   try
    XL:=CreateOLEObject('Word.Application');
  except
    Animate.Visible:=false;
    Animate.Active:=false;
    Forms.Application.MessageBox('在创建WORD的OLE对象时出现错误，没有安装WORD或WORD的OLE不能正常工作。', '提示框',
      MB_SYSTEMMODAL+mb_ok + MB_ICONEXCLAMATION);
    exit;
  end;///Excel
try
    XL:=CreateOLEObject('Excel.Application');
  except
    Animate.Visible:=false;
    Animate.Active:=false;
    Forms.Application.MessageBox('在创建EXCEL的OLE对象时出现错误，没有安装EXCEL或EXCEL的OLE不能正常工作。', '提示框',
      MB_SYSTEMMODAL+mb_ok + MB_ICONEXCLAMATION);
    exit;
  end;

Answer 2

楼上的兄弟,你好呀,这段代号运行不了啊!!!!!CreateOLEObject未定义????
    Animate未定义????
    
我很菜,上面的问题能说明一下吗??谢谢了!

Answer 3

用openObject；如返回错误，改用createObject即可。

Answer 4

uses中加入OleServer
Animate.Visible:=false;---去掉
Animate.active:=false; ---去掉