Delphi - доступ к файлам с правами - только чтение #346641

if FileExists(FileNameMD) then    begin      if FileExists(FileNameDBA) then        // это скульная база, тянем параметры        begin          VariantBase := SQL;          // прочитаем файлик :)          s:='';          AssignFile(BinFile, FileNameDBA);          FileMode := 0;          Reset(BinFile,1);

эт что?

собственно все работает если у файла полные права, если у меня права на файл "только чтение" то FileExists(FileNameMD) = False что делать и кто виноват?

чего то не доставлено. Чтение каталога разрешено?

Reset

да чтение каталога есть, кроме того блокнотом я этот файл могу открыть (соответственно записать не могу)

если не указывать FileMode := 0; то на resete будет ошибка, а так должно пахать, кроме того трабла гораздо выше...

эт я ступил... давно просто под дельфином не делал ничего

ППЦ, вам в Паскаль.. Вы про TFileStream слышали? Для воинствущих - WINAPI: CreateFile ReadFile CloseHandle в Windows.pas уже и прототипы для вас заготовили..

whith TFileStream.Create(FileNameDBA, fmOpenRead or fmShareDenyNone) do

все оказалось намного проще )))  FileMode := 0;  if FileExists(FileNameMD) then для осознания такого простого решения пролазил кучу модулей )))