paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 05:09:49 +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); procedure setfattr(var f;attr : word);
begin begin
doserror:=0; { Fail for setting VolumeId }
if not(SetFileAttributes(filerec(f).name,attr)) then if (attr and VolumeID)<>0 then
doserror:=5
else
if SetFileAttributes(filerec(f).name,attr) then
doserror:=0
else
doserror:=getlasterror; doserror:=getlasterror;
end; end;
@ -1085,7 +1090,10 @@ begin
end. end.
{ {
$Log$ $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 * stdcall patch
Revision 1.19 2003/06/10 11:16:15 jonas Revision 1.19 2003/06/10 11:16:15 jonas