home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / NEWS / 554 / JUIN / BOOTVARS.PAS < prev    next >
Pascal/Delphi Source File  |  1993-10-07  |  1KB  |  57 lines
  1. {─ Fido Pascal Conference ────────────────────────────────────────────── PASCAL ─
  2. Msg  : 314 of 319
  3. From : Steve Mulligan                      1:163/307.30         23 Jun 93  10:26
  4. To   : Edward Walker                       1:163/307.30
  5. Subj : TSRs that write to disk....
  6. ────────────────────────────────────────────────────────────────────────────────
  7. =-=-=-=-=-=-=-=-= PART 3 =-=-=-=-=-=-=-=-=-=}
  8. unit BootVars;
  9.  
  10. interface
  11.  
  12. uses Dos;
  13.  
  14. const
  15.  Version  = '1.00';
  16.  ProgName = 'BootLog';
  17.         CopYear  = '1992 - 1993';
  18.  
  19. type
  20.  LogType = record
  21.   TimeLoad : DateTime;
  22.   TimeOff : DateTime;
  23.  end;
  24.  
  25. var
  26.  LogFile    : file of LogType;
  27.  LogRec    : LogType;
  28.  h, m, s, hund  : word;
  29.  TimeLoad, TimeOff : DateTime;
  30.  LogName    : string;
  31.  
  32. procedure DoDate;
  33. procedure DoDate2;
  34.  
  35. implementation
  36.  
  37. procedure DoDate;
  38. begin
  39.  LogRec.TimeLoad.Year  := TimeLoad.Year;
  40.  LogRec.TimeLoad.Month := TimeLoad.Month;
  41.  LogRec.TimeLoad.Day   := TimeLoad.Day;
  42.  LogRec.TimeLoad.Hour  := TimeLoad.Hour;
  43.  LogRec.TimeLoad.Min   := TimeLoad.Min;
  44.  LogRec.TimeLoad.Sec   := TimeLoad.Sec;
  45. end;
  46.  
  47. procedure DoDate2;
  48. begin
  49.  LogRec.TimeOff.Year   := TimeLoad.Year;
  50.  LogRec.TimeOff.Month  := TimeLoad.Month;
  51.  LogRec.TimeOff.Day    := TimeLoad.Day;
  52.  LogRec.TimeOff.Hour   := TimeLoad.Hour;
  53.  LogRec.TimeOff.Min    := TimeLoad.Min;
  54.  LogRec.TimeOff.Sec    := TimeLoad.Sec;
  55. end;
  56.  
  57. end.