Page 1 of 1
Aplicacion como Servicio
Posted: Wed Apr 23, 2008 5:51 pm
by jllinas
Hola a todos,
¿ Alguien me podría dar un brevisimo ejemplo de una aplicación corriendo como servicio de Windows ?
Gracias anticipadas,
Posted: Wed Apr 23, 2008 7:13 pm
by Baxajaun
Hola Julio,
si buscas en los foros encontrarás lo que se ha comentado sobre el tema.
Espero que te pueda ayudar:
http://www.fivetechsoft.com/forums/view ... ht=service
Saludos,
Felix
Posted: Wed Apr 23, 2008 11:43 pm
by AJHM
Hola Julio.
A ver si esto te sirve.
http://www.mediafire.com/?drneiingegy
Puede que tenga errores sintacticos, ya que he intentado resumir el codigo y no lo he probado, pero esta basado en codigo que funciona.
Posted: Thu Apr 24, 2008 3:34 am
by Willi Quintana
Hola, Usa TrayIcon
Funciton Main()
..
...
....
ServiceProcess(1)
..
DEFINE ICON oIcon RESOURCE "ABACKUP"
DEFINE ICON oIcon1 RESOURCE "ABACKUP2"
DEFINE CURSOR oCursor HAND
DEFINE DIALOG oAppW RESOURCE "ABACKUP2" ICON oIcon TITLE "SVBACKUP V1-0"
...
...
...
...
ACTIVATE DIALOG oAppW CENTER ; //
ON INIT (oTray := TTrayIcon():New(oAppW,oIcon,"SVBACKUP",{||oAppW:Show()},{|nRow,nCol|MenuTray(nRow,nCol,oTray)}), ;
oTimBa:=ATimer(oAppW, oTimBa, eConec) ) ;
ON PAINT (If(lYa, (oAppW:Hide(), lYa:=.f.), Nil) ) ;
ON RIGHT CLICK oTray:SetIcon( oIcon1, "Another" ) ;
VALID (lSalir)
..
....
Return(Nil)
//---------------------------------
Function ServiceProcess( mode )
Local nProcessId := 0
Default mode := 0
nProcessId := GCP( )
If Abs( nProcessId ) > 0
RSProcess( nProcessId, mode )
Endif
RETURN Nil
//----------------------------------------------------
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"
Salu2
Posted: Fri Apr 25, 2008 8:58 pm
by jllinas
Gracias a todos,
Voy a probar y documentarme al respecto..... Gracias !
Abrazos,
Posted: Mon Jun 23, 2008 2:18 am
by jllinas
Hola Willy,
EL TrayIcon funciona de perlas, de maravillas, pero....
¿Qué se supone que haga ServiceProcess(1) ?
Parece que registra la aplicacion como servicio, pero no me funciona así...
Gracias anticipadas,