paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 18:49:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* introduced fmShareDenyNoneFlags on windows because the meaning of fmShareDenyNone is unclear, see also #8898

Browse Source 
git-svn-id: trunk@13514 -
This commit is contained in:
florian 2009-08-10 20:33:20 +00:00
parent 53d60f02b2
commit d34061d7e4
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/win/sysfile.inc
View File

@ -198,8 +198,9 @@ procedure do_open(var f;p:pchar;flags:longint);
when (flags and $10000) there is no check for close (needed for textfiles) when (flags and $10000) there is no check for close (needed for textfiles)
} }
Const Const
file_Share_Read = $00000001; file_Share_Read = $00000001;
file_Share_Write = $00000002; file_Share_Write = $00000002;
file_Share_Delete = $00000004;
Var Var
shflags, shflags,
oflags,cd : longint; oflags,cd : longint;

6
rtl/win/sysutils.pp
View File

@ -48,6 +48,12 @@ Var
Win32MinorVersion, Win32MinorVersion,
Win32BuildNumber : dword; Win32BuildNumber : dword;
Win32CSDVersion : ShortString; // CSD record is 128 bytes only? Win32CSDVersion : ShortString; // CSD record is 128 bytes only?
Const
{ it can be discussed whether fmShareDenyNone means read and write or read, write and delete, see
also http://bugs.freepascal.org/view.php?id=8898, this allows users to configure the used
value
}
fmShareDenyNoneFlags : DWord = 3;
{ Compatibility with Delphi } { Compatibility with Delphi }
function Win32Check(res:boolean):boolean;inline; function Win32Check(res:boolean):boolean;inline;