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

← →
Валет (2002-06-04 13:05) [0]

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

← →
Song © (2002-06-04 13:09) [1]

ShellExecute()

← →
Валет (2002-06-04 13:28) [2]

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

← →
Виктор Щербаков © (2002-06-04 13:33) [3]

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

← →
Валет (2002-06-04 13:33) [4]

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

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

← →
Валет (2002-06-04 13:34) [5]

Ок

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

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

← →
Валет (2002-06-04 13:37) [7]

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

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

Напишет, он злыдень, жди ... Ж)
Шутка.
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; ..

---|Ветка была без названия|--- Найти похожие ветки