Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Управление процессами


Волков Михаил ©   (2003-02-18 11:52:00) 

Я создаю процесс:
CODE>
var
si : Tstartupinfo;
p : Tprocessinformation;
begin
FillChar( Si, SizeOf( Si ) , 0 );
with Si do begin
cb := SizeOf( Si);
dwFlags := DETACHED_PROCESS ;
wShowWindow := 4;
end;
Application.Minimize;
Createprocess(nil,"cmd.exe /k dir C:\",nil,nil,false,CREATE_NEW_CONSOLE,nil,nil,si,p);

Waitforsingleobject(p.hProcess,infinite);

Командную строку. Как мне получить в мое основное приложение результаты
Выполнения команды (dir С:\). Или подскажите другой способ управлять
Командной строкой (и получать результаты).
Заранее благодарю, всех кто откликнется!


gsu   (2003-02-18 15:00:00) [1]

typedef struct _STARTUPINFO { // si
...
HANDLE hStdInput;
HANDLE hStdOutput;
...
} STARTUPINFO, *LPSTARTUPINFO;


DarkGreen   (2003-02-18 13:54:00) [2]

А самому написать скан каталога используя FindFirst, FindNext и FindClose слабо?


Roma   (2003-02-18 12:08:00) [3]

Можно перенаправить вывод в файл ("cmd.exe /k dir C:\ >>" + MyTempFileName), временное имя файла получить с помощью GetTempFileName...


Наверх

Титульная страница Поиск, карта сайта Написать письмо