全部答案

2018-03-22 09:43:19

•   本程序介绍如何在局域网内安装了信使服务的Windows 2000计算机之间传递消息。
  向窗体上添加两个TLabel组件、两个TEdit组件和一个TButton组件
  首先声明NetMessageBufferSend函数，该函数在netapi32。
    dll库中：
  type
  NET_API_STATUS = LongInt;
  function NetMessageBufferSend(servername: LPCWSTR; msgname: LPCWSTR;
  fromname: LPCWSTR; buf: Pointer;
  buflen: DWORD): NET_API_STATUS;
  stdcall;external ’netapi32。
    dll’;
  在程序运行过程中，单击Send按钮，就会向Computer文本框指定的计算机发送Content文本框中输入的消息，响应代码如下：
  procedure TForm1。Button1Click(Sender: TObject);
  var
  WideMsg:PWideChar;
  DestName:PWideChar;
  begin
  DestName:=PWideChar(WideString(Edit1。
    Text));
  WideMsg:=PWideChar(WideString(Edit2。Text));
  NetMessageBufferSend(nil,DestName,nil,WideMsg,Length(Edit2。
    Text)*2);
  end;
  程序代码如下：
  unit Unit1;
  interface
  uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
  type
  NET_API_STATUS = LongInt;。

  全部
  

  刘***

  2018-03-22 09:43:19

  45 3 评论

  分享
  提交评论