Delphi 窗体程序接受命令行参数

1.将自动生成的project代码做如下改造

program Project1;

uses
  Forms,
  SysUtils,

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  if (ParamCount >0)and SameText(ParamStr(1), '-h' ) then
  begin
     Form1.WindowState:=wsminimized;
  end
  else                                 
  begin
    Form1.WindowState:=wsMaximized;
  end;
  Application.Run;
end.

2.调用方式

    a.命令行  exe路径 -h   

        这时窗口会最小化显示

   b 命令行  exe路径

        这时窗体会最大化显示

3.注意通过bat文件或命令行时 路径不要带引号，特别是 传命令行参数时，会出现找不到程序的错误