命令行参数，程序参数

  If system.ParamCount > 0 Then
  Begin
    filename := system.paramstr(1);
    OpenFile(filename);
  End;

本文地址：http://com.8s8s.com/it/it4929.htm