Как послать Message админу в виде всплывающего окна???

← →
Zemal © (2003-01-08 13:02) [0]

В общем в сабж всё сказано. Нужны API функции посылки сообщения на конкретную машину, так как это делает сервер при переходе на аварийное питание. В общем нужно чтоб мой сервис сообщал об ошибке админу, безо всяких серверов на клиенте. Помогите, плиз! Заранее благодарен!

← →
bak © (2003-01-08 13:39) [1]

NetMessageBufferSend ???

← →
Zemal © (2003-01-08 13:47) [2]

Эт конечно хорошо и спасибо! Но я незнаю синтаксиса этой функции, т.к. MSDN нет :(. Нельзя ли кусок из MSDN с описанием бросить? Плиз!

← →
bak © (2003-01-08 13:49) [3]

я попробую конечно порыться, но и в SDK можны подглядети ;)

← →
Verg © (2003-01-08 13:53) [4]

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/netmgmt/netmgmt/netmessagebuffersend.asp

← →
Zemal © (2003-01-08 13:53) [5]

Пробовал уже везде искать... :( нифига :(... и в Делфи эта функция не инкапсулирована :(

Вот. Выдрал из проги. Лови.

Function NetMessageBufferSend
(
servername: LPCWSTR;
msgname: LPCWSTR;
fromname: LPCWSTR;
buf: Pointer;
buflen: DWORD
): longint; stdcall; external "netapi32.dll";

Procedure SendLanMessage(Host, CompName, Msg: string);
Var
HostName: PWideChar;
RName: LPCWSTR;
buf: Pointer;
text: String;
size: Integer;
Begin
HostName := StringToOleStr(Host);
RName := StringToOleStr(CompName);
text := Msg;

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

then ShowMessage ("Error sending message :(");
End;

Спасибо большое... кажется уже светлеет :). Только что-то у меня нифига сообщения непроходят :(...
Код ошибки: RPC_X_NULL_REF_POINTER = 1780;
Что бы это значило? Может что с сеткой нетак?

Как послать Message админу в виде всплывающего окна??? Найти похожие ветки