| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

создание своего WinPopup а

Сергей ©   (2003-04-07 00:25:00) 

Хочу создать свой WinPopup.
Думаю, что для этого надо знать его порт и формат посылки сообщений (протокол, надо полагать, UDP).
Кто-нибудь, подскажите, плиз, где найти информацию или поделитесь, если кто что подобное уже делал.

---

Ihor Osov'yak   (2003-04-07 22:08:00) [1]

WinPopup работает не только по майлслотам. В W2k/XP/NT - также через механизм RPC. Сия фича во всю уже пользуется спамерами...

---

Dimich1978   (2003-04-07 08:52:00) [2]

ZHERTVA:=Form1.Edit1.Text;//кому
USER:=Form1.Edit2.Text;//от кого
COMP:=Form1.Edit3.Text;//от кокого компа
Data:=Form1.Memo1.Text;//текст сообщения
CharToOEM(PChar(USER),PChar(USER));
CharToOEM(PChar(COMP),PChar(COMP));
CharToOem(Pchar(Data),Pchar(Data));
Data:=USER+#0+COMP+#0+Data;
Len:=Length(Data);
MSopen:=CreateFile(pchar("\\"+ZHERTVA+"\mailslot\messngr"),
GENERIC_WRITE,FILE_SHARE_READ,NIL,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
if MSopen<>INVALID_HANDLE_VALUE then
begin
WriteFile(MSopen,Pointer(PChar(Data))^,Len,Len,nil);
end;
closeHandle(MSopen);
end;

---

Наверх