VF7 y API
Logro arrancar el servicio con las APIs respectivas, pero cuando quiero hacer el ControlService para finalizarlo, me da un error 487, ya probé asignando una clase y tratano de asignarla al lpServiceStatus, pero tampoco anduvo, le paso parte del código, para que vean donde puede estar el error.
DECLARE INTEGER ControlService IN WIN32API ;
INTEGER hService, ;
INTEGER dwControl, ;
STRING @lpServiceStatus
STORE 0x0020 TO dwControl
*lpServiceStatus = FSSSTatus()
STORE .NULL. TO lpServiceStatus
*SET UDFPARMS TO REFERENCE
*lpServiceStatus = igualar(dwServiceType)
hKService = ControlService(hService, dwControl, lpServiceStatus)
Agraderé ayuda.
Gracias.
DECLARE INTEGER ControlService IN WIN32API ;
INTEGER hService, ;
INTEGER dwControl, ;
STRING @lpServiceStatus
STORE 0x0020 TO dwControl
*lpServiceStatus = FSSSTatus()
STORE .NULL. TO lpServiceStatus
*SET UDFPARMS TO REFERENCE
*lpServiceStatus = igualar(dwServiceType)
hKService = ControlService(hService, dwControl, lpServiceStatus)
Agraderé ayuda.
Gracias.
