;ParamStr 函数可以得到每一个输入参数，然后根据不同的情况在 Application 的代码里
写不同的操作，比如：
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1};
{$R *.RES}
var
S: string;
begin
Application.Initialize;
if ParamCount = 0 then
begin
Application.CreateForm(TForm1, Form1);
end
else
begin
S := ParamStr(1);
// ...
end;
Application.Run;
end.
