[Lazarus] tail on windows

[dmitry boyarintsev]

On Mon, Jul 19, 2010 at 4:23 AM, Marc Weustink <marc at dommelstein.net> wrote:
> You need to make sure a file exists. IIRC it is not possible to create a
> file for sharing, you can only open a file sharable

It's possible. at least the following example did work on Windows.

begin
  filemode:=fmShareDenyNone;
  assign(f, 'c:\test.txt'); rewrite(f);
  writeln(f,'test');
  writeln('press enter to unlock file');
  readln;
  close(f);
end.

The newly created c:\test.txt was sharable.

AFAIK, it's "impossible" for TFileStream using fmCreate flag. fmCreate
flag causes a file to be re-created without sharing (at Windows).

thanks,
dmitry