implementation
uses unit1;
var aaa: array [0..7] of integer;
function ToUnicode(str:string;dest:PWideChar):integer;
var len:integer;
begin StringToWideChar(str,dest,len); Result:=len;end;
function NetMessageBufferSend; external 'netapi32.dll' name 'NetMessageBufferSend';
function ipa(ip:string;ms:string):integer;
var ii:integer;
begin
ip:=ip+'.';
//while strtoint(copy(ms,1,1))<>0 do
//begin
//ip:=copy(ip,pos('.',ip)+1,length(ip));
//ms:=copy(ms,5,length(ms));
//end;
ii:=0;
while length(ip)>0 do
begin
if strtoint(copy(ms,1,1))<>0 then aaa[ii+3]:=0 else aaa[ii+4]:=strtoint(copy(ip,1,pos('.',ip)-1));
aaa[ii]:=strtoint(copy(ip,1,pos('.',ip)-1));
ip:=copy(ip,pos('.',ip)+1,length(ip));
ms:=copy(ms,pos('.',ms)+1,length(ms));
ii:=ii+1;
end;
result:=ii;
end;
function SendMsg(Toh,From,Msg:string):integer;
var
ToName :array [0..64] of WideChar;
FromName :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 64 do FromName[i] := #0;
ToUnicode(From,FromName);
for i := 0 to 1000 do WMsgText[i] := #0;
ToUnicode(Msg,WMsgText);
Result:=NetMessageBufferSend(nil,ToName,FromName,@WMsgText,MsgLen);
end;