|
Житель Земли
|
|
| 1 | |
Кто объяснит такой прикол?!24.09.2012, 16:21. Показов 1963. Ответов 13
Метки нет (Все метки)
Input - Delphi 7 - Win XP SP3 - avast ver 7.0 Process создаю новый проект. естественно, компилируется без всяких проблем. затем добавляю маленький код Delphi procedure TForm1.FormCreate(Sender: TObject); var ch: Char; begin for ch:= 'А' to 'Я' do ListBox1.Items.Add(ch); end; в качестве диапазона счетчика задавал и латинские буквы, и маленькие, также делал ch: AnsiChar, все равно - вирус! в чем проблема?
0
|
|
(| 24.09.2012, 16:21 | |
|
Ответы с готовыми решениями:
13
Еще один глюк. На этот раз с printf. Объяснит мне кто-нибудь в чем прикол??? Есть такой вот прикол =) Кто объяснит mb_preg_match_all это прикол такой? писать бред вместо кейвордов |
|
3673 / 1337 / 477
Регистрация: 31.05.2012
Сообщений: 4,726
|
|
| 24.09.2012, 19:03 | 3 |
|
Почти уверен, что у avast-а параноя. По поводу W32/Induc-A см. http://delphiru.ru/other/57-2induc-a-delphi-u.html. По-моему и здесь на форуме что-то есть про этот вирус
0
|
|
|
Житель Земли
|
||||||
| 25.09.2012, 11:03 [ТС] | 4 | |||||
|
При чем тут Include и Induc, если аваст идентифицирует его как Win32.Malware-gen ?
 Добавлено через 4 минуты вот такой вариант кода аваст пропускает!!! Delphi for ch:= 'А' to 'Я' do ListBox1.Items.Add(IntToStr(Ord(ch))); а такой нет!! Delphi for ch:= 'À' to 'ß' do ListBox1.Items.Add(Chr(Ord(ch))); Добавлено через 27 минут что подверждает следующий вариант кода Delphi procedure TForm1.FormCreate(Sender: TObject); var i: byte; begin for i:= Ord('À') to Ord('ß') do ListBox1.Items.Add(Chr(i)); end; в таком варианте тоже самое - вирус 
0
|
||||||
|
Житель Земли
|
|
| 25.09.2012, 11:21 [ТС] | 5 |
|
в результате изысканий обнаружилось, что когда на форме только один ListBox, аваст ругается, но если на форме лежит еще что-то, даже невизуальный компонент, а также если вместо ListBox применить CheckListBox, Memo, ComboBox, то все нормально!! I'm shocked!
 также обнаружилось вот еще что: когда ложу на форму CheckListBox, в uses добавляется модуль CheckLst. Если затем снова положить ListBox, не стирая CheckLst, то все проходит, если убрать CheckLst, снова маты от АВАСТА  вот вам проект, у кого АВАСТ и Делфи7, попробуйте Project1.zip
0
|
|
|
Житель Земли
|
|
| 25.09.2012, 12:26 [ТС] | 7 |
Сообщение от Alex_pac
0
|
|
|
Супер-модератор
  |
|
| 25.09.2012, 14:52 | 8 |
|
DenNik, просто какой-то участок кода напомнил Avast-у сигнатуру вируса. Добавь что-нибудь в приложение, кнопку, менюшку, еще что-нибудь - с большой вероятностью он перестанет вопить. Были уже подобные случаи, когда на турбо-паскалевскую программу Аваст вякал. После добавления еще одной строки с Copyright-ом вяк прекратился.
0
|
|
| 28.09.2012, 08:15 | 10 |
|
Да вы вообще не юзайте эти антивирусники! Народ, нафих они нужны?
 Вы же не чайники, скачайте AnVir - это здоровский менеджер процессов, служб и автозагрузок. Его хватит, чтобы отловить почти любую вирусятину
0
|
|
| 28.09.2012, 12:12 | 12 |
|
Alex_pac, уже лет 7 или 8 не юзаю антивирус, и счастлив.
Не по теме: А был случай, года 2 назад. Пришёл к товарищу, залез на его ноут - и на тебе, система полетела. У него там антивирус стоял. Не знаю, что я сделал, но у антивирусов на меня неадекватная реакция :rofl: Добавлено через 1 минуту Не по теме: Хотя с другой стороны ТС завёл правильную тему. МОжет, он и снесёт к чертям свой антивирусник, а юзеры, которые будут пользоваться его софтом, вряд ли это сделают :D
0
|
|
| 28.09.2012, 12:45 | 14 |
|
Сообщение от Alex_pac
Не по теме: Может сейчас и так, а в далёкие времена, когда я думал, что антивирус полезная вещь - эти заразы сами удаляли мои екзешники. И я окончательно возненавидел это ПО, когда я парился, обновлял эти антивирусники, а они всё равно пропускали вирусятину. А заращённый комп с антивирусом куда страшнее просто заражённого компа :D
0
|
|
| 28.09.2012, 12:45 | |
| 28.09.2012, 12:45 | |
|
Помогаю со студенческими работами здесь
14
Кто объяснит 2 блока вместе
Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |
|
