Delphi programming detection driver type

When viewing a drive, you often need to know the type of the drive to perform read/write operations. For the specific implementation method, see the following program:

VaR X: integer;
Driver: pchar;
Begin
Driver: = f :\;
X: = getdrivetype (driver );
Case X
2: label1.caption: = the drive is a removable drive;
3: label1.caption: = the drive is a fixed drive;
4: label1.caption: = the drive is a network drive;
5: label1.caption: = the drive is a CD-ROM drive;
6: label1.caption: = the drive is a virtual drive;
Else label1.caption: = the drive is invalid;
End;
End;