TProcessInformation

// Главная форма
frm=new TForm();
frm.Caption="JS+ - структура WinAPI TProcessInformation";
frm.Width =525;
frm.Height=375;

// Строка состояния
stb=new TStatusBar(frm);

// Кнопка
btn=new TButton(frm);
btn.Caption="Блокнот";
btn.Left=(frm.ClientWidth-btn.Width)/2;
btn.Top =(stb.Top-btn.Height)/2-15;
btn.Hint="Запустить приложение notepad.exe";
btn.ShowHint=true;
btn.OnClick=btn_Click;

// Переключатель
chb=new TCheckBox(frm);
chb.Text="ждать завершения работы приложения "+btn.Caption;
chb.Width=chb.TextWidth(chb.Text)+20;
chb.Left=(frm.ClientWidth-chb.Width)/2;
chb.Top =btn.Top+btn.Height+15;
chb.Checked=true;

stb.SimpleText=" Для запуска приложения нажмите кнопку "+
btn.Caption;

frm.ShowModal();

// Обработчик события OnClick
function btn_Click(btn)
{
  stb.SimpleText=" Запуск приложения ...";

  stb.SimpleText=(app_Exec("notepad.exe",SW_SHOWNORMAL,chb.Checked)) ?
  " Успешный запуск приложения" :
  " Ошибка при запуске приложения ";
}

function app_Exec(exec_Str,show_Mode,wait_Flg)
{
  var si=new TStartupInfo();
  var pi=new TProcessInformation();

  si.dwFlags=STARTF_USESHOWWINDOW;
  si.wShowWindow=show_Mode;

  if (CreateProcess(
      null,exec_Str,null,null,false,0,null,null,si,pi)==false)
    return false;

  CloseHandle(pi.hThread);

  if (wait_Flg) {
    WaitForSingleObject(pi.hProcess,INFINITE);
    CloseHandle(pi.hProcess);
  }

  return true;
}