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;

From:http://tw.wingwit.com/Article/program/Delphi/201311/24704.html