Delphi 控制台应用程序安装为服务

我正在寻找并尝试将我的控制台应用程序作为服务安装，但还不知道如何实现

有什么建议吗

实际上，我只是想安装为服务，并在每次windows启动或延迟启动时自动启动

program Project1;

  Uses
  Windows,
  SysUtils,
  Dialogs,
  Messages,TlHelp32,Classes, Graphics, Controls, SvcMgr,ExtCtrls;

 Const
  SECURITY_NT_AUTHORITY: TSIDIdentifierAuthority = (Value: (0, 0, 0, 0, 0, 5));
  SECURITY_BUILTIN_DOMAIN_RID = $00000020;
  DOMAIN_ALIAS_RID_ADMINS = $00000220;

  type
  TService1 = class(TService)
  private
  public
    function GetServiceController: TServiceController; override;
  end;


  var
  Service1: TService1;
  Msg: TMsg;

 Procedure ServiceController(CtrlCode: DWord); stdcall;
  begin
   Service1.Controller(CtrlCode);
 end;


 Function TService1.GetServiceController: TServiceController;
  begin
    Result := ServiceController;
 end;

Function IsAdmin: Boolean;
var
  hAccessToken: THandle;
  ptgGroups: PTokenGroups;
  dwInfoBufferSize: DWORD;
  psidAdministrators: PSID;
  x: Integer;
  bSuccess: BOOL;
begin
  Result   := False;
  bSuccess := OpenThreadToken(GetCurrentThread, TOKEN_QUERY, True,
    hAccessToken);
  if not bSuccess then
  begin
    if GetLastError = ERROR_NO_TOKEN then
      bSuccess := OpenProcessToken(GetCurrentProcess, TOKEN_QUERY,
        hAccessToken);
  end;
  if bSuccess then
  begin
    GetMem(ptgGroups, 1024);
    bSuccess := GetTokenInformation(hAccessToken, TokenGroups,
      ptgGroups, 1024, dwInfoBufferSize);
    CloseHandle(hAccessToken);
    if bSuccess then
    begin
      AllocateAndInitializeSid(SECURITY_NT_AUTHORITY, 2,
        SECURITY_BUILTIN_DOMAIN_RID, DOMAIN_ALIAS_RID_ADMINS,
        0, 0, 0, 0, 0, 0, psidAdministrators);
      {$R-}
      for x := 0 to ptgGroups.GroupCount - 1 do
        if EqualSid(psidAdministrators, ptgGroups.Groups[x].Sid) then
        begin
          Result := True;
          Break;
        end;
      {$R+}
      FreeSid(psidAdministrators);
    end;
    FreeMem(ptgGroups);
  end;
end;

begin

 if IsAdmin then
   begin
                 // Install me as service 
   end else
 begin
    ShowMessage('Not Running As Admin');
 end;


  while GetMessage(Msg, 0, 0, 0) do
   begin
   TranslateMessage(Msg);
   DispatchMessage(Msg);
  end;

end.

---

至少有两种方法：一种是“正确的”方法，另一种是“错误的”（但有效）

这是一个错误的但有效的方法 您可以通过（主机）助手实用程序将任何应用程序作为服务运行，例如：

• ，“一个免费的Windows应用程序，允许普通程序作为Windows服务运行”。我从来没有用过这个，我只是通过谷歌搜索找到的
• （因为它是微软的，所以我会用这个。）

为什么这是错误的方式？因为如果你想让你的应用程序作为服务运行，你应该创建一个服务应用程序。碰巧德尔福很容易做到这一点。这是正确的方法：

正确的方法：创建一个服务应用程序 。然而，它相当简单：通过文件>新建>[可能是其他>]服务应用程序创建一个新的服务应用程序。设置显示名称等。要安装它，请使用命令行开关运行

/install

；要卸载，请使用

/uninstall

运行

---

如果您希望命令行应用程序作为服务运行的原因是因为您不想编写两个应用程序，那么通过良好的设计，您可以最大限度地减少额外的工作。在项目组中，有两个应用程序，即命令行应用程序和服务应用程序。然后在其他文件中共享代码-即编写代码以完成应用程序的工作一次，并从两个项目中包含/调用代码。

一个TService需要一个TService应用程序来创建和运行它，就像TForm需要一个TApplication来创建和运行它一样

Application.Initialize;
Application.CreateForm(TService1, TService1);
Application.Run;

当然，对于TServiceApplication，它不再是控制台应用程序

据我所知，如果您真的想编写控制台服务，您需要跳过TService，使用几乎纯粹的WindowAPI来实现控制台服务

网络上有一个带有解释的老例子：

引用那篇文章：

Delphi编译器支持使用TServiceApplication和TService开发NT服务 上课。但是Delphi方法不支持双接口，并且带来了很多问题 开销我将演示如何使用Windows API编写轻量级双接口服务应用程序 功能。即使示例应用程序是用Delphi编写的，也很容易移植到另一个编译器 因为只使用本机API函数

---

我想说，制作一个Delphi TServiceApplication要容易得多…

您可能应该创建一个服务应用程序，而不是自己尝试创建一个服务应用程序。@DavidHeffernan:我在回答中添加了这一点，希望没问题。（我本来打算去的，但后来看到了你的评论。如果你想回答自己的问题，那就去吧，不要偷你的选票：）@DavidM谢谢，但这根本不是偷。这并不是说我的评论代表了难以置信的洞察力。这显然是显而易见的。我有很多机会回答，但我选择了不回答。你的答案很好，值得我投票。我认为你的

IsAdmin

功能被误导了。谁在乎我是否是管理员组的成员？更重要的问题不是我是否被允许安装服务，而不考虑我的组成员身份吗？不要试图预测限制性手术的结果。相反，只要尝试执行它，如果失败，就报告错误。@Rob就在这里。这种情绪通常被概括为“请求原谅比允许更容易”