🚀 go-pugleaf

>Jak mog� sprawdzi�, czy w stacji dyskietek jest dyskietka

function DiskInDrive(Drive: Char): Boolean;
var
  ErrorMode: Word;
begin
  Result := False;
  Drive := UpCase(Drive);
  if not (Drive in ['A'..'Z']) then
    Exit;
  ErrorMode := SetErrorMode (SEM_FailCriticalErrors);
  try
    Application.ProcessMessages;
    if DiskSize(Ord(Drive) - Ord('A') + 1) <> -1 then
      Result := True
  finally
    SetErrorMode(ErrorMode);
    Application.ProcessMessages;
  end;
end;