Usuarios logados

[douglaspr]

Boa noite,

gostaria de saber como listar todos os usuários logados no computador, achei uma chave no regedit em ProfileList a RefCount,

que tem seu valor 1 nos usuários logados, porem queria saber se existe outro método.

Grato.

[Jhonas]

exemplo

procedure GetComputers(Workgroup : String;Retorno:TStrings);

Var
  EnumHandle                : THandle;
  WorkgroupRS               : TNetResource;
  Buf                       : Array[1..500] of TNetResource;
  BufSize                   : cardinal;
  Entries                   : CARDINAL;
  Result                    : dword;
begin
  Retorno.Clear;
  Workgroup := Workgroup + #0;
  FillChar(WorkgroupRS, SizeOf(WorkgroupRS) , 0);
  With WorkgroupRS do begin
    dwScope := 2;
    dwType := 3;
    dwDisplayType := 1;
    dwUsage := 2;
    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
      Retorno.Add(StrPas(Buf[1].lpRemoteName));
    end;
  Until (Entries <> 1) or (Result <> NO_ERROR);
  WNetCloseEnum(EnumHandle);
end;  { Find All computers }


procedure TForm1.Button1Click(Sender: TObject);
begin
   GetComputers('MSHOME',Memo1.Lines);
end;

abraço

[douglaspr]

Não retornou nada.

[Jhonas]

Não retornou nada.

o código funciona perfeitamente

GetComputers('MSHOME',Memo1.Lines);

veja que a procedure tem 2 parametros

o primeiro 'MSHOME' ( é o padrão do windows, mas pode ser outro ) é o nome da sua REDE e o segundo é um componente TMemo para receber os nomes dos micros encontrados na sua rede.

abraço

[douglaspr]

Contas logados no computador e não computadores na rede.

[Jhonas]

Faça uma pesquisa na net

http://www.google.com.br/search?q=computad...c.1.kUcHYhOJTAw

abraço

[douglaspr]

Releia minha postagem.