2 de mayo de 2008

Comprobar, Iniciar y Parar Servicios desde VFP

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

Luis María Guayán

2 comentarios :

  1. No me funciona con Windows 12, alguien sabe porque?

    ResponderEliminar
    Respuestas
    1. El .exe debe ejecutarse como Administrador. Si lo intentas desde la consola de VFP debes iniciar FoxPro también como administrador.

      Eliminar

Los comentarios son moderados, por lo que pueden demorar varias horas para su publicación.