Разработка приложений в системе Delphi. Шейкер Т.Д. - 89 стр.

   Например, для запуска Калькулятора можно записать:
WinExec(PChar('calc.exe'), SW_ShowNormal);
   В следующем примере запускается на выполнение приложение Balls.exe.
Так как не указан путь, то это приложение должно быть расположено в одном
из просматриваемых Windows каталогов. Учитывая, что при отсутствии
возможности запустить приложение Windows не выдаёт сообщений, в примере
используется целочисленная переменная cod для обработки ошибки.
procedure TForm1.Button2Click(Sender: TObject);
var cod:byte;
begin
 cod:=WinExec('Balls.exe', SW_Restore);
 case cod of
    0: ShowMessage('Не хватает ресурсов');
    2: ShowMessage('Файл не найден');
    3: ShowMessage('Путь не найден');
    end;
end;
   При необходимо можно обеспечить выбор запускаемого приложения
пользователем во время работы. В приведённой ниже процедуре обработки
щелчка   по   кнопке   Button3    используется   стандартное   окно   диалога
OpenDialog1 для задания нужного файла.
procedure TForm1.Button3Click(Sender: TObject);
var cod:byte;
begin
 if OpenDialog1.Execute then
  begin
    cod:= WinExec(PChar(OpenDialog1.FileName), SW_Restore);
    if cod=0 then ShowMessage('Не хватает ресурсов');
  end;
end;

   Функция     ShellExecute      обладает   большими   возможностями,    она
позволяет не только запускать на выполнение заданное приложение, но и
открывать документы и печатать их. Например, обычно с документами,
имеющими расширение .doc, связан редактор Word, а с документами,
имеющими расширение .xls – табличный процессор Excel. Чтобы начать работу
с документом, надо запустить соответствующую программу (в данном случае
Word или Excel) и открыть нужный файл. Кроме того, функция ShellExecute

                                     89