LAN Spider Men v1.2
Автор: Taow*
Дата: 14.09.2006  11:09
Комментариев: 2
Просмотров: 229
Оценка: 6 (1|1|2|1|1) [2]
wolong Искатель (ур.5) ::: комментарий от 10.11.2006 | 21:37
"опробовал только на Win2000" и правильно

т.к. на ХР не пойдёт а на юниксах нечего даже пытаться

имхо опять бесполезная программа в 100 раз проще

start -> run...

net send

тем более программа использует тот же механизм WinExec(PAnsiChar(e), Sw_show);

она была бы полезной если бы была двухсторонней и в ней была реализована работа с сокетами.

неужели это так трудно?

нет, надо ипать мозги бредовым кодом всего лишь достраивая некоторые части выни которые и так реализованы удобно



ЗЫ: публикуйте листинги файлов форм


--------------------
$_="1K8}3v3w8(5f1o2q5y6n3h1s5%2R0e9{7s9)5m1b6i2m6k3u";s/(.)(.)/pack('C',ord($2)-$1)/eg;print;
Chronos Приверженец (ур.6) ::: комментарий от 14.09.2006 | 11:36
могу ощибаться, но в блоке

цитирую:


while memo1.lines[j]'' do

begin

s:= s + memo1.lines[j];

j:= j+1;

s:= s+#10+#13;

end;



можно было достать весь текст из мемки s=memo1.text

а для очистки проще воспользоваться стандартной
цитирую:


while memo1.lines[j2]'' do

begin

memo1.lines[j2]:='';

j2:= j2+1;

end;



memo1.clear


--------------------
Хорошо смееться тот кто стреляет последним