Скачать: CL | DM;

как реализовать 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]

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

---

← →
Alex Konshin ©   (2004-01-16 01:42) [6]

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

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.02 c