怎样将调用windows程序（如net time/net send/ping/bnbtstat等）得到的结果保存(100分)

F

freechow

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-05

• #1

在运行中敲入net send ip message &gt;c:/c.txt<br>消息发送后，结果将会自动保存为题中文件<br>在delphi中调用winexec也可实现功能<br>如winexec(pchar('net send '+trim(edtIp.text)+' '+edtcontent.text),0)<br>是可以的<br>而加上目标文件后，则不行，仍然认为它是消息内容<br>winexec(pchar('net send '+trim(edtIp.text)+' '+edtcontent.text+' &gt;c:/d.txt'),0)<br>对于其他的ping、net time则干脆不能实现功能。<br>请问如何得到返回结果并保存。<br>谢谢！

 

H

hongxing_dl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-05

• #2

uses shellapi;<br>//<br>shellexecute(handle,'open','ping','155.40.62.1',nil,1);

 

P

Paladin_yf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-05

• #3

给分吧<br>WinExec(pchar('COMMAND.COM /C net send '+trim(edtIp.text)+' '+edtcontent.text+' &gt;c:/d.txt'),0)<br>

 

F

freechow

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-06

• #4

Paladin_yf，为什么是英文？而对于中文windows得到的应该是中文回复吧？<br>是可以给分了。

 

H

hongxing_dl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-06

• #5

ShellExecute(handle,'open',pchar('COMMAND.COM'),'/C net send '+edtIp.text+' '+edtContent.text+' &gt;c:/d.txt',nil,0)<br>这样也是可以的啊！

 

F

freechow

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-06

• #6

结束。hongxing_dl的有错，且也不能解决中英文的问题。关键所要的是Paladin_yf所说的“command.com /c”。谢谢