IP

[Яр|/||< (^_^)]

Как узанть IP адресс компьютера с помощью delphi и простыми средствами?

[uberchel]

Держи :

uses WinSock;

function GetIP: string;
var
  PHost: PHostEnt;
  WSAData: TWSAData;
  Name: array[0..$FF] of Char;
begin try
  WSAStartup($0101, WSAData);
  GetHostName(Name, $FF);
  PHost:= GetHostByName(Name);
finally
  Result:= inet_ntoa(PInAddr(PHost.h_addr^)^);
end;
  WSACleanup;
end;

[Terran]

Как узанть IP адресс компьютера с помощью delphi и простыми средствами?

Простыми средствами можете узнать так:
Пуск->Выполнить->cmd
IpConfig/all
И там увидите всё что нужно.