nome do computador
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
Curtidas 0
Respostas
Tdqr
20/02/2006
atraves de um componente da palheta indy 9.0
TIdpWatch
TidpWatch.localName
TIdpWatch
TidpWatch.localName
GOSTEI 0
Paullsoftware
20/02/2006
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:
GOSTEI 0