Change owner of file.
Source position: bunxh.inc line 35
function FpChown( |
path: PAnsiChar; |
owner: TUid; |
group: TGid |
):cint; |
const path: RawByteString; |
owner: TUid; |
group: TGid |
):cint; |
fpChown sets the User ID and Group ID of the file in Path to Owner,Group.
The function returns zero if the call was successful, a nonzero return value indicates an error.
The following error codes are returned:
|
Change file permission bits. |
|
|
Check file access. |
Program Example24; { Program to demonstrate the Chown function. } Uses BaseUnix; Var UID : TUid; GID : TGid; F : Text; begin Writeln ('This will only work if you are root.'); Write ('Enter a UID : ');readln(UID); Write ('Enter a GID : ');readln(GID); Assign (f,'test.txt'); Rewrite (f); Writeln (f,'The owner of this file should become : '); Writeln (f,'UID : ',UID); Writeln (f,'GID : ',GID); Close (F); if fpChown ('test.txt',UID,GID)<>0 then if fpgeterrno=ESysEPERM then Writeln ('You are not root !') else Writeln ('Chmod failed with exit code : ',fpgeterrno) else Writeln ('Changed owner successfully !'); end.