paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 20:59:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed setfattr with volumeid

Browse Source
This commit is contained in:
peter 2003-10-27 15:27:47 +00:00
parent 81e7e0aa7c
commit 52683bba4b
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/win32/dos.pp
View File

@ -896,8 +896,13 @@ end;
procedure setfattr(var f;attr : word);
begin
doserror:=0;
if not(SetFileAttributes(filerec(f).name,attr)) then
{ Fail for setting VolumeId }
if (attr and VolumeID)<>0 then
doserror:=5
else
if SetFileAttributes(filerec(f).name,attr) then
doserror:=0
else
doserror:=getlasterror;
end;
@ -1085,7 +1090,10 @@ begin
end.
{
$Log$
Revision 1.20 2003-09-17 15:06:36 peter
Revision 1.21 2003-10-27 15:27:47 peter
* fixed setfattr with volumeid
Revision 1.20 2003/09/17 15:06:36 peter
* stdcall patch
Revision 1.19 2003/06/10 11:16:15 jonas