Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.09.02;
Скачать: CL | DM;

Вниз

Запуск консольного приложения   Найти похожие ветки 

 
начинающий565   (2007-08-06 23:06) [0]

Здравствуйте!

Как средствами Delphi запустить tracert.exe и по окончании трассировки скопировать текстовые данные в свое приложение.

Заранее спасибо.


 
vicegen ©   (2007-08-06 23:48) [1]

запустить с параметром: tracert.exe > 1.txt, далее считать из 1.txt. Или грамотный вариант через пайпы... ищи в мсдн: "Creating a Child Process with Redirected Input and Output"


 
Anatoly Podgoretsky ©   (2007-08-07 00:00) [2]

> vicegen  (06.08.2007 23:48:01)  [1]

Неверно, надо запускать командный процессор, функция перенаправления это его функция.


 
vicegen ©   (2007-08-07 00:55) [3]

> 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);


 
{RASkov} ©   (2007-08-07 01:48) [4]

> [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"); Только там в ДОС кодировке помоему будет...



Страницы: 1 вся ветка

Текущий архив: 2007.09.02;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.034 c
3-1178520314
mefodiy
2007-05-07 10:45
2007.09.02
SQL запрос в Oracle через ADOQuery


15-1186119392
shlst
2007-08-03 09:36
2007.09.02
Как запустить программу, что бы её не закрыли?


15-1185530247
Dib@zol
2007-07-27 13:57
2007.09.02
Точка входа


2-1186487790
axezzz
2007-08-07 15:56
2007.09.02
Word Server


2-1186561409
Кирей
2007-08-08 12:23
2007.09.02
Кфму 5