W C++ piszę coś takiego:
ofstream file(FileName,ios::binary);
while(!Terminated)
{
...
file.write(&Data,sizeof(Data));
}
Podczas kiedy program wciąż pisze do pliku to mogę innym programem otworzyć ten sam plik tylko do odczytu i to mi się podoba.
W Delphi próbuje bezskutecznie osiągnąć ten sam efekt:
File:=TFileStream.Create(FileName,fmCreate or fmShareDenyWrite);
while not Terminated do
begin
...
File.Write(Data,SizeOf(Data));
end;
W innym programie NIE mogę otworzyć pliku tylko do odczytu. Bez fmShareDenyWrite ten sam efekt.
Jak mam w Delphi otworzyć plik aby pozwolić innym programom na odczyt tego pliku?