What drive type is ?

Function DriveType ( Drive : String ) : String ;

Var

   i           : word ;

Begin

   i := GetDriveType ( PChar ( LowerCase ( Drive ) ) ) ;

   Case i Of

      0 : result := 'Unknown' ;

      1 : result := 'It doesn''t exist' ;

      DRIVE_REMOVABLE : result := 'Floppy' ;

      DRIVE_FIXED : result := 'Fixed' ;

      DRIVE_REMOTE : result := 'Net unit' ;

      DRIVE_CDROM : result := 'CD-ROM' ;

      DRIVE_RAMDISK : result := 'Ram Drive' ;

   End ;

End ;

            Example :

Caption := DriveType ( 'A:\' ) ;