Delphi编程检测驱动器类型

 

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

　　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;