[delphi] EXE程序实现 DOS 命令行输入 -h 输出帮助信息

我想在一个delphi编译的EXE程序实现 DOS 命令行输入  XXX   -h 然后在提示一些命令行的参数使用信息。注意这个exe文件是带form窗口的，我并不想进入他的窗口中。 同时我不输入-h 指令时，程序可以正常进入打开form窗口。

使用ParamCount和ParamStr函数来判断命令行参数是否为-h，如果是，则在控制台输出帮助信息，否则启动带有form的程序。同时，需要使用AllocConsole函数来创建一个控制台窗口，以便在控制台输出信息。

简单示例代码如下：

program Project1;

uses
  Forms, Windows;

var
  ConsoleHandle: THandle;

begin
  // 创建控制台窗口
  AllocConsole;
  ConsoleHandle := GetStdHandle(STD_OUTPUT_HANDLE);

  if ParamCount > 0 then
  begin
    // 判断是否为-h命令
    if ParamStr(1) = '-h' then
    begin
      // 输出帮助信息
      WriteConsole(ConsoleHandle, '帮助信息'#13#10, 12, nil, nil);
      // 退出程序
      Exit;
    end;
  end;

  // 启动带有form的程序
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;

  // 释放控制台窗口
  FreeConsole;
end.

注意：上述代码中需要在使用Windows单元之前先使用Forms单元，否则会报错。