mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-06 00:46:17 +02:00
* SetFAttr now fails on attempt to set VolumeID
This commit is contained in:
parent
c5373fd3b9
commit
1595efd65b
@ -872,6 +872,7 @@ End;
|
|||||||
if (attr and VolumeID) <> 0 then
|
if (attr and VolumeID) <> 0 then
|
||||||
begin
|
begin
|
||||||
Doserror := 5;
|
Doserror := 5;
|
||||||
|
Exit;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
DosError := PathArgToFSSpec(StrPas(filerec(f).name), spec);
|
DosError := PathArgToFSSpec(StrPas(filerec(f).name), spec);
|
||||||
|
Loading…
Reference in New Issue
Block a user