Permisos de Carpeta
 

Hola, tengo la pc con Windows 2000, y me preguntaba como hacer para crear un directorio, asignandole permisos, mas precisamente, quiciera que esa carpeta pueda ser compartida por toda la Red.

Si alguno me da una mano, se agradece.

Saludos y Gracias

Solucion
 

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.

Muchisimas gracias, me acabas de solucionar esta traba que tenía.

Saludos