Programa que trabaje como servicio

Programa que trabaje como servicio

Postby dbzap » Thu Aug 03, 2006 9:04 pm

Hola a todos.
Existira alguna forma de dejar un EXE tipo "servicio" en la charola de XP. ?
Cualquier ayuda bien recibida.
Saludos
User avatar
dbzap
 
Posts: 189
Joined: Mon Nov 07, 2005 7:36 pm
Location: Chile

Postby Baxajaun » Thu Aug 03, 2006 10:05 pm

User avatar
Baxajaun
 
Posts: 968
Joined: Wed Oct 19, 2005 2:17 pm
Location: Gatika. Bizkaia

Postby R.F. » Fri Aug 04, 2006 1:51 am

Ostras Felix, justo hoy estaba por ponerme con eso, me ha venido como anillo al dedo. ¿ que tal esta Gorka ? hace un monton que no se sabe nada de ti
Saludos
R.F.
R.F.
 
Posts: 840
Joined: Thu Oct 13, 2005 7:05 pm

Postby Raymundo Islas M. » Fri Aug 04, 2006 3:34 am

Hola a todos

Aqui les dejo un link para bajar un archivo que explica todas y cada una de las formas para ejecutar una app, esta muy interesante.


http://hyperupload.com/download/02bb8dc ... !.htm.html


Es una documentacion por parte de Darío Hernán Irigaray que tenia por ahi :lol:

Espero les sirva, ( estoy casi seguro que asi sera )

Saludos
FWH 10.6 + xHarbour + Borland 582
User avatar
Raymundo Islas M.
 
Posts: 592
Joined: Tue Mar 14, 2006 11:34 pm
Location: Acapulco, Gro. MEXICO

Postby Raymundo Islas M. » Fri Aug 04, 2006 3:42 am

Sobese !!! no sirve el link !!! :shock:

Quizas por que estaba o muy largo el nombre o por que era una pagina html, ya lo pase a texto y aqui esta el nuevo link ..


http://hyperupload.com/download/029d9e2 ... p.txt.html


sorry, fue sin querer queriendo 8)


Saludos
FWH 10.6 + xHarbour + Borland 582
User avatar
Raymundo Islas M.
 
Posts: 592
Joined: Tue Mar 14, 2006 11:34 pm
Location: Acapulco, Gro. MEXICO

Postby Baxajaun » Fri Aug 04, 2006 6:10 am

Hola Rene,

como puedes ver sobrevivo :wink: , ahora con Gorka (ya 7 años) y Sara (3 añitos el 29 de este mes). Intentando huir del mundanal ruido :D .

Un abrazo,

Felix
User avatar
Baxajaun
 
Posts: 968
Joined: Wed Oct 19, 2005 2:17 pm
Location: Gatika. Bizkaia

Postby dbzap » Fri Aug 04, 2006 5:52 pm

Gracias a todos para su orientacion.
Saludos
User avatar
dbzap
 
Posts: 189
Joined: Mon Nov 07, 2005 7:36 pm
Location: Chile

Postby Baxajaun » Tue Feb 06, 2007 9:14 am

Buenas,

de http://www.tacktech.com/display.cfm?ttid=197 os podéis descargar las aplicaciones INSTSRV.EXE y SRVANY.EXE del kit de recursos, necesarias para poder ejecutar una aplicación como servicio.

Saludos,

Félix
User avatar
Baxajaun
 
Posts: 968
Joined: Wed Oct 19, 2005 2:17 pm
Location: Gatika. Bizkaia

Postby Antonio Linares » Tue Feb 06, 2007 10:56 am

Publicado por Maurilio en estos foros:
Code: Select all  Expand view  RUN
#include "FiveWin.ch"
//-------------------------
Function Main()
//-------------------------

ServiceProcess(1)

---- Tu codigo aqui


Return NIL


//------------------------------
Function ServiceProcess( mode )
//------------------------------
Local nProcessId := 0

Default mode := 0

nProcessId := GCP( )

If Abs( nProcessId ) > 0
    RSProcess( nProcessId, mode )

Endif

RETURN

//----------------------------------------------------
DLL32 FUNCTION RSProcess(npID  AS LONG ,;
                         nMode AS LONG ) AS LONG ;
      FROM "RegisterServiceProcess" LIB "kernel32.DLL"
//----------------------------------------------------

//----------------------------------------------------
DLL32 FUNCTION GCP() AS LONG;
      FROM "GetCurrentProcessId" LIB "kernel32.dll"
//----------------------------------------------------

Que la opción de búsqueda en estos foros está para algo... :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42159
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Baxajaun » Tue Feb 06, 2007 11:13 am

Antonio,

tienes razón la opción de búsqueda está para algo :wink:

Saludos,

Felix
User avatar
Baxajaun
 
Posts: 968
Joined: Wed Oct 19, 2005 2:17 pm
Location: Gatika. Bizkaia

Postby JmGarcia » Sun Dec 09, 2007 1:21 pm

Y digo yo...

Puedo manejar el envio de correos desde un programa ejecutado como servicio y sin estar logeado nadie.
Mi abuelo decía: Los aviones vuelan porque Dios quiere, y los helicópteros ni Dios sabe porque vuelan.
FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
User avatar
JmGarcia
 
Posts: 654
Joined: Mon May 29, 2006 3:14 pm
Location: Madrid - ESPAÑA


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 11 guests