如何用DELPHI 预览WORD,EXECL和PDF文档呢？

[Kzq_1234]

类似于Foxmail附件预览功能！
操作如下：
1、双击附件或文件名；
2、在新窗口中显示WORD,EXECL及PDF文档内容。

[没有昵称哦]

最好使用第三方的中间件，如NTKO_OFFICE 网上有破解的 以前用过

[Kzq_1234]

引用 2 楼 kindao2 的回复:

最好使用第三方的中间件，如NTKO_OFFICE 网上有破解的 以前用过

NTKO_OFFICE可以预览WORD EXECL PDF吗？

[没有昵称哦]

NTKO OFFICE文档控件能够在IE、Chrome等浏览器中直接编辑MS Office、WPS、金山电子表、永中Office、中标普华Office等文档并保持到WEB服务器，实现文档和电子表格的统一管理。并具备痕迹保留、模板套红、二维码、pdf及tif阅读等办公自动化系统的必备功能。 产品性能稳定，可扩展性强，功能强大，已成为国内文档控件领域的事实标准和首选控件。广大的开发商合作伙伴，如神州数码、中科软、金蝶、用友、浪潮、方正、东软、IBM等，不同网络环境及系统环境下的全面应用，也验证了NTKO OFFICE文档控件的稳定性。性能卓越、开发简单、兼容性好，可以与NTKO 电子印章系统等NTKO 系列产品无缝集成，增加电子印章/电子签章、手写签名等功能，为您轻松创建极具特色的办公自动化解决方案！ 我们一直在努力发展并完善NTKO OFFICE文档控件，帮助合作伙伴进一步减少开发工作量，缩短开发周期，提升软件的价值。 产品功能点： 支持跨浏览器在线编辑MS OFFICE、WPS、永中OFFICE、中标普华OFFICE等文档 支持强制痕迹保留、禁止拷贝、模版套红、全文批注 支持PDF及TIF阅读、公文二维码、自定义二维码及一维码等 采用标准HTTP上传协议 支持任意后台Web服务器、支持任意后台编程语言 支持自定义菜单、自定义按钮、自定义工具栏 支持保存为HTML、PDF、TXT等其它文档格式 无缝集成NTKO电子印章系统，电子印章、手写签名、键盘批注

[「已注销」]

估计要用OLE这方面的，不怎么懂，类似于，WORD里面插入OLE这种功能，可以看到东西

[lyhoo163]

直接调用外部EXE文件，通过EXE浏览相关文件。

  FileName:=MainPath+'EXCEL.exe';
  if FileExists(FileName)
    then shellexecute(handle,'open',pchar(FileName),pchar(sParam),nil,sw_shownormal);
    else ShowMessage('无模块文件！ ');

[不得闲]

Delphi自带有WordService之类的东西，需要安装Word

[luxuewei5214]

引用 5 楼 lyhoo163 的回复:

直接调用外部EXE文件，通过EXE浏览相关文件。

  FileName:=MainPath+'EXCEL.exe';
  if FileExists(FileName)
    then shellexecute(handle,'open',pchar(FileName),pchar(sParam),nil,sw_shownormal);
    else ShowMessage('无模块文件！ ');

同意这样实现

[jazzlvzz]

引用 7 楼 luxuewei5214 的回复:

[quote=引用 5 楼 lyhoo163 的回复:] 直接调用外部EXE文件，通过EXE浏览相关文件。

  FileName:=MainPath+'EXCEL.exe';
  if FileExists(FileName)
    then shellexecute(handle,'open',pchar(FileName),pchar(sParam),nil,sw_shownormal);
    else ShowMessage('无模块文件！ ');

同意这样实现[/quote] 类似实现方式如下： case shellexecute(handle,'open',pchar('excel.exe'),pchar('sParam'),nil,sw_shownormal) of 2: showmessage('错误的关联'); 29:showmessage('关联失败'); 30:showmessage('关联应用程序忙碌中...'); 31:showmessage('没有关联任何应用程式'); end;