Как определить IP

какие методы, скажем хочу я определить IP адресс своего кориша, как бы мне это сделать. Через ICQ или ещё как  8)

посмотри FAQ на сайте

Покажите ссылку на FAQ в упор не вижу.  :-[

http://www.geocities.com/winhider/files/faq.zip

Тебе программно или просто в винде?

start/run winipcfg

unit tool;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 winsock,StdCtrls;

type
 TForm1 = class(TForm)
   Edit1: TEdit;
   Label1: TLabel;
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.DFM}
function HostToIP(Name: string; var Ip: string): Boolean;
var
 wsdata : TWSAData;
 hostName : array [0..255] of char;
 hostEnt : PHostEnt;
 addr : PChar;
begin
 WSAStartup ($0101, wsdata);
 try
   gethostname (hostName, sizeof (hostName));
   StrPCopy(hostName, Name);
   hostEnt := gethostbyname (hostName);
   if Assigned (hostEnt) then
     if Assigned (hostEnt^.h_addr_list) then begin
       addr := hostEnt^.h_addr_list^;
       if Assigned (addr) then begin
         IP := Format ('\%d.\%d.\%d.\%d', [byte (addr [0]),
         byte (addr [1]), byte (addr [2]), byte (addr [3])]);
         Result := True;
       end
       else
         Result := False;
     end
     else
       Result := False
   else begin
     Result := False;
   end;
 finally
   WSACleanup;
 end
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Ip: string;
begin
if (Edit1.Text = '') then exit;
if HostToIp(Edit1.Text, IP) then Label1.Caption := IP;
end;

end.