Detectar o domínio

[edu4rdo 0]

Alguém sabe como detectar o domínio da máquina?? :blink:

[CameloBr 0]

Ok!

 

Declare na unit Winsock.

Vou escrever uma função pra pegar o dominio:

Function PegaDominio:Boolean;BeginTry  wVersionRequested := MAKEWORD(1, 1);  WSAStartup(wVersionRequested, wsaData);  GetHostName(@s, 128);  p := GetHostByName(@s);  result := true;except  result := false; end;end;

depois pega o ponteiro e joga num variavel tipo string. A variavel P nesse exemplo tem que ser global e do tipo p : PHostEnt;

if PegaDomnio then dominio := p^.h_Name;

Espero ajudar, aeww!! ;)