ShellExecute(Handle, 'Open', PChar('notepad.exe'), PChar('c:\readme.txt'), nil, SW_SHOWNORMAL);

解决方案 »

  1.   

    that's easy,五十分归我了
    winexec(pchar('notepad.exe '+filename),sw_show);
      

  2.   

    ShellExecute(Handle, 'open', 'notepad',
        'D:\1.txt', nil, SW_SHOWNORMAL);
    记的在uses加入shellapi;
      

  3.   

    用一个 shellwinEx()  api可能是的差下帮助就可以了,直接在第个参数加上文件名。
      

  4.   

    ShellExecute(Handle, 'Open', PChar('notepad.exe'), PChar('c:\readme.txt'), nil, SW_SHOWNORMAL);
      

  5.   

    假设要取的数据是二:
    以行模式打开文件,循环将文本文件的其中一行读入一个字符串ls_str(很容易办到)。
    定义一个TStringList和一个二维整形数组aa。  StringList.CommaText := Ls_str;
      for i := 0 to StringList.Count do begin
        try
          j := StrToInt(StringList.String[i]);
        expept
          ...
    ......