function WTD(AText:string):string;
var PText : PChar; MaxLength : integer;
begin
 MaxLength:=length(AText)+1;
 PText:=StrAlloc(MaxLength);
 StrPCopy(PText,AText);
{$IFDEF WIN32}
 CharToOEM(PText,PText); {32Bit}
{$ELSE}
 AnsiToOEM(PText,PText); {16Bit}
{$ENDIF}
 Result:=StrPas(PText);
 StrDispose(PText);
end;

procedure SendNetMessage(AHost, AFromSt, AToSt, AMessageSt: string);
var
 hSlot : THandle;
 s     : string;
 cb    : DWORD;
 begin
  hSlot := CreateFile(PChar('\\'+AHost+'\mailslot\messngr'),
  GENERIC_WRITE, FILE_SHARE_READ, 0,
  OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
 if hSlot <> INVALID_HANDLE_VALUE then
  begin
   AFromSt:=WTD(AFromSt);
   AToSt:=WTD(AToSt);
   AMessageSt:=WTD(AMessageSt);
   s := AFromSt + #0 + AToSt + #0 + AMessageSt + #0;
   cb := length(S);
   WriteFile(hSlot, s[1], cb, cb, 0);
   CloseHandle(hSlot);
  end;
end;