Diria Yo que este es de los mejores trucos .... utilizando WMI podemos instalar un servicio en Windows y especificarle todas sus propiedades .... EXCELENTE. Un servicio es una aplicación que corre en background cuando arranca Windows y el usuario no se percata de eso. Para comprobar si el servicio se instala podemos ir a MIPC y hacemos click con el botón derecho del mouse y seleccionamos "Administrar", luego en la parte izquierda de la ventana seleccionamos "Servicios" y allí debe aparecer el servicio que instalaremos.
Para probar el ejemplo debes copiar un archivo exe a la carpeta system32 de Windows pero podría ser a cualquier carpeta, el nombre del archivo para el ejemplo debe ser PD.EXE ..... podria renombrar el NotePad y probar con el.
OWN_PROCESS = 16
NOT_INTERACTIVE = .F.
ControlError = 2 &&Normal
TipInicio = "Manual"
NomSer = "MiServicio"
NomMostrar = "Nombre para mostrar - MiServicio"
cRutaEXE = "c:\windows\system32\pd.exe"
cIniSesion = "NT AUTHORITY\LocalService"
objWMI = GetObject("winmgmts:\\")
objSer = objWMI.Get("Win32_BaseService")
errRet = objSer.Create(NomSer, NomMostrar, cRutaExe, OWN_PROCESS, ControlError,
TipInicio, NOT_INTERACTIVE, cIniSesion, "" )
? errRet
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
