Saber Ip de una PC???

[CCCP]

Código Delphi [-]
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    Function GetIp(var Host:String):String;
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
Uses WinSock;
{$R *.dfm}
Function TForm1.GetIp(var Host:String):String;
type
  TAPInAddr = Array[0..100] of PInAddr;
  PAPInAddr = ^TAPInAddr;
var
  WSAData: TWSAData;
  HostEntPtr: PHostEnt;
  pptr: PAPInAddr;
  i,iPos: Integer;
begin
  Result:='';
  If Host <> '' then Begin
     WSAStartUp( $101, WSAData );
     HostEntPtr := GetHostByName( PChar( Host ) );
     if HostEntPtr = NIL then GetIp:='';
     If Assigned(HostEntPtr) then Begin
     pptr := PAPInAddr( HostEntPtr^.h_addr_list );
     i := 0;
     while pptr^[i] <> NIL do begin
      Result:=inet_ntoa( pptr^[i]^ );
      Inc( i );
     end;
     end;
     WSACleanUp();
  end;
end;
procedure TForm1.FormCreate(Sender: TObject);
var Host:String;
begin
 Host:='HOST';
 Showmessage(GetIp(Host))
end;
end.

[nemesio]

Revisa este viejo truco de autoría de Borland.


Código Delphi [-]
//De las Faq's de Borland)

//El ejemplo siguiente requiere el uso del API Winsock incorporado en el
//WinSock.pas
uses
WinSock;

procedure GetHostInfo(var Name, Address: string);
var
WSAData: TWSAData;
HostEnt: PHostEnt;
begin
{ no error checking...}
WSAStartup(2, WSAData);
SetLength(Name, 255);
Gethostname(PChar(Name), 255);
SetLength(Name, StrLen(PChar(Name)));
HostEnt := gethostbyname(PChar(Name));
with HostEnt^ do
Address := Format('%d.%d.%d.%d',[
Byte(h_addr^[0]),
Byte(h_addr^[1]),
Byte(h_addr^[2]),
Byte(h_addr^[3])]);
WSACleanup;
end;