Как определить находится ли диск в системе?

[dolphin705]

Вобщем такой трабл, мне надо скопировать файл на диск, и записать его, я определяю с помощью функции IsDriveReady в системе ли диск, с дисководом эта функция прокатывает, а вот с картридером нет, та когда флешка не вставлена всеравно показывает как будто диск вставлен

вот код функции

function IsDriveReady(DriveLetter : char) : bool;
var
OldErrorMode : Word;
OldDirectory : string;
begin
OldErrorMode := SetErrorMode(SEM_NOOPENFILEERRORBOX);
GetDir(0, OldDirectory);
{$I-}
ChDir(DriveLetter + ':\');
{$I+}
if IoResult > 0 then
Result := False
else
Result := True;
ChDir(OldDirectory);
SetErrorMode(OldErrorMode);
end;

пробовал {$I-} на весь код, не помогло!
пробовал

try ... except exit

не помогает

[uberchel]

Всё прекрасно работает ! Вы, как используйте(подкл) эту функцию ?

[dolphin705]

так

if IsDriveReady('D') = True then ...

[uberchel]

Не знай, я также и у меня все нарм опредиляет, может с материнкай чето не так или винда глючит?

[dolphin705]

Да у мя тоже, только карт ридер не определяет, что там диска нет!

Ну что кто нибудь поможет или нет???

В дисках G и H определяет что нет устроуства, а вот в i пишет ошбки при выполнении кода!

[Stilet]

А если попробовать

if DirectoryExists(DriveLetter + ':\') then //

[dolphin705]

Спасибо, так работает!