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

Question

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

Answer 1

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

Answer 2

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;

Answer 3

if ParamCount < 1 then  halt(0);for i := 1 to ParamCount do
  ShowMessage(ParamStr(i)) ;

Answer 4

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