как реализовать net send

← →
Rrg (2004-01-15 15:43) [0]

как реализовать net send с помощью делфи, но не писать что то подобное на делфи а именно использовать встроенные возможности ОС

← →
Рамиль © (2004-01-15 15:50) [1]

см. ShellExecute

← →
VMcL © (2004-01-15 18:44) [2]

>>Rrg (15.01.04 15:43)

function NetSend(const AMessage, AToComputer: AnsiString): LongWord; type TNetMessageBufferSend = function (ServerName, ToName, FromName: PWideChar; Buffer: Pointer; BufLen: DWord): LongWord stdcall; var NetApi32: HMODULE; NetMessageBufferSend: TNetMessageBufferSend; MessageW, ToComputerW: WideString; begin Windows.SetLastError(NO_ERROR); NetApi32 := LoadLibrary("NetApi32.dll"); if NetApi32 < HINSTANCE_ERROR then begin Result := Windows.GetLastError; Exit; end; try NetMessageBufferSend := GetProcAddress(NetApi32, "NetMessageBufferSend"); if @NetMessageBufferSend = nil then begin Result := ERROR_INVALID_FUNCTION; Exit; end; MessageW := WideString(AMessage); ToComputerW := WideString(AToComputer); Result := NetMessageBufferSend(nil, PWideChar(ToComputerW), nil, PWideChar(MessageW), Length(MessageW) * SizeOf(WideChar)); finally FreeLibrary(NetApi32); end; end;

← →
DrPass © (2004-01-15 20:07) [3]

А не разумнее ли обойтись одной функцией WinExec?

← →
Alex Konshin © (2004-01-15 21:07) [4]

DrPass © (15.01.04 20:07) [3]
А не разумнее ли обойтись одной функцией WinExec?

А смысл?
Смотря что понимать под "разумнее"...
Если вспомнить, что WinExec создаст процесс, то не разумнее.
Да и по длине программы, много не выиграешь.

← →
DrPass © (2004-01-15 21:36) [5]

Ну и пусть создает - не так уж много на это ресурсов нужно. Не много ли чести для отправки одного сообщения набивать несколько килобайт текста?

Где ты видишь хотя бы килобайт текста???
И еще я знаю волшебные команды Copy и Paste, и начего набивать не надо. Научить?

← →
LexaTyukha (2004-01-20 11:21) [7]

Удалено модератором
Примечание: В отельной ветке, пожалуйста...

как реализовать net send Найти похожие ветки