Hola a todos.
Existira alguna forma de dejar un EXE tipo "servicio" en la charola de XP. ?
Cualquier ayuda bien recibida.
Saludos
#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"
//----------------------------------------------------
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 11 guests