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

[iranjn]

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

[cuteant]

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

[cuteant]

少写了一个do

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