Текущий архив: 2007.10.14;
Скачать: CL | DM;

Вниз

Message   Найти похожие ветки 

← →
Corel   (2007-09-20 02:15) [0]

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

---

← →
Германн ©   (2007-09-20 02:20) [1]

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

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

---

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

Может это
NetAlertRaiseEx

---

← →
clickmaker ©   (2007-09-20 10:13) [3]

NetMessageBufferSend()

---

← →
clickmaker ©   (2007-09-20 10:25) [4]

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

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

---

← →
Ega23 ©   (2007-09-20 10:30) [5]

cmd net send /?

---

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

Текущий архив: 2007.10.14;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.025 c