Форум: "Сети";
Текущий архив: 2003.03.20;
Скачать: [xml.tar.bz2];
ВнизАналог 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
(если служба сообщений запущена). Вот.
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2003.03.20;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c