Модераторы: 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   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

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

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


 




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


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

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