16,748
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.Button1Click(Sender: TObject);
var
Result, //检测结果
i : Integer;
Driver:String; // 驱动器根目录
begin
For i:=65 to 90 do
begin
Driver:=Char(i)+':\';
Result:=GetDriveType(PAnsichar(Driver)); // 检测驱动器类型
Case Result of
Drive_Removable:Memo1.Lines.Add(Driver+' 可移动驱动器');
Drive_Fixed:Memo1.Lines.Add(Driver+' 不可移动驱动器');
Drive_Remote:Memo1.Lines.Add(Driver+' 网络驱动器');
Drive_CDROM:Memo1.Lines.Add(Driver+' CD-ROM驱动器');
Drive_RamDisk:Memo1.Lines.Add(Driver+' 虚拟驱动器');
end;
end;
end;