如何在DELPHI中打开WORD文档？

Question

如何在DELPHI中打开WORD文档？请详细写明程序代码，急，急，急，谢谢！！！

Answer 1

ShellExecute(Handle,'open','xxx.doc',nil,nil,SW_SHOWNORMAL);

Answer 2

var
  PostRange:Variant;
  WordApplication1: TWordApplication;
  WordDocument1: TWordDocument;
  I:Integer;
  itemindex:olevariant;  filename,confirmconversions, readonly, addtorecentfiles: olevariant;
  passworddocument, passwordtemplate, revert,writepassworddocument: olevariant;
  writepasswordtemplate, open_format: olevariant;begin
  filename:=要打开的文件  confirmconversions := false;
  readonly := true;
  addtorecentfiles := false;
  passworddocument := '';
  passwordtemplate := '';
  revert := true;
  writepassworddocument := '';
  writepasswordtemplate := '';
  open_format := wdopenformatdocument;  WordApplication1:=TWordApplication.Create(Application);
  WordDocument1:=TWordDocument.Create(Application);  WordApplication1.Connect;  WordApplication1.documents.open( filename, confirmconversions,
readonly, addtorecentfiles, passworddocument, passwordtemplate,
revert, writepassworddocument, writepasswordtemplate, open_format );
  itemindex := 1;
  WordDocument1.connectto(WordApplication1.documents.item(itemindex));  WordApplication1.Visible:=True;
end;