|
Вопрос # 12/ вопрос решён / |
|
Ещё один вопрос: как на форме сделать ссылку на мыло или адрес в инете (то есть при нажатии на Deeetyru@xasder.ru или на www.feerut.sk открывалась соответственно почтовая программа или браузер), причём адресс в браузере или поле "Кому" было заполнено этим мылом или адресом?
 |
Вопрос задал: Жучков С. (статус: Посетитель)
Вопрос отправлен: 16 мая 2006, 14:15
Состояние вопроса: решён, ответов: 3.
|
Ответ #1. Отвечает эксперт: Dron
Пропишите вот такой обработчик:
ShellExecute(0,'open',PChar('mailto:Deeetyru@xasder.ru'),'','',SW_SHOWNORMAL);
Или такой соответственно:
ShellExecute(0,'open',PChar('http://www.feerut.sk'),'','',SW_SHOWNORMAL);
Не забудьте добавить в uses модуль ShellAPI.
 |
Ответ отправил: Dron (статус: Студент)
Время отправки: 16 мая 2006, 15:34
Оценка за ответ: 5
Комментарий к оценке: Единственный кто упомянул что нужно прописать в uses модуль ShellAPI.
|
Ответ #2. Отвечает эксперт: Darya Ermakova
Все это делает функция ShellExecute. Как видно в примере, адрес берем из Edit-а, почтовый адрес определяем наличием символа @ и добавляем к нему 'mailto:' для запуска почтовой программы, иначе запускается браузер.
Приложение: Переключить в обычный режим- procedure TForm1.Button1Click(Sender: TObject);
- var
- s: string;
- num: integer;
- begin
- s:=Edit1.Text;
- num:=Pos('@',s);
- if num <> 0 then
- s:='mailto:'+s;
- ShellExecute(0,'open', PChar(s),'', nil, SW_SHOWNORMAL);
- end;
 |
Ответ отправила: Darya Ermakova (статус: 8-ой класс)
Время отправки: 16 мая 2006, 16:12
Оценка за ответ: 4
Комментарий к оценке: нет упоминания о добавлении в uses модуля ShellAPI.
|
Ответ #3. Отвечает эксперт: bruder
Здравствуйте Жучков С. В.!
Я бы хотел дополнить ответы экспертов, думаю, это Вам будет полезно. В приведённом коде показан пример отправки письма с заполненой темой и текстом сообщения.
Используййте %0d для символа перевода строки (LF), %20 для пробела.
Список возможных параметров:
CC=Carbon copy (дополнительные получатели)
BCC=Blind carbon copy (дополнительные получатели, адреса которых не показываются остальным получателям)
SUBJECT=Subject text (тема)
BODY=Body text (текст)
 |
Ответ отправил: bruder (статус: 4-ый класс)
Время отправки: 16 мая 2006, 18:01
Оценка за ответ: 5
Комментарий к оценке: описаны дополнительные функции типа заполнения поле тема т.д., хотя нет упоминания о добавлении в uses модуля ShellAPI.
|
Мини-форум вопроса
Всего сообщений: 0.
31 января 2011, 19:58: Статус вопроса изменён на решённый (изменил модератор Ерёмин А.А.): Автоматическая обработка (2 и более ответов с оценкой 5)
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
