使用Console Application和GUI Application？

Question

如何创建可以在有或没有GUI的情况下使用的控制台应用程序？

例如，假设我有一个控制台应用程序，如果我尝试从Windows资源管理器启动此控制台应用程序，它将无法正常工作，它将关闭，但是我可以从GUI应用程序或Windows命令控制台（cmd.exe）中调用它，然后将一些开关（参数？）传递给它。

这样一来，即使不启动GUI应用程序，也可以使用一些有用的功能，可以从命令行调用它们。

编辑

我不确定如何创建控制台应用程序，尤其是那种会接受标志（开关，参数？）的应用程序。

我已经看到一些做类似事情的应用程序。例如，他们可能有一个控制台应用程序，它将bmp转换为png，GUI调用了该控制台应用程序并将参数等传递给它。

希望有道理。

那么我该如何雇用这样的人呢？

谢谢。

Answer 1

例如，假设我有一个控制台应用程序，如果我尝试从Windows资源管理器启动此控制台应用程序，它将无法正常工作，它将关闭，但是我可以从GUI应用程序或Windows命令控制台（cmd.exe）中调用它，然后将一些开关（参数？）传递给它。

它会工作。但是，一旦退出程序，控制台窗口将消失。如果您想让用户有机会在关闭窗口之前阅读控制台应用程序的输出，只需用一个结束

Readln;

要么

Writeln('Press Enter to exit.');
Readln;

如果要在GUI应用程序中使用控制台窗口进行输出（或输入），可以尝试AllocConsole和FreeConsole功能。

命令行参数（例如myapp.exe /OPEN "C:\some dir\file.txt" /THENEXIT）可以在所有类型的Windows应用程序（GUI应用程序和控制台应用程序）中使用。只需使用ParamCount和ParamStr功能即可。

如何创建一个接受命令行参数的控制台应用程序

在Delphi IDE中，选择“文件/新建/控制台应用程序”。然后写

program Project1;

{$APPTYPE CONSOLE}

uses
  Windows, SysUtils;

var
  freq: integer;

begin

  if ParamCount = 0 then
    Writeln('No arguments passed.')

  else if ParamCount >= 1 then

    if SameText(ParamStr(1), '/msg') then
    begin

        if ParamCount = 1 then
          Writeln('No message to display!')
        else
          MessageBox(0, PChar(ParamStr(2)), 'My Console Application',
            MB_ICONINFORMATION);

    end

    else if SameText(ParamStr(1), '/beep') then
    begin

      freq := 400;

      if ParamCount >= 2 then
        if not TryStrToInt(ParamStr(2), freq) then
          Writeln('Invalid frequency: ', ParamStr(2));

      Windows.Beep(freq, 2000);

    end;


end.

编译程序。然后打开命令处理器（CMD.EXE）并转到目录所在的Project1.exe位置。

然后尝试

C:\Users\Andreas Rejbrand\Documents\RAD Studio\Projects>project1
No arguments passed.

C:\Users\Andreas Rejbrand\Documents\RAD Studio\Projects>project1 /msg
No message to display!

C:\Users\Andreas Rejbrand\Documents\RAD Studio\Projects>project1 /msg "This is a test."

C:\Users\Andreas Rejbrand\Documents\RAD Studio\Projects>project1 /beep

C:\Users\Andreas Rejbrand\Documents\RAD Studio\Projects>project1 /beep 600

C:\Users\Andreas Rejbrand\Documents\RAD Studio\Projects>

如何传递三个论点

if ParamCount >= 1 then
begin

  if SameText(ParamStr(1), '/CONVERT') then
  begin

    // The user wants to convert

    if ParamCount <= 2 then
    begin
      Writeln('Too few arguments!');
      Exit;
    end;

    FileName1 := ParamStr(2);
    FileName2 := ParamStr(3);

    DoConvert(FileName1, FileName2);

  end;

end;