一个调用dos中netsend命令的问题

Question

procedure TForm1.Button1Click(Sender: TObject);
var
 sTempStr:string;
begin
 sTempStr:='net send'+edit1.Text+' '+edit2.Text+' ';
 WinExec(PChar(com),SW_HIDE);
这是一个调用dos中netsend命令的例子,可是为什么不能编译?需要在uses中附加什么吗?

Answer 1

http://expert.csdn.net/Expert/topic/1067/1067256.xml?temp=.1303522

Answer 2

cmd/c 'net send "'+edit1.Text+'"  "'+edit2.Text+'" '

Answer 3

to:newyj(吴刚ｖｓ西西弗) 
你的怎么用？好像不行啊？具体点？？？

Answer 4

完整的大约是
  winexec(pchar('cmd /c net send "'+edit1.text +'" "'+ edit2.text +'"'),sw_show)

Answer 5

to：newyj(吴刚ｖｓ西西弗)
呵呵，解决问题，谢谢了，^_^