Mensajes

que programa estas poniendo como servicio.?
Cualquier programa se puede poner como servicio?

bueno yo hice un programa sin interfas ( form ) porque lei en algun sitio no recuerdo bien que los servicios no deben de tener GUI entonces hice un medio hook para detectar los pendrive y me pasa ese problema

Cualquier programa se puede, pero al iniciarlo el programa debe "terminar" la llamada devolviendo un código antes de un tiempo determinado, como hacerlo, no sé

pues ahora que lo dices raul338 cuando inicio el servicio instalado con codigo el programa creado para iniciar el servicio se cuelga
debe ser eso que dices y luego hice un programa normal que crea 100 archivos de texto en una X carpeta ( todo eso esta en el sub main del modulo porque no les agrego form ) luego de comprobar que se crearon los 100 archivos termina el sub main del modulo y finaliza el programa y el otro programa que llamo a la funcion para inciar el servicio noce cuelga
bueno espero que alguien si pueda

sale buenas e logrado instalar un servicio
con este codigo:

Código (vb) [Seleccionar] Expandir

Public Function Service_Install(SVC_NAME As String, SVC_DESC As String) As Boolean
    Dim lHManager           As Long
    Dim lHService           As Long
    Dim lResult             As Long
    Dim tStatus             As SERVICE_STATUS
    Dim sSvcPath            As String
    Dim sAccount            As String

On Error GoTo Handler
    sSvcPath = App.Path + "\" & SVC_NAME
    sAccount = "LocalSystem"
    lHManager = OpenSCManager(vbNullString, vbNullString, SC_MANAGER_CREATE_SERVICE)
    lResult = CreateService(lHManager, SVC_NAME, SVC_DESC, SERVICE_ALL_ACCESS, SERVICE_WIN32_OWN_PROCESS, SERVICE_DEMAND_START, SERVICE_ERROR_NORMAL, sSvcPath, vbNullString, vbNullString, vbNullString, sAccount, vbNullString)
    If Not lResult = 0 Then
        Service_Install = True
    Else
        GoTo Handler
    End If
    CloseServiceHandle lHManager
On Error GoTo 0
Exit Function
   
Handler:
    If Not lHManager = 0 Then CloseServiceHandle lHManager
End Function


Public Function Service_StartUp(SVC_NAME As String, svcStartType As eServiceStartType) As Boolean
    Dim lHManager           As Long
    Dim lHService           As Long
    Dim lResult             As Long

On Error GoTo Handler
    lHManager = OpenSCManager(vbNullString, vbNullString, SC_MANAGER_CONNECT)
    lHService = OpenService(lHManager, SVC_NAME, SERVICE_CHANGE_CONFIG)
    lResult = ChangeServiceConfig(lHService, SERVICE_NO_CHANGE, svcStartType, SERVICE_NO_CHANGE, vbNullString, vbNullString, 0&, vbNullString, vbNullString, vbNullString, vbNullString)
    If Not lResult = 0 Then Service_StartUp = True
    CloseServiceHandle lHService
    CloseServiceHandle lHManager
On Error GoTo 0
Exit Function
   
Handler:
    If Not lHService = 0 Then CloseServiceHandle lHService
    If Not lHManager = 0 Then CloseServiceHandle lHManager
End Function


y lo utilizo asi:

Código (VB) [Seleccionar] Expandir

If Service_Install(App.EXEName & ".exe", "EJEMPLO SERVICIO") Then
    Debug.Print Service_StartUp(App.EXEName & ".exe", START_AUTO)
Else
    Debug.Print "SVC NOT"
End If


compilo el proyecto y lo ejecuto, me instala el servicio el proceso de programa aparece como un proceso normal en el admin de tareas, en la pestaña de servicios lo encuentro instalado:


pero al parecer no esta iniciado ( claro no tiene la funcion para ser iniciado ) luego lo inicio manualmente y me dice esto:


y luego apago y vuelvo a encender y no esta iniciado el servicio
alguien me puede ayudar?


pero ahora el problema es que no me inicia el servicio

gracias exacto eso queria saber

tambien puedes usar una herramienta que se llama "restorator 2009" muy bueno por cierto

Gracias

y tengo una duda sé que sale un poco del tema pero es asi rapido
hay alguna diferencia entre visual c++ express edition a la profesional? ( bueno en realidad noce si existe la profesional? porque tambien solo e escuchado de la express
para programar no tendria nada de incomvenientes en la express?

gracias queta al parecer me voy a tener que pasar a visual c++ 2010
no hay de otra
bueno yo no soy de c++ pero solo estaba creando una dll

no encontre esas opciones en el visual c++ 6.0

y gracias tio por responder

buenas tengo una duda acerca de este IDE
como puedo agregarle el numero de lineas? insisto un poco en este ide ya que dicen que es el mejor de todos y tiene un depurador mejor que todos   bueno solo es una duda y pues cual es la diferencia entre visual c++ 6 y visual c++ 2010 ??? hay alguna diferencia ? 
pregunto eso porque para los que sabemos de VB, VB 6 y VB2010 no es lo mismo no ya saben a que me refiero gracias

[reemplazo]

Sin espacios.. solo numeros y "/"
Pero no puse que sea "reemplazo"

"Bueno, para seguir con esto de los retos y hacer que haya mas actividad competitiva y cooperativa (y no tantas dudas ) propongo hacer el reemplazo a la función IsDate con la siguiente firma"



v_v'

bueno yo creo que la funcion debe de tener las misma caracteristicas de la funcion isdate sino no se llamara del todo reemplazo de la funcion y pienso que raul338 dio informacion adicional acerca de la funcion isdate y no creo que no se referia a restricciones o adiciones a nuestra funcion