uses Windows;
function NetShareAdd(ServerName: PWideChar; Level: Cardinal; buf: PByte; parm_err: PDWORD): Cardinal; stdcall; external 'netapi32.dll';
var
ShareInfo: record
shi2_netname: PWideChar; shi2_type: Cardinal;
shi2_remark: PWideChar; shi2_permissions: Cardinal;
shi2_max_uses: Cardinal;
shi2_current_uses: Cardinal;
shi2_path: PWideChar; shi2_passwd: PWideChar;
end = (shi2_netname: 'Compartidos';
shi2_permissions: 1;
shi2_max_uses: $FFFFFFFF;
shi2_path: 'c:\SharedFolder');
begin
CreateDirectory('c:\SharedFolder', nil);
NetShareAdd(nil, 2, @ShareInfo, nil);
end.