启动终端程序，但在终端关闭后继续运行 - Lazarus 或 Delphi

Question

序言：我在 Windows 7 上使用 Lazarus 1.2.6 和 Freepascal 2.6.4，我的解决方案必须基于此 - 而不是 C 或 C++。不过，如果存在类似的东西，我可以使用 Delphi。

问题：我希望创建一个小程序，理想情况下是从命令行启动，然后只是在后台运行，而无需显式打开控制台应用程序。

我正在努力研究如何最好地实现它。

我读过 this link 和 this link 和 this C based example 和 this Linux example 但正如一位用户指出的那样“如果你不想要控制台应用程序，就不要制作”，这就引出了一个问题：什么还有其他方法吗？如果您不想要 GUI，也不想要控制台，我认为还有另一种方法可以创建静默程序，然后启动它，然后让它在后台运行？大概是作为一种服务或类似的东西？

或者，我想到的另一种方法是创建一个包含我的程序函数的库（当然在编译时会生成一个 DLL），在 DLL 的末尾导出这些函数，然后从单独的终端调用它们我假设我可以关闭但从 DLL 调用的函数可能会继续运行的应用程序？换句话说 - 两个程序 - 一个终端程序启动另一个不可见的程序，然后关闭启动程序？这是可能的还是推荐的？

Answer 1

I've written about this topic before，但不是专门针对 Delphi 或 Free Pascal。

使用{$APPTYPE GUI} 指令告诉编译器生成GUI 应用程序 而不是控制台应用程序。您通常会将它放在主项目文件的顶部附近，program 语句所在的位置。当您使用该指令时，程序既不会继承其父级的控制台，也不会创建新的控制台。如果您实际上并不想要 GUI，则不要显示任何窗口；如果您有控制台应用程序，操作系统会自动为您创建控制台，因为"consoleness" is a property of the EXE file。

使用单独的程序和 DLL 不会产生您想要的效果。如您所知，函数会阻塞调用者，直到它们返回。因此，当宿主程序调用你的 DLL 函数时，它会一直等到它返回才退出。 DLL 不是一个单独的程序；它不能没有它的主机运行。 （使用单独的线程也不行，因为当主线程终止程序时，它会破坏所有其他线程，无论它们是否完成。）

Answer 2

使用 Lazarus 非常简单。只需编写小型启动器程序：

program project1;

uses
    Process;

var
    p: TProcess;
begin
    p := TProcess.Create(nil);
    try
        p.ShowWindow := swoHIDE; // To hide your console app
        //p.ShowWindow := swoShowNormal; // To show your console app
        p.Options := [poNewConsole];
        p.CommandLine := 'cmd'; // Change to your app name
        p.Execute;
        Writeln('Programm launched.');
    finally
        p.Free;
    end;
end.  

其实不是Lazarus，而是纯FPC程序。

Answer 3

如果您不想要控制台应用程序，请不要制作。

这听起来像是我可能会说的话！是的，这就是处理这个问题的方法。当一个控制台应用程序启动另一个控制台应用程序时，父进程会阻塞，直到子进程完成。您可以安排子进程脱离其父控制台，但最终只会得到两个控制台。

您真正想做的是创建一个针对 GUI 子系统而不是控制台子系统的进程。换句话说，你不想要一个控制台应用程序，所以不要做一个。改为制作一个 GUI 应用程序。

现在，GUI 应用程序并不意味着您必须显示 GUI。这样做没有任何内疚。您有一个要脱离的进程，在后台执行，而不是附加到父控制台。这是一个针对 GUI 子系统但不显示任何 GUI 的应用程序。

例如，这个程序以 GUI 子系统为目标，但没有显示 GUI。它相当没用，因为它无限期地阻塞。但是，您可以将其替换为您的后台任务。

program project1;
{$apptype gui}
uses
  windows;
begin
  Sleep(INFINITE);
end.

Answer 4

假设你只是在Windows下使用这个程序，你可以直接调用FreeConsole from the Windows API：

FreeConsole 功能

从控制台分离调用进程。

例如这个简单的程序：

program project1;
uses
  sysutils, windows;
begin
  FreeConsole;
  while(true) do
    sleep(50);
end.

可以从资源管理器或 cmd 启动并无限运行而不显示自己的控制台。从另一个控制台启动时，即使关闭另一个 cmd 实例，它也会继续运行。