home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / drives.swg / 0014_EXIST-HD.PAS.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  699 b   |  26 lines
  1. Program CheckForHDExistence;
  2. Uses
  3.   Dos;
  4.  
  5. Function checkdsk(drive:Char):Boolean;
  6. begin
  7.   checkdsk:=disksize(Byte(upcase(drive))-64)>0;
  8. end;
  9.  
  10. begin
  11.    { Doesn't work For Floppies unless a disk is present }
  12.    if checkdsk('A') then Writeln('Valid! A')
  13.    else Writeln('Not Valid A');
  14.    if checkdsk('B') then Writeln('Valid! B')
  15.    else Writeln('Not Valid B');
  16.    if checkdsk('C') then Writeln('Valid! C')
  17.    else Writeln('Not Valid C');
  18.    if checkdsk('D') then Writeln('Valid! D')
  19.    else Writeln('Not Valid D');
  20.    if checkdsk('E') then Writeln('Valid! E')
  21.    else Writeln('Not Valid E');
  22.    if checkdsk('F') then Writeln('Valid! F')
  23.    else Writeln('Not Valid F');
  24. end.
  25.  
  26.