nome do computador

20/02/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:

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

Respostas

21/02/2006

Tdqr

atraves de um componente da palheta indy 9.0
TIdpWatch

TidpWatch.localName


Responder Citar

21/02/2006

Paullsoftware

via código sem componentes:
tente...
uses WinSock
  p : PHostEnt;
  s : array[0..128&93; 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 Citar