Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 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:' для запуска почтовой программы, иначе запускается браузер.

Приложение:
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3. s: string;
  4. num: integer;
  5. begin
  6. s:=Edit1.Text;
  7. num:=Pos('@',s);
  8. if num <> 0 then
  9. s:='mailto:'+s;
  10. ShellExecute(0,'open', PChar(s),'', nil, SW_SHOWNORMAL);
  11. 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 (текст)

Приложение:
  1. ShellExecute(Handle, 'open',
  2.  


Ответ отправил: bruder (статус: 4-ый класс)
Время отправки: 16 мая 2006, 18:01
Оценка за ответ: 5

Комментарий к оценке: описаны дополнительные функции типа заполнения поле тема т.д., хотя нет упоминания о добавлении в uses модуля ShellAPI.

Мини-форум вопроса

Всего сообщений: 0.

31 января 2011, 19:58: Статус вопроса изменён на решённый (изменил модератор Ерёмин А.А.): Автоматическая обработка (2 и более ответов с оценкой 5)

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 29 июня 2017, 15:20
Выполнено за 0.03 сек.
Рейтинг@Mail.ru