Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.017 c
15-1190299649
Nikfel
2007-09-20 18:47
2007.10.28
Драйвер сотового MOTOROLA.


1-1187058023
rtm
2007-08-14 06:20
2007.10.28
Как расположить Label вертикально?


2-1191582205
pyJIoH
2007-10-05 15:03
2007.10.28
digital signature, dll


15-1190722116
boriskb
2007-09-25 16:08
2007.10.28
База зарплат программистов


2-1191823856
JohnKorsh
2007-10-08 10:10
2007.10.28
Как использовать widechar в memo или richedit.