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.
