有谁知道可以怎么用delphi编程调用win2000的Messenger服务！？(100分)

通过编程实现调用win2000的Messenger服务，也就是/WINNT/System32/services.exe这个。
向指定的IP机子发信息？！！！
请详细说明。谢谢！

关注

用一个API就可以搞定！

NET_API_STATUS NetMessageBufferSend( LPWSTR servername,

LPWSTR msgname,

LPWSTR fromname,

LPBYTE buf,

DWORD buflen );

请gonghh具体说明该怎么实现好么？我是初学者，对API编程不是很熟悉，但是非常想虚心向您学习。
谢谢！gonghh
最好给个具体例子说明。

http://61.132.118.185:8080/dispdocnew.php?t=27&id=3639

格式：
WinExec(Format('net send %s %s', [ip, msg]), 0);

例如：
WinExec(Format('net send %s %s', ['172.16.92.12', '吃饭了吗？']), 0);

NetMessageBufferSend在NETAPI32。DLL中。
它可以向局域网中的机器发消息。
显示为“系统信使！”
从“主机名”到“主机名”的
“消息”

to beta:
在windows 2000 prof 向2000server发送没有效果

用net send 吧

怎么引用NetMessageBufferSend 知道在"netapi32.lib"下。要怎么写？

unit Unit2;

interface
uses sysutils,classes;

function A(str:string;destWideChar):integer; //将ASCII码转为Uncodes码
Function SendMsg(Toh,From,Msg:string):integer;
Function NetMessageBufferSend(ServerNameointer;MsgNameointer;FromNameointer;Bufointer;var BufLen:integer):integer;cdecl;
implementation

function A(str:string;destWideChar):integer;
var
len:integer;
begin
stringtowidechar(str,dest,len);
result:=len;
end;

Function NetMessageBufferSend;external 'netapi32.dll' name 'NetMessageBufferSend';

Function SendMsg(Toh,From,Msg:string):integer;
var
ToName:array[0..64] of widechar; //显示的对方名称
FromName:array[0..64] of widechar; //显示的发送方名称
MsgLen,i:integer;
WMsgText:array[0..1000] of widechar; //发送的消息
begin
for i:=0 to 64 do ToName:=#0;
A(Toh,ToName);
for i:=0 to 64 do FromName:=#0;
A(From,FromName);
for i:=0 to 1000 do WMsgText:=#0;
A(Msg,WMsgText);
result:=NetMessageBufferSend(nil,@ToName,@FromName,@WMsgText,MsgLen);
end;

end.

用net send就可以了