"Мадорский Г.В." ...
>
> >
> > А как называется ф-ция, которой файлы "открываются" ?
> >
> > Я бы вставил вызов этой ф-ции перед LoadFromFile(),
> > с теми же пар-рами, есс-но, и посмотрел бы на GetLastError
> >
> Надо будет попробовать. Вообще-то там TFileStream создается, а потом
constructor TFileStream.Create(const FileName: string; Mode: Word; Rights:
Cardinal);
...
inherited Create(FileOpen(FileName, Mode));
...
function FileOpen(const FileName: string; Mode: LongWord): Integer;
{$IFDEF MSWINDOWS}
...
Result := Integer(CreateFile(PChar(FileName), AccessMode[Mode and 3],
И выведи (в лог\на экран) с результатом GetLastError имя файла,
которое попадает в ф-цию, тоже. Возможно тут-то ты и удивишься :)
--
Хорсун Влад
--~--~---------~--~----~------------~-------~--~----~
-~----------~----~----~----~------~----~------~--~---
