Сообщество Чайников

Вопрос

Как сделать чтобы при нажатии на надпись создавалось новое сообщение почтовой программой? И может ли такое быть, если текст написан в окне Memo?

Ответ

Очень просто. Допустим, что текст у вас на писан в Label1, тогда:

uses ShellAPI;
procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(Application.Handle, nil,'mailto:name@domain.ru',nil, nil, SW_SHOWNORMAL);
end;

Любому написанному адресу будет создаваться сообщение для отправки письма. А если ты хочешь, чтобы пользователь писал в Memo адрес и письмо отправлялось, тогда это можно сделать. Тут всего несколько процедур:

uses ShellAPI;
var
Form1: TForm1;
s:String;
procedure TForm1.Button1Click(Sender: TObject);
begin
s:=Memo1.Lines.Text;
Label1.Caption:=s;
ShellExecute(Application.Handle, nil,'mailto:name@domain.ru',nil, nil,
SW_SHOWNORMAL);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Visible:=False;
end;
end.

Это все.

graywolfik