Если только послать, то проще всего, пожалуй...
Win32: F1 "NetMessageBufferSend";
Win16: Почему-то неописан, но руками наковырял...
function NetMessageBufferSend(
Zero1, Zero2: Word;
WhoTo: PChar;
Buffer: PChar; BufSize: Word): Integer; external 'NETAPI'
index 525;
"Кому" может быть '*' == всем.
Александр Петросян(PAF, Alexander Petrosyan), Зеленоград.