[Back to DRIVES SWAG index] [Back to Main SWAG index] [Original]

    {
    ROB GREEN

    > do any of you guys know how to figure out which drive is the last drive
    > on someone's system?  I was think of making a drive With Dos's
    }

    Uses
      Dos;

    Function driveexist(ch : Char) : Boolean;
    begin
      DriveExist := disksize(ord(upcase(ch)) - 64) <> - 1;
    end;

    { Kerry Sokalsky }

    Const
      exist : Boolean  = True;
      ch    : Integer  = 67;   { 'C' - Skip floppy Drives (A&B) }
      lastdrive : Char = ' ';

    begin
      While LastDrive = ' ' do
      begin
        if driveexist(Chr(ch)) then
          Inc(Ch)
        else
          LastDrive := Chr(Ch - 1);
      end;

      Writeln(LastDrive);
    end.

[Back to DRIVES SWAG index] [Back to Main SWAG index] [Original]