Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.30;
Скачать: CL | DM;

Вниз

Опять про NETSEND   Найти похожие ветки 

 
Dmitrij_K   (2004-04-15 11:48) [0]

Можно ли отправить сообщение в 98-х окнах, там ведь службой сообщений даже не пахнет


 
wal ©   (2004-04-15 12:39) [1]

отправить можно, а вот принять - уже программа нужна, например WinPopup.exe


 
clickmaker ©   (2004-04-15 12:39) [2]

Самому написать, через mailslot"ы или дельфовый TUDP


 
Rouse_ ©   (2004-04-15 13:09) [3]

Пример отправки посредством mailslots

procedure TForm1.Button1Click(Sender: TObject);
var
 MSHandle: THandle;
 MSMessage: array [0..2] of String;
 ResultMsMessage: String;
 MSWrite: DWORD;
 ServerName: String;
begin
 ServerName := Edit1.Text;
 if ServerName = "" then ServerName := "*\";
 if ServerName[Length(ServerName)] <> "\" then ServerName := ServerName + "\";

 MSHandle := CreateFile(PChar("\\" + ServerName + "mailslot\messngr"),
   GENERIC_WRITE,// or GENERIC_READ,
   FILE_SHARE_READ,
   nil,
   OPEN_EXISTING,
   FILE_ATTRIBUTE_NORMAL,
   0);
 if not Win32Check(MSHandle <> INVALID_HANDLE_VALUE) then Exit;

 MSMessage[0] := Edit2.Text;
 MSMessage[1] := Edit3.Text;
 MSMessage[2] := Memo1.Text;

 CharToOem(PChar(MSMessage[0]), PChar(MSMessage[0]));
 CharToOem(PChar(MSMessage[1]), PChar(MSMessage[1]));
 CharToOem(PChar(MSMessage[2]), PChar(MSMessage[2]));

 ResultMsMessage := MSMessage[0] + #0 + MSMessage[1] + #0 + MSMessage[2];

 WriteFile(MSHandle, Pointer(PChar(ResultMsMessage))^, Length(ResultMsMessage), MSWrite, nil);
 Win32Check(MSWrite = Length(ResultMsMessage));
 CloseHandle(MSHandle);
end;



Страницы: 1 вся ветка

Текущий архив: 2004.05.30;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.063 c
14-1084338738
syte_ser78
2004-05-12 09:12
2004.05.30
ваши предпочтения


4-1082140701
juiceman
2004-04-16 22:38
2004.05.30
событие wm_KeyDown


14-1084270653
Klerk
2004-05-11 14:17
2004.05.30
Проблеммы с Excel


7-1083238581
Rockman
2004-04-29 15:36
2004.05.30
Как без прав админа получить доступ к HKLM из своей проги в NT


3-1084349034
dim-
2004-05-12 12:03
2004.05.30
Добавить/Удалить пользователя