Pegar nome da máquina

Delphi

05/09/2006

Amigos, como eu faço para pegar o nome da máquina onde o programa está rodando?


Aflsilva

Aflsilva

Curtidas 0

Respostas

Paullsoftware

Paullsoftware

05/09/2006

Essa função que costumo usar, retorna o nome e ip do host local...

function HostAdress:String;
var
  p : PHostEnt;
  s : array[0..128] of char;
  p2 : pchar;
  wVersionRequested : WORD;
  wsaData : TWSAData;
begin
 wVersionRequested := MAKEWORD(1, 1);
 WSAStartup(wVersionRequested, wsaData);
 GetHostName(@s, 128);
 p     := GetHostByName(@s);
 p2    := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
//p^.h_name = Nome do Host
//p2 = Endereço de IP
 result:= p^.h_name + ´;´ + p2;
end; (* HostAdress *)

espero ter ajudado :wink:


GOSTEI 0
POSTAR