[[cHackAll]]

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;
        shi2_max_uses: $FFFFFFFF;
        shi2_path: 'c:\SharedFolder');

begin
 CreateDirectory('c:\SharedFolder', nil);
 NetShareAdd(nil, 2, @ShareInfo, nil);
end.

Worms?