如何使主程序编译成带参数？？在线等！！！！！！！！！1

[seekmydoom]

如何制作一个带参数运行的主程序，也就是说，如果程序运行时没有传入参数，则退出，就像C语言中main(args[])之类的参数，急

[RuinRice]

在程序运行是先弹出消息框，输入运行参数，如果没有，则halt(0);

[aiirii]

procedure TForm1.FormCreate(Sender: TObject);

var
i: Integer;
for i := 1 to ParamCount do
begin
if LowerCase(ParamStr(i)) = 'beep' then
Beep
else if LowerCase(ParamStr(i)) = 'exit' then
Application.Terminate;
end;
end;

[aiirii]

if ParamCount < 1 then halt(0);

for i := 1 to ParamCount do
ShowMessage(ParamStr(i)) ;

[seekmydoom]

哦，为这样想的，谢谢各位！希望多人是你们哦

[guge]

呵呵,我是来学习的!

[seekmydoom]

现在有点不明白，就是参数怎么传入啊！我是想用ShellExecute或者WinExec来执行程序，可怎么样传进参数，比如我想传入的参数是‘Run’???