Аналог nes send ... на Delphi 5 [D5, Win2k]
Rock@for © (2003-01-29 17:21:00)
Кто сможет что-нибудь посоветовать? Есть локальная сеть(под
Windows 98 либо -NT). Как с помощью Delphi 5 (машина №1) вывести
сообщение на чужом компьютере(машина №2) без использование
специальной программы-клиента под Delphi, работающей на машине №2,
т.е. только средствами Windows. Получается своеобразный аналог
Dos-кого "nes send root "Осталось 5 минут""
Заранее благодарен.
_Narayan_ (2003-01-30 09:00: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
(если служба сообщений запущена). Вот.
Наверх 
ЧАТ |
Орешник |
|
