Enumerar las conexiones de red activas  

Enviado Por: Radikal (Q3 Team)
Web : http://www.q3.nu
Email: radikal@q3.nu
Fecha: 04/11/99

Truco accedido 94 veces

 


  • Pon un TMemo (Memo1) y un TButton
  • Pon este código en el OnClick de Button1:



     procedure TForm1.Button1Click(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;