home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 31 / CDASC_31_1996_juillet_aout.iso / internet / rnr214.zip / RNRTIME.PAS < prev    next >
Pascal/Delphi Source File  |  1995-01-07  |  500b  |  49 lines
  1. unit rnrtime;
  2.  
  3. {
  4.  
  5. rnrtime.pas - timeout for rnr
  6.  
  7. }
  8.  
  9. {$I rnr-def.pas}
  10.  
  11. interface
  12.  
  13. {$ifdef timeout}
  14.  
  15. uses dos;
  16.  
  17. var minlastinput: integer;
  18. function mitoday: integer; {minutes into today}
  19.  
  20. {$endif}
  21.  
  22. procedure resetidle;
  23.  
  24. implementation
  25.  
  26. {$ifdef timeout}
  27.  
  28. function mitoday;
  29.  
  30. var
  31.   h,m,s,s00: word;
  32.  
  33. begin
  34.   gettime(h,m,s,s00);
  35.   mitoday := 60*h+m;
  36. end;
  37.  
  38. {$endif}
  39.  
  40. procedure resetidle;
  41.  
  42. begin
  43. {$ifdef timeout}
  44.   minlastinput := mitoday;
  45. {$endif}
  46. end;
  47.  
  48. end.
  49.