判断软驱中是否有软盘

方法一：

  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;