Подскажите алгоритм

[vim.adm]

Доброе время суток.

Нужно реализовать следующую программку:
программа каждый 1-2ч отсылает IP адрес на определенный почтовый ящик.

Вопросы:

• как проще узнавать IP адрес (через CMD или в Inthernet)
• как отправлять данные на почтовый сервер (темку видел, но найти не смог)
• как "спрятать" программу(в трей либо вообще убрать с людских глаз)

За хорошие ответы с меня отзывы

[Dinmaite]

1 Проще так, как проще Вам.
2 Гугл рвется ответьть на этот вопрос.
3 А на этот вопрос, думаю, никто не ответит, поскольку скрытие приложенй довольно специфический вопрос.
А самый простой метод - не делайте формы, и если "жертва" неопытный пользователь то ничего и не увидит.
Опять же, если стоит фаервол - программу спалят сходу.

[Slavaberezin]

2)Нужны компоненты Smtp и Message (вкладка indy clients)
код:
idSmtp1.Host:='smtp.yandex.ru'; //host сервера
idSmtp1.Port:=25; // порт сервера
idSmtp1.Username:=Edit1.Text; //Логин
idSmtp1.Password:=Edit2.Text; //Пароль
idMessage1.Body.Text:=Memo1.text; //текст письма
idMessage1.From.Text:=Edit1.Text; // тема
idMessage1.Recipients.EmailAddresses:=Edit1.Text; //от кого
idMessage1.Subject:=Edit2.Text; // непомню ))
idSmtp1.Connect();
if idSmtp1.Connected=true then
idSmtp1.Send(idmessage1);
idSmtp1.Disconnect;

3)Для скрытия формы напиши:
Application.ShowMainForm:= False;
в свойсве onCreate у формы при этом приложение будет видно только в диспетчере задач.

[VeTaL_UA]

Зачем вообще писать "вирус", простите на слове, с формой?

[Slavaberezin]

Цитата: Сообщение от VeTaL_UA Зачем вообще писать "вирус", простите на слове, с формой?

чтоб уметь

[vim.adm]

ну собственно это и не вирус, просто у меня дома стоит интернет с динамическим IP, а что бы пользоваться RAdmin'ом нужен статик. Вот и пишу программу которая при изменении IP будет отсылать мне новый на почту.
Всем спасибо, программку написал.
Кого интересует могу дать исходники.

Отдельная благодарность: Slavaberezin, отличный метод скрывать форму

//close