请问WIN 2K 下的NET SEND * ‘’ 在DELPHI下如何做？

Question

procedure TForm1.Button1Click(Sender: TObject);
var
 Cmd:string;
 Result:UINT;
begin
  if edit1.Text='' then  //edit1.text是对方IP或主机名
  begin
    ShowMessage('你真的没有倾诉对象吗？');
    Host:=False;
  end;
  if  Host then
  begin
    cmd:='net send '+edit1.Text+' '+memo1.Lines.Text;  //memo1.lines.text 是发送消息
    Result:=winexec(pchar(cmd),sw_hide);//api函数winexec(),就是用他！
    if result>31 then
      ShowMessage('消息发送成功！')
    else
      ShowMessage('消息发送失败！');
  end;
end;

Answer 1

to karron(晴空):估计你误会主人意思了
他应该是要实现,向所有局域网的人发送一条message;
要列出所有计算机名
去这里看小新的回答
http://www.csdn.net/expert/Topic/353/353357.shtm