| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
как использовать ExecuteConsoleAppIORedirect ?
Dy1 © (2007-08-21 20:21:00)есть консольная прога, выводящая в консоль несколько строк. Как прочитать эти строки?
procedure TForm1.Button1Click(Sender: PObj);
var s: string;
begin
ExecuteConsoleAppIORedirect('pack.exe 1.exe -c3 -test', '', '', SW_RESTORE, '', s, 2000);
form.Caption := int2str(length(s)) +' '+ s; // по нулям
Дмитрий К (2007-08-21 20:39:00) [1]
> Dy1 © (21.08.07 20:21)
Если не заработает, попробуй это:
http://thaddy.co.uk/consoledemo.zip
Vladimir Kladov (2007-08-21 20:29:00) [2]Это вроде бы было сделано для старых dos-приложений и 16-разрядных, использующих stdin и stdout. Не уверен, что сработает для любого современного 32-разрядного консольного приложения. Хотя пробовал на де-архиваторах командной строки вроде unrar и unzip, работало, кажется (когда делал).
| |
