我写的程序启动的时候怎么加附带的参数

Question

我写了个程序，别的程序外部起动我的程序，但是要完成别的程序交给的功能必须接收他们的一些参数。就像dos下启动一个程序要加些参数 c:/> aa.exe /v/s  我的程序也要得到这样的参数，真名实现呢。

Answer 1

var
   i:Integer;
   s:String;
begin
   for i:=1 to ParamCount
   Begin
      s:=ParamStr(i);
      ShowMessage(s);
   end;
end;

Answer 2

少写了一个dovar
   i:Integer;
   s:String;
begin
   for i:=1 to ParamCount do
   Begin
      s:=ParamStr(i);
      ShowMessage(s);
   end;
end;