Программа по удалению мусора

[KORN]

я работаю спецом по кампам и как то мне пришлось чистить систему у 13 машин от всякого мусора и вирусов... как вы сами наверно понимаете что антивирус не удалит все вирусы а руками весь мусор не выгребешь и я написал простенькую программу которая все это делает... в нее можно добавлять свои файлы и расширения файлов которые стоит находить и удалять... программа пока что еще сырая и в ней есть баги...

[Viteef]

Без душе/слухо раздирающего крика лучше будет

[KORN]

Сообщение от Viteef

Без душе/слухо раздирающего крика лучше будет

вот переделал все полностью и добавил еще одну дополнительную прогу каторая составляет списак фалов на флешке и после того как втыкаешь флешку в чужой комп то она показывает что нового появляется на ней... дизайн канечно вата... но все равно думаю прога не плохо получилась... (:=

[Viteef]

Я не знал что *.tmp файлы причисляются к троянам

[xenon]

Появление любого файла и троян?
Thumbs.db...

[KORN]

нет... я просто не знаю как это по другому написать )=

ну а общее впечатление от нее? стоит ее продолжать делать или нет?

[Viteef]

Я поостерегся ее пользовать, удалить все tmp - кто его знает что будет после этого.

Вообще есть в винде "Очистка диска" - корректно убирает лишнее.

Поиск хорошо сделан. Можешь исходник выложить?

[KORN]

procedure TForm1.FindFile(Dir:String);
Var
  SR:TSearchRec;
  FindRes: integer;
begin
  FindRes:=FindFirst(dir+'*.*',faAnyFile,SR);

  While FindRes=0 do
  begin
  application.ProcessMessages;
  if stop=true then
  exit;

    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
    FindFile(Dir+SR.Name+'\');
    FindRes:=FindNext(SR);
    Continue;
    end;

    ListBox1.Items.Add(Dir+SR.Name);

    FindRes:=FindNext(SR);
  end;
  FindClose(SR);
end;

[KORN]

я ей много раз пользовался и не только на маем кампе... сношу все файлы каторые находит... ну кроме vbs... и ничего... комп хуже от этого работать не стал...

[Viteef]

Спасибо

Я до этого юзал кривой способ