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

Question

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

Answer 1

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

Answer 2

NTKO_OFFICE可以预览WORD EXECL PDF吗？

Answer 3

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电子印章系统，电子印章、手写签名、键盘批注

Answer 4

直接调用外部EXE文件，通过EXE浏览相关文件。
  FileName:=MainPath+'EXCEL.exe';
  if FileExists(FileName)
    then shellexecute(handle,'open',pchar(FileName),pchar(sParam),nil,sw_shownormal);
    else ShowMessage('无模块文件！ ');

Answer 5

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

Answer 6

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