在程序中怎么调用什么函数可以用“记事本”打开一个文本文件呢？

Question

在程序中怎么调用什么函数可以用“记事本”打开一个文本文件呢？还有一问是：我用函数ExtractFilePath(Application.ExeName )得到当前exe文件的路径，可是提出没有定义application， 请问是不是没有在use里面申明它是哪个unit，就出现这个错误提示呢？因为我是在自己定义的pas文件里面调用这个函数的，，application属于哪个unit呢？

Answer 1

1.WinExec('C:\windows\NOTEPAD.EXE C:\a.txt', SW_SHOW);
2.Application属于Forms

Answer 2

function GetSysPath:string;
var
  C:array[0..Max_Path]of char;
begin
  GetWindowsDirectory(C,Max_path);
  Result:=C;
  if Result[Length(Result)]<>'\' then Result:=Result+'\';
end;
WinExec(Pchar(GetSysPath+'NOTEPAD.EXE C:\a.txt'), SW_SHOW);

Answer 3

WinExec('C:\windows\NOTEPAD.EXE C:\a.txt', SW_SHOW);

Answer 4

uses ShellExecute(Application.Handle, 'open', 'c:\code.txt', nil, 'c:\', SW_SHOW);

Answer 5

uses
  ShwllApi;
  ShellExecute(Application.Handle, 'open', 'c:\code.txt', nil, 'c:\', SW_SHOW);亦可