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

[Билли Боб]

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

[IUnknown]

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

uses windows, sysutils;
begin
   OldMode := SetErrorMode (SEM_FAILCRITICALERRORS);
      if FileExists ('a:\test.txt') then writeln ('ok') else writeln ('no');
   SetErrorMode (OldMode);
end.

, должно сработать. По крайней мере, на официальном форуме поддержки Embarcadero давали именно такой рецепт.