Текущий архив: 2007.10.28;
Скачать: CL | DM;
Вниз
Поиск файлов и 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-10-05 11:07) [6]ну там образуеца определенное сочетание байтов, которое (наверное) расценивается как вирус.
какой, кстати дельфи?
не 2007?
← →
Суслик © (2007-10-05 11:07) [7]ну там образуеца определенное сочетание байтов, которое (наверное) расценивается как вирус.
какой, кстати дельфи?
не 2007?
← →
Wood (2007-10-05 11:58) [8]
> Суслик © (05.10.07 11:07) [6]
> какой, кстати дельфи?
D7
с новым проектом пока заморочек нет..:-)
Страницы: 1 вся ветка
Текущий архив: 2007.10.28;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.019 c
