Localize file www.TrSek.com/cover/jojko/infodos.pas{ INFODOS.PAS }
{ Vypise zakladne informacie operacneho systemu DOS }
{ Pocet volnych bytov na disku C }
{ Pocet obsadenych bytov na disku C }
{ Verziu DOSu a aktualny datum cas }
{ }
{ Author: jojko }
{ Datum: 22.07.2007 http://www.trsek.com }
program druhy;
uses dos,crt;
var a,b,c,d,e,f,g,h :word;
begin
clrscr;
writeln('Informacie o systeme: ');
writeln(' ');
writeln(' Pocet volnych bytov na disku:',DiskFree(0));
writeln(' Pocet bytov na disku :',DiskSize(0));
writeln(' Verzia DOSu :',Lo(DosVersion),'.',Hi(DosVersion));
Getdate(a,b,c,d);
writeln(' Aktualny datum :',c,'.',b,'.',a,'');
Gettime(e,f,g,h);
writeln(' Aktualny cas :',e,'.',f,'.',g,'.',h,'');
readkey;
end.