haiou327’blog

NT Service Control App 一个NT服务的控制程序，意思就是说要用它来控制一个NT服务的安装、启动、停止、卸载这四个状态，它的过程是： 　　１、先要打开系统的服务管理器（取得管理NT服务的权限）； 2、打开需要控制的NT服务（获得控制权）； 3、对该服务进行控制。 做法是： 一、使用 OpenSCManager打开本地默认的服务管理器。（用到这些API的

windows 系统服务--------------------------------------------------------------------------------function StartService(AServName: string): Boolean; //use WinSvcvar SCManager, hService: SC_HANDLE; lpServiceArgVectors: PChar;begin SCManager := Op

uses Variants,Winsvc, ComCtrls, ExtCtrls, Registry; private{ Private declarations }{ 返回服务状态 } function GetServiceState(dwCurrentState: DWord): string;{ 读取注册表中的服务信息 } function ReadFromRegistry(ServiceName: string; KeyName: string;

function InstallService: Boolean;var schSCManager, schService: THANDLE; strDir: array[0..1023] of char; lpszBinaryPathName: PChar;begin schSCManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS); if schSCManager = 0 then begin

不用cmd用delphi如何实现启动停止windows服务建议参考一下Delphi的ScktSrvr原码，     $(DELPHI)/Source/Vcl/ScktSrvr.dpr   --------------------------------------------------------------------------------windows 系统服务----------------------------------------------------------------------

{ Install Service Demo }{ }{ 2011年元旦By[haiou327] }{ }{ }function InstallService(PathName, Name, DisplayName: PChar): Boolean;var schSCManager, sc