А я сейчас взял и удалил эту строку   
FindFirst(Path + '*.*', faAnyFile, SR) = 0

Без нее тот-же самый вирус!   

А с ней но со звездочкой нет вируса....

может какая-то левая компонента (не каждый раз) заражает выходной код , а что такой вирус можно написать
(может глупость ляпнул , не пинать)
Нужно убирать компоненты с формы и смотреть исчезнет ли вирус
Или вирус уже в системе (другой который еще не видит веберь) и заражает этим вирусом вновь созданные или переписанные файлы.Можно проверить - переписать файл с одного места на другое и если он заразится значит у вас проблемы.

зы. Нод32 рулит

Это сообщение отредактировал(а) SlaUr - 25.1.2008, 14:33

Upgrader, просто для справки. Я один раз писал прогу которую все антивирусы считали за вирус. я долго думал что могло быть, а потом поставил антивирь всебе и оказалось что у меня пол компа заражено, вирус заражал только что созданный exe.

gambit,
Конечно это не такой случай   

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

Серьёзно, надо другой антивирь ставить. Мой nod32 молчит по поводу процедуры.  

я так понимаю, что добавляя в свою программу процедуры UrlDownloadToFile или ShellExecute вы, по мнению антивируса, начинаете писать вредоносный код?

у меня делфи 7 и антивирус Avira Free Antivirus. дык стоит добавить одну строчку с такой процедурой и всё - троян! да и в других антивирусниках похожая ситуация.  ну ладно я, мне не влом в исключения добавить, но такую ахаяную антивирусами прогу люди качать не будут! чтож мне слать свой исходник всем антивирусникам, чтобы они сигнатуру правили - да и поправят ли - ещё вопрос. чтож делать?

http://forum.vingrad.ru/forum/topic-353080.html