Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом
Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »

Вопрос # 3 737

Раздел: Delphi » Общие вопросы по программированию
/ вопрос открыт /

Приветствую, уважаемые эксперты!
Сегодня получил от доктора Вэба.

Цитата:

C:\Program Files\Borland\Delphi7\Projects\Project1.exe - инфицирован VirusConstructor.Helpxsite
Как такие случаи лечим?

Приложение:
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7. Dialogs, ExtCtrls;
  8.  
  9. type
  10. TForm1 = class(TForm)
  11. procedure FormCreate(Sender: TObject);
  12. private
  13. { Private declarations }
  14. image: TGraphicControl;
  15. public
  16. { Public declarations }
  17. end;
  18.  
  19. var
  20. Form1: TForm1;
  21.  
  22. implementation
  23.  
  24. {$R *.dfm}
  25.  
  26. type
  27. TMyImage = class (TGraphicControl)
  28. public
  29. procedure ShowImage;
  30. protected
  31. procedure Paint; override;
  32. end;
  33.  
  34. { TMyImage }
  35.  
  36. procedure TMyImage.Paint;
  37. begin
  38. inherited;
  39. ShowImage;
  40. end;
  41.  
  42. procedure TMyImage.ShowImage;
  43. begin
  44. Canvas.Brush.Color := clWhite;
  45. Canvas.FillRect(Rect(0, 0, width, height));
  46. Canvas.Pen.Color := clBlack;
  47. Canvas.Pen.Width := 5;
  48. Canvas.MoveTo(0, 0);
  49. Canvas.LineTo(width, height);
  50. end;
  51.  
  52. procedure TForm1.FormCreate(Sender: TObject);
  53. begin
  54. image := TMyImage.Create(Self);
  55. image.Parent := Self;
  56. image.Align := alClient;
  57. end;
  58.  
  59. end.
  60.  


DNK Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: DNK (статус: Студент)
Вопрос отправлен: 5 февраля 2010, 11:46
Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Вадим К

Здравствуйте, Ершов Денис!
Иногда бывает, что DrWeb "бушует", но у Вас скорее всего другой случай. Он уже хорошо описан здесь http://www.kaspersky.ru/news?id=207733037 и здесь http://gunsmoker.blogspot.com/2009/08/delphi-delphi.html . Кстати там и указаны возможные пути заражения.

Ответ отправил: Вадим К (статус: Академик)
Время отправки: 5 февраля 2010, 12:04
Оценка за ответ: 2

Комментарий к оценке: Проверил этой заразы у меня нет.

Мини-форум вопроса

Всего сообщений: 4; последнее сообщение — 6 февраля 2010, 11:58; участников в обсуждении: 3.
DNK

DNK (статус: Студент), 5 февраля 2010, 12:54 [#1]:

Не компилируется только эта программа и то только, если присутствует класс MyImage. Или это какое-то новое зверьё, или у Вэба параноя.
"Digital Networked Knight"
Ерёмин А.А.

Ерёмин А.А. (статус: *Администратор), 5 февраля 2010, 13:27 [#2]:

Скопирую свою фразу и сюда:

[11:32:20] <@AndreyE13> Да кусок кода совпал небось, вот и всё. У меня тоже не раз бывало.
Вадим К

Вадим К (статус: Академик), 5 февраля 2010, 13:31 [#3]:

Странная оценка... я же написал что "веб бушует" иногда.
Галочка "подтверждения прочтения" - вселенское зло.
DNK

DNK (статус: Студент), 6 февраля 2010, 11:58 [#4]:

Это канстатация очевидного. А на вопрос ответа не было.
"Digital Networked Knight"

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
Версия движка: 2.6+ (26.01.2011)
© 2005-2025
Текущее время: 22 февраля 2025, 11:41
Выполнено за 0.02 сек.