软驱中是否有软盘?

if disksize(1)=-1 表示软驱A中没有软盘

**********

///检查驱动器中是否有磁盘

function DiskInDrive(const Drive: char): Boolean;

var

 DrvNum: byte;

 EMode: Word;

begin

 result := false;

 DrvNum := ord(Drive);

 if DrvNum >= ord('a') then dec(DrvNum,$20);

 EMode := SetErrorMode(SEM_FAILCRITICALERRORS);

 try

   if DiskSize(DrvNum-$40) <> -1 then result := true

   else messagebeep(0);

 finally

   SetErrorMode(EMode);

 end;

end;