WinExecAndWait32

← →
oren_yastreb (2010-11-22 16:51) [0]

Добрый день!
подскажите как решить проблему.
Задача: в приложение выполняется внешняя программа (она отображает состояние выполнение команды)и в memo должно выводиться состояние команды

Подробнее........
по кнопке вызывается процедура
WinExecAndWait32("D:\123\Tools\lame.exe -f D:\123\audio1.wav D:\123\1236.mp3",0);
и паралельно с этим работает таймер который обрабатывает то что выводит эта функция.
Вообщем если запустить команду не из программы а через
Пуск-Выполнить то таймер постоянно выводит текущее состояние команды, а если запустить команду из приложения то пока выполняется команда содержимое memo не обновялется. И после выполнения в memo выводиться только последний результат выполнения команды

вот что делает timer
var
hConsole : hWnd ;
ip,jp:Integer;
strin,strout:String;
begin
hConsole:=FindWindow(nil , pchar("D:\123\Tools\lame.exe"));
SendMessage ( hConsole, WM_COMMAND, 65525, 0 ); // Выделяем всё
SendMessage ( hConsole , WM_COMMAND, 65520, 0 ) ; // Копируем в буфер
RichEdit1.Clear ;
RichEdit1.Text:=ClipBoard.AsText ;

← →
oren_yastreb (2010-11-22 16:54) [1]

Да пробовал вот так вызывать
cmd /C D:\123\Tools\lame.exe -f D:\123\audio1.wav D:\123\1236.mp3 >>D:\123\33.txt >>D:\123\Out.txt

файл Out.txt но он пустой, хотя пробовал вызывать команду ipconfig, результат в файл Out.txt выодиться

http://sources.ru/delphi/system/capturing_output_from_console.shtml

WinExecAndWait32 Найти похожие ветки