Функция FileExists. Опции

[Билли Боб]

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

[Lapp]

При использовании данной функции с приводом, в котором нету диска, выходит ошибка 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.