用DELPHI编写一个服务进程

最新推荐文章于 2024-04-12 23:04:57 发布

hbqjzx

最新推荐文章于 2024-04-12 23:04:57 发布

阅读量2.9k

点赞数

分类专栏： DELPHI 文章标签： delphi service application 网络 timer windows

本文链接：https://blog.csdn.net/hbqjzx/article/details/6543463

版权

DELPHI 专栏收录该内容

3 篇文章 0 订阅

订阅专栏

现在的学生越来越聪明，一年前就发现他们不知从哪里学来退出教学系统的方法了，一节课下来，最终发现大半部分人都没听课，上自己的网，听自己的音乐。从一个学生口中得知他们的方法，原来是如此简单（具体方法不说了，免得有人有样学样）。

不过办法总是有的，计算机关闭前会先关闭用户进程，再关闭系统进程。呵呵，哪就写服务进程来监控教学系统的学生端吧，如果发现不存在就自动运行它。下面就是创建这个服务进程的过程，用DELPHI写的。

1、打开DELPHI--新建--Service Application

2、设置SERVICE属性：
     DisplayName：服务的名称，你可以起个很像WINDOWS自身的服务名称，让你找不得。
     AllowStop：允许停止吗？FALSE吧，不让停止
     ServiceType：用stWin32
     其他不设置了。

3、在SERVICE窗口中放个定时器，我设了5秒执行一次，代码就是查找教学系统学生端进程是否存在，如果不存在则启动他。
procedure TService1.Timer1Timer(Sender: TObject);
var
hSnapshot: THandle;//用于获得进程列表
lppe: TProcessEntry32;//用于查找进程
Found: Boolean;//用于判断进程遍历是否完成
f:boolean;
begin
hSnapshot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);//获得系统进程列表
lppe.dwSize := SizeOf(TProcessEntry32);//在调用Process32First API之前，需要初始化lppe记录的大小
Found := Process32First(hSnapshot, lppe);//将进程列表的第一个进程信息读入ppe记录中
f := false;
while Found do
begin
    if sametext(lppe.szExeFile,'Student3.exe') then
      f:=true;
    Found := Process32Next(hSnapshot, lppe);//将进程列表的下一个进程信息读入lppe记录中
end;
if not f then
    winexec('C:/Program Files/yzinfo/多媒体教学网络系统/Student3.exe',SW_normal);   //这是远志出的系统
end;