可以获取命令行参数的源代码 procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin memo1.Clear; for i:=1 to paramcount do memo1.Lines.Add(string(paramstr(i))); end;