FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Programa que trabaje como servicio
Posts: 189
Joined: Mon Nov 07, 2005 07:36 PM
Programa que trabaje como servicio
Posted: Thu Aug 03, 2006 09:04 PM

Hola a todos.
Existira alguna forma de dejar un EXE tipo "servicio" en la charola de XP. ?
Cualquier ayuda bien recibida.
Saludos

Julio Gonzalez V.

RANDOM S.A.

SISTEMICA S.A.
Posts: 990
Joined: Wed Oct 19, 2005 02:17 PM
Programa que trabaje como servicio
Posted: Thu Aug 03, 2006 10:05 PM

dbzap,

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

Saludos,

Baxajaun

Posts: 840
Joined: Thu Oct 13, 2005 07:05 PM
Programa que trabaje como servicio
Posted: Fri Aug 04, 2006 01: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.
Posts: 592
Joined: Tue Mar 14, 2006 11:34 PM
Programa que trabaje como servicio
Posted: Fri Aug 04, 2006 03: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
Posts: 592
Joined: Tue Mar 14, 2006 11:34 PM
Programa que trabaje como servicio
Posted: Fri Aug 04, 2006 03: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
Posts: 990
Joined: Wed Oct 19, 2005 02:17 PM
Programa que trabaje como servicio
Posted: Fri Aug 04, 2006 06: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

Posts: 189
Joined: Mon Nov 07, 2005 07:36 PM
Programa que trabaje como servicio
Posted: Fri Aug 04, 2006 05:52 PM

Gracias a todos para su orientacion.
Saludos

Julio Gonzalez V.

RANDOM S.A.

SISTEMICA S.A.
Posts: 990
Joined: Wed Oct 19, 2005 02:17 PM
Programa que trabaje como servicio
Posted: Tue Feb 06, 2007 09: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

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Programa que trabaje como servicio
Posted: Tue Feb 06, 2007 10:56 AM
Publicado por Maurilio en estos foros:
#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
Posts: 990
Joined: Wed Oct 19, 2005 02:17 PM
Programa que trabaje como servicio
Posted: Tue Feb 06, 2007 11:13 AM

Antonio,

tienes raz贸n la opci贸n de b煤squeda est谩 para algo :wink:

Saludos,

Felix

Posts: 654
Joined: Mon May 29, 2006 03:14 PM
Programa que trabaje como servicio
Posted: Sun Dec 09, 2007 01: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

Continue the discussion