Czy dyskietka jest w stacji a błędy w XP...

Jak sprawdzić, czy dyskietka lub cd jest w stacji?
Widziałem już wiele rozwiązań, ale każde wywala błąd w XP:

Brak dysku... W stacji nie ma dysku... Anuluj,Ponów próbę...

Oczywiście nie działa ani

try..except

ani

Application.OnException:=...

Jak nie wywalić błędu?

Dzięki z góry [browar]
Cimak [cya]

Hm.. znalazłem w przecudownych, tajemniczych i głębokich czeluściach 4programmers taki oto kodzik Adama:

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;

Praktyczne? To już sam byś musiał ocenić :)

[rotfl] I tak wywala błędy....
A poza tym:

1. Dyskietka może być zabezpieczona przed zapisem...
2. Tą procedurą nie sprawdzę CD...

;-(

:> O CD nie wspominałeś w poście powyższym :P BTW. mówiłem, że nie konieczne "praktyczne" to odpowiednie określenie tego kodu ;)

Jak sprawdzić, czy dyskietka lub cd jest w stacji?(...)

To raz :P
Dwa: O cd bylo gdzies, niedawno nawet (do trzech tygodni wstecz :P)

//Cimak: to jeszcze nie to...

Było...:

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

Ale to też nie działa....