Delphi 编写系统服务

Delphi编写系统服务的步骤
最新推荐文章于 2025-08-04 14:59:24 发布
原创 最新推荐文章于 2025-08-04 14:59:24 发布 · 1.9k 阅读 · 1 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#delphi #application #class #events #service #function

本文介绍了如何在Delphi 7环境中创建一个名为NoticeService的系统服务应用。通过新建一个继承自TThread的TNoticeThread类，并重写Execute方法，实现了服务的核心功能。在服务的属性Events选项卡中，设置了OnStart、OnPause、OnContinue和OnStop事件，以控制线程在不同状态下的行为。

       打开Delphi 7，新建，选择Other->Service Application 修改属性中Name和DisplayName，Name是Service的名称，决定着进程的标识，DisplayName是显示在操作系统里的服务面板里的服务的名称。例如我们将Name修改为NoticeService。

      新建一个类，例如名字叫做TNoticeThread，继承自TThread，并重写protected过程Execute。在NoticeService的类定义中添加一个NoticeThread对象。

      找到属性的Events选项卡，分别添加OnStart，OnPause，OnContinue，OnStop事件，用这几个事件来控制NoticeThread线程的运行：

 &n

最低0.47元/天 解锁文章
用DELPHI编写一个服务进程
人生若可如罗盘，就不需迷茫
09-02 2786
<br />现在的学生越来越聪明，一年前就发现他们不知从哪里学来退出教学系统的方法了， 一节课下来，最终发现大半部分人都没听课，上自己的网，听自己的音乐。从一个学生口中得知他们的方法，原来是如此简单（具体方法不说了，免得有人有样学 样）。<br />不过办法总是有的，计算机关闭前会先关闭用户进程，再关闭系统进程。呵呵，哪就写服务进程来监控教学系统的学生端吧，如果发现不存在就自动运行它。 下面就是创建这个服务进程的过程，用DELPHI写的。<br />1、打开DELPHI--新建--Service Ap
Delphi创建服务程序
wsgqp的专栏
07-13 7827
Windows 2000/XP和2003等支持一种叫做”服务程序”的东西.程序作为服务启动有以下几个好处: 不用登陆进系统即可运行. 具有SYSTEM特权.所以你在进程管理器里面是无法结束它的. 如何创建Service下面就介绍一下如何用Delphi7创建一个Service程序： 运行Delphi7,选择菜单File–>New–>Other—>Service Application.将生成一个服务
delphi编写windows服务程序
09-27
从台湾论坛网上下载的一个代码。调试通过，
Delphi实现的系统服务及托盘图标程序实战
最新发布
weixin_36289813的博客
08-04 718
在本章中，我们将开始深入了解Delphi系统服务程序的基础知识，并介绍其在现代应用程序中的作用。Delphi是一种功能强大的开发环境，它允许开发者创建各种应用程序，包括系统服务程序。系统服务程序是一种特殊的应用程序，它们在后台运行，无需用户交互即可执行任务，这使得它们在自动化和系统级操作中非常有用。Delphi系统服务程序是一种特殊的可执行文件，它在Windows操作系统环境下以服务的形式运行。这种服务程序在不提供用户界面的情况下执行任务，例如备份、监控、日志记录等。
注册服务程序
weixin_30657541的博客
05-21 209
开发步骤: 1、New->Other->Service Application 2、现在一个服务程序的框架已经搭起来了，打开Service1窗口，有几个属性说明一下： AllowPause:是否允许暂停 AllowStop: 是否允许停止 Dependencies: 设置服务的依存关系，服务的启动是否依赖于某个服务或者组 DisplayNa...
用Delphi创建windows服务程序
09-01
有现成代码在用
用Delphi创建服务程序
蓝色的雨
08-20 1478
作者：陈经韬 文章来源：岁月联盟 Windows 2000/XP和2003等支持一种叫做"服务程序"的东西.程序作为服务启动有以下几个好处:(1)不用登陆进系统即可运行.(2)具有SYSTEM特权.所以你在进程管理器里面是无法结束它的.笔者在2003年为一公司开发机顶盒项目的时候,曾经写过课件上传和媒体服务,下面就介绍一下如何用Delphi7创建一个Service程序.运行Delphi7,选择菜单
用 Delphi 创建系统服务程序
l799623787的专栏
11-02 1384
Windows 2000/XP和2003等支持一种叫做"服务程序"的东西.程序作为服务启动有以下几个好处: (1)不用登陆进系统即可运行. (2)具有SYSTEM特权.所以你在进程管理器里面是无法结束它的. 笔者在2003年为一公司开发机顶盒项目的时候,曾经写过课件上传和媒体服务,下面就介绍一下如何用Delphi7创建一个Service程序. 运行Delphi7,选择菜单File-
Delphi编写系统服务一：如何编写一个系统服务
Bear_hx的专栏
11-28 2698
 打开Delphi编辑器，选择菜单中的File|New|Other...，在New Item中选择Service Application项，Delphi便自动为你建立一个基于TServiceApplication的新工程，TserviceApplication是一个封装NT服务程序的类，它包含一个TService1对象以及服务程序的装卸、注册、取消方法。TService属性介绍：AllowPaus
Delphi 系统服务
soasoa的专栏
01-19 1183
安装服务程序 function TForm1.InstallService: Boolean;var  schSCManager,schService:THANDLE;  strDir:array[0..1023]of char;  lpszBinaryPathName:PChar;  args: pchar;begin  schSCManager:=OpenSCManager(nil,nil
delphi 写的服务程序Demo
05-27
delphi 编写的实现开机自启动服务程序。托盘功能
Delphi开发Windows服务程序
weixin_33885253的博客
11-06 533
开发步骤: 1、New-&gt;Other-&gt;Service Application 2、现在一个服务程序的框架已经搭起来了 打开Service1窗口，有几个属性说明一下： AllowPause:是否允许暂停 AllowStop: 是否允许停止 Dependencies: 设置服务的依存关系，服务的启动是否依赖于某个服务或者组 DisplayName: 在“服务”窗口显示的...
如何用 Delphi 创建系统服务程序？
weixin_30338481的博客
09-29 99
http://www.cnblogs.com/laozhao/articles/delphi-systemservice.html 转载于:https://www.cnblogs.com/yipin/p/5919018.html
用Delphi编写Windows服务(Service)
bell的专栏
04-06 2005
    Windows的服务是一个比较实用的功能，你的程序可以在Windows未进行登录的时候就开始运行，不受用户注销的影响，也不容易被用户误关闭。     但是编写服务也许不是一件容易的事情，幸好Delphi给我们提供了一个模板，可以很容易的编写一个标准的Windows服务程序。     首先，在Delphi内新建一个Service Application。     此时，Delph
Delphi编写系统服务二：系统服务和桌面程序的区别
Bear_hx的专栏
11-28 3335
 Windows 2000/XP/2003等支持一种叫做“系统服务程序”的进程，系统服务和桌面程序的区别是：系统服务不用登陆系统即可运行；系统服务是运行在System Idle Process/System/smss/winlogon/services下的，而桌面程序是运行在Explorer下的；系统服务拥有更高的权限，系统服务拥有Sytem的权限，而桌面程序只有Administrator权限；在
Delphi编写Windows系统服务程序【转帖】
陈昊廷的专栏
07-16 943
 Windows NT服务程序不同于一般的运行程序，它不需要NT登录进去，只需要开机进入NT系统便可以运行，一般用于系统服务方面的应用，学会编写NT服务程序对网络管理人员而言是非常重要的，Delphi4.0作为一种高效、快速、强大的开发语言，为开发NT服务程序提供了非常便捷的方法，加上其可视化界面以及与数据库的完美结合，使我们开发与数据库有关的NT服务程序变得非常简单，下面以编写一个NT定期备份程
Delphi编写系统服务三：编写两栖系统服务
Bear_hx的专栏
11-28 3006
 采用下面的方法，可以实现一个两栖系统服务（既系统服务和桌面程序的两种模式）工程代码：program FleetReportSvr;uses  SvcMgr,  Forms,  SysUtils,  Windows,  SvrMain in SvrMain.pas {FleetReportService: TService},  AppMain in AppMain.pas {FmFl
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值