Проблема с получением IP адреса

[helldog]

ВОт такая проблемка, написал програмку которая при запуске на компе, отправляет мне на мыло айпи адрес,и беспалевно висит в прцесах с открытым портом, потом с другой програмки я подключаюсь к компу через TCP и управляю им отсылая команды, но если же компютер подключен к интренету через роутер , то выдает локальный апи компа, делая невозможным приконектица к компютеру. Возможно ли в таком случае какнить приконектица к компу?
вот код получения айпишника

function GetIPFromHost
(var HostName, IPaddr, WSAErr: string): Boolean;
type
Name = array[0..100] of Char;
PName = ^Name;
var
HEnt: pHostEnt;
HName: PName;
WSAData: TWSAData;
i: Integer;
begin
Result := False;
if WSAStartup($0101, WSAData) <> 0 then begin
WSAErr := 'Ñîêåðò íå îòâå÷àåò!';
Exit;
end;
IPaddr := '';
New(HName);
if GetHostName(HName^, SizeOf(Name)) = 0 then
begin
HostName := StrPas(HName^);
HEnt := GetHostByName(HName^);
for i := 0 to HEnt^.h_length - 1 do
IPaddr :=
Concat(IPaddr,
IntToStr(Ord(HEnt^.h_addr_list^[i])) + '.');
SetLength(IPaddr, Length(IPaddr) - 1);
Result := True;
end
else begin
case WSAGetLastError of
WSANOTINITIALISED:WSAErr:='WSANotIn itialised';
WSAENETDOWN :WSAErr:='WSAENetDown';
WSAEINPROGRESS :WSAErr:='WSAEInProgress';
end;
end;
Dispose(HName);
WSACleanup;
end;

[veniside]

> отправляет мне на мыло айпи адрес, беспалевно висит в прцесах с открытым портом...

безпалевно, ога. Любой вменяемый файрвол сразу же выдаст предупреждение юзеру.

Имхо, вы выбрали неудачный форум для обсуждения создания троянов.

[Max1548]

В Indy есть компонент IPWatch!