| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Rrg ©   (2004-01-15 15:43:00) 

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

---

LexaTyukha   (2004-01-20 11:21:00) [1]

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

---

Alex Konshin   (2004-01-16 01:42:00) [2]

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

---

DrPass   (2004-01-15 21:36:00) [3]

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

---

Alex Konshin   (2004-01-15 21:07:00) [4]

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

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

---

DrPass   (2004-01-15 20:07:00) [5]

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

---

VMcL   (2004-01-15 18:44:00) [6]

>>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;

---

Рамиль   (2004-01-15 15:50:00) [7]

см. ShellExecute

---

Наверх