TIP: Click on subject to list as thread! ANSI
echo: os2prog
to: Carlos Fernandez Sanz
from: Timo Maier
date: 1996-10-30 09:34:12
subject: Time of last reboot

Hi Carlos!

CFS>     How can I determine the time & date of the last system reboot? 

Uses Os2Base,Crt;

Function UpTime : LongInt;
var UpTime,i,Days,Hours,Mins,Secs,OldSecs : LongInt;
begin
  OldSecs := 61;
  repeat
    DosQuerySysInfo(QSV_MS_COUNT,QSV_MS_COUNT,UpTime,SizeOf(LongInt));
    i    := Round(UpTime / 1000);
    days := i div 86400;
    i := i - Days*86400;
    hours := i div 3600;
    i := i - Hours*3600;
    mins := i div 60;
    i := i - Mins*60;
    Secs := i;
    if Secs  OldSecs then begin
      writeln(Days,' Tage ',Hours,' Stunden ',Mins,' Minuten ',
              Secs,' Sekunden');
      OldSecs := Secs;
    end
    else if not Keypressed then
      DosSleep(32);
  until keypressed;
end;

begin
  UpTime;
end.

Greets ... TAM, Freiburg - Germany
--- timEd/2 1.10+
* Origin: Kommunikation verbindet, Freundschaft vereint (2:2476/830.10)
SEEN-BY: 50/99 270/101 620/243 625/160 711/401 409 410 413 430 808 809 934
SEEN-BY: 711/955 712/407 515 624 628 713/317 800/1
@PATH: 2476/830 800 2433/1400 1200 225 270/101 712/515 711/808 934

SOURCE: echomail via fidonet.ozzmosis.com

Email questions or comments to sysop@ipingthereforeiam.com
All parts of this website painstakingly hand-crafted in the U.S.A.!
IPTIA BBS/MUD/Terminal/Game Server List, © 2025 IPTIA Consulting™.