Buscar

Verificar o Domínio de uma Rede

Código

Adicione um botão ao formulário e na Procedure deste botão, insira o seguinte código:

procedure TForm1.Button1Click(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 := 'Registrado para o Domínio: ' +vlDomainName; //OutPut the Domain we are connected to
end
   

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Rede
Adicionada dia: 18/06/09
Por: Marcos Aurelio
Visualizada: 4180 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009