列表7.2.txt

klinux书籍的配套光盘。可以学习学习。

【列表7.2】来自应用程序SetPermissions的许可设定方法。
procedure TfrmPermissions.updatePermissions;
var
      perms: Cardinal;
      filename: String;
      rv: Integer;
begin
      filename := tbFileName.Text;
      perms := 0;
      if ( cbSetUID,Checked ) then
            perms := perms Or S_ISUID;
      if ( cbSetGID.Checked ) then
            perms := perms Or S_ISGID;
      if ( cbSticky. Checked) then
            perms := perms Or S_ISVTX;
      if ( cbUserRead. Checked) then
             perms := perms Or S_IRUSR;
      if ( cbUserWrite.Checked ) then
             perms := perms Or S_IWUSR;
      if ( cbUserExecute. Checked) then
            perms := perms Or S_IXUSR;
      if ( cbGroupRead,Checked ) then
            perms := perms Or S_IRGRP;
      if ( cbGroupWrite. Checked) then
            perms := perms Or S_IWGRP;
      if ( cbGroupExecute,Checked ) then
            perms := perm$ Or S_IXGRP;
      if ( cbAllRead.Checked ) then
            perms := perms Or S_IROTH;
      if ( cbAllWrite. Checked) then
            perms := perms Or S_IWOTH;
      if ( cbAllExecute. Checked) then
            perms := perms Or S_IXOTH;
      rv := chmod( PChar( filename ), perms  ;
      if ( rv = -1 ) then
           begin
           ShowMessage( 'Unable to chmod file.' );
           getPermissions;
           end;
end;