delphi中如何 打工WORD文档,请给出具体操作,包括需要添加哪些控制,控件代码怎么写,谢谢
2个回答
展开全部
只是要打开吧 相当于打开帮助文件吧
ShellExecute(handle,'open',pchar(文件地址\文件名),'','',SW_SHOWNORMAL);
ShellExecute(handle,'open',pchar(文件地址\文件名),'','',SW_SHOWNORMAL);
更多追问追答
追问
是的,只要打开就可以了。需要加入哪些控件呢?另外文件名也是通过搜索以后得出的,那如何灵活取这个文件名呢?
追答
procedure TFmain.N3Click(Sender: TObject);
var spath:string;
begin
spath:=ExtractFilepath((Application.ExeName))+'\帮助.docf';
ShellExecute(handle,'open',pchar(spath),'','',SW_SHOWNORMAL);
end;
//以上是打开程序当前文件夹下 [帮助.doc] 文档
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询