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

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

Message [D7, WinXP]

Corel ©   (2007-09-20 02:15:00) 

подскажите люди в какую сторону копать, чтобы послать юзеру сообщение. Вроде бы функции Net... есть, только где?

---

Ega23   (2007-09-20 10:30:00) [1]

cmd net send /?

---

clickmaker   (2007-09-20 10:25:00) [2]

кусок кода даже завалялся. Дарю

type
 NET_API_STATUS = DWORD;

 TNetMessageBufferSend = function(
   servername: PWideChar;
   msgname: PWideChar;
   fromname: PWideChar;
   buf: Pointer;
   buflen: DWORD
 ): NET_API_STATUS; stdcall;

var
 NetLibHandle: THandle;
 wszSrc: array[0..MAX_COMPUTERNAME_LENGTH] of WideChar;
 wszDest: array[0..255] of WideChar;
 wszMsg: PWideChar;
 cbMsg: DWORD;

function NetSendMsg(const ComputerName, MsgText: string): NET_API_STATUS;
var
 NetMessageBufferSend: TNetMessageBufferSend;
 szComputerName: array[0..MAX_COMPUTERNAME_LENGTH] of char;
 cbComputerName: Cardinal;
begin
 cbComputerName := MAX_COMPUTERNAME_LENGTH + 1;
 GetComputerName(szComputerName, cbComputerName);

 MultiByteToWideChar(CP_ACP, 0, szComputerName, -1, wszSrc, MAX_COMPUTERNAME_LENGTH+1);
 StringToWideChar(ComputerName, wszDest, SizeOf(wszDest));

 cbMsg := (Length(MsgText) + 1) * 2;
 wszMsg := AllocMem(cbMsg);
 StringtoWideChar(MsgText, wszMsg, cbMsg);

 if (NetLibHandle = 0) then
   NetLibHandle := LoadLibrary('NETAPI32.DLL');
 @NetMessageBufferSend := GetProcAddress(NetLibHandle, 'NetMessageBufferSend');

 Result := NetMessageBufferSend('', wszDest, wszSrc, wszMsg, cbMsg);

 FreeMem(wszMsg);
end;

initialization

finalization
 if (NetLibHandle <> 0) then FreeLibrary(NetLibHandle);

---

clickmaker   (2007-09-20 10:13:00) [3]

NetMessageBufferSend()

---

Черный Шаман   (2007-09-20 03:37:00) [4]

Может это
NetAlertRaiseEx

---

Германн   (2007-09-20 02:20:00) [5]

> Message [D7, WinXP]
>
> Corel   (20.09.07 02:15)
>
> подскажите люди в какую сторону копать, чтобы послать юзеру
> сообщение. Вроде бы функции Net... есть, только где?
>

Бред. Имхо.
Проспись и спроси заново.

---

Наверх