请问怎样打开一个外部文件？

可以通过Windows API函数CreateProcess或WinExec来实现
方法1
  var
    StartupInfo : TstarupInfo;
    ProcessInfo : TProcessInformation;
  begin
    FillChar(StartupInfo,Sizeof(StartupInfo),#0);
    StartupInfo.cb := Sizeof(StartupInfo);
    StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
    CreateProcess(nil,
     'Calc',//打开计算器
     nil,
     nil,
     false,
     CREATE_NEW_CONSOLE or
     NORMAL_PRIORITY_CLAss,
     nil,
     nil,
     StartupInfo,
     ProcessInfo);
end;
方法2
    WinExec('NotePad',SW_RESTORE);//打开写字本当然
用ShellExecute也行
    shellexecute(null,"open","iloveu.bmp",null,null,sw_shownormal);