delphi 调用系统dll文件

netmessagebuffersend示例

作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

- unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; function ToUnicode(str:string;dest:PWideChar):integer; function SendMsg(Toh,From,Msg:string):integer; function NetMessageBufferSend(servername:PWideChar;                               MsgName:PWideChar;                               FromName:PWideChar;                               Buf: PWideChar;                               var BufLen:integer):integer;cdecl; type   TForm1 = class(TForm)     Button1: TButton;     ComboBox1: TComboBox;     Memo1: TMemo;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} function NetMessageBufferSend; external 'netapi32.dll' name 'NetMessageBufferSend'; function ToUnicode(str:string;dest:PWideChar):integer; var   len:integer; begin   StringToWideChar(str,dest,len);   Result:=len; end; 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[i] := #0;   ToUnicode(Toh,ToName);   for i := 0 to 1000 do WMsgText[i] := #0;   ToUnicode(Msg,WMsgText);   Result:=NetMessageBufferSend(nil,ToName,nil,@WMsgText,MsgLen); end; procedure TForm1.Button1Click(Sender: TObject); var size:integer; begin  sendmsg('192.168.2.16',',192.168.2.16','kjjkkjkjkj'); end; end.