Форум: "Основная";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];

Вниз

Сообщение ОС при обращении к недоступному диску   Найти похожие ветки 

← →
saNat ©   (2005-09-14 01:44) [0]

Доброго времени суток (о:

Вот такой вопрос возник. Предположим я обращаюсь к несуществующему диску (A:\, например). При этом использую try...except. При этом ОС выводит сообщение о неготовности диска с вариантами "Продолжить/Повторить/Отменить" и затем обрабатывает секцию except (там мое сообщение о недоступности диска). Как убрать сообщение ОС?

С уважением, ЕВА

---

← →
Fay ©   (2005-09-14 06:56) [1]

SetErrorMode ?

---

← →
saNat ©   (2005-09-21 14:45) [2]

Делаю так:


Unit ConfigUnit;

Interface

Uses
Dialogs,Windows;

Type
TConfig=Record
 Host:String[128];
 Port:Byte;
End;

Function SetConfig(ConfigFilePath:String):Pointer;

Implementation

Function SetConfig(ConfigFilePath:String):Pointer;
Var
 ConfigFile:File of TConfig;
Begin
SetErrorMode(SEM_NOOPENFILEERRORBOX);
Assign(ConfigFile,"A:\demo.demo");
Try
 Reset(ConfigFile);
Except
 MessageDlg("Файл настроек отсутствует",mtError,[mbOk],0);
End;
Result:=Nil;
End;

End.

Сначала выскакивает сообщение "В устройстве нет диска. Вставьте диск в устройство А:" (Кнопки "Отмена","Повторить","Продолжить") и только после этого отрабатывается мое сообщение. Что не так?

---

← →
GanibalLector ©   (2005-09-21 22:11) [3]


var
ConfigFile:File of Byte;
begin
 SetErrorMode(SEM_FAILCRITICALERRORS);
 try
   AssignFile(ConfigFile,"A:\demo.demo");
   Reset(ConfigFile);
   // and other
   CloseFile(ConfigFile);
 except
   MessageDlg("Файл настроек отсутствует",mtError,[mbOk],0);
 end;
end;


---

← →
GanibalLector ©   (2005-09-21 22:12) [4]

P.S. Для проверки запусти не из IDE.

---

← →
saNat ©   (2005-09-22 01:17) [5]

> Fay ©   (14.09.05 06:56) [1]

Спасибо за идею...

> GanibalLector ©   (21.09.05 22:11) [3]
>...
>  SetErrorMode(SEM_FAILCRITICALERRORS);

Правильное решение. Спасибо.

Так как делал я работало "не так" и вне IDE

Еще раз спасибо

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.041 c