home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / vp21beta.zip / LEXMPSRC.RAR / DISK.PAS < prev    next >
Pascal/Delphi Source File  |  2000-08-15  |  744b  |  21 lines
  1. {█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█}
  2. {█                                                       █}
  3. {█      Virtual Pascal for Linux                         █}
  4. {█      Test example for disk functions                  █}
  5. {█      ─────────────────────────────────────────────────█}
  6. {█      Copyright (C) 1999 Joerg Pleumann                █}
  7. {█                                                       █}
  8. {▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀}
  9.  
  10. program Disk;
  11.  
  12. uses
  13.   Dos, VpSysLow;
  14.  
  15. begin
  16.   WriteLn('DiskSize:        ', DiskSize(0));
  17.   WriteLn('DiskFree:        ', DiskFree(0));
  18.   WriteLn('SysDiskSizeLong: ', SysDiskSizeLong(0));
  19.   WriteLn('SysDiskFreeLong: ', SysDiskFreeLong(0));
  20. end.
  21.