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.