delphi打开WORD？该如何处理

2012-02-15

delphi打开WORD？在DELPHI中，想实现动态的制定一个路径，比如：当前程序文件夹\WORD 这样的一个文件夹路径，然

delphi打开WORD？
在DELPHI中，想实现动态的制定一个路径，比如：当前程序文件夹\WORD 这样的一个文件夹路径，然后在DELPHI中，点击一个按键后a:=ADOQuery1.FieldValues ['WORD文档名称'];这样取到WORD文档的名字，直接打开取到的那个WORD文档。这样应该怎么实现呢？使用这2个控件（WordApplication1 WordDocument1）能实现吗？应该如何实现呢？还有那个文件夹路径应该怎么设置？前面的当前程序文件夹路径是一个动态的，后面的WORD文件夹应该是静态的吧？

[解决办法]
直接打开就可以

Delphi(Pascal) code

varFilePath:string;beginFilePath:=ExtractFilePath(ParamStr(0))+'WORD\'+ADOQuery1.FieldValues   ['WORD文档名称'];ShellExecute(Handle,'open',pchar(FilePath),nil,nil,SW_SHOWNORMAL);
[解决办法]
报错：[Error]   Unit1.pas(32):   Undeclared   identifier:   'ShellExecute'
是因为需要在uses里添加ShellAPI

文件后缀改变（含添加）
FilePath:=ExtractFilePath(ParamStr(0))+'\WORD\'+ADOQuery1.FieldValues
ChangeFileExt(FilePath,'doc');

打开word：
1）调用windows的API函数，在程序界面外打开----ShellExecute(Handle,'open',pchar(FilePath),nil,nil,SW_SHOWNORMAL);
2）通过Delphi的OLE控件（在System控件面板里）进行对象链接和嵌入设置，能在程序界面里打开.doc

热点排行

.NET

delphi打开WORD？该如何处理