Con estas funciones podemos comprobar si un Servicio se está ejecutando en Windows, y podemos Iniciarlo o Pararlo si disponemos de los permisos adecuados.
Tomamos como ejemplo el servicio Themes de Windows XP.
1. Consultar si el servicio Themes se esta ejecutando:
oShell = CREATEOBJECT("Shell.Application")
? oShell.IsServiceRunning("Themes")
oShell = Null
2. Consultar si se puede iniciar o detener el servicio Themes:
oShell = CREATEOBJECT("Shell.Application")
? oShell.CanStartStopService("Themes")
oShell = Null
3. Iniciar el servicio Themes:
oShell = CREATEOBJECT("Shell.Application")
? oShell.ServiceStart("Themes", .F.)
oShell = Null
4. Detener el servicio Themes:
oShell = CREATEOBJECT("Shell.Application")
? oShell.ServiceStop("Themes", .T.)
oShell = Null
|