Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Downloaded Program Files, Очистка Downloaded Program Files 
:(
    Опции темы
Pakshin A. S.
Дата 16.2.2003, 04:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61
Передо мной возникла следующая проблема: как удалить все файлы папки Downloaded Program Files не через DeleteFile(), т. к. не всё корректно подчищается. Помогите кто чем может...
PM   Вверх
Song
Дата 16.2.2003, 05:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Sysman.ru
***


Профиль
Группа: Участник
Сообщений: 1095
Регистрация: 2.6.2002

Репутация: 2
Всего: 4
Если DeleteFile() не удаляет, значит другие способы будут иметь такой же результат. Наверняка попались файлы с read-only атрибутами. Если так, то сначала их надо снять.


--------------------
Прежде чем сказать "Невозможно", подумай, прав ли ты
PM WWW ICQ   Вверх
Pakshin A. S.
Дата 16.2.2003, 05:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61
А вообще (теоритически) поиск всех файлов папки Downloaded Program Files и их удаление должны работать?
PM   Вверх
Song
Дата 16.2.2003, 05:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Sysman.ru
***


Профиль
Группа: Участник
Сообщений: 1095
Регистрация: 2.6.2002

Репутация: 2
Всего: 4
Трудно сказать, там наверно есть какой-нибудь index, который постоянно занят системой и с ним ничего не сделашь.


--------------------
Прежде чем сказать "Невозможно", подумай, прав ли ты
PM WWW ICQ   Вверх
Pakshin A. S.
Дата 16.2.2003, 18:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61
Вчера вечерком я вывел в Memo всё содержимое папки Downloaded Program Files, там оказалось где-то около пяти файлов (расширение cab и inf), но Windowsовская очистка диска говорит что папка Downloaded Program Files пуста. Что делать, не знаю? Может дадите какой-нибудь совет, как отличать нужное от ненужного...
PM   Вверх
Song
Дата 16.2.2003, 18:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Sysman.ru
***


Профиль
Группа: Участник
Сообщений: 1095
Регистрация: 2.6.2002

Репутация: 2
Всего: 4
Там есть desktop.ini, он скрытый


--------------------
Прежде чем сказать "Невозможно", подумай, прав ли ты
PM WWW ICQ   Вверх
Pakshin A. S.
Дата 16.2.2003, 18:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61
А чем он мне поможет, кроме этого: CLSID = ...
PM   Вверх
Song
Дата 16.2.2003, 19:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Sysman.ru
***


Профиль
Группа: Участник
Сообщений: 1095
Регистрация: 2.6.2002

Репутация: 2
Всего: 4
Я тебе объясняю из-за чего не удаляется каталог. Само собой, что тебе он ни чем не поможет.


--------------------
Прежде чем сказать "Невозможно", подумай, прав ли ты
PM WWW ICQ   Вверх
Pakshin A. S.
Дата 17.2.2003, 01:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61
Всё равно не понял, на кой чёрт мне этот desktop.ini???
PM   Вверх
RA
Дата 17.2.2003, 02:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Брутальный буратина
****


Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 14
Всего: 115
Цитата(Pakshin @ 16.2.2003, 22:57)
Всё равно не понял, на кой чёрт мне этот desktop.ini???

У меня такаяже трабла только с помойкой, в ней около 20.000 файлов
каторые в ней лежат но не видны и каторые постоянно неудаётся удалить ничем кроме FAT32/
PM   Вверх
Vit
Дата 17.2.2003, 02:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207
Цитата(Pakshin @ 16.2.2003, 16:57)
Всё равно не понял, на кой чёрт мне этот desktop.ini???

Просто этот файл охраняется виндой(так как является системным), винда не даёт удалить этот файл, а при наличии файла удаление каталога тоже невозможно.


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
X-Vlad
  Дата 17.2.2003, 03:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 570
Регистрация: 10.4.2002
Где: Украина, Львов

Репутация: 1
Всего: 5
Всё приекрасно удаляется Windows Commanderom только что попробовал...smile.gif
кидаю код попробуй его:
Код

function DeleteDir(Dir:string) :boolean; // Удаление каталога
Var
found:integer;
SearchRec:TSearchRec;
attributes, newattributes:word;
Begin
result:=false;
if IOResult<>0 then;
ChDir(Dir);
if IOResult<>0 then
 begin
 end;
Found:=FindFirst('*.*', faAnyFile, SearchRec);
While Found = 0 do
 begin
  if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then
   if (SearchRec.Attr and faDirectory)<>0 then
    begin
     if not DeleteDir(SearchRec.Name) then begin found:= FindNext(SearchRec); end;
    end
     else
      if not DeleteFile(SearchRec.Name) then
      begin
       NewAttributes := NewAttributes and not faHidden;
       FileSetAttr(SearchRec.Name, NewAttributes);
       NewAttributes := NewAttributes and not faSysFile;
       FileSetAttr(SearchRec.Name, NewAttributes);
       NewAttributes := NewAttributes and not faArchive;
       FileSetAttr(SearchRec.Name, NewAttributes);
       NewAttributes := NewAttributes and not faReadOnly;
       FileSetAttr(SearchRec.Name, NewAttributes);
       DeleteFile(SearchRec.Name)
      end;
     found:= FindNext(SearchRec);
    end;
  FindClose(SearchRec);
  ChDir('..');
  RmDir(Dir);
  result:=IOResult=0;
end;


dir - указываеш путь к каталогу.



--------------------
Хорошая штука - комп..:)
www.x-vlad.com
PM MAIL WWW ICQ   Вверх
X-Vlad
  Дата 17.2.2003, 03:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 570
Регистрация: 10.4.2002
Где: Украина, Львов

Репутация: 1
Всего: 5
выше указаный код удаляет каталог со всем содержимым (подкаталоги тоже)...smile.gif


--------------------
Хорошая штука - комп..:)
www.x-vlad.com
PM MAIL WWW ICQ   Вверх
Vit
Дата 17.2.2003, 03:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207
Зависит от винды, скорее всего будет работать под 95/98/NT и не будет под ME/2000/XP.

Код для удаления папки со всеми каталогами есть в нашем FAQ, стоит там чуть ли не первым!


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
X-Vlad
Дата 17.2.2003, 03:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 570
Регистрация: 10.4.2002
Где: Украина, Львов

Репутация: 1
Всего: 5
Мой код работает под любой виндой (9х\НТ\2000\ХР).... сам пробовал.




--------------------
Хорошая штука - комп..:)
www.x-vlad.com
PM MAIL WWW ICQ   Вверх
Vit
Дата 17.2.2003, 03:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207
Цитата(X @ 16.2.2003, 18:11)
Мой код работает под любой виндой (9х\НТ\2000\ХР).... сам пробовал.

Я и не сомневаюсь что какую-то папку можно удалить, но речь идёт о системной папке.
Ты именно с системными папками пробовал? И System Restore у тебя не отключена?


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
SmaLL
Дата 17.2.2003, 17:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник Клуба
Сообщений: 557
Регистрация: 17.12.2002
Где: Voronezh

Репутация: 1
Всего: 2
Цитата(X @ 16.2.2003, 19:11)
Мой код работает под любой виндой (9х\НТ00\ХР).... сам пробовал.

в WinNT/Win2k/WinXP, если к папке и еЁ содержимому есть доступ, то код будет работать, а если например стоит readonly, то капец всему... коду wink.gif


--------------------
Что ни делается - всЁ к лучшему! SmallWeb
Мой адрес не дом и не улица, мой адрес родной пивзавод!
PM MAIL WWW ICQ   Вверх
X-Vlad
  Дата 17.2.2003, 20:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 570
Регистрация: 10.4.2002
Где: Украина, Львов

Репутация: 1
Всего: 5
Согласен если ты хочешь удалить системную папку и у тебя нету админских прав то ето не получится....smile.gif
но можна программно зделать админ права и все удалится....


етот код удаляет и сис папки...smile.gif попробуйте.


--------------------
Хорошая штука - комп..:)
www.x-vlad.com
PM MAIL WWW ICQ   Вверх
SmaLL
Дата 17.2.2003, 21:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник Клуба
Сообщений: 557
Регистрация: 17.12.2002
Где: Voronezh

Репутация: 1
Всего: 2
Цитата(X @ 17.2.2003, 12:34)
Согласен если ты хочешь удалить системную папку и у тебя нету админских прав то ето не получится....smile.gif
но можна программно зделать админ права и все удалится....

Да ты хакер ! baaa.gif
Интересно как ты енто сделаешь..... hmmm.gif


--------------------
Что ни делается - всЁ к лучшему! SmallWeb
Мой адрес не дом и не улица, мой адрес родной пивзавод!
PM MAIL WWW ICQ   Вверх
Pakshin A. S.
Дата 18.2.2003, 02:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61
Вообщето я уже писал о том что из папки Downloaded Program Files всё удалять не надо, т. к. там есть файлы (около пяти помимо Desktop.ini), которые по всей видимости нужны самому Windows, т. к. Windowsовская очистка диска говорит о том что папка Downloaded Program Files пустая, т. е. не даёт эти пять файлов трогать.
PM   Вверх
X-Vlad
  Дата 18.2.2003, 02:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 570
Регистрация: 10.4.2002
Где: Украина, Львов

Репутация: 1
Всего: 5
Поправочка.... системные папки неудалялет...
я тут поколупался и зделал теперь любую папку удалит...smile.gif
Код

function DeleteDir(Dir:string) :boolean; // Удаление каталога
Var
found:integer;
SearchRec:TSearchRec;
attributes, newattributes:word;
Begin
//Start set attrib folder...
begin
 NewAttributes := NewAttributes and not faHidden;
 FileSetAttr(dir, NewAttributes);
 NewAttributes := NewAttributes and not faArchive;
 FileSetAttr(dir, NewAttributes);
 NewAttributes := NewAttributes and not faReadOnly;
 FileSetAttr(dir, NewAttributes);
end;
//end set attrib folder
result:=false;
if IOResult<>0 then;
ChDir(Dir);
if IOResult<>0 then
 begin
 end;
Found:=FindFirst('*.*', faAnyFile, SearchRec);
While Found = 0 do
 begin
  if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then
   if (SearchRec.Attr and faDirectory)<>0 then
    begin
     if not DeleteDir(SearchRec.Name) then begin found:= FindNext(SearchRec); end;
    end
     else
      if not DeleteFile(SearchRec.Name) then
      begin
       NewAttributes := NewAttributes and not faHidden;
       FileSetAttr(SearchRec.Name, NewAttributes);
       NewAttributes := NewAttributes and not faSysFile;
       FileSetAttr(SearchRec.Name, NewAttributes);
       NewAttributes := NewAttributes and not faArchive;
       FileSetAttr(SearchRec.Name, NewAttributes);
       NewAttributes := NewAttributes and not faReadOnly;
       FileSetAttr(SearchRec.Name, NewAttributes);
       DeleteFile(SearchRec.Name)
      end;
     found:= FindNext(SearchRec);
    end;
  FindClose(SearchRec);
  ChDir('..');
  RmDir(Dir);
  result:=IOResult=0;
end;


только незнаю на NTFS работает или нет..sad.gif мне в облом конвертировать раздел в NTFS ..smile.gif) если у кого стоит попробуйте и напишите результат...
спасибо.


--------------------
Хорошая штука - комп..:)
www.x-vlad.com
PM MAIL WWW ICQ   Вверх
Pakshin A. S.
Дата 18.2.2003, 03:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61
Попробуй внимательно перечитать сообщение от 17.2.2003, 18:54
PM   Вверх
X-Vlad
Дата 18.2.2003, 03:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 570
Регистрация: 10.4.2002
Где: Украина, Львов

Репутация: 1
Всего: 5
Цитата

Попробуй внимательно перечитать сообщение от 17.2.2003, 18:54


что-то невижу >> 17.2.2003, 18:54 может у нас разница по времени? smile.gif


--------------------
Хорошая штука - комп..:)
www.x-vlad.com
PM MAIL WWW ICQ   Вверх
Pakshin A. S.
Дата 18.2.2003, 03:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61
Я имел ввиду, что полная очистка именно этой папки приведёт к системным ошибкам...
PM   Вверх
X-Vlad
Дата 18.2.2003, 03:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 570
Регистрация: 10.4.2002
Где: Украина, Львов

Репутация: 1
Всего: 5
В етой папке хранятся dll and ocx которые ты подгружал к браузеру( IE) например Flash Player...
я думаю что они неиспользуются виндовсом потому что винда бы недала удалить используемый файл (как бы етого нехотелось и что-бы для етого недалали) ета папка как кеш типа папки Temporary Internet Files...



--------------------
Хорошая штука - комп..:)
www.x-vlad.com
PM MAIL WWW ICQ   Вверх
RA
Дата 18.2.2003, 11:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Брутальный буратина
****


Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 14
Всего: 115
У меня Идея а что если Удалить этот Folder на раннем запуске Windows!
или Грохнуть Shell а потом удалить?
PM   Вверх
SmaLL
Дата 18.2.2003, 17:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник Клуба
Сообщений: 557
Регистрация: 17.12.2002
Где: Voronezh

Репутация: 1
Всего: 2
Цитата(RAdmin @ 18.2.2003, 03:38)
У меня Идея а что если Удалить этот Folder на раннем запуске Windows!
или Грохнуть Shell а потом удалить?

А ещЁ лучше загрузиться с дискеты, запустить fdisk и порезать всЁ к чертям !
Но это я так, лирическое отступление, да простят меня модераторы ! rolleyes.gif


--------------------
Что ни делается - всЁ к лучшему! SmallWeb
Мой адрес не дом и не улица, мой адрес родной пивзавод!
PM MAIL WWW ICQ   Вверх
Страницы: (2) [Все] 1 2 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0668 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.