查看驱动器时，往往需要知道驱动器是属于什么类型的，才能进行读写操作，具体实现方法请看下面的程序：

　　var x:integer;

driver:pchar;

begin

driver:=f:\;

x := GetDriveType(driver);

Case x of

2: Label1.Caption := 该驱动器是可移动驱动器;

3: Label1.Caption := 该驱动器是固定驱动器;

4: Label1.Caption := 该驱动器是网络驱动器;

5: Label1.Caption := 该驱动器是CD-ROM驱动器;

6: Label1.Caption := 该驱动器是虚拟驱动器;

Else Label1.Caption := 该驱动器无效;

End;

end;