检测驱动器类型 (2000年8月16日).txt

来自「自己对DELPHI学习的一点体会」· 文本 代码 · 共 26 行

检测驱动器类型 (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;