DELPHI如何执行DOS程序

Delphi 执行CMD命令行 ShellExecute(Handle,nil,'cmd.exe',PChar('/c "C:/Program Files/WinRAR/WinRAR.exe" a c:\1.rar E:\RX_OHSS201512050915\PDFfile & pause'),nil,SW_show);

Delphi作为一款历史悠久的开发工具，其集成开发环境（IDE）一直是其用户群体所称赞的特点之一。Delphi的IDE集成了代码编辑、编译、调试等一系列功能，使得开发流程更为高效和便捷。其强大的可视化设计工具让开发者能够直观地设计用户界面，并通过拖放的方式快速实现应用程序的构建。动态链接库（BPL）是Delphi中的一种特殊的动态链接库形式，它允许开发者打包和部署一组可重用的代码，这些代码可以在不同的程序之间共享，而无需将代码直接嵌入到每一个应用程序中。

delphi调用cmd命令框，但是只能单句调用

winexec(pchar('c:/test/test.bat'), SW_SHOW); 第一个参数表示DOS命令的全路径，第二个表示运行方式 SW_SHOW:显示运行，可以看得见DOS窗口 SW_HIDE:隐藏运行，看不见DOS窗口 还有SW_MAXIMIZE最小化运行 先测试下，等下写完整的代码发上来。。。。。

cmd:='echo d | Xcopy '+BasePath+' '+TargetPath+' /s/e';     i:=ShellExecute(Handle,nil,'cmd.exe',PChar('/K '+cmd),nil,SW_HIDE); ShellExecute(Handle,nil, 'cmd.exe',pchar('/C '+GetCurrentDir

winexec(pchar('c:/test/test.bat'), SW_SHOW);第一个参数表示DOS命令的全路径，第二个表示运行方式SW_SHOW:显示运行，可以看得见DOS窗口SW_HIDE:隐藏运行，看不见DOS窗口还有SW_MAXIMIZE最小化运行先测试下，等下写完整的代码发上来。。。。。

unit RunDos; interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;Type   TRunDos=class(TObject)   public   procedure CheckResult(b:Boolean);   ...

我想在一个delphi编译的EXE程序实现 DOS 命令行输入 XXX -h 然后在提示一些命令行的参数使用信息。注意这个exe文件是带form窗口的，我并不想进入他的窗口中。使用ParamCount和ParamStr函数来判断命令行参数是否为-h，如果是，则在控制台输出帮助信息，否则启动带有form的程序。同时，需要使用AllocConsole函数来创建一个控制台窗口，以便在控制台输出信息。注意：上述代码中需要在使用Windows单元之前先使用Forms单元，否则会报错。