DateBuff     db      11  dup(?)
TimeBuff     db      12  dup(?)

DatePict     db      "MM'-'dd'-'yyyy",0    ; = 06-18-2001
TimePict     db      "hh':'mm':'ss tt",0   ; = 08:37:19 AM

      INVOKE     GetDateFormat, NULL, NULL, NULL, addr DatePict,\
                 addr DateBuff, 11
      INVOKE     SetWindowText, hWnd, addr DateBuff

      INVOKE     GetTimeFormat, NULL, TIME_FORCE24HOURFORMAT, NULL,\
                 addr TimePict, addr TimeBuff, 12

;----------------------------   OR  ----------------------------
      INVOKE     GetTimeFormat, NULL, NULL, NULL, addr TimePict,\
                 addr TimeBuff, 12

      INVOKE     SetWindowText, hWnd, addr TimeBuff
