Как запустить приложение и подождать пока оно отработает

Объявляем сначала две глобальные переменные:

var
  si: Tstartupinfo;
  p: Tprocessinformation;

Затем по нужному событию, например, по нажатию на кнопке пишет такой код:

FillChar( Si, SizeOf( Si ) , 0 );
with Si do
begin
  cb := SizeOf( Si);
  dwFlags := startf_UseShowWindow;
  wShowWindow := 4;
end;

Form1.WindowState:=wsminimized;
Createprocess(nil, 'c:\windows\sndrec32.exe e:\temp.wav', nil, nil,
false, Create_default_error_mode, nil, nil, si, p);
Waitforsingleobject(p.hProcess, infinite);
Form1.WindowState:=wsNormal;

Недавно добавленные исходники
• Animation Loaders 1 003 • DeLiKaTeS Tetris (Тетрис) 5 935 • TDictionary Custom Sort 7 882 • Fast Watermark Sources 7 551 • 3D Designer 10 783 • Sik Screen Capture 8 114 • Patch Maker 8 305 • Айболит (remote control) 8 359 • ListBox Drag & Drop 7 211 • Доска для игры Реверси 101 302 • Графические эффекты 8 424 • Рисование по маске 7 796 • Перетаскивание изображений 6 389 • Canvas Drawing 6 766 • Рисование Луны 6 694 • Поворот изображения 5 814 • Рисование стержней 4 762 • Paint on Shape 3 459 • Генератор кроссвордов 4 463 • Головоломка Paletto 3 596 • Теорема Монжа об окружностях 4 390 • Пазл Numbrix 2 844 • Заборы и коммивояжеры 3 795 • Игра HIP 2 562 • Игра Go (Го) 2 571 • Симулятор лифта 2 958 • Программа укладки плитки 2 389 • Генератор лабиринта 3 140 • Проверка числового ввода 2 622 • HEX View 3 024

Как запустить приложение и подождать пока оно отработает

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