Directorios compartidos ayuda

[octalh]

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.

[Edgtho]

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.

[cHackAll]

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;

procedure TForm1.Button1Click(Sender: TObject);
var Index: Cardinal;
begin
ListBox1.Items.Clear;
AddResources('\\ComputerName', ListBox1.Items);
end;

[octalh]

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

salu2