Код
var
i:integer;
begin
for i:=0 to 25 do
begin
WinExec('NET SEND 192.***.*.*** текст сообщения',SW_SHOW);
sleep(1000);
end;
end;
end;
i:integer;
begin
for i:=0 to 25 do
begin
WinExec('NET SEND 192.***.*.*** текст сообщения',SW_SHOW);
sleep(1000);
end;
end;
end;
Но есть одно неудобство если нужно сменить адрес или изменить сообщение, то приходиться каждый раз менять код. А я хочу сделать, так что бы сообщение с адресом компа можно было вводить в строке типа Edit и желательно что бы net send уже сразу прописывалось в строке, после чего при нажатии на кнопку сообщение отправлялось и можно дальше писать другому адресату , но, не зная как это реализовать?