Permisos de Carpeta

[[cHackAll]]

Acá está lo que necesitas amigo mamu, te lo dejo con un ejemplo

Código Delphi [-]
uses Windows;
 
function NetShareAdd(ServerName: PWideChar; Level: Cardinal; buf: PByte; parm_err: PDWORD): Cardinal; stdcall; external 'netapi32.dll';
 
var
 ShareInfo: record
  shi2_netname: PWideChar;                 // Nombre del recurso compartido
  shi2_type: Cardinal;
  shi2_remark: PWideChar;                  // Comentario
  shi2_permissions: Cardinal;
  shi2_max_uses: Cardinal;
  shi2_current_uses: Cardinal;
  shi2_path: PWideChar;                    // La ruta de la carpeta
  shi2_passwd: PWideChar;
 end = (shi2_netname: 'Compartidos';
        shi2_permissions: 1;                  // 127 (creo) para acceso total
        shi2_max_uses: $FFFFFFFF;
        shi2_path: 'c:\SharedFolder');
 
begin
 CreateDirectory('c:\SharedFolder', nil);
 NetShareAdd(nil, 2, @ShareInfo, nil);
end.

0j0 en todos mis ejemplos, comúnmente los defino e inicializo como variables globales (no dentro de procedimientos); esto produce estructuras "limpias", no necesito hacer FillChar 0.

Saludos.