В этой статье вы научитесь применять функцию Windows
API ShellExecute. Ее применяют в тех случаях, когда мы, например, хотим
открыть файл в соответствии с его расширением, не зная, какая программа
ассоциирована с таким файлами. Итак, начнем с простого:
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 + '&body=' + em_body;
ShellExecute(Handle, 'open', PChar(em_mail), nil, nil, SW_SHOWNORMAL);
end;
- Дожидаемся окончания запущенной программы
// фрагмент кода запускает калькулятор и// выдает сообщение, когда он закрываетсяuses
ShellApi;
...var
SEInfo: TShellExecuteInfo;
ExitCode: DWORD;
ExecuteFile, ParamString, StartInString: string;
begin
ExecuteFile := 'c:\Windows\Calc.exe';
FillChar(SEInfo, SizeOf(SEInfo), 0);
SEInfo.cbSize := SizeOf(TShellExecuteInfo);
with SEInfo do
beginfMask := SEE_MASK_NOCLOSEPROCESS;
Wnd := Application.Handle;
lpFile := PChar(ExecuteFile);
{ParamString can contain theapplication parameters.}// lpParameters := PChar(ParamString);{StartInString specifies thename of the working
directory.If ommited, the current
directory is used.}// lpDirectory := PChar(StartInString);
nShow := SW_SHOWNORMAL;
end;
if ShellExecuteEx(@SEInfo) thenbegin
repeatApplication.ProcessMessages;
GetExitCodeProcess(SEInfo.hProcess, ExitCode);
until (ExitCode <> STILL_ACTIVE) or
Application.Terminated;
ShowMessage('Calculator terminated');
endelse
ShowMessage('Error starting Calc!');
end;
Статья Запуск программ из Delphi раздела Программа и Интерфейс Приложения чужие может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.