如何检测驱动器类型?(200分)

当要知道所选的驱动器属于什么类型时，请看下面的程序
procedure CheckDriver;
var
x:integer;
driverchar;
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;

接受答案了.