VPF::Проблема при обращении к сидирому

PIF

Дата 23.8.2005, 18:39 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 68
Регистрация: 27.1.2005

Репутация: нет
Всего: нет

Здравствуйте! У меня такая проблемма:при загрузке моя программа обращается к сидирому, и опознает там нужный ей для работы диск, но если диска вообще нет в сидироме, то вылетает ошибка и попосле этого программа продолжает работать.Как мне перехватить данную ошибку, и сделать так чтобы программа в этом случае не запускалась.
Заранее благодарен!!!

s-mike

Дата 23.8.2005, 19:18 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 425
Регистрация: 16.1.2005
Где: Киев

Репутация: 9
Всего: 16

Показал бы как проверяешь диск.

--------------------

Преферанс для Android на базе исходников Марьяжа

Illusion Dolphin

Дата 23.8.2005, 19:18 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63

Попробуй это:

Код


...
var
oldMode: Cardinal;
...
begin
...
oldMode:= SetErrorMode(SEM_FAILCRITICALERRORS);
// работаем с CD-ROM
SetErrorMode(oldMode);
...

Код позволит избежать появления окна с ошибкой что нет диска в дисководе. Чтобы прога определяла что нет диска в сидироме можно юзать функцию:

Код


  type
  TDriveState =(DS_NO_DISK, DS_UNFORMATTED_DISK, DS_EMPTY_DISK,
    DS_DISK_WITH_FILES);
...
function DriveState(driveletter: Char): TDriveState;
var
  mask: string[6];
  sRec: TSearchRec;
  oldMode: Cardinal;
  retcode: Integer;
begin
  oldMode:= SetErrorMode(SEM_FAILCRITICALERRORS);
  mask := '?:\*.*';
  mask[1] := driveletter;
{$I-} { не возбуждаем исключение при неудаче }
  retcode := FindFirst(mask, faAnyfile, SRec);
  FindClose(SRec);
{$I+}
  case retcode of
    0: Result := DS_DISK_WITH_FILES; { обнаружен по крайней мере один файл }
    -18: Result := DS_EMPTY_DISK; { никаких файлов не обнаружено, но ok }
    -21: Result := DS_NO_DISK; { DOS ERROR_NOT_READY }
  else
    Result := DS_UNFORMATTED_DISK; { в моей системе значение равно -1785!}
  end;
  SetErrorMode(oldMode);
end;

Это сообщение отредактировал(а) Illusion Dolphin - 23.8.2005, 19:24

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »