Ищу программку

Нужна программа, которая постоянно показывала мой Ip при каждом подключении к инету, допустим в трее, или на рабочем столе.
Мож есть у кого?

 

http://www.getfreesofts.com/soft/140/7387/IP_Desktop_Viewer_XP.html

 

мля я кодил сидел, я ты ппц ... =\
пох, во как можно :

Code:

var   Host: TLabel;
  IPaddr: TLabel;
...
function IsConnectedToInternet: Boolean;
var
  dwConnectionTypes: DWORD;
begin
  dwConnectionTypes :=
    INTERNET_CONNECTION_MODEM +
    INTERNET_CONNECTION_LAN +
    INTERNET_CONNECTION_PROXY;
  Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;


procedure ShowIp;
var
 wVerReq: WORD;
 wsaData: TWSAData;
 i: PChar;
 h: PHostEnt;
 c: array[0..128] of char;
begin
if IsConnectedToInternet then
begin
 wVerReq:=MAKEWORD(1, 1);
 WSAStartup(wVerReq, wsaData);
 GetHostName(@c, 128);
 h:=GetHostByName(@c);
 Host.Caption:=h^.h_Name;
 i:=iNet_ntoa(PInAddr(h^.h_addr_list^)^);
 IPaddr.Caption:=i;
 WSACleanup;
end
    else
MessageBoxA(0,'Not Connected!', 'Info', 0);
end;

 

ставиш себе аутпост (фраер такой) и он показывает тебе твой ип.
или пишеш в командной строке "ipconfig" (без кавычек).
или созда

 

СПАСИБО ВСЕМ!!!

 

Жесть. Щелкнуть на значке подключений и посмотреть свой ip не канает?