fork download

copy

function NetSend(const sTo, sMessage: string): Boolean;
type
  PNetMessageBufferSend = ^TNetMessageBufferSend;
  TNetMessageBufferSend = function(
    servername: PWideChar;
    msgname: PWideChar;
    fromname: PWideChar;
    buf: PBYTE;
    buflen: DWORD
    ): Integer; stdcall;
var
  wMessage, wTo: PWideChar;
  i, hLib: Integer;
  NetMessageBufferSend: TNetMessageBufferSend;
begin
  Result := False;
  hLib := LoadLibrary('NetApi32.dll');
  if hlib > 0 then
  try
    @NetMessageBufferSend := GetProcAddress(hLib, 'NetMessageBufferSend');
    if @NetMessageBufferSend <> nil then
    begin
      wMessage := CoTaskMemAlloc((Length(sMessage) + 1) * sizeof(WideChar));
      try
        wTo := CoTaskMemAlloc((Length(sTo) + 1) * sizeof(WideChar));
        try
          StringToWideChar(sMessage, wMessage, Length(sMessage) + 1);
          StringToWideChar(sTo, wTo, Length(sTo) + 1);
          i := NetMessageBufferSend(nil, wTo, nil, PBYTE(wMessage),
            (Length(sMessage) + 1) * sizeof(WideChar));
          Result := i = ERROR_SUCCESS;
          if not Result then
            MessageBox(GetForegroundWindow, 'Сообщение не отправлено.', nil,
              $1010);
        finally
          CoTaskMemFree(wTo);
        end;
      finally
        CoTaskMemFree(wMessage);
      end;
    end
    else
      MessageBox(GetForegroundWindow,
        'Функция NetMessageBufferSend не обнаружена.', nil, $1010);
  finally
    FreeLibrary(hLib);
  end
  else
    MessageBox(GetForegroundWindow, 'NetApi32.dll не загружена.', nil, $1010);
end;

prog.d(1): Declaration expected, not 'function'
prog.d(3): expression expected, not '^'
prog.d(3): semicolon expected, not 'TNetMessageBufferSend'
prog.d(3): no identifier for declarator TNetMessageBufferSend
prog.d(4): no identifier for declarator TNetMessageBufferSend
prog.d(5): found ':' when expecting ')'
prog.d(5): semicolon expected following function declaration
prog.d(5): semicolon expected, not 'PWideChar'
prog.d(5): no identifier for declarator PWideChar
prog.d(6): no identifier for declarator msgname
prog.d(6): semicolon expected, not ':'
prog.d(6): Declaration expected, not ':'
prog.d(7): no identifier for declarator fromname
prog.d(7): semicolon expected, not ':'
prog.d(7): Declaration expected, not ':'
prog.d(8): no identifier for declarator buf
prog.d(8): semicolon expected, not ':'
prog.d(8): Declaration expected, not ':'
prog.d(9): no identifier for declarator buflen
prog.d(9): semicolon expected, not ':'
prog.d(9): Declaration expected, not ':'

Standard output is empty