用Delphi实现Windows的信使服务

时间:2010-03-03 17:32:29  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:: TObject);var  Msg:WideString;  Target: WideStrign;begin  Msg:='你好,信使服务测试';   //信息内容  Target:= 'computer1';      //对方计算机名称  NetMessageBufferSend(NIL,PWidechar(Target),Nil,PWideChar(Msg),Length(String(Msg)));
  正文:首先加入函数声明
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;

用Delphi实现Windows的信使服务》由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/13029.html


关键字:

关于《用Delphi实现Windows的信使服务》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td