Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Free Pascal, Pascal ABC и другие _ Функция FileExists.

Автор: Билли Боб 3.09.2011 4:38

При использовании данной функции с приводом, в котором нету диска, выходит ошибка windows о том, что отсутствует диск. Как сделать, чтобы это окно не выходило?

Автор: Lapp 3.09.2011 5:59

Цитата(Билли Боб @ 3.09.2011 1:38) *
При использовании данной функции с приводом, в котором нету диска, выходит ошибка windows о том, что отсутствует диск. Как сделать, чтобы это окно не выходило?

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

uses
  Windows;

const
  DriveNameLen= 4;
  VolumeNameLen= 12;
  FileSysNameLen= 128;

var
  Drive: string[DriveNameLen];
  VolumeName: string[VolumeNameLen];
  SerialNumber, MaxFileNameLen, FileSysFlags: DWord;
  FileSysName: string[FileSysNameLen];

begin
  Drive:= 'C:\'+#0;
   // можно использовать, чтобы убедиться, что этот драйв - CDROM:
  WriteLn('is the drive CDROM? ',GetDriveType(@Drive[1])=DRIVE_CDROM);
  // теперь определяем, есть ли в нем диск (и много еще чего))
  WriteLn('Is there disk in it? ',
    GetVolumeInformation(
      @Drive[1],
      @VolumeName[1], VolumeNameLen,
      @SerialNumber,
      MaxFileNameLen,
      FileSysFlags,
      @FileSysName[1], FileSysNameLen
    )
  );
  readln
end.

Автор: IUnknown 3.09.2011 14:35

Чтобы не спускаться на такой низкий уровень, можно просто отключить показ критических сообщений системы перед вызовом FileExists, а потом - восстановить прежний режим:

uses windows, sysutils;
begin
   OldMode := SetErrorMode (SEM_FAILCRITICALERRORS);
      if FileExists ('a:\test.txt') then writeln ('ok') else writeln ('no');
   SetErrorMode (OldMode);
end.
, должно сработать. По крайней мере, на официальном форуме поддержки Embarcadero давали именно такой рецепт.

Автор: Билли Боб 4.09.2011 1:01

Вот! отключить показ, то, что надо, спасибо!

Автор: TarasBer 5.09.2011 13:00

> Drive:= 'C:\'+#0;

Дельфа сама всем строкам ноль дорисовывает, не надо это делать руками.

Автор: Lapp 6.09.2011 8:02

Цитата(TarasBer @ 5.09.2011 10:00) *
> Drive:= 'C:\'+#0;

Дельфа сама всем строкам ноль дорисовывает, не надо это делать руками.

Я не знаю, почему ты говоришь тут (в разделе про 32-битные компиляторы) про Delphi. Для Delphi есть свой раздел.
FPC так не прикалывается (специально проверил)).

Если уж зашла речь про Delphi - немного странно мне, если она правда так поступает. Надеюсь, это отключается.

Автор: IUnknown 6.09.2011 12:52

[offtop]

Цитата
Дельфа сама всем строкам ноль дорисовывает, не надо это делать руками.
Неправда:
Прикрепленное изображение
Где #0 в Drive[4]? (Настройки проекта - стандартные, ничего специфического не менял)
[/offtop]

Автор: TarasBer 6.09.2011 13:13

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

Автор: propecia online pharmacy new yor 9.09.2021 5:00

Viagra For Sale In Canada

Автор: can you buy prednisone over the 9.10.2021 7:08

Acheter Kamagra Ligne

Автор: furosemide nursing consideration 10.11.2021 2:14

Cialis In Der Apotheke Kaufen

Автор: where to buy prednisone for dogs 15.11.2021 15:17

Site De Vente De Cialis

Автор: generic valtrex overnight delive 5.12.2021 18:47

Viagra Prescription Medicale