如何关掉cmd窗口

Question

procedure TForm1.FormCreate(Sender: TObject);var
  Hand:THandle;
begin
  ShellExecute(Handle,nil,'cmd','/k tracert www.163.com > c:\tracert.txt',nil,SW_SHOWNORMAL );
  Hand:=FindWindow(nil,'cmd.exe');//找CMD句柄
  if Hand<>0 then//如果找到句
  SendMessage(Hand,WM_CLOSE,0,0);
end;
end.tracert命令已经执行完了，但是窗口不会关闭

Answer 1

找到问题了
ShellExecute(Handle,nil,'cmd','/k tracert www.163.com > c:\tracert.txt',nil,SW_SHOWNORMAL );
把/k改成/c就解决了