Аналог nes send ... на Delphi 5

← →
Rock@for © (2003-01-29 17:21) [0]

Кто сможет что-нибудь посоветовать? Есть локальная сеть(под Windows 98 либо -NT). Как с помощью Delphi 5 (машина №1) вывести сообщение на чужом компьютере(машина №2) без использование специальной программы-клиента под Delphi, работающей на машине №2, т.е. только средствами Windows. Получается своеобразный аналог Dos-кого "nes send root "Осталось 5 минут""
Заранее благодарен.

← →
_Narayan_ (2003-01-30 09:00) [1]

Вопервых net send к DOS никакого отношения не имеет.

Во вторых в Win 2k/XP есть служба, обрабатывающая всплывающие сообщения (называется "служба сообщений" ;-)), коей не наблюдается в win 9x/me, по понятным причинам.

Отправять в принципе не важно от куда (9x или NT).
Делать ето можно так например:

function mSendPopup(RealName,mTo,mFrom,MsgText: String): Boolean;
var MailSlotHandle: THandle;
Len: DWORD;
FinalString: String;
begin
Result:=False;
MailSlotHandle:=CreateFile(pchar("\\"+RealName+"\mailslot\messngr"),GENERIC_WRITE,FILE_SHARE_READ,NIL,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
CharToOEM(PChar(mTo),PChar(mTo));
CharToOEM(PChar(mFrom),PChar(mFrom));
CharToOEM(Pchar(MsgText),Pchar(MsgText));
FinalString:=mTo+#0+mFrom+#0+MsgText;
Len:=Length(FinalString);
Result:=MailSlotHandle<>INVALID_HANDLE_VALUE;
if Result then WriteFile(MailSlotHandle,Pointer(PChar(FinalString))^,Len,Len,nil);
Result:=Len>0;
CloseHandle(MailSlotHandle);
end;

RealName - Название машины
mTo - кому
mFrom - от кого
MsgText - собственно текст

Принять енто сообщение без доп. средств может тока win 2k/XP
(если служба сообщений запущена). Вот.

Аналог nes send ... на Delphi 5 Найти похожие ветки