Write basic info about DOS

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Category: KMP (Club of young programmers)

Author: Jojko
Program: Infodos.pas
File exe: Infodos.exe

Write basic info about DOS. Free bytes on disk C. Used bytes on disk C . Version of DOSu, aktual date and time.
{ 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.