procedure RunProgram(const aFN: String);
var
  kStartUpInfo: TSTARTUPINFO;
  kProcessInfo: TPROCESSINFORMATION;
begin
  FillChar(kStartUpInfo, SizeOf(kStartUpInfo), 0);

  kStartUpInfo.cb := SizeOf(kStartUpInfo);

  if CreateProcess(PChar(aFN), nil, nil, nil, False, 0,
     nil, nil, kStartUpInfo, kProcessInfo) then
  begin
     CloseHandle(kProcessInfo.hProcess);
     CloseHandle(kProcessInfo.hThread);
  end
  else
     MessageDlg('Ошибка при запуске программу установки!', mtError, [mbOK], 0);
end;