delphi如何调用DOS命令或批处理文件

Question

用ShellExecute,但是要引用ShellAPI单元!!

Answer 1

补充一下关闭dos的窗口
procedure TForm1.Button1Click(Sender: TObject);
var
  ClassName : string;
  Title : string;
  h:THandle;
begin
  ClassName := 'tty';
  Title := 'MS-DOS 提示符';
  end;
  h:=FindWindow(PChar(ClassName), PChar(Title));
  SendMessage(h,WM_Close,0,0);
end;

Answer 2

SendMessage(h,WM_Close,0,0);
用这种方法并不总能成功, 有些Dos命令
运行完成后必须按Ctrl+C才能结束, 而发送
WM_Close命令, 却出现一个要求关闭的对话框

Answer 3

一个简单的方法，建一个PIF快捷方式，自动关闭