Ver micros na rede

[jeweber]

Boa tarde pessoal,

sou novo no fórum e gostaria de solicitar uma ajuda. Estou com dúvida em como saber quais micros estão logados em uma rede e listá-los em um combobox...

Se alguém puder me ajudar agradeço desde já.

[Jhonas]

voce pode usar esta procedure

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
  Exit;
  aResList.Clear;
  WorkGroup := Workgroup + #0;
  FillChar(WorkGroupRS, SizeOf(WorkGroupRS), 0);
  with WorkgroupRS do begin
  dwScope := 2;
  dwType := 3;
  dwDisplayType := 1;
  dwUsage := 1;
  lpRemoteName := @Workgroup[1];
  end;
  WNetOpenEnum(Resource_GlobalNet, ResourceType_Any, 0, @WorkgroupRS,
  ENumHandle);
  repeat
  Entries := 1;
  BufSize := SizeOf(Buf);
  Result := WNetENumResource(ENumHandle, Entries, @Buf, BufSize);
  if (result = NO_Error) and (Entries = 1) then begin
  sComputer:= StrPas(Buf[1].lpRemoteName);
  aResList.Add(Copy(sComputer, 3, Length(sComputer)-2));
  end;
  until (Entries <> 1) or (Result <> NO_Error);
  WNetCloseENum(ENumHandle);
  end;

ou pode usar este componente

ele acha as máquinas da rede e lista!!!

classe TNetUsers

http://www.delphi32.com/vcl/2249/

abraço