1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

function DiskInDrive(Drive: Char): Boolean;
var
  ErrorMode: Word;
begin
  Result := False;

  Drive := UpCase (Drive);
  if not (Drive in ['A'..'Z']) then
    raise EConvertError.Create ('Disc-ID not allowed!');

  ErrorMode := SetErrorMode (SEM_FailCriticalErrors or SEM_NOOPENFILEERRORBOX);

  try
    Result := DiskSize(Ord(Drive) - $40) = -1;
  finally
    SetErrorMode(ErrorMode);
  end;
end;