用Paramcount取得参数的个数,然后用<br>for i:=1 to paramcount-1 do<br> //paramstr(i)就是各个参数<br><br>从别处拉来的.From Lera<br>--<br>以下便是一个完整的程序,也许是最小的程序了.<br>program ScrStarter;<br><br>uses<br> windows,sysutils;<br><br>{$R *.RES}<br>var<br>I:integer;<br>msgstr:string;<br>begin<br>msgstr:='';<br>for I:=0 to paramcount do<br>msgStr:=Msgstr+'第'+inttostr(i)+'参数: '+paramstr(i)+#13#10;<br>messagebox(0,pchar(msgStr),pchar('Show All the Starting Params. --- by Lera'),mb_OK);<br> end.