方法一:
if DiskSize(1)=-1 then
//1,2,3....分别代表A,B,C...驱动器
showmessage('驱动器A: 未准备好')
else
showmessage('驱动器A: 准备好');
方法二:(查看剩余空间)
function TForm1.isdiskready(drive: char): boolean;
var
d1, d2, d3, d4: longword;
drivepath: array [0..3] of char;
begin
drivepath := 'A:/';
drivepath[0] := drive;
result := getdiskfreespace(drivepath, d1, d2, d3, d4);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if not isdiskready('a') then
showmessage('驱动器A未准备好')
else
showmessage('驱动器A 准备好');
end;