Ir para conteúdo
Fórum Script Brasil

uellington

Membros
  • Total de itens

    2
  • Registro em

  • Última visita

Sobre uellington

uellington's Achievements

0

Reputação

  1. 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
  2. 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
×
×
  • Criar Novo...