Ampliar informacion de checkres.txt

[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)

[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

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   
 

[cnavarro]

Antonio, no hay nada mejor que llegar en el momento justo
Gracias

[Antonio Linares]