在Delphi 中写出打开文件对话框，选择一个记事本文件，并调用记事本程序打开该文件的代码。

在Delphi 中写出打开文件对话框，选择一个记事本文件，并调用记事本程序打开该文件的代码。

单元接口引用shellapi;
procedure TForm1.Button1Click(Sender: TObject);
var
name,path : string;
begin
if opendialog1.Execute then
begin
name := extractfilename(opendialog1.FileName);
path := extractfiledir(opendialog1.FileName);
ShellExecute(handle, nil, pchar(name), nil, pchar(path),SW_SHOW) ;
end;
end;

输入的时候只输入文件名就可以了，这个问题再简单不过了~改成下面这个代码~上面那个网友估计是用软件自动回复的，看得出根本没看你的题就说一些有的没的……

procedure tform1.s1click(sender: tobject); //保存 begin if savedialog1.execute then richedit1.lines.savetofile(savedialog1.filename + '.txt'); 1.caption := extractfilename(savedialog1.filename)+ ' - 记事本'; //获取savedialog保存的文件名 messagebox(handle,'保存成功','保存成功',64); //弹出对话框“保存成功” end;

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息