Delphi编程检测驱动器类型

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

var x:integer;

driver:pchar;

begin

driver:=f:\;

x := GetDriveType(driver);

Case x of

: LabelCaption := 该驱动器是可移动驱动器;

: LabelCaption := 该驱动器是固定驱动器;

: LabelCaption := 该驱动器是网络驱动器;

: LabelCaption := 该驱动器是CDROM驱动器;

: LabelCaption := 该驱动器是虚拟驱动器;

Else LabelCaption := 该驱动器无效;

End;

end;