FAQ » Sprzęt

Jak sprawdzić, czy dyskietka znajduje się w stacji

Zasada jest prosta. Spróbujemy coś na dyskietce zapisać. Jeżeli się uda to znaczy, że dyskietka jest w dstacji.

var
  TF: TextFile;
begin
  AssignFile(TF, 'A:plik.txt');
  try
    ReWrite(TF);
    ShowMessage('Jest dyskietka');
    DeleteFile('A:plik.txt');
  except
    raise Exception.Create('Brak dyskietki w stacjii');
  end;
end;

1 komentarz

Spider_ 2004-01-10 22:19

Puste to naprawde, to również można by sprawdzać na takiej zasadzie czy istnieje plik na dysku :|