Programa Oculto

[servicomver]

Hola, como puedo hacer para que un programa al ejecutarse se vaya directamente a la barra de tares pero en la seccion de notificiones ? o sea en la parte derecha de la barra de tareas que tiene un icono de una Flecha hacia arriba

[AngelSalom]

Prueba con

Code: Select all  Expand view

#include "fivewin.ch"

Function Main()
  ServiceProcess(1)
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"
//----------------------------------------------------
 

[servicomver]

Hola, Gracias por contestar, No he podido hacer que el programa se vaya a notificaciones

**************************************************************************************
Function Main()
Local oWnd

Set resources to "C:\Format32\FORMAT32.dll"
Set Date British
Set Delete On
Set Epoch to 1956
Set Century On
SET DECIMALS TO 2

hWnd := FindWindow( 0, "Finder 1.0")

IF hWnd != 0
ShowWindow( hWnd, 1 )
MsgAlert("Ya esta corriendo la aplicacion","Advertencia")
QUIT
ENDIF

PRINTER oPrn to "CFDPRINTER"

DEFINE WINDOW oWnd FROM 1, 1 TO 10, 30 ;
TITLE "Finder 1.0" ;
COLOR "B/W" ICON oIco NOMAXIMIZE

DEFINE TIMER oTmr INTERVAL 2000 ACTION CheckSls(oLbx,oPrn) OF oWnd

ACTIVATE TIMER oTmr

DEFINE MESSAGE OF oWnd PROMPT "" NOINSET CENTERED KEYBOARD DATE CLOCK
ACTIVATE WINDOW oWnd VALID MsgYesNo( HB_OemtoAnsi("¨ Salir del Programa ?") ,HB_OemtoAnsi("Seleccione opci¢n"))

Return nil

******Este programa llama a CheckSls quien checa un archivo para revisar cambios, pero necesito que se vaya a notificaciones, como lo puedo hacer ?

[karinha]

mira en \samples\TESTTRAY.PRG si sirve porfa. Saludos.

[servicomver]

Muchas Gracias era lo que necesitaba completamente.

Saludos