查看驅動器時,往往需要知道驅動器是屬於什麼類型的,才能進行讀寫操作,具體實現方法請看下面的程序:
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;