`TDosCommand` é um componente de código aberto do Delphi, que pode facilmente executar comandos DOS em programas Delphi e obter seus resultados de saída. Neste artigo, apresentaremos o uso do componente `TDosCommand` e demonstraremos como ele pode ser usado para executar comandos do DOS.
## Instale o componente TDosCommand
Download: https://codeload.github.com/TurboPack/DOSCommand/zip/refs/heads/master
Antes de usar o componente `TDosCommand`, precisamos instalá-lo no ambiente Delphi. Aqui estão as etapas de instalação:
1\ Abra no Delphi 11: C:\delphisource\mytools\DOSCommand-master\DOSCommand-master\Packages\Alexandria\Delphi\DOSCommandDelphi..groupproj
2. Defina o caminho das bibliotecas na opção.
Nota: Além de adicionar o caminho win32 na etapa 7, o win64 também deve adicionar o mesmo caminho.
3. Compile e crie uma biblioteca dinâmica.
3. Compile e crie a biblioteca de design (caso contrário, um erro será relatado)
4. Salve o arquivo do projeto. Após a conclusão da instalação, você pode encontrar o componente `TDosCommand` na guia "TDoscommand" da "Paleta de ferramentas".
## Use o componente TDosCommand
Para usar o componente `TDosCommand` no Delphi, você precisa arrastá-lo e soltá-lo no formulário ou módulo de dados e, em seguida, definir as propriedades e eventos de `TDosCommand` no código. A seguir está um exemplo de programa que demonstra como usar o componente `TDosCommand` para executar comandos do DOS e exibir a saída no componente 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.
Neste programa de amostra, usamos o componente `TDosCommand` para executar comandos do DOS. Ao clicar no botão, o programa definirá os parâmetros da linha de comando a serem executados por meio da propriedade `TDosCommand.CommandLine`, iniciará o processo e obterá a saída. A saída é retornada através do evento `TDosCommand.NewLine`, onde podemos adicionar a saída ao componente Memo.
resultado: