Funcion: FpChown()
Sintaxis:

function FpChown(
 
  path: pChar;
 
  owner: TUid;
 
  group: TGid
 
):cInt;
 
function FpChow

Descripcion: Cambia el propietario de un archivo, define si User ID y Group ID de el archivo en el path a el Owner, Group.

Si la ejecucion de la funcion fue correcta, esta retorna zero. Si retorna un valor que no es zero, indica que ocurrio un error.

ERRORES:
sys_eaccess --> The requested access is denied, either to the file or one of the directories in its path.
sys_einval --> Mode was incorrect.
sys_enoent --> A directory component in Path doesn't exist or is a dangling symbolic link.
sys_enotdir --> A directory component in Path is not a directory.
sys_enomem --> Insufficient kernel memory.
sys_eloop --> Path has a circular symbolic link.

Ejemplo:

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.