1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

uses
  Windows;

function getMachineName: String;
var
  Buffer: array [0..MAX_COMPUTERNAME_LENGTH] of Char;
  Size:   Cardinal;
begin
  Size := MAX_COMPUTERNAME_LENGTH + 1;
  GetComputerName(Buffer, Size);
  Result := String(Buffer);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:

function HostToIP; //Uses winsock
type
  TaPInAddr = array[0..10] of PInAddr;
  PaPInAddr = ^TaPInAddr;
var
  list:Tstrings;
  phe: PHostEnt;
  pptr: PaPInAddr;
  I: Integer;
  GInitData: TWSAData;
  Phostname:array[0..255]of char;
begin
  Phostname:='';
  for i:=0 to length(Host)-1 do
  begin
    Phostname[i]:= Host[i+1];
  end;
  WSAStartup($101, GInitData);
  list := TstringList.Create;
  list.Clear;
  phe := gethostbyname(Phostname);
  if phe = nil then Exit;
  pPtr := PaPInAddr(phe^.h_addr_list);
  i    := 0;
  while pPtr^[i] <> nil do
  begin
    list.Add(inet_ntoa(pptr^[i]^));
    Inc(I);
  end;
  WSACleanup;
  result:='';
  for i:=0 to list.Count-1 do
  begin
    result:=result+list.Strings[i];
  end;
end;

function IPToHost;  //uses winsock
var 
  SockAddrIn: TSockAddrIn; 
  HostEnt: PHostEnt; 
  WSAData: TWSAData; 
begin 
  WSAStartup($101, WSAData); 
  SockAddrIn.sin_addr.s_addr := inet_addr(PChar(IPAddr)); 
  HostEnt := gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET); 
  if HostEnt <> nil then 
    Result := StrPas(Hostent^.h_name) 
  else 
    Result := ''; 
end;					

1:
2:
3:
4:
5:

function HostToIP(host: string): string; //Uses winsock

//und

function IPToHost(ipaddr: string): string;  //uses winsock