jeweber Postado Janeiro 17, 2008 Denunciar Share Postado Janeiro 17, 2008 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á. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Janeiro 17, 2008 Denunciar Share Postado Janeiro 17, 2008 voce pode usar esta procedureprocedure 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 componenteele acha as máquinas da rede e lista!!!classe TNetUsershttp://www.delphi32.com/vcl/2249/ abraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
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á.
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.