Delphi. Проверка возможности чтения файла
Простая проверка возможности прочитать файл. //True – файл открыт для чтения. Иначе – False.
function IsFileOkToRead(const aFileName : String; var EMessage:string) : Boolean; var F:TFileStream; begin Result:=false;