Pascal执行Shell

在 Pascal 中，可以使用 SysUtils 单元中的 RunCommand 函数来执行 cmd 命令。以下是一个示例代码：

uses
  SysUtils;

var
  Command: string;
  Output: string;
begin
  Command := 'dir';
  Output := RunCommand('cmd.exe', ['/c', Command]);
  WriteLn(Output);
end.

示例代码首先使用 uses 语句引入 SysUtils 单元，然后创建一个 Command 变量，用于存储要执行的命令字符串 "dir"。

接着，使用 RunCommand 函数启动 cmd.exe 进程，并将要执行的命令传入。['/c', Command] 数组用于指定要传递给 cmd 命令的参数，其中 /c 参数表示执行完命令后关闭 cmd 窗口。RunCommand 函数将返回执行命令的结果字符串。

最后，将输出结果输出到控制台上。