Запуск внешней программы. Как послать E-mail и сделать ссылку на сайт

Для запуска внешней программы, для посылки письма или для создания ссылки на сайт вам понадобиться всего одна функция ShellExecute, которая описывается в модуле ShellAPI - не забудьте подключить его в uses.

Этой функции нужно указать несколько параметров:

• Дескриптор родительского окна
• Выполняемое действие. Этот параметр может принимать следующие значения "open", "print", "explore" - соответственно открытие, печать или исследование. Можно указывать nil - тогда будет выполняться действие по умолчанию - "open".
• Имя файла или папки, или e-mail, или URL
• Параметры
• Каталог по умолчанию
• Способ вывода окна. В качестве значения можно указать:
• SW_HIDE Скрывает окно и активизирует другое.
• SW_MAXIMIZE Разворачивает окно.
• SW_MINIMIZE Сворачивает окно.
• SW_RESTORE Активизирует и выводит окно. Если окно было развёрнуто или свёрнуто - восстанавливает исходный размер и позицию.
• SW_SHOW Активизирует и выводит окно с его оригинальным размером и положением.
• SW_SHOWDEFAULT Активизирует с установками, заданными в структуре STARTUPINFO, которая была передана при создании процесса приложением запускающим нужную программу.
• SW_SHOWMAXIMIZED Выводит окно в развёрнутом виде.
• SW_SHOWMINIMIZED Выводит окно в виде пиктограммы на панели задач.
• SW_SHOWMINNOACTIVE Выводит окно в свёрнутом виде на панели задач и не передаёт ему фокус ввода, т.е. окно, которое до этого было активно остаётся активно по прежнему.
• SW_SHOWNA Отображает окно в его текущем состоянии. Активное окно остаётся активным по прежнему.
• SW_SHOWNOACTIVATE Выводит окно в его последнем положении и с последними используемыми размерами. Активное окно остаётся активным по прежнему.
• SW_SHOWNORMAL Выводит окно. Если оно было свёрнуто или развёрнуто - восстанавливает его оригинальные размеры и позицию

Примеры:

// Запуск файла
ShellExecute(Handle, nil, 'c:\windows\calc.exe', nil, nil, SW_SHOW);

// Просмотр каталога
ShellExecute(Handle, nil, 'c:\windows', nil, nil, SW_SHOW);

// Ссылка на сайт
ShellExecute(Handle, nil, 'http://www.site.ru', nil, nil, SW_SHOW);

// Послать E-mail
ShellExecute(Handle, nil, 'mailto:DelphiWorld@mail.ru', nil, nil, SW_SHOW);