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

Поиск:

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

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

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

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

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

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

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


 




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


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

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