Текущий архив: 2003.04.24;
Скачать: CL | DM;
Вниз
Сообщение по ЛАН Найти похожие ветки
← →
MystiX © (2003-03-03 20:58) [0]Как можно послать по лан сообщение(что бы оно появилось у адресата в окошке как от showmessage), зная IP?
← →
Rouse_ © (2003-03-03 21:28) [1]Если с НТ на НТ то используя net send
Если запущен WinPopup, используй mailslots
Желаю успехов
← →
Носов Максим (2003-03-04 03:37) [2]
procedure TForm1.BitBtn1Click(Sender: TObject);
Var A,Cur:LongInt;
begin
Form1.Enabled:=False;
Cur:=Screen.Cursor;
Screen.Cursor:=-11;
For A:=0 to ListView1.Items.Count-1 do
If ListView1.Items.item[A].Checked Then
Begin
WinExec(Pchar("Net send "+ListView1.Items.item[A].Caption+" "+Edit1.text),SW_HIDE);
AddLog("Отправлено сообщение по адресу "+ListView1.Items.item[A].Caption+" ""+Edit1.text+""");
End;
Form1.Enabled:=True;
Screen.Cursor:=Cur;
end;
← →
O6OPMOT (2003-03-04 13:28) [3]убивать таких надо, кто до сих пор net send пользует.
← →
MystiX © (2003-03-04 17:55) [4]O6OPMOT, с удовольствием узнал твой вариант.
Носов Максим, конечно спасибо, но можно с коментариями, я пока в сетевом программировании не очень
← →
Evgeny222 (2003-03-04 18:12) [5]O6OPMOT, так как все-таки ? Не используя net send ?
← →
Anatoly Podgoretsky © (2003-03-04 19:04) [6]Evgeny222 (04.03.03 18:12)
Совсем не ценишь жизнь?
← →
MystiX © (2003-03-04 20:19) [7]Ну может кто-то объяснит как это использовать, а то ещё в потрепаться перенесут и про вопрос все забудут.
← →
Носов Максим (2003-03-05 02:47) [8]
If ListView1.Items.item[A].Checked Then
(*если в списке выбраны элементы, то открывается NET SEND передаётся адрес получателя из списка ListView1.Items.item и ссответственно текст сообщения Edit1.text*)
Begin
WinExec(Pchar("Net send "+ListView1.Items.item[A].Caption+" "+Edit1.text),SW_HIDE); (*SW_HIDE указывает, что консоль недолжна отображаться*)
Вчера написал программу для этого, пишу - вышлю исходники.
Страницы: 1 вся ветка
Текущий архив: 2003.04.24;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.021 c
