Delphi命令行执行优化 - 使用TDosCommand

`TDosCommand` 是 Delphi 的一个开源组件，可以在 Delphi 程序中方便地运行 DOS 命令，并获取其输出结果。在本文中，我们将介绍 `TDosCommand` 组件的用法，并演示如何使用它来运行 DOS 命令。

## 安装 TDosCommand 组件

下载：https://codeload.github.com/TurboPack/DOSCommand/zip/refs/heads/master

 在使用 `TDosCommand` 组件之前，我们需要先将其安装到 Delphi 环境中。以下是安装步骤：

1\在Delphi 11打开：C:\delphisource\mytools\DOSCommand-master\DOSCommand-master\Packages\Alexandria\Delphi\DOSCommandDelphi..groupproj

2、设置option中的libraries路径。

注意： 除了第7步中的win32要加入路径，win64的也要加入相同路径。

3、编译和创建动态库。

 3、在编译和创建设计库（否则报错）

 4、 保存工程文件，安装完成后，可以在 "Tool Palette" 的 "TDoscommand"  选项卡中找到 `TDosCommand` 组件。

## 使用 TDosCommand 组件

在 Delphi 中使用 `TDosCommand` 组件，需要将其拖放到窗体或数据模块上，然后在代码中设置 `TDosCommand` 的属性和事件。以下是一个示例程序，演示如何使用 `TDosCommand` 组件运行 DOS 命令，并在 Memo 组件中显示输出结果：

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, DosCommand;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Panel1: TPanel;
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    DosCommand1: TDosCommand;
    procedure Button1Click(Sender: TObject);
    procedure DosCommand1NewLine(Sender: TObject; const NewLine: string; OutputType: TOutputType);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses
  System.IOUtils;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  // 设置命令行参数
  DosCommand1.CommandLine := 'cmd.exe /c ' + Edit1.Text;

  // 启动进程
  DosCommand1.Execute;
end;

procedure TForm1.DosCommand1NewLine(Sender: TObject; const NewLine: string; OutputType: TOutputType);
begin
  // 在 Memo 组件中显示输出结果
  Memo1.Lines.Add(NewLine);
end;

end.

在这个示例程序中，我们使用了 `TDosCommand` 组件来运行 DOS 命令。在点击按钮时，程序会通过 `TDosCommand.CommandLine` 属性设置要运行的命令行参数，然后启动进程并获取输出结果。输出结果通过 `TDosCommand.NewLine` 事件返回，我们可以在该事件中将输出结果添加到 Memo 组件中。

结果：