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

[mnlisa]

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

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

[pankun]

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

[hatedeadlock]

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);

[hatedeadlock]

2.Application属于Forms

[saien]

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

[YYQQ]

uses

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

[YYQQ]

uses
ShwllApi;


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

亦可