给你几个例子
ShellExecute(Handle,'Open','mailto:[email protected]?subject=LY FTP Explorer Bug Report',nil,nil,SW_Show);ShellExecute(Handle,'Open','http://lyhome.3322.net',nil,nil,SW_Show);带返回判断的
  if ShellExecute(Handle,'Open',PChar(ExtractFilePath(ParamStr(0)) + 'FTPExplorer.chm'),nil,nil,SW_Show)<33
     then MessageDlg('Help file : FTPExplorer.chm cannot be found!',mtError,[mbOk],0);