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

[Zolden]

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

[Kaimi]

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

[LEE_ROY]

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

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;

[mr.The]

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

[Zolden]

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

[Alexsize]

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