Clarion 10.0.12278
Шаблон CapeSoft SelfService
Код: Выделить всё
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)
gSelfService.GetServiceStatus(gSelfService.ServiceName,SS_SERVICE_STATUS ,1) Cannot use TYPEd structure in this way
Вопрос: как правильно оформить обращение к объекту gSelfService.GetServiceStatus для получения всех значений переменной
SS_SERVICE_STATUS - состояния службы Windows?