uses shellapi;调用:
  Shellexecute(handle,'',filename,'','',SW_SHOW);

解决方案 »

  1.   

    来晚了。 :(把函数声明贴出来吧:
    HINSTANCE ShellExecute(    HWND hwnd, // handle to parent window
        LPCTSTR lpOperation, // pointer to string that specifies operation to perform
        LPCTSTR lpFile, // pointer to filename or folder name string
        LPCTSTR lpParameters, // pointer to string that specifies executable-file parameters 
        LPCTSTR lpDirectory, // pointer to string that specifies default directory
        INT nShowCmd  // whether file is shown when opened
       );可以这样用:
    ShellExecute(0, Nil, 'notepad.exe', Nil, Nil, SW_NORMAL);
      

  2.   

    打开一个网枝:
    shellexecute(0,nil,'http://www.csdn.net',nil,nil,SW_NORMAL);
    发email:
    shellexecute(0,nil,'mailto:[email protected]',nil,nil,SW_NORMAL);