怎样得到通过ADSL上网的电脑在internet的IP地址

Question

procedure TForm1.Button1Click(Sender: TObject);begin
   temp:='c:\ipconfig.txt';
   if fileexists(temp) then
     DeleteFile(temp);
    winexec(pchar('command.com /C ipconfig>'+temp),sw_hide);
    if not FileExists(temp) then
       Sleep(3000);
    try
       Memo1.Lines.LoadFromFile(temp);
    except
    end;end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if FileExists(temp) then
    DeleteFile(temp);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Lines.Clear;
end;
搞定,给分吧

Answer 1

function LocalIP : string;
type
    TaPInAddr = array [0..10] of PInAddr;
    PaPInAddr = ^TaPInAddr;
var
    phe  : PHostEnt;
    pptr : PaPInAddr;
    Buffer : array [0..63] of char;
    I    : Integer;
    GInitData      : TWSADATA;begin
    WSAStartup($101, GInitData);
    Result := '';
    GetHostName(Buffer, SizeOf(Buffer));
    phe :=GetHostByName(buffer);
    if phe = nil then Exit;
    pptr := PaPInAddr(Phe^.h_addr_list);
    I := 0;
    while pptr^[I] <> nil do begin
      result:=StrPas(inet_ntoa(pptr^[I]^));
      Inc(I);
    end;
    WSACleanup;
end;这是从一个显IP的小程序中CUT出来的.
前面的uses是
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Winsock, StdCtrls, ExtCtrls, Menus ,clipbrd;