检测驱动器类型
2000-01-30 00:00:00·
-·CPCW
查看驱动器时，往往需要知道驱动器是属于什么类型的，才能进行读写操作，具体实现方法请看下面的程序：
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;
|
