我想在一个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单元,否则会报错。