Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Результат от процесса [D7, Win2k, WinXP]

Dr.Karter © (2004-03-22 15:54:00)
Хотелось бы получать такую информацию в файл:

с помощью коммандной строки так:
ping 192.168.0.1 > C:\1.txt

с помощь программы:
uses ... WinAPI;
.
.
.
ShellExecute(0,'open','ping',pchar('192.168.0.1'),nil,nil,SW_ShowNormal);

Пытался делать так: ShellExecute(0,'open','ping',pchar(IPAddress+' > C:\1.txt'),nil,nil,SW_ShowNormal);

НЕ РАБОТАЕТ!!!!!!!
Что делать? Точно также с ipconfig

СПАСИБО

S@shka (2004-03-25 14:05:00) [1]
http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=1057316445&n=15

GrayFace (2004-03-25 11:35:00) [2]
ShellExecute(0,'',ping.exe',pchar(IPAddress+' > C:\1.txt'),'',sw_showNormal);

Kerk (2004-03-24 13:28:00) [3]

> Нашел такую штуку она?
> procedure CreateProcess(const ExeName, Args: string; const
> RemoteHost: string = '');

Нет, не она... :)
Ищи CreateProcess в http://msdn.microsoft.com/library

Dr.Karter (2004-03-24 10:56:00) [4]
Нашел такую штуку она?
procedure CreateProcess(const ExeName, Args: string; const RemoteHost: string = '');

И как тут с типом ping, ipconfig и т.д

И встречный вопрос. Все что угодно могу в файл запихнуть?

Dr.Karter (2004-03-24 10:52:00) [5]
Как код подскажите пожалуйста в примере или критерий поиска в helpe

Kerk (2004-03-23 15:00:00) [6]
Можно через CreateProcess перенаправить консольный вывод на pipe.

Dr.Karter (2004-03-23 06:01:00) [7]
получилось с помощью:
WinExec(pchar('command.com /c ping 192.168.0.120 > C:\123.txt'), 1);
При 1 - я вижу командную строку пустую и жду до исчезновения(время пингалки)
При 0 ничего не вижу, но файл не могу прочитать пока это время не пройдет.
А через ShellExecute можно ли это сделать?

BillyJeans (2004-03-22 16:38:00) [8]
через Pipes попробуй...

Kerk (2004-03-22 16:07:00) [9]
на вскидку:

command.com /c ping 111.111.111.111 >c:\123.txt
start ping 111.111.111.111 >c:\123.txt

Наверх

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