首先加入函数声明 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)));