[Resolvido] listar o nome das contas do Windows XP

[HTML 2]

Boa tarde pessoal,

 

Alguém sabe como listar o nome das contas do Windows?

 

Eu aqui tenho uma rotina para pegar o usuário atual, mais eu queria pegar todos os usuários e lista-los em um ComboBox!

[HTML 2]

Consegui fazendo assim:

procedure TForm1.Button1Click(Sender: TObject); 
var Reg:TRegistry; //uses Registry; 
begin 
Reg := TRegistry.Create; 
  try 
   Memo1.Clear; 
   Reg.RootKey := HKEY_LOCAL_MACHINE; 
    if Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DocFolderPaths', false) then 
      begin 
        Reg.GetValueNames(ComboBox1.Items); 
      end; 
  finally 
   Reg.Free; 
end; 

end; 

Não sei se é a melhor forma, mais pelo menos funcionou!

 

Abraços!!!