如何用 Delphi 创建系统服务程序

(1)不用登陆进系统即可运行

(2)具有SYSTEM特权所以你在进程管理器里面是无法结束它的

笔者在2003年为一公司开发机顶盒项目的时候,曾经写过课件上传和媒体服务,下面就介绍一下如何用Delphi7创建一个Service程序

运行Delphi7,选择菜单File-->New-->Other--->Service Application将生成一个服务程序的框架将工程保存为ServiceDemodpr和Unit_Mainpas,然后回到主框架我们注意到,Service有几个属性其中以下几个是我们比较常用的:

(1)DisplayName:服务的显示名称

(2)Name:服务名称

我们在这里将DisplayName的值改为"Delphi服务演示程序",Name改为"DelphiService"编译这个项目,将得到 ServiceDemoexe这已经是一个服务程序了!进入CMD模式,切换致工程所在目录,运行命令"ServiceDemoexe /install",将提示服务安装成功!然后"net start DelphiService"将启动这个服务进入控制面版-->管理工具-->服务,将显示这个服务和当前状态不过这个服务现在什么也干不了,因为我们还没有写代码:)先"net stop DelphiService"停止再"ServiceDemoexe /uninstall"删除这个服务回到Delphi7的IDE

我们的计划是为这个服务添加一个主窗口,运行后任务栏显示程序的图标,双击图标将显示主窗口,上面有一个按钮,点击该按钮将实现Ctrl+Alt+Del功能

实际上,服务程序莫认是工作于Winlogon桌面的,可以打开控制面板,查看我们刚才那个服务的属性-->登陆,其中"允许服务与桌面交互 "是不打钩的怎么办呵呵,回到IDE,注意那个布尔属性:Interactive,当这个属性为True的时候,该服务程序就可以与桌面交互了

系统服务(systemservices)是指执行指定系统功能的程序、例程或进程，以便支持其他程序，尤其是底层(接近硬件)程序。

在delphi语言中创建系统服务程序，比较便捷，delphi专门提供了一个ServiceApplication的模板向导。

步骤如下：

1、在IDE里，点击菜单File-->New-->Other

2、点击ServiceApplication-->OK

3、delphi会自动生成一个服务程序的框架，包含一个Unit和一个Project:

4、设置一下服务程序的名称、是否允许交互等属性：

5、根据服务程序功能设计需要，添加和编写实现代码。

6、编译代码，最终生成服务程序(exe）。

像遇到这类问题后教你一个比较通用也比较简单的方法（对于普通级病毒来说有效）：

按Ctrl+Shift+Esc打开任务管理器→进程→在进程列表里将除“winlogonexe、servicesexe（不同于你的那个，多个s）、explorerexe、ctfmonexe、internatexe、svchostexe（有多个）、csrssexe、smssexe、system Idle process、system”这几个正常进程外的其它进程全部右键选择后“结束进程”，然后你就可以删除你U盘里的serviceexe文件了。

另外你也可以借助一款叫做Unlocker的工具来更简单解决，下载Unlocker安装后，打开“我的电脑”→右键选择U盘所在的盘→选择“Unlocker”→点“全部解锁”→然后进入U盘下删除吧！！

Unlocker下载地址：>

以上就是关于如何用 Delphi 创建系统服务程序全部的内容，包括:如何用 Delphi 创建系统服务程序、怎么查找系统服务列表、U盘里有个叫 service 的应用程序删不掉，请高手指点等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！