delphi 自动安装成服务 ????

2007-12-25 12:53:09 305 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Windows 游戏 EXCEPTION_ACCESS_VIOLATION 修复：3类硬件问题与5步软件排查法本文提供Windows游戏EXCEPTION_ACCESS_VIOLATION错误的终极修复指南，涵盖3类硬件问题（内存故障、显卡问题、超频不稳定）和5步软件排查法（文件验证、驱动更新、DEP调整等），帮助玩家彻底解决0xFFFFFFFFFFFFFFFF内存访问冲突问题。阅读详情

有一个问题..郁闷了很久了............就是把程序写成....服务的时候....不知是能否像..双击EXE 那样的..双击自动就注册

服务呢???? 当然我所讲.. 并不是在生成的EXE 加上 /install 参数来安装................不知可否实现...服务程序编译

好后..双击成自动自己把自己安装成系统服务.....不知可朋友..能否实现呢....????????

...全文

OpenWebUI外部模型配置异常排查与修复指南本文详细解析了OpenWebUI外部模型配置异常的常见问题及解决方案，包括隐藏字符、数据库锁死等典型现象。通过错误日志分析和数据库修复实战指南，帮助开发者快速定位并解决配置问题，确保OpenWebUI与第三方大模型的稳定连接。阅读详情

china_hcnet

Windows SDK/API 1,184 成员 22,326 内容

+ 关注 + 加入社区

切换为时间正序

mihi1978 2010-11-04

打赏
举报

mark

wangwest 2008-04-12

打赏
举报

谢谢

constantine 2007-12-25

打赏
举报

mark

僵哥 2007-12-25

打赏
举报

可以参考ScktSrvr.dpr。低版本可以在Source\VCL目录下找到，新版Delphi可以在Source\Win32\db目录下找到。
里面有这样一段：



  if Installing or StartService then

  begin

    SvcMgr.Application.Initialize;

    SocketService := TSocketService.CreateNew(SvcMgr.Application, 0);

    SvcMgr.Application.CreateForm(TSocketForm, SocketForm);

    SvcMgr.Application.Run;

  end else

  begin

    

    Forms.Application.ShowMainForm := False;

    Forms.Application.Initialize;

    Forms.Application.CreateForm(TSocketForm, SocketForm);

    SocketForm.Initialize(False);

    Forms.Application.Run;

  end;

你可以把服务的安装代码写在后面的else代码当中(不能用SvcMgr当中自带的注册，否则会搜索命令行开关）。

budded 2007-12-25

打赏
举报

WinExec(PChar('YourService.exe /install /silent'), 0);

或者，抄一段VCL给你吧，哈哈

procedure TServiceApplication.RegisterServices(Install, Silent: Boolean);



  procedure InstallService(Service: TService; SvcMgr: Integer);

  var

    TmpTagID, Svc: Integer;

    PTag, PSSN: Pointer;

    Path: string;

  begin

    Path := ParamStr(0);

    with Service do

    begin

      if Assigned(BeforeInstall) then BeforeInstall(Service);

      TmpTagID := TagID;

      if TmpTagID > 0 then PTag := @TmpTagID else PTag := nil;

      if ServiceStartName = '' then

        PSSN := nil else

        PSSN := PChar(ServiceStartName);

      Svc := CreateService(SvcMgr, PChar(Name), PChar(DisplayName),

        SERVICE_ALL_ACCESS, GetNTServiceType, GetNTStartType, GetNTErrorSeverity,

        PChar(Path), PChar(LoadGroup), PTag, PChar(GetNTDependencies),

        PSSN, PChar(Password));

      TagID := TmpTagID;

      if Svc = 0 then

        RaiseLastOSError;

      try

        try

          if Assigned(AfterInstall) then AfterInstall(Service);

        except

          on E: Exception do

          begin

            DeleteService(Svc);

            raise;

          end;

        end;

      finally

        CloseServiceHandle(Svc);

      end;

    end;

  end;



  procedure UninstallService(Service: TService; SvcMgr: Integer);

  var

    Svc: Integer;

  begin

    with Service do

    begin

      if Assigned(BeforeUninstall) then BeforeUninstall(Service);

      Svc := OpenService(SvcMgr, PChar(Name), SERVICE_ALL_ACCESS);

      if Svc = 0 then RaiseLastOSError;

      try

        if not DeleteService(Svc) then RaiseLastOSError;

      finally

        CloseServiceHandle(Svc);

      end;

      if Assigned(AfterUninstall) then AfterUninstall(Service);

    end;

  end;





var

  SvcMgr: Integer;

  i: Integer;

  Success: Boolean;

  Msg: string;

begin

  Success := True;

  SvcMgr := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);

  if SvcMgr = 0 then RaiseLastOSError;

  try

    for i := 0 to ComponentCount - 1 do

      if Components[i] is TService then

      try

        if Install then

          InstallService(TService(Components[i]), SvcMgr) else

          UninstallService(TService(Components[i]), SvcMgr)

      except

        on E: Exception do

        begin

          Success := False;

          if Install then

            Msg := SServiceInstallFailed else

            Msg := SServiceUninstallFailed;

          with TService(Components[i]) do

            MessageDlg(Format(Msg, [DisplayName, E.Message]), mtError, [mbOK],0);

        end;

      end;

    if Success and not Silent then

      if Install then

        MessageDlg(SServiceInstallOK, mtInformation, [mbOk], 0) else

        MessageDlg(SServiceUninstallOK, mtInformation, [mbOk], 0);

  finally

    CloseServiceHandle(SvcMgr);

  end;

end;

china_hcnet 2007-12-25

打赏
举报

Thanks , help !!!!!!!!

这些代码对我太有用了.................

delphi 自动安装成服务 ????

相关推荐