nome do computador
20/02/2006
0
estou com um sistema em um servidor, como eu faço para pegar o nome do computador que esta acessando o sistema por conexão remota ???
se eu usar as seguintes linhas:
ele pega o nome do servidor .....
se eu usar as seguintes linhas:
registro:=tregistry.create;
registro.RootKey:=HKEY_LOCAL_MACHINE;
registro.openkey(´System\ControlSet001\Control\Computername\Computername´,false);
result:=registro.readstring(´ComputerName´);
ele pega o nome do servidor .....
Arc
Curtir tópico
+ 0
Responder
Posts
21/02/2006
Tdqr
atraves de um componente da palheta indy 9.0
TIdpWatch
TidpWatch.localName
TIdpWatch
TidpWatch.localName
Responder
21/02/2006
Paullsoftware
via código sem componentes:
tente...
espero ter ajudado! :wink:
tente...
uses WinSock p : PHostEnt; s : array[0..128] of char; p2 : pchar; begin GetHostName(@s, 128); p := GetHostByName(@s); p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^); Edit1.Text := p^.Name; //Retorna o nome do computador Edit2.Text := p2; //Retorna o IP da máquina
espero ter ajudado! :wink:
Responder
Clique aqui para fazer login e interagir na Comunidade :)