请教高手，怎么样做一个dos命令行下的可执行文件！

Question

比如说我做了一个简单的 form
我想做成命令行形式的，在命令行下面带几个参数然后执行，
form xxx xxx xxx xxx 应该怎么做，请教各位大哥！！

Answer 1

例子没有
如果带FORM的要求带参数，不是用console
你可以设置run/parameters里面的parameters设置参数
格式：参数1 空格 参数2
可以通过函数ParamCount得到命令行的参数个数
可以通过函数ParamStr(index:integer)得到对应索引的参数（以0开始）；
paramstr(0)是程序的名称，根据你的输入则得到
paramstr(1)，paramstr(2)...返回你的参数

Answer 2

paramStr就是命令行字符串数组呀比如以下的命令行形式:
  project1.exe test1 test2要得到参数字符串,在程序中:
  showmessage(paramStr(1));//showmessage('test1');具体参见HELP中的paramStr与paramCount,有例子参考

Answer 3

在你的工程中加入｛$apptype Console｝

Answer 4

{$APPTYPE CONSOLE}
program example;
uses
 SysUtils;
var a,b,flag:integer;
error:string;
begin
  writeln(ParamStr(0));
  Writeln(ExtractFileDir(ParamStr(0)));
  Writeln(ExtractFilePath(ParamStr(0)));
  Writeln(ExtractFileName(ParamStr(0)));
  Writeln(ExtractFileExt(ParamStr(0)));
  Writeln(ExtractFileExt(ParamStr(1)));
  flag:=0;
  a:=3;
  b:=2;
  writeln(a);
  writeln(b);
  a:=a+b;
  writeln(a);
  writeln(b);
  b:=a-b;
  writeln(a);
  writeln(b);
  a:=a-b;
  writeln(a);
  writeln(b);
  while flag=0 do begin
    try
      Readln(a);
      Writeln('Your Input is: ',a);
      flag:=1;
    except
      on  e:  Exception do
        begin
          error:=E.Message +#10+'Pascal Error Number:'+inttostr(E.HelpContext);
          writeln(error) ;
        end;
 // finally
    end;
  end;
  Readln(error);
end.

Answer 5

ParamStr(1)是第一个参数
ParamStr(2)是第2个参数
ParamStr(3)是第3个参数

Answer 6

本人写过很多这样的黑软...
其实很简单啊
说实话我学习delphi就是为了能写这种程序
delphi的窗体程序体积太大了

Answer 7

这事道真是变了，以前做的DOS程序简单，做Windows复杂，现在竟然反了 hehe^^

Answer 8

新建项目时选择“Console Application”，其它的就和普通程序编写没有太大区别了。至于运行参数，就像楼上几位说的，使用ParamStr[]数组就可以了。