14 de julio de 2013

Colocar los procesos de Windows en una Tabla Temporal

Saber que procesos se ejecutan en Windows aveces es necesario saberlo en FoxPro y pienso que con este codigo les ayudaria mucho.

Es simple, este solo intruduce todos los procesos en una tabla temporal en fox... y si nuestra aplicacion depende de otro programita para su funcionamiento estaria genial para verificarlo...
FUNCTION VerProcesos()
   loService = Getobject("winmgmts:{impersonationLevel=impersonate}!\\.root\cimv2")
   loProcesses = loService.ExecQuery("SELECT * FROM Win32_Process")
   CREATE CURSOR procesos (Descripcion c(60))
   For Each loProcess In loProcesses
      Servicio = loProcess.Name
      INSERT INTO procesos (Descripcion) VALUES (Servicio)
   Next
   Return
ENDFUNC

No hay comentarios. :

Publicar un comentario