delphi ShellExecute 打开文本文件，运行exe

uses Winapi.ShellAPI;

procedure OpenHelpFile(const HelpFileName: String);

var

  abshelp: String;

begin // TODO: fix iframe opening problem

  abshelp := '"'+HelpFileName+'"';

  ShellExecute(GetDesktopWindow(), 'open', PChar(abshelp), nil, nil, SW_SHOWNORMAL);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

OpenHelpFile('cmd.exe');

OpenHelpFile('123.txt');

end;