program test；useswindows，winsvc{ install服务启动}过程ins(服务名，显示名，描述，)；functionSetDesc(aSHndl:thand le；desc:pchar):Bool；constSERVICE _ CONFIG _ DESCRIPTION:dword 1；varchs 2:function(h service:SC _ HANDLE；//handletoservicedwInfoLevel:DWORD；//informationlevelpinfo:Pointer):Bool；StdCall//newdataaLibHndl:thand le；beginaLibHndl:GetModuleHandle(advapi 32)；结果:aLibHndl0ifnotResultthenExitCHS2:GetProcAddress(aLibHndl，
4、如何使用Delphi设计强大的 服务器 程序[1]现在网络的普及使得服务 device程序被广泛使用，那么怎样才能用Delphi设计出一个强大的服务device呢？有人说，要设计一个服务 device，必须用VC来设计。其实这个人说的也有一定道理，因为如果要用Delphi设计a 服务 device的话，大部分Delphi自带的控件都不要用(最好不要用Delphi控件)。为什么？接下来我会告诉你，如果你用API来设计服务 device，和VC区别不大。用Delphi设计服务device程序具体选择是使用表单消息模式还是完成端口模式，主要看你的用户连接数。如果你的用户连接数比人少，处理的数据量不大，可以用表单消息模式开发服务 device，如果大于，最好用补全端口开发服务我建议你用补全端口模式，因为你不能保证你的用户数不变。同时，如果你的服务设备运行一段时间没有问题的话，最好做成WIN 服务 程序，这样可以保证后期少维护。现在介绍你开发Delphi 服务。
5、用Delphi编写系统进程监控 程序Ben 程序通过调用kerneldll中的几个API函数，可以搜索并列出系统中除此之外的所有进程的ID对应的文件描述符优先级、CPU占用率、线程数等相关进程信息，并且可以停止选中的进程Ben 程序运行时，图标会添加到系统托盘区，不会出现在按Ctrl Alt Del出现的任务列表中，任务按钮也不会显示在当它不活动或最小化时，它将自动 hide并且不会重复运行。如果程序它已经运行，并且如果您想要再次运行它，它将仅激活已经运行的程序 this。程序避免重复操作的方法比较独特，因为作者在时永介绍了一些方法，发现程序当窗口最小化按钮从最小化状态激活时，窗口无法最小化，所以作者采用了发送和处理自定义消息的方法。当程序运行时，首先枚举系统中现有的窗口。如果找到/ -0/在程序 window已经运行时向其发送自定义消息，然后结束已经运行的程序在收到自定义消息后显示该窗口//项目文件procviewprodprprogramprocviewpro；usesformswindowsmessages maininprocviewpas { Form }；{$R*RES}{//这是系统的开始应用程序自动
6、 delphi如何把应用 程序改为 服务 程序?delphi没有这个函数(除非你有源代码修改)。只有通过Microsoft服务程序来添加instsrv.exesrvany.exe，很容易在网上找到注册表，运行instsrvsrvanyc: exetoservice命令，exewendowregisteryeditorversion版本5.00 [HKEY _本地_机器系统控制集001服务]。应用程序c: \ Exetoservice \ 1，ExeappDirectoryc: \这样安装完就够了，但是也有缺点，交互访问可能会有问题。
