Question

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

Answer 1

单元接口引用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;