win2000好像内置了一个显示讯息的功能，有些国产黑客软件就有发送讯息这项，是怎样做的。(100分)

?

winpop
net send

有没有富翁知道怎样编程实现

去查微软最新的msdn资料，因为windows2000里有一个服务来完成这个功能，可能要用
API货对象库

win2000 是net send

unit Unit2;
interface
uses SysUtils, Classes;

function ToUnicode(str:string;destWideChar):integer;
function SendMsg(Toh,From,Msg:string):integer;
function NetMessageBufferSend(servernameWideChar;
MsgNameWideChar;
FromNameWideChar;
Buf: PWideChar;
var BufLen:integer):integer;cdecl;
implementation
function ToUnicode(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;
WMsgText:array [0..1000] of WideChar;
MsgLen, i:integer;
begin
for i := 0 to 64 do ToName := #0;
ToUnicode(Toh,ToName);
for i := 0 to 1000 do WMsgText := #0;
ToUnicode(Msg,WMsgText);
Result:=NetMessageBufferSend(nil,ToName,nil,@WMsgText,MsgLen);
end;

end.

winexec('net send 192.168.0.1 呵呵',sw_hide);

谢谢了

多人接受答案了。