Как с tFileStream работать с уже открытыми файлами?

[Altera]

Привет всем! Я вот тут программку делаю...
Короче надо прочитать из файла структуру.

function getFileRecord(const name: string): tFileRecord;
var
stream: tFileStream;
begin
   stream := tFileStream.Create(name, fmOpenRead);
   stream.Seek(-sizeOf(result), soEnd);
   stream.ReadBuffer(result, sizeOf(result));
   stream.Free;
end;

Итак, здесь всё нормально. Но если файл уже открыт, какой-то другой программой, то вылазит ошибка типа файл уже заюзан и отвали ты к едрени Фени.

Как мне получить доступ к такому файлу? Вот, например, WinRAR шикарно архивирует уже открытые файлы, плееры тоже открывают, по аське и по скайпу отсылаются. Всё одновременно архивируется, играется, отсылается и посылается, а fmOpenRead-ом не открывается. А чем моя программа хуже?
Как мне быть?

[SERG1980]

Может дело в этой строке
stream.Seek(-sizeOf(result), soEnd);

[KORN]

stream.Seek(-sizeOf(result), soEnd);

ты указывай позицию с которой нужно начинать считывать

[Altera]

Сообщение от KORN

stream.Seek(-sizeOf(result), soEnd);

ты указывай позицию с которой нужно начинать считывать

Мне очень интересно знать, что в этом коде не так?
Или вам всё надо разжёвывать и в рот впихивать?

function getFileRecord(const name: string): tFileRecord; { Функция, которая считывает структуру (record) 
tFileRecord с конца файла. Следовательно result принадлежит в типу tFileRecord; 
Здесь всё до всех дошло?}
var
stream: tFileStream; { Указатель, указывающий на объект tFileStream}
begin
   stream := tFileStream.Create(name, fmOpenRead); {Выделяем память под объект stream. 
Открываем для чтерия файл, путь к которому указан в 
строковой переменной name которая передаётся в функцию 
getFileRecord Вот здесь и происходит ошибка, если файл уже отрыт! }
   stream.Seek(-sizeOf(result), soEnd); {Передвигаем каретку на позицию, значение которой равно 
размеру файла без размера считываемой структуры. Напоминаю, что нажная мнеструктура 
находиться в САМОМ конце файла.}
   stream.ReadBuffer(result, sizeOf(result)); {Считываем структуру}
   stream.Free; {Освобождаём память, выделенную под объект stream}
end;

Ещё есть вопросы???


---------------------------------
Люди, мне нужно программно получить доступ к файлу, который уже кем-то открыт и считать из него данные.
Что не ясно. Ошибка не при считывании возникает, а при открытии stream := tFileStream.Create(name, fmOpenRead);

Мне не надо грохать процесс! Допустим юзер фильм смотрит. D:\movie.avi. Следовательно этот файл используется плеером. А как мне получить к нему доступ, не отключая и не прерывая воспроизведение.
Для особо одарёных: Речь не только в фильме и о файле который на диске D и называтся movie.avi!

[Serge_Bliznykov]

попробуйте так:

stream := TFileStream.Create(name, fmOpenRead  or fmShareDenyNone);

[Altera]

Сообщение от Serge_Bliznykov

попробуйте так:

stream := TFileStream.Create(name, fmOpenRead  or fmShareDenyNone);

Большое спасибо Serge_Bliznykov, можно и просто fmShareDenyNone. respect+
А если ещё и напишешь что все они означают

fmShareCompat = $0000
fmShareExclusive = $0010;
fmShareDenyWrite = $0020;
fmShareDenyRead = $0030
fmShareDenyNone = $0040;

Вообще хорошо будет... ... а хотя и так ясно