Programa que trabaje como servicio

Post Reply
User avatar
dbzap
Posts: 189
Joined: Mon Nov 07, 2005 7:36 pm
Location: Chile
Contact:

Programa que trabaje como servicio

Post by dbzap »

Hola a todos.
Existira alguna forma de dejar un EXE tipo "servicio" en la charola de XP. ?
Cualquier ayuda bien recibida.
Saludos
User avatar
Baxajaun
Posts: 853
Joined: Wed Oct 19, 2005 2:17 pm
Location: Gatika. Bizkaia

Post by Baxajaun »

dbzap,

mira en http://www.fermu.com/content/view/263/2/lang,es/

Saludos,

Baxajaun
R.F.
Posts: 840
Joined: Thu Oct 13, 2005 7:05 pm

Post by R.F. »

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.
User avatar
Raymundo Islas M.
Posts: 590
Joined: Tue Mar 14, 2006 11:34 pm
Location: Acapulco, Gro. MEXICO

Post by Raymundo Islas M. »

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: 590
Joined: Tue Mar 14, 2006 11:34 pm
Location: Acapulco, Gro. MEXICO

Post by Raymundo Islas M. »

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
Baxajaun
Posts: 853
Joined: Wed Oct 19, 2005 2:17 pm
Location: Gatika. Bizkaia

Post by Baxajaun »

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
dbzap
Posts: 189
Joined: Mon Nov 07, 2005 7:36 pm
Location: Chile
Contact:

Post by dbzap »

Gracias a todos para su orientacion.
Saludos
User avatar
Baxajaun
Posts: 853
Joined: Wed Oct 19, 2005 2:17 pm
Location: Gatika. Bizkaia

Post by Baxajaun »

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
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Post by Antonio Linares »

Publicado por Maurilio en estos foros:

Code: Select all

#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
Baxajaun
Posts: 853
Joined: Wed Oct 19, 2005 2:17 pm
Location: Gatika. Bizkaia

Post by Baxajaun »

Antonio,

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

Saludos,

Felix
User avatar
JmGarcia
Posts: 654
Joined: Mon May 29, 2006 3:14 pm
Location: Madrid - ESPAÑA

Post by JmGarcia »

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
Post Reply