Поиск файлов и Spybot...

← →
Wood (2007-10-05 07:32) [0]

Столкнулся на днях с дурацкой проблемой:
Написал учебный код поиска файлов. Код рабочий, но повторная компиляция обламывается (fatal error), пробую удалить exe"шник, не удаляется. Кое-как разобрался кто его держит. Оказалось "антишпиён" Spybot-S&D. Странно и почему такое может быть?!
Вот код поиска и заполнения TListView:
Procedure AddFilestoList(FileMask: string; FFileAttr: dword); Var FileName: string; Shlnfo: TSHFileInfo; hFindFile: Integer; SearchRec: TSearchRec; Begin hFindFile:= FindFirst(FileMask, FFileAttr, SearchRec); if hFindFile = 0 then try repeat with SearchRec.FindData do Begin if (SearchRec.Name = ".") or (SearchRec.Name = "..") or (SearchRec.Name = "") then continue; FileName:= Edit1.Text, SearchRec.Name; //в Edit1.Text изначальный путь поиска SHGetFileInfo(PChar(FileName), 0, Shlnfo, SizeOf(Shlnfo), SHGFI_TYPENAME or SHGFI_SYSICONINDEX); with ListView1.Items.Add do Begin Caption := SearchRec.Name; ImageIndex:= Shlnfo.iIcon; SubItems.Add(intToStr(SearchRec.Size)); SubItems.Add((Shlnfo.szTypeName)); SubItems.Add(Edit1.Text + cFileName); if (FILE_ATTRIBUTE_DIRECTORY and dwFileAttributes) > 0 then SubItems.Add("dir") else SubItems.Add("file"); End; End; until (FindNext(SearchRec) <> 0); finally FindClose(SearchRec); End; End;

← →
Суслик © (2007-10-05 08:49) [1]

> Странно и почему такое может быть?!

чисто догадка - может потому, что считает программу вредоносной?

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

← →
Wood (2007-10-05 08:59) [2]

> Суслик © (05.10.07 08:49) [1]

Я тоже так думаю, меня волнует корректность кода в [0]!
К примеру, на данный ниже код spybot не реагирует:
... var SR: TSearchRec; FindRes: Integer; filename2: string; Begin FindRes:= FindFirst(Dir+"*.*", faAnyFile, SR); Try while FindRes = 0 do Begin if ((SR.Attr and faDirectory) = faDirectory) and ((SR.Name = ".") or (SR.Name = "..")) then Begin FindRes:= FindNext(SR); Continue; End; if ((SR.Attr and faDirectory) = faDirectory) then Begin filename2:=(Dir +SR.Name+"\\"); FindFile(filename2); FindRes:= FindNext(SR); Continue; End; ListBox1.Items.Add(SR.Name+ " - ["+IntToStr(SR.Size)+"] - "+DateTimeToStr(FileDateToDateTime(SR.Time))); FindRes:= FindNext(SR); End; Finally FindClose(SR); End; end;

← →
umbra © (2007-10-05 10:33) [3]

> Я тоже так думаю, меня волнует корректность кода в [0]!

этот спайбот ничего не знает ни про какой код. он ищет определенную последовательность байтов в исполняемом файле. Если находит - значит это, по его мнению, плохой файл

← →
Wood (2007-10-05 10:58) [4]

вот блин дела!!
Убрал компонент TListView из приложения (скомпилил с TListBox) проблема исчезла..

← →
Wood (2007-10-05 11:06) [5]

Не, короче, я так и не нашел причину...:(
Создал чистый проект с нуля..
использовал 2-й код, только вместо ListBox поставил ListView.. spybot молчит.. чудеса...
Интересно, что же у меня было такого опасного в старом проекте, что spy посчитал программу шпионской страстью))

ну там образуеца определенное сочетание байтов, которое (наверное) расценивается как вирус.

какой, кстати дельфи?
не 2007?

← →
Wood (2007-10-05 11:58) [8]

Поиск файлов и Spybot... Найти похожие ветки