怎样在delphi中调用后缀名为txt的文件？或者是chm文件

Question

怎样在delphi中调用后缀名为txt的文件？或者是chm文件

Answer 1

ShellExecute(GetActiveWindow,'open','test.txt',nil,nil,SW_NORMAL);
ShellExecute(GetActiveWindow,'open','test.chm',nil,nil,SW_NORMAL);

Answer 2

直接加入到代码中会出现说我没有定义 ShellExecute 那我该怎么定义它呢

Answer 3

  filename:='e:\主文件\教工基本信息\txt\';
  filepath:='e:\主文件\教工基本信息\txt\';                               //取得各文本文件内容
 if fileexists(filename+'jb.txt') then   DBComboBox1.Items.LoadFromFile(filename+'jb.txt');
 if fileexists(filename+'zclb.txt') then  DBComboBox9.Items.LoadFromFile(filename+'zclb.txt');
 if fileexists(filename+'lb.txt') then  DBComboBox4.Items.LoadFromFile(filename+'lb.txt');

Answer 4

楼上兄弟 我试了不行  
我是这样用的  定义了一个菜单项  双击  在里面写入代码
 var  filename:string;
 begin 
      filename:='e:\a\b\readme.txt';
      if  fileexists(filename+'readme.txt') then DBComboBox1.Items.LoadFromFile
           (filename+'readme.txt'); end;可是没有用

Answer 5

不是吧:
filename:='e:\a\b\readme.txt';
if  fileexists(filename+'readme.txt') then...filename+'readme.txt'=?? = 'e:\a\b\readme.txtreadme.txt'当然会有错误.
简单的来说, 解决你的问题基本两个办法:
如果你只是为了打开它们, 推荐使用Eastunfail(恶鱼杀手)的方法. 它可以调用Windows中默认的打开工具打开它, 这个方法不仅可用于本问题, 还可以打开网页, 等所有类型的文件, 就和用户双击图标的效果一样.
如果你要在程序中读入文件的内容, 对于txt文件, 可以用文本组件的LoadFromFile方法直接读取, 像TMemo等等都支持此功能. 至于chm文件, 那就要自己想办法了, 或是看看有没有现成的控件可用.

Answer 6

一行搞定。
http://expert.csdn.net/Expert/topic/1830/1830978.xml?temp=.5713465

Answer 7

shellapi 添加到uses中， 用可以的 Eastunfail(恶鱼杀手)的方法是可以的