又一个很菜的问题.请多指教

Question

如果只是打开word,用WinExec就可以

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
winexec(pchar('C:\HEROSOFT\HERO2001\Avi2Mpg.exe'),SW_SHOWDEFAULT );
end;

Answer 2

但是每人安装WORD的路径不一定相同啊.

Answer 3

shellexecute(handle,'open',pchar('*.doc')//word路径,nil,nil,sw_shownormal)

Answer 4

HINSTANCE ShellExecute(    HWND hwnd,      //运行的窗口句拼
    LPCTSTR lpOperation, // 运行方式
    LPCTSTR lpFile, // 文件及路径
    LPCTSTR lpParameters, // 参数（一般程序没有）
    LPCTSTR lpDirectory, // 默认搜索路径
    INT nShowCmd  // 当程序运行后的显示方式
)

Answer 5

1、如果lpFile是一个可执行文件则ShellExecute直接执行它;如果lpFile是一个数据文件,则ShellExecute首先在注册表中查找和这种类型数据文件相关练的可执行文件，如果找到则执行这个可执行文件，否则启动失败，函数返回值为ERROR_FILE_NOT_FOUND 2、lpParameters是参数，如果lpFile是EXE文件，则参数有用,否则没用。3、lpDirectory搜索路经可以不指定。
 
4、lpOperation是打开方式,可以为
  "open",lpFile必须是一个文件
  "explorer", lpFile必须是一个文件夹
  "print"三中类型,lpFile必须是一个文件

Answer 6

看看这个例子：
uses ComObj ;
procedure TForm1.Button1Click(Sender: TObject);
var
  vWord,vDoc,vRange : Variant ;
  sText,sReplace : string ;
  lReturn : Boolean ;
begin
  sText := 'ABCDEFG' ;  //原文字串
  sReplace := 'GFEDCBA' ; //新字串
  vWord := CreateOleObject('Word.Application') ;//创建Word线程
  try
    //打开要操作的文件
    vDoc := vWord.Documents.Open('C:\My Documents\AAAc.Doc');
    vDoc.Select ;  //选取中整个文档
    vRange := vDoc.Range ; //替换范围
    lReturn := True ;
    while lReturn do
    begin  //找到并替代成功则返回 True    共11个参数
      lReturn := vDoc.Range.Find.Execute(sText,,,,,,,,,sReplace,True) ;
    end ;
  finally
    vDoc.Close(True) ; //关闭文并保存
    vWord.Quit(False) ; //退出Word
  end ;
end;

Answer 7

同意 CXZ9(一网情深) 的观点，
这是打开excel, word 得比较好的方法，