win_ReportEvent. Guardar eventos en el sistema de Windows.

 Guardar eventos en el sistema de Windows.

 
Mi buen amigo Jose Luis Capel, me preguntó si Harbour es capaz de guardar en el sistema de eventos.

Pues mira tu por donde, en el directorio contrib/hbwin/test/eventlog.prg tienes la clave ;-)

#require "hbwin"

PROCEDURE Main()

   ? win_ReportEvent( NIL, "Application", WIN_EVENTLOG_SUCCESS, 0, 0, "hello" )
   ? win_ReportEvent( NIL, "Application", WIN_EVENTLOG_SUCCESS, 0, 0, { "hello", "world" } )

   RETURN

Paso pantallazo donde consultarlo y la ultima puedes ver el hello world.