home *** CD-ROM | disk | FTP | other *** search
/ PC-X 1998 March / pcx19_9803.iso / PC-XUSER / PC-XUSER.13 / TT / PRBDOSFS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-01-14  |  545 b   |  17 lines
  1. program Proba_DOS_Functions;
  2. uses PCXDOSF, Crt;
  3. var Drv: Byte;
  4. BEGIN
  5.   ClrScr;
  6.   WriteLn;
  7.   WriteLn('PC-X User (c) 1998 bY Bérczi László winchester méret - üres hely');
  8.   for Drv:=3 to GetMaxDriveNumber do
  9.   begin
  10.     WriteLn;
  11.     WriteLn('A "',Chr(Drv+64),'" meghajtón:');
  12.     WriteLn(' Az üres hely: ', DiskFreeSpace(Drv) div (1024*1024), ' MB');
  13.     WriteLn(' Teljes méret: ', DiskTotalSpace(Drv) div (1024*1024), ' MB');
  14.   end;
  15.   WriteLn; Write('Nyomjon meg egy gombot ...');
  16.   repeat until KeyPressed; ReadKey; WriteLn;
  17. END.