procedure TForm1.Button1Click(Sender: TObject);
var
ZZ:Char;
n,x:integer;
driver
char;
begin
ZZ:='A';
while ZZ<='Z'do
begin
driver:=PChar(zz+':/');
x := GetDriveType(driver);
Case x of
2: Memo1.Lines.Add(Copy(driver+' ',1,4)+'----该驱动器是可移动驱动器');
3: Memo1.Lines.Add(Copy(driver+' ',1,4)+'----该驱动器是固定驱动器');
4: Memo1.Lines.Add(Copy(driver+' ',1,4)+'----该驱动器是网络驱动器');
5: Memo1.Lines.Add(Copy(driver+' ',1,4)+'----该驱动器是CD-ROM驱动器');
6: Memo1.Lines.Add(Copy(driver+' ',1,4)+'----该驱动器是虚拟驱动器');
else
begin
if not((ZZ='A')or(ZZ='B')) then
exit;
Memo1.Lines.Add(Copy(driver+' ',1,4)+'----该驱动器无效');
end;
end;
zz:=Chr(ord(zz)+1);
end;
end;