Запуск внешней программы. Как послать 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);
|
|
