delphi - 发送参数到CMD

Question

如何向 CMD 发送参数？例如发送一条路径并从该路径开始？如何执行CMD命令？谢谢

Answer 1

要启动 cmd.exe 并立即执行命令，请使用 /K 标志:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ShellExecute(Handle, nil, 'cmd.exe', '/K cd C:\WINDOWS', nil, SW_SHOWNORMAL);
end;

要在 cmd.exe 中运行命令，然后立即关闭控制台窗口，请使用 /C 标志:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ShellExecute(Handle, nil, 'cmd.exe', '/C del myfile.txt', nil, SW_SHOWNORMAL);
end;