1
{ Source provided for Free Pascal Bug Report 2037 }
2
{ Submitted by "David Hagler" on 2002-07-11 }
3
{ e-mail: david@avimark.net }
9
FILE_FLAG_WRITE_THROUGH = -2147483648;
10
FILE_ATTRIBUTE_NORMAL = 128;
16
anattr := FILE_FLAG_WRITE_THROUGH or FILE_ATTRIBUTE_NORMAL;