Выполнение cmd в delphi без замораживания

Question

Я пытаюсь выполнить некоторые команды cmd dos в проекте Delphi с помощью функции выполнения cmd, которая работает хорошо, но когда выполнение в процессе, приложение похоже на замораживание и блокируется до процесс завершен. Мне нужна помощь, есть ли какие-либо трюки, чтобы обойти этот процесс, чтобы приложение работало нормально, когда выполняется процесс.

Обновление от комментариев:

функции, я использую создает трубу:

if CreatePipe(read_stdout, newstdout, @sa, 0) then begin 
    GetStartupInfo(si); 
    with si do begin 
    dwFlags := STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW; 
    wShowWindow := SW_HIDE; 
    hStdOutput := newstdout; 
    hStdError := newstdout; 
    hStdInput := newstdin; 
    end; 

После Google я нашел функцию здесь http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_25050763.html

Подход 1: (Автор: Marco Pipino) ......

Может ли кто-нибудь помочь мне изменить эту функцию, чтобы enduse Не думайте, что приложение висит во время выполнения команды?

Answer 1

В быстрых решений, я бы START партию, то есть это сигнал завершения путем создания или удаления файла, например:

@echo off 
setlocal 
echo.>"c:\some\filename" 
start "title if you want one" yourrealbatch anditsparameters 

yourrealbatch затем следует удалить "c:\some\filename" после его обработки готовой

Затем дельфи просто контролирует наличие "c:\some\filename". Когда он исчезает, пакетный процесс завершен.

Answer 2

Ваша проблема в том, что вы блокируете основной поток. Основной поток приложения должен своевременно обрабатывать сообщения, чтобы оставаться отзывчивыми.

Правильный способ справиться с этим - начать внешний процесс, а затем дождаться его, из потока. Это гарантирует, что вы не заблокируете основной поток. Возможно, вы захотите использовать некоторую связь между потоками, чтобы обеспечить обратную связь с пользователем.