delphi中如何运行dos命令

要在Delphi中运行DOS命令，您可以使用TProcess组件。 TProcess是Delphi程序中可以启动外部程序的类。下面是演示如何在 Delphi 中运行 DOS 命令的示例代码：

uses Winapi.Windows、Winapi .Messages、System.SysUtils、System.Variants、System.Classes、Vcl.Graphics、Vcl.Controls、Vcl.Forms、Vcl.Dialogs、Vcl.StdCtrls、Vcl.ExtCtrls；类型 TForm1 = class(TForm) Button1: TButton;备忘录1：TMemo； 过程 Button1Click （发件人：TObject）; 私有 { 私有声明 } public { 公共声明 } end;var Form1: TForm1;i实现{$R *.dfm}过程 TForm1.Button1Click（发件人：TObject）;var 进程：TProcess;开始 进程 := TProcess.Create(nil); 尝试 Process.CommandLine := 'cmd.exe /C dir'; //替换为你要执行的DOS命令 Process.Options := [poUsePipes, poNoConsole]; Process.Execute; while Process.Running do 开始 Application.ProcessMessages; end ; Memo1.Lines.LoadFromStream(Process.Output); 最后 Process.Free; 结束;结束;结束。

在上面的示例代码中，我们创建了一个TForm1表单，并在表单上放置了一个按钮（Button1）和一个多行文本框（Memo1）。当用户单击该按钮时，程序将执行cmd.exe /C dir命令，并将结果显示在多行文本框中。您可以根据需要修改Process.CommandLine中的DOS命令。