forum.clarionlife.net

Код: Выделить всё

SS_SERVICE_STATUS           group, type   ! API Type
ServiceType                   SS_ULONGX
CurrentState                  SS_ULONGX
ControlsAccepted              SS_ULONGX
Win32ExitCode                 SS_ULONGX
ServiceSpecificExitCode       SS_ULONGX
CheckPoint                    SS_ULONGX
WaitHint                      SS_ULONGX
                            end

MyService            Class(),Type,DLL(SelfServiceDLLMode)
! Methods
GetServiceStatus       PROCEDURE (string p_ServiceName, *SS_SERVICE_STATUS p_ServiceStatus, long p_Silent=1),long,proc ,VIRTUAL

MyService.GetServiceStatus  PROCEDURE  (string p_ServiceName, *SS_SERVICE_STATUS p_ServiceStatus, long p_Silent=1) ! Declare Procedure


gSelfService         Class(MyService)
GetServiceStatus       PROCEDURE (string p_ServiceName, *SS_SERVICE_STATUS p_ServiceStatus, long p_Silent=1),long,proc ,VIRTUAL

gSelfService.GetServiceStatus     PROCEDURE (string p_ServiceName, *SS_SERVICE_STATUS p_ServiceStatus, long p_Silent=1)

 CODE
 gSelfService.ServiceName = clip('NTServiceCapeSoftApplication')

 gSelfService.GetServiceStatus(gSelfService.ServiceName,SS_SERVICE_STATUS.CurrentState ,1)