FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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.
__________________
Carlos Arevalo MSN Messenger: carlos@arevalo.com.ve |
|
|
|