home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / JDTPPROG.ZIP / GETTIME.SRC < prev    next >
Encoding:
Text File  |  1985-08-18  |  1.2 KB  |  35 lines
  1. {->>>>GetTime<<<<----------------------------------------------}
  2. { This routine returns the current system time through DOS     }
  3. { call $2C.  It requires a prior definition of type TimeRec:   }
  4. {                                                              }
  5. {     TimeRec = Record                                         }
  6. {                 DayOfWeek,                                   }
  7. {                 Hours,Minutes,Seconds,Hundredths : Integer   }
  8. {               End;                                           }
  9. {--------------------------------------------------------------}
  10.  
  11. Procedure GetTime(Var TimeNow : TimeRec);
  12.  
  13. Type Reg     = Record
  14.                  Case Boolean of
  15.                    True : (Word : Integer);
  16.                    False: (LoByte : Byte;
  17.                            HiByte : Byte)
  18.                End;
  19.  
  20.      RegPack = Record
  21.                  AX,BX,CX,DX,BP,SI,DI,DS,ES,FLAGS : Reg
  22.                End;
  23.  
  24. Var Regs : RegPack;
  25.  
  26. Begin
  27.   Regs.AX.HiByte := $2C; MSDOS(Regs);
  28.   With TimeNow Do
  29.     Begin
  30.       Hours := Regs.CX.HiByte; Minutes := Regs.CX.LoByte;
  31.       Seconds := Regs.DX.HiByte; Hundredths := Regs.DX.LoByte;
  32.       DayOfWeek := Regs.AX.LoByte
  33.     End
  34. End;
  35.