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
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Programa Oculto
Prueba con
#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"
//----------------------------------------------------Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4
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 ?
mira en \samples\TESTTRAY.PRG si sirve porfa. Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Muchas Gracias era lo que necesitaba completamente.
Saludos