Drives - ver se tem disco

Top  Previous  Next

Funcao para saber se o disco está no Drive:

===========================================

 

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

  Result := DiskSize(DrvNum-$40) <> -1;

  finally SetErrorMode(EMode);

 end;

end;