Delphi新手问题，如何打开指定文本文件

来源：百度知道 编辑：UC知道 时间：2024/05/24 01:39:21
我有一个程序，想带开硬盘上一个 c:\abcd.log 的文本文件

1、我想将abcd.log文件里面的内容读取到memo里面并输出

2、我想直接打开一个记事本程序，让abcd.log在记事本里面打开
根据 天地惶惶 和 alandliu 的答案知道了

第二步

ShellExecute(Handle, 'open', PChar('notepad'), PChar(c:\abcd.Log'), nil, SW_SHOW);

用这个才能用记事本打开，直接打开不了log文件。除非先手动打开一次log，选择总是用记事本打开……

memo.lines.loadfromfile('c:\abcd.log');

1 memo.lines.loadfromfile('c:\abcd.log');
2 ShellExecute(Handle,'open',PChar('c:\abcd.log'),'','',SW_SHOW);

var filename: string;
begin
filename:='i:XXXXXX.txt';
ShellExecute(handle, 'Open', PChar(filename), nil, nil, SW_NORMAL);
end;

不单只是TXT，给filename赋给任何文档，就可以打开任何类型的文档。