用 Delphi 编写一个控制台程序来执行 Windows 命令行程序

​好的，下面是使用 Delphi 编写一个控制台程序来执行 Windows 命令行程序的例子：

```delphi

program ExecuteCommand;

{$APPTYPE CONSOLE}

uses

  SysUtils, Windows;

procedure ExecuteWindowsCommand(const CommandLine: string);

var

  StartupInfo: TStartupInfo;

  ProcessInfo: TProcessInformation;

  CommandLineAsPointer: PChar;

begin

  ZeroMemory(@StartupInfo, SizeOf(TStartupInfo));

  StartupInfo.cb := SizeOf(TStartupInfo);

  CommandLineAsPointer := PChar(CommandLine);

  if not CreateProcess(nil, CommandLineAsPointer, nil, nil, False,

    CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo) then

  begin

    Writeln('Failed to execute Windows command: ', CommandLine);

    Exit;

  end;

  WaitForSingleObject(ProcessInfo.hProcess, INFINITE);

  CloseHandle(ProcessInfo.hProcess);

  CloseHandle(ProcessInfo.hThread);

end;

begin

  try

    // 调用示例，执行系统命令

    ExecuteWindowsCommand('ping www.google.com');

    // 调用示例，执行自定义命令行程序

    ExecuteWindowsCommand('path_to_your_command_line_program.exe parameters');

  except

    on E: Exception do

      Writeln('Error: ', E.ClassName, ' : ', E.Message);

  end;

end.

```

请将 "path_to_your_command_line_program.exe" 替换为你要执行的命令行程序的路径，