Запуск программ из Delphi

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

Оформил: DeeCo

В этой статье вы научитесь применять функцию Windows API ShellExecute. Ее применяют в тех случаях, когда мы, например, хотим открыть файл в соответствии с его расширением, не зная, какая программа ассоциирована с таким файлами. Итак, начнем с простого:

— Запустить блокнот (notepad)

uses ShellApi;

…ShellExecute(Handle, ‘open’,

‘c:\Windows\notepad.exe’, nil, nil, SW_SHOWNORMAL);

— Открыть текстовый файл c:\text.txt в блокноте

ShellExecute(Handle, ‘open’,

‘c:\windows\notepad.exe’, ‘c:\text.txt’, nil,

SW_SHOWNORMAL);

— Показать содержимое каталога c:\archive

ShellExecute(Handle, ‘open’, ‘c:\archive’, nil, nil,

SW_SHOWNORMAL);

— Открыть файл в соответствии с расширением

ShellExecute(Handle,

‘open’, ‘c:\MyDocuments\Letter.doc’, nil, nil, SW_SHOWNORMAL);

— Открыть html документ в браузере по умолчанию

ShellExecute(Handle,

‘open’, ‘http://src.fitkursk.ru’, nil, nil, SW_SHOWNORMAL);

— Послать сообщение по электронной почте

var

em_subject, em_body, em_mail: string;

begin

em_subject := ‘This is the subject line ‘;

em_body := ‘ Message body text goes here’;

em_mail := ‘mailto:alex@fitkursk.ru?subject=’

em_subject ‘

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