посылка сообщения

← →
Story_ (2002-04-18 00:37) [0]

Помогите пожалуйста !!
Дайте пример или хотя бы название апи функции, с помощью которой можно посылать сообщения с комсервера на все машины в локальной сети. Заранее большое спасибо !

← →
Song © (2002-04-18 08:21) [1]

NetMessageSend() ?

Попробуй...
Function NetMessageBufferSend (
servername: LPCWSTR;
msgname: LPCWSTR;
fromname: LPCWSTR;
buf: Pointer;
buflen: DWORD
): longint; stdcall; external "netapi32.dll";

Implementation

// процедура посылки сообщения
Procedure SendLanMessage;
Var
HostName: LPCWSTR;
RName: LPCWSTR;
buf: Pointer;
text: String;
size: Integer;
Begin
HostName := Nil;
RName := "User";
text := "Тестик";

// Перевод String в WideString
size := SizeOf (WideChar) * Length (text)+1;
GetMem (buf, Size);
PWideChar (Buf) := StringToWideChar (text, buf, Length (text) + 1);

If NetMessageBufferSend (HostName, RName, Nil, buf, size) <> NO_ERROR
//HostName-имя компа с которого посылаешь
//RName-имя компа которому посылаешь
then ShowMessage ("Error");
End;

посылка сообщения Найти похожие ветки