Como obter o IP do computador?

Em alguns casos, como por exemplo, em um gerador de chaves de segurança,
precisamos obter o IP do computador onde o sistema está sendo executado.

Para simplificar este trabalho, foi criada uma função que deixa
esta atividade muito fácil de ser executada.

É necessário estar declarado WinSock na seção uses,
em versões unicode declare Winapi.WinSock;

Abaixo segue o código fonte da função.

1
2
3
4
5
6
7

function GetIpMachine: String;
var
  wsaData : TWSAData;
begin
  WSAStartup(257, wsaData);
  Result := Trim(inet_ntoa( PInAddr( GetHostByName( nil )^.h_addr_list^ )^ ));
end;

Exemplo de uso.

1
2
3
4
5

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Exemplo de retorno: 192.168.0.200
  ShowMessage(GetIpMachine);
end;