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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Для запуска внешней программы, для посылки письма или для создания ссылки на сайт вам понадобиться всего одна функция 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);

{/codecitation}

Добавить комментарий