vê se ajuda:
procedure FindComputers(Workgroup: string; aResList: TStrings);
var
eNumHandle : THandle;
WorkgroupRS : TNetResource;
Buf : array[1..500] of TNetResource;
BufSize : DWORD;
Entries : DWORD;
Result : integer;
sComputer: String;
begin
if not Assigned(aResList) then
, WINDOWS-2k
LINUX - LAZARUS/Kylix/MySQL;
http://www.megasistema.com.br
- Original Message -
From: Murillo Proença
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, February 13, 2007 4:19 PM
Subject: [delphi-br] Re: Listar computadores da rede
vê se ajuda:
procedure
- NetWare4.11, LINUX-REDHAT9, WINDOWS-2k
LINUX - LAZARUS/Kylix/MySQL;
http://www.megasistema.com.br
- Original Message -
From: Murillo Proença
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, February 13, 2007 4:19 PM
Subject: [delphi-br] Re: Listar computadores da rede
vê se ajuda
.
and.
- Original Message -
From: Luiz Escobar
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, February 13, 2007 4:19 PM
Subject: Re: [delphi-br] Re: Listar computadores da rede
ajudou muito.. agora que tenhos os nomes dos computadores da rede, só
falta pegar os respequitivos IP´s
4 matches
Mail list logo