blob: a9eb65d1606a29b4eeddeecd292f21da6babcd57 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
{ Source provided for Free Pascal Bug Report 2037 }
{ Submitted by "David Hagler" on 2002-07-11 }
{ e-mail: david@avimark.net }
program tw2037;
{$R-}
const
FILE_FLAG_WRITE_THROUGH = -2147483648;
FILE_ATTRIBUTE_NORMAL = 128;
var
anattr : cardinal;
begin
anattr := FILE_FLAG_WRITE_THROUGH or FILE_ATTRIBUTE_NORMAL;
end.
|
