[Delphi] Jak sprawdzić przed zapisem czy jest dyskietka w

0

Jak sprawdzić przed zapisem czy jest dyskietka w napędzie, żeby nie pojawiał się błąd podczas zapisu gdy takowej brakuje [cya] ?
pozdrawiam
Piotr

0

{I$-}
Chdir('A:\');
if IOError0 then dyskjest:=true else dyskjest:=false;
{I$+}

0

IOErrors nie ma.
Wpisałem IOResult i działa ale tylko za pierwszym razem. Gdy nie ma dyskietki na początku jest OK, rzucam komunikat na ekran o braku dyskietki. Wkładam dystkietkę następnie coś nagrywam. I teraz gdy wyciągnę dyskietkę to powinien znowu domagać się dyskietki a on od razu przechodzi do nagrywania i pokazuje błędy.

{$I+}
Chdir('A:\');
if IOResult=0 then
zapisz
else
Brak dyskietki

Co jest nie tak?

0

ejjjj....
{$I-} wyłącza kontrolę błędów
{$I+} włącza kontrolę błędów

Ty masz na początku {$I+}!

--
;) Szymek

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0