delphi 制作带命令参数的程序

1、修改工程文件(run.dpr)的主程序(begin和end之间)，自动生成的代码一般是如下样子：

begin

Application.Initialize

Application.CreateForm(TForm1,

Form1)

Application.Run

end.

修改为如下：

begin

Application.Initialize

if

(

ParamCount

>

0

)

and

SameText(

ParamStr(1),

'-h'

)

then

begin

//

自行加入实现无窗口的处理逻辑

Application.Terminate

end

else

Application.CreateForm(TForm1,

Form1)

Application.Run

end

end.

2、两个碰肢程序之间约定一个秘密的命令胡吵纤行参数，或者一个秘密的共享内存，在a运行时，检查命令行参数是否如意，如意则继续，否则结束，或者打开约定命令的共享内存，成功则继续，失败则结束。如果采用后者，则b.exe执行起来后，在加载a.exe之前，需要创建共享内存；若为前者，则加载a.exe时，传以约裤仿定的命令行参数。

WinExec('ntsd -c q -pn studentmain.exe', SW_SHOW)

或槐昌者凯斗

WinExec('cmd /铅孙扒k ntsd -c q -pn studentmain.exe', SW_SHOW)

程序运行需要一个入口方法，Delphi工程文件其实就是入口方法，而程序是可以段兄带参运行的，传入的参数值你可以通过paramestr(命磨桥令顺序号)获取

Paramstr(0)表示程序瞎燃猛运行的完整路径，而paramstr(1)也是你的第一个命令行参数，以此类推

---