[Lazarus] tail on windows

[Marc Weustink]

dmitry boyarintsev wrote:
> 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).

Yes, i've to admit that I don't use assign etc. but since it is the case 
for filestreams ans plain winapi, I assumed it would be the case for 
assign too.

Marc