Vypíše základné informácie operačného systému DOS
Delphi & Pascal (česká wiki)
Kategorija: KMP (Programy mladňakoch
Zrobil: Jojko
Program: Infodos.pas
Subor exe: Infodos.exe
Zrobil: Jojko
Program: Infodos.pas
Subor exe: Infodos.exe
Vypíše základné informácie operačného systému DOS. Počet voľných bytov na disku C. Počet obsadených bytov na disku C. Verziu DOSu a aktuálny dátum čas.
{ 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.