Serviço para Windows

[Rodrigo Pavan]

E ae pessoa, alguem sabe como eu faço para criar um serviço no windows?


[]s!!

[Antonio Linares]

Publicado por Maurilio en estos foros:

Code: Select all  Expand view

#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"
//----------------------------------------------------


[leonardoinacio]

Antonio,

E como faço para carregá-lo com o Windows ?
Mesmo que o usuário não faça login.

Obrigado