Fórum Verificar se o disquete está no drive #213717

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;

function DiskInDrive(Drive: Char): Boolean;
  // Disk can be a floppy, CD-ROM,...
var
  ErrorMode: Word;
begin
  { make it upper case }
  if Drive in [´a´..´z´] then Dec(Drive, $20);
  { make sure it´s a letter }
  if not (Drive in [´A´..´Z´]) then
    raise EConvertError.Create(´Not a valid drive ID´);
  { turn off critical errors }
  ErrorMode := SetErrorMode(SEM_FailCriticalErrors);
  try
    { drive 1 = a, 2 = b, 3 = c, etc. }
    if DiskSize(Ord(Drive) - $40) = -1 then
      Result := False
    else
      Result := True;
  finally
    { Restore old error mode }
    SetErrorMode(ErrorMode);
  end;
end;