Как узнать, находится ли дискета в дисководе?

Code:

case RetCode of

0: Result := DS_DISK_WITH_FILES;

-18: Result := DS_EMPTY_DISK;

else

   Result := DS_NO_DISK;

end;

Code:

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;