[cloayza]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
   NetResource: TNetResource;
begin
   
   NetResource.dwType := RESOURCETYPE_DISK;
   //Letra con la cual sera mapeado el recurso
   NetResource.lpLocalName := 'M:';
   //Nombre del recurso
   NetResource.lpRemoteName := '\\Servidor\Carpeta_Compartida';
   NetResource.lpProvider := '';
   WNetAddConnection2(NetResource, 'Password','Usuario', CONNECT_UPDATE_PROFILE);
end;

A ver como te va con esto...

Saludos