Foros Club Delphi - Detectar recursos de red activos.

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.

Código:



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.