Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 448

•  TDictionary Custom Sort  6 480

•  Fast Watermark Sources  6 277

•  3D Designer  9 221

•  Sik Screen Capture  6 610

•  Patch Maker  6 993

•  Айболит (remote control)  6 996

•  ListBox Drag & Drop  5 865

•  Доска для игры Реверси  97 047

•  Графические эффекты  7 195

•  Рисование по маске  6 498

•  Перетаскивание изображений  5 363

•  Canvas Drawing  5 740

•  Рисование Луны  5 451

•  Поворот изображения  4 979

•  Рисование стержней  3 535

•  Paint on Shape  2 803

•  Генератор кроссвордов  3 668

•  Головоломка Paletto  2 959

•  Теорема Монжа об окружностях  3 762

•  Пазл Numbrix  2 481

•  Заборы и коммивояжеры  3 166

•  Игра HIP  2 132

•  Игра Go (Го)  2 066

•  Симулятор лифта  2 438

•  Программа укладки плитки  2 111

•  Генератор лабиринта  2 583

•  Проверка числового ввода  2 263

•  HEX View  2 590

•  Физический маятник  2 202

 
скрыть

Вызов других программ



Автор: VRSLazy@mail.ru

Увеличения числа участников при подготовке опаздывающей программы только замедляет процесс.


uses ...ToolWin, Windows...

procedure Run(App: string);
var
  ErrStr: string;

  PMSI: TStartupInfo;
  PMPI: TProcessInformation;
begin
  try
    CreateProcess(nil, @App[1], nil, nil, False, NORMAL_PRIORITY_CLASS,
      nil, nil, PMSI, PMPI);
  except
    ErrStr := 'Fault run process: ''' + App + '''';
    Application.MessageBox(@ErrStr[1], 'Failure process', MB_OK + MB_ICONERROR);
  end;
end;





Похожие по теме исходники

Модуль активации программ

Программа укладки плитки