Page 1 of 1
Programa Oculto
Posted: Sat Jul 27, 2019 4:58 pm
by 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
Re: Programa Oculto
Posted: Sun Jul 28, 2019 5:01 pm
by AngelSalom
Prueba con
Code: Select all | Expand
#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"
//----------------------------------------------------
Re: Programa Oculto
Posted: Mon Jul 29, 2019 2:57 pm
by 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 ?
Re: Programa Oculto
Posted: Mon Jul 29, 2019 3:15 pm
by karinha
mira en \samples\TESTTRAY.PRG si sirve porfa. Saludos.
Re: Programa Oculto
Posted: Mon Jul 29, 2019 4:13 pm
by servicomver
Muchas Gracias era lo que necesitaba completamente.
Saludos