| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Запуск консольного приложения [XP]
начинающий565 © (2007-08-06 23:06:00)Здравствуйте!
Как средствами Delphi запустить tracert.exe и по окончании трассировки скопировать текстовые данные в свое приложение.
Заранее спасибо.
{RASkov} (2007-08-07 01:48:00) [1]> [3] vicegen © (07.08.07 00:55)
> деле все-равно не работает...
> [0] начинающий565 (06.08.07 23:06)
ShellExecute(Handle, nil, PChar(GetEnvironmentVariable('ComSpec')), ' /k tracert > 123.txt', nil, SW_HIDE);
Ну и например Memo.Lines.LoadFromFile('123.txt'); Только там в ДОС кодировке помоему будет...
vicegen (2007-08-07 00:55:00) [2]> Anatoly Podgoretsky © (07.08.07 00:00) [2]
да это я пропустил, только на самом деле все-равно не работает...
ZeroMemory(@SI,SizeOf(TStartupInfo));
ZeroMemory(@PI,SizeOf(TProcessInformation));
SI.cb:=SizeOf(TStartupInfo);
CreateProcess(nil,'cmd tracert >> 123.txt',nil,nil,False,0,nil,nil,SI,PI);
Anatoly Podgoretsky (2007-08-07 00:00:00) [3]> vicegen (06.08.2007 23:48:01) [1]
Неверно, надо запускать командный процессор, функция перенаправления это его функция.
vicegen (2007-08-06 23:48:00) [4]запустить с параметром: tracert.exe > 1.txt, далее считать из 1.txt. Или грамотный вариант через пайпы... ищи в мсдн: "Creating a Child Process with Redirected Input and Output"
| |
