delphi 封装的ShellExecute

function ExecuteFile(const FileName, Params{参数}, DefaultDir: String; ShowCmd: Integer): THandle;

begin

  Result := ShellExecute(Application.MainForm.Handle, nil,

    PChar(FileName), PChar(Params),

    PChar(DefaultDir), ShowCmd);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

ExecuteFile('cmd.exe','/c ping www.baidu.com','',1);

end;