FiveTech Support Forums

Hola a todos,

¿ Alguien me podría dar un brevisimo ejemplo de una aplicación corriendo como servicio de Windows ?

Gracias anticipadas,

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

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.

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

Gracias a todos,

Voy a probar y documentarme al respecto..... Gracias !

Abrazos,

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,