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

Delphi , Программа и Интерфейс , Приложения чужие

procedure Start;
var
  si: TStartupInfo;
  p:  TProcessInformation;
begin
  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);
  Waitforsingleobject(p.hProcess,infinite);
  Form1.WindowState:=wsNormal;
end;

Перевод контента на русский язык:

Код, который вы предоставили, - это процедура Delphi, называемая Start, которая запускает Windows-приложение (sndrec32.exe) с конкретным аргументом командной строки (e:/temp.wav) и ожидает его завершения.

Чтобы запустить это приложение, выполните следующие шаги:

1. Создайте новый проект Delphi или откройте существующий.
2. Добавьте в ваш список используемых единиц Forms (если она не уже добавлена) путем добавления строки unit Forms; в ваш раздел использования.
3. Скопируйте и вставьте процедуру Start в ваш проект.
4. Убедитесь, что у вас есть файл sndrec32.exe в директории C:\Windows или измените путь соответствующим образом.

Теперь давайте разберемся, что это код делает:

1. Функция FillChar используется для инициализации записи TStartupInfo (si) нулями.
2. Поле cb записи si устанавливается в размер записи TStartupInfo.
3. Поле dwFlags записи si устанавливается в значение startf_UseShowWindow, что означает, что приложение будет использовать свою функцию отображения окна (вместо использования стандартной).
4. Поле wShowWindow записи si устанавливается в значение 4, что означает, что приложение запустится в минимальном состоянии.
5. Объект Form1 имеет свойство WindowState, которое устанавливается в значение wsMinimized, что минимизирует основное окно.
6. Функция CreateProcess создает новый процесс с указанным исполняемым файлом (sndrec32.exe) и аргументом командной строки (e:/temp.wav). Параметр false означает, что процесс не будет наследовать handles от родительского процесса.
7. Функция WaitForSingleObject ожидает завершения процесса, дожидаясь, пока handle процесса не станет сигнализированным.

После того, как процесс будет выполнен, свойство WindowState объекта Form1 устанавливается обратно в значение wsNormal, что восстанавливает основное окно до нормального состояния.

Обратите внимание, что это код предполагает, что у вас есть файл sndrec32.exe в директории C:\Windows. Если он не там, вам нужно изменить путь или скопировать исполняемый файл в правильную директорию.

Также помните, что запуск другого приложения из вашего Delphi-программы может потенциально нарушить его нормальное функционирование или вызвать неожиданные последствия. Убедитесь, что понимаете, что это код делает, и почему вы используете его перед запуском в производственной среде.

В статье описывается процедура запуска приложения sndrec32.exe, минимальизации его окна, создания процессора и ожидания завершения работы приложения в течение 6 секунд.

Комментарии и вопросы

:: Главная :: Приложения чужие ::