如何在D7中实现net send的功能？(50分)

不知道如何实现？同Windows 2000中的net send功能一样？

winexec('net send localhost message',0);

Net Send 计算机名 消息
winexec(pchar('net send ' + trim(EDIT2.Text) + '' + c),SW_HIDE);

var
Msg:WideString; //消息内容
Addr: WideString; //目的地址
Sor: WideString; //来源地址
begin
msg := 'hello';
addr := '192.168.0.1';
sor := '192.168.0.2';
NetMessageBufferSend(nil, pwidechar(Addr), PWideChar(Sor), PWideChar(Msg), length(msg)*2);
...

procedure TfrmMain.BitBtn1Click(Sender: TObject);
begin
WinExec(PChar('net send '+trim(Addr.Text)+' '+txtContent.Text),SW_HIDE);
end;

softdog,请问使用NetMessageBufferSend是不是要在uses段中加点什么？

function NetMessageBufferSend(servernameWideChar;msgnameWideChar;fromnameWideChar;bufWideChar;buflenWORD)WORD;stdcall;external 'netapi32.dll'

在问一个，就是如何知道是否以发送成功？

OK，我以搞定了。谢谢大家好，下面是我的代码。
=================================
var
Msg:WideString; //消息内容
Addr: WideString; //目的地址
Sor: WideString; //来源地址
err:Integer;
begin
msg := teMsg.Text;
addr := teIP.Text;
sor := teName.Text;
try
TeStatusBar1.Panels[0].Text:='正在发送...';
err:=NetMessageBufferSend(nil, pwidechar(Addr), PWideChar(Sor), PWideChar(Msg), length(msg)*2);
finally
case err of
0:TeStatusBar1.Panels[0].Text:='消息已送到';
2273:TeStatusBar1.Panels[0].Text:='对方关闭了此项功能';
else
TeStatusBar1.Panels[0].Text:='发送错误';
end;
end;