Array
(
)

nome do computador

Arc
   - 20 fev 2006

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:


Citação:
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 .....


Tdqr
   - 21 fev 2006

atraves de um componente da palheta indy 9.0
TIdpWatch

TidpWatch.localName


Paullsoftware
   - 21 fev 2006

via código sem componentes:
tente...
#Código

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: