1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:

function NetSend(dest, Source, Msg: string): Longint; overload; 
type 
TNetMessageBufferSendFunction = function(servername, msgname, fromname: PWideChar; 
buf: PWideChar; buflen: Cardinal): Longint; 
stdcall; 
var 
NetMessageBufferSend: TNetMessageBufferSendFunction; 
SourceWideChar: PWideChar; 
DestWideChar: PWideChar; 
MessagetextWideChar: PWideChar; 
Handle: THandle; 
begin 
Handle := LoadLibrary('NETAPI32.DLL'); 
if Handle = 0 then 
begin 
Result := GetLastError;
Exit;
end;
@NetMessageBufferSend := GetProcAddress(Handle, 'NetMessageBufferSend');
if @NetMessageBufferSend = nil then
begin
Result := GetLastError;
Exit; 
end; 

MessagetextWideChar := nil; 
SourceWideChar := nil; 
DestWideChar := nil; 

try 
GetMem(MessagetextWideChar, Length(Msg) * SizeOf(WideChar) + 1); 
GetMem(DestWideChar, 20 * SizeOf(WideChar) + 1); 
StringToWideChar(Msg, MessagetextWideChar, Length(Msg) * SizeOf(WideChar) + 1); 
StringToWideChar(Dest, DestWideChar, 20 * SizeOf(WideChar) + 1); 

if Source = '' then 
Result := NetMessageBufferSend(nil, DestWideChar, nil,
MessagetextWideChar, Length(Msg) * SizeOf(WideChar) + 1) 
else
begin 
GetMem(SourceWideChar, 20 * SizeOf(WideChar) + 1); 
StringToWideChar(Source, SourceWideChar, 20 * SizeOf(WideChar) + 1); 
Result := NetMessageBufferSend(nil, DestWideChar, SourceWideChar, 
MessagetextWideChar, Length(Msg) * SizeOf(WideChar) + 1); 
FreeMem(SourceWideChar); 
end; 
finally 
FreeMem(MessagetextWideChar); 
FreeLibrary(Handle);
end;
end;