Como Obter O Nome Do Domínio Do Usuário Logado?

[uellington]

Pessoal, bom dia!

Eu preciso que minha aplicação mostre o nome do domínio que o usuário está logado no computador (Windows). Consigo obter o nome do usuário logado mas não consigo obter o nome do domínio.

Alguém sabe como fazer isso?

Grato.

Uellington

[Micheus]

dê uma olhada nesta discursão: http://www.delphipages.com/threads/thread....D=74221&G=74219

há diversas alternativas e apesar de não suprir a necessidade do indivíduo que postou a pergunta, parece-me que atenderá a sua.

[uellington]

Micheus, boa tarde!

Cliquei no link que você me enviou e achei o código fonte abaixo:

procedure TForm1.FormCreate(Sender: TObject);

var

i: integer;

vlDomainName : Array[0..30] of Char;

vlSize : ^DWORD;

begin

New(vlSize);

vlSize^ := 30;

ExpandEnvironmentStrings(PChar('%USERDOMAIN%'), vlDomainName, vlSize^);

Dispose(vlSize);

Label1.Caption := 'Network Domain Name: ' +vlDomainName; //OutPut the Domain we are connected to

end;

Este código fonte atendeu perfeitamente as minhas necessidades, muito obrigado por sua ajuda!

Abraços!

Uellington Santos