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

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

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


當(dāng)要知道所選的驅(qū)動器屬于什么類型時，請看下面的程序
var x:integer;
driver:pchar;
begin
driver:='f:\';
x := GetDriveType(driver);
Case x of
2: Label1.Caption := '該驅(qū)動器是可移動驅(qū)動器';
3: Label1.Caption := '該驅(qū)動器是固定驅(qū)動器';
4: Label1.Caption := '該驅(qū)動器是網(wǎng)絡(luò)驅(qū)動器';
5: Label1.Caption := '該驅(qū)動器是CD-ROM驅(qū)動器';
6: Label1.Caption := '該驅(qū)動器是虛擬驅(qū)動器';
Else Label1.Caption := '該驅(qū)動器無效';
End;
end;