delphi执行cmd命令的一些方法

以执行：eventvwr.msc /c:System /f:*[System[(EventID=6005)]] 该命令为例

方法一：使用WinExec
procedure TMainFr.Button64Click(Sender: TObject);
var
  str:string;
begin
  str:='cmd /c eventvwr /c:System /f:*[System[(EventID=6005)]]';
  WinExec(PChar(str),SW_SHOW);
end;

方法二：使用ShellExecute
procedure TMainFr.Button64Click(Sender: TObject);
begin
  ShellExecute(handle,'open','eventvwr.msc','/c:System /f:*[System[(EventID=6005)]]','',SW_SHOWNORMAL);
end;