| TIP: Click on subject to list as thread! | ANSI |
| echo: | |
|---|---|
| to: | |
| from: | |
| date: | |
| 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™.