Detectar recursos de red activos.

[Carlos Arevalo]

Ahora una para detectar recursos de red activos.

Que tal amigos del foro espero que esten todos muy bien, saludos.

La pregunta:

Como se pueden detectar (que esten activos) los recursos de red conectados al pc como las impresoras?

El sig. codigo lo encontre en trucomania pero solo detecta las unidades de disco conectadas al pc.

procedure TFormImpresoras.Button3Click(Sender: TObject);
begin
ConfigurarImpresora.Execute;
end;

procedure TFormImpresoras.Button4Click(Sender: TObject);
var 
  RecursoRed      :TNetResource;
  Mango           :THandle;
  NumeroEntradas  :DWord;
  Buffer          :Array [1..50] of TNetResource;
  LongBuffer      :DWord;
  n               :Integer;
begin 
  LongBuffer:=SizeOf(Buffer);
 
  if WNetOpenEnum( RESOURCE_CONNECTED,
                   RESOURCETYPE_ANY,
                   RESOURCEUSAGE_CONNECTABLE,
                   nil,
                   Mango
                   )<> No_ERROR then ShowMessage('Error');
 
  NumeroEntradas:=10;
 
  WNetEnumResource( Mango,
                    NumeroEntradas,
                    @Buffer[1],
                    LongBuffer
                    );
 
  Memo1.Lines.Clear;
  for n:=1 to NumeroEntradas do 
    memo1.Lines.Append(Buffer[n].lpRemoteName);
end;

Muchas gracias a todos los que hacen posible que este sitio se mantenga.