Page 1 of 1

Ampliar informacion de checkres.txt

PostPosted: Sun Aug 03, 2014 11:31 am
by cnavarro
Buenos dias
Podria ser posible que al crear el fichero checkres.txt incluyese en la linea o al principio del volcado el programa.EXE que lo genera?
Por ejemplo
Ahora obtenemos:
03/08/2014 11:29:35: FONT,-1844833697,TWINDOWSUI:SRIGHTUPUI(2271)->MAIN(155)

Y creo que podría ser interesante:
03/08/2014 11:29:35: APLICACION.EXE -- FONT,-1844833697,TWINDOWSUI:SRIGHTUPUI(2271)->MAIN(155)


Re: Ampliar informacion de checkres.txt

PostPosted: Mon Aug 04, 2014 3:34 am
by Antonio Linares
Cristobal,

Añadido para FWH 14.07

Solo hay que cambiar asi esta función en source\function\checkres.prg:

Code: Select all  Expand view
function CheckRes()

   local cInfo := "", n
   
   for n = 1 to Len( aResources )
      if aResources[ n, 2 ] != 0
         cInfo = GetModuleFileName( GetInstance() ) + " -- " + ;
                 aResources[ n, 1 ] + "," + AllTrim( Str( aResources[ n, 2 ] ) ) + ;
                  "," + aResources[ n, 3 ] + CRLF
         LogFile( "checkres.txt", { cInfo } )
      endif
   next  

   LogFile( "checkres.txt", { GetModuleFileName( GetInstance() ) + " -- " + ;
                              Replicate( "=", 100 ) } )   
return nil  
 

Re: Ampliar informacion de checkres.txt

PostPosted: Mon Aug 04, 2014 5:36 pm
by cnavarro
Antonio, no hay nada mejor que llegar en el momento justo :D :D :D
Gracias

Re: Ampliar informacion de checkres.txt

PostPosted: Mon Aug 04, 2014 5:41 pm
by Antonio Linares
;-)