檢測驅動器類型 (2000年8月16日) 

本站更新  分類:   作者:srw  推薦:   閱讀次數:513  
(http://www.codesky.net)  

--------------------------------------------------------------------------------


當要知道所選的驅動器屬于什么類型時，請看下面的程序
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;