首先加入函数声明
function
NetMessageBufferSend(servername:PWideChar;msgname:PWideChar;
fromname:PWideChar;buf:PWideChar;buflen:DWORD):DWORD;stdcall;external 'netapi32.dll'
procedure TForm1.Button1Click(Sender: TObject);
var
Msg:WideString;
Target: WideStrign;
begin
Msg:='你好,信使服务测试'; //信息内容
Target:= 'computer1'; //对方计算机名称
NetMessageBufferSend(NIL,PWidechar(Target),Nil,PWideChar(Msg),Length(String(Msg)));
end;