Foros Club Delphi - Directorios compartidos ayuda

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)

- - Directorios compartidos ayuda (https://www.clubdelphi.com/foros/showthread.php?t=54416)

Directorios compartidos ayuda

Hola a todos, he estado buscando en el foro y en varios sitios pero no logro entender como hacer algo tan simple como listar los directorios compartidos en red

no quiero mapear una red entera, solo saber las carpetas que comparte mi equipo, alguien sabe que api se encarga de esto? o alguna forma de conseguirlo??

la idea solo es listar todos los directorios que comparte mi computadora no las que estan conectadas a la red.

en vbs lo hacia muy facil pero en delphi no logr hacerlo

por su atencion gracias.

En una forma un tanto rudimentaria podrias capturar la salida del comando NET SHARE. De todas maneras tiene que haber alguna funcion en la API como WNetGetConnection o algo asi que sirva para ello.

Cita:

Empezado por http://www.clubdelphi.com/trucos/index.php?id=460

Código Delphi [-]var Items: array [0..32767] of TNetResource;
procedure AddResources(NodeName: string; List: TStrings);
var hEnum, Count, Size: Cardinal;
begin
 Items[0].lpRemoteName := PChar(NodeName);
 Count := $FFFFFFFF; Size := SizeOf(Items);
 WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK, 0, @Items, hEnum);
 WNetEnumResource(hEnum, Count, @Items, Size);
 WNetCloseEnum(hEnum);
 while LongBool(Count) do
  begin
   Dec(Count);
   List.Add(Items[Count].lpRemoteName);
  end;
end;

Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
var Index: Cardinal;
begin
 ListBox1.Items.Clear;
 AddResources('\\ComputerName', ListBox1.Items);
end;

muchas gracias :D en unos momentos hago mis pruebas :)

salu2