Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

---|Ветка была без названия|---


Валет ©   (2002-06-04 13:05:00) 

Как сделать кнопку "Послать письмо автору"
т.е. чтобы принажатии на неё получился такой-же эфект что и в вэб (Mailto:MyEmail@Mail.ru)


ilysha   (2002-06-04 13:39:00) [1]

Напишет, он злыдень, жди ... Ж)
Шутка.

uses Windows, SysUtils, Classes, Controls, ShellApi;

...

procedure SendEmail;
var
em_subject, em_body, em_mail : string;
begin
em_subject:= "Тема письма - ответ Валету";
em_body:= "Горячего Вам рабочего дня, господа товарищи разработчики!";
em_mail:= "mailto:gratis97@mail.ru" +"?subject="+ em_subject+ "&body="+ em_body;
ShellExecute(Application.Handle, "open", PChar(em_mail), nil, nil, SW_SHOWNORMAL);
end;

..


Валет   (2002-06-04 13:37:00) [2]

>Виктор Щербаков © (04.06.02 13:33)

ShellExecute(0, "open", "mailto:address@server.ru", nil, nil, SW_SHOWNORMAL);
Ничего не происходит


Song   (2002-06-04 13:35:00) [3]

Мне тоже раньше казалось, что много.. но благодаря помощи таких как Вы (не в обиду) я уже их выучил :))

ShellExecute(Handle,"open","mailto:coolsong@mail.ru",nil,nil,SW_SHOWNORMAL);


Валет   (2002-06-04 13:34:00) [4]

Ок


Виктор Щербаков   (2002-06-04 13:33:00) [5]

ShellExecute(0, "open", "mailto:address@server.ru", nil, nil, SW_SHOWNORMAL);


Валет   (2002-06-04 13:33:00) [6]

ShellExecute(handle, nil,"MyMail@mail.ru", nil, nil, SW_SHOWNORMAL);

Что не так делаю ?


Валет   (2002-06-04 13:28:00) [7]

Там параметров очень много можешь помочь ?
Напиши плиз пример.


Song   (2002-06-04 13:09:00) [8]

ShellExecute()


Наверх

Титульная страница Поиск, карта сайта Написать письмо