系统服务程序支持库

.子程序 ReportSvcStatus, , , 改写服务状态
.参数 dwCurrentState, 整数型, , 服务状态
.参数 dwWin32ExitCode, 整数型, , 错误代码
.参数 dwWaitHint, 整数型, , 等待时间 毫秒
.局部变量 SvcStatus, SERVICE_STATUS

SvcStatus.dwServiceType ＝ 位或 (#SERVICE_WIN32_OWN_PROCESS, #SERVICE_INTERACTIVE_PROCESS) ' 设置服务类型
SvcStatus.dwControlsAccepted ＝ 位或 (#SERVICE_ACCEPT_STOP, #SERVICE_ACCEPT_PAUSE_CONTINU, #SERVICE_ACCEPT_PARAMCHANGE) ' 这里设置服务是否允许停止，暂停，恢复
SvcStatus.dwCurrentState ＝ dwCurrentState
SvcStatus.dwWin32ExitCode ＝ dwWin32ExitCode
SvcStatus.dwWaitHint ＝ dwWaitHint
SetServiceStatus (SvcStatusHandle, SvcStatus)