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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как удалить файл из корзины (Не все) 
V
    Опции темы
Ak47black
  Дата 6.4.2007, 12:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: 1
Всего: 0
Как удалить один файл из Recycle Bin (Я имею в виду не как очистить всю корзину)
Например File.exe
Вот с этим кодом я обычно удаляю файлы и целые директории
Код

uses ShellApi;
...
var sh : SHFILEOPSTRUCT;
begin
...
  sh.Wnd := Application.Handle;
  sh.wFunc := FO_DELETE;
  sh.pFrom := 'c:\\test\0';
  sh.pTo := nil;
  sh.fFlags := FOF_NOCONFIRMATION or FOF_SILENT;
  sh.hNameMappings := nil;
  sh.lpszProgressTitle := nil;
  SHFileOperation (sh);
... 

Но в случае с Recycle Bin у меня чтото невыходит 
Пробовал сделать путь
Цитата

::{645ff040-5081-101b-9f08-00aa002f954e}\File.exe
И
Recycle Bin\File.exe

Но у меня невыходит  smile .
В DRKB3 написано 
Цитата

Данная функция позволяет производить копирование, перемещение, 
переименование и удаление (в том числе и в Recycle Bin) объектов файловой системы. 


Добавлено @ 12:19


Это сообщение отредактировал(а) Ak47black - 6.4.2007, 13:04
PM MAIL   Вверх
Sunvas
Дата 6.4.2007, 12:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


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

Репутация: 28
Всего: 89
А зачем удалять файл в корзину, а потом из корзины, если можно сразу удалять минуя корзину?


--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
Ak47black
Дата 6.4.2007, 13:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: 1
Всего: 0
Ну так просто надо мне.
Делаю на подобии Radmin проги, проект.

Добавлено @ 13:18
 Чета SHFileOperation глючит.  smile
Лан создам новую тему что-бы нелепить кучю вопросов в одну.

Это сообщение отредактировал(а) Ak47black - 6.4.2007, 13:29
PM MAIL   Вверх
ama_kid
Дата 6.4.2007, 13:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


АСУТП-кодер
***


Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

Репутация: 15
Всего: 95
Посмотри эту статью на CodeProject, может быть пригодиться. Там даже исходник есть, правда на MSVC++ (его прикрепляю в аттаче)

Присоединённый файл ( Кол-во скачиваний: 5 )
Присоединённый файл  RecycleBin_src.zip 76,45 Kb


--------------------
самурай без меча подобен самураю с мечом, но только без меча 
PM MAIL   Вверх
Yanis
Дата 6.4.2007, 13:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 72
Всего: 111
Наверняка можно узнать папку корзины и удалить оттуда нужные файлы.


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Ak47black
Дата 6.4.2007, 14:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: 1
Всего: 0
Yanis, только какой путь.
Цитата

::{645ff040-5081-101b-9f08-00aa002f954e}\\File.exe

То неидёт.
PM MAIL   Вверх
Yanis
Дата 6.4.2007, 14:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 72
Всего: 111
Цитата(Ak47black @  6.4.2007,  15:05 Найти цитируемый пост)
Yanis, только какой путь.

Это не путь, это глобальный идентификатор. 
Путь это:
«<быква диска на котором находится папка корзины>:\RECYCLER\<SID пользователя (или комьютера. по моему пользователя)>\»


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Ak47black
Дата 6.4.2007, 16:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: 1
Всего: 0
SID пользователя
Это что такое, как мне его получить?
PM MAIL   Вверх
Rennigth
Дата 6.4.2007, 16:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 49
Всего: 76
http://forum.vingrad.ru/topic-136694.html

Добавлено через 1 минуту и 59 секунд
Вообщем это текущий юзер. Примеры по ссылке это немного не то, но выцаратапь надо от-туда нужное смогешь?


--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
Yanis
Дата 6.4.2007, 17:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 72
Всего: 111
Цитата(Ak47black @  6.4.2007,  17:39 Найти цитируемый пост)
Это что такое, как мне его получить?

Ну как что? Security ID!
http://www.swissdelphicenter.ch/torry/showcode.php?id=2095


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Ak47black
Дата 6.4.2007, 17:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: 1
Всего: 0
Добрался я до папки корзины ,но удалить немогу програмно.
Ладно спасибо как-нибудь обойду этот момент в своей проге.

Это сообщение отредактировал(а) Ak47black - 6.4.2007, 17:26
PM MAIL   Вверх
Yanis
Дата 6.4.2007, 17:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 72
Всего: 111
Цитата(Ak47black @  6.4.2007,  18:25 Найти цитируемый пост)
но удалить немогу програмно.

Почему? Какая ошибка?

Это сообщение отредактировал(а) Yanis - 6.4.2007, 17:34


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Ak47black
Дата 6.4.2007, 17:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

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

Cannot delete file: Cannot read from the source file or disk.

Код
Код

procedure TForm1.Button1Click(Sender: TObject);
var
  sh : SHFILEOPSTRUCT;
begin
  sh.Wnd := Application.Handle;
  sh.wFunc := FO_DELETE;
  sh.pFrom := 'C:\RECYCLER\S-1-5-21-1220945662-287218729-839522115-1003\h.txt';
  sh.pTo := nil;
  sh.fFlags := FOF_NOCONFIRMATION or FOF_SILENT;
  sh.hNameMappings := nil;
  sh.lpszProgressTitle := nil;
  SHFileOperation (sh);
end;


Добавлено @ 17:41
Все проблема решена, нашол в DRKB3 статью Просмотр состояния корзины от Rouse_, там в примере всё есть.
Спасиба всем за участие.

Это сообщение отредактировал(а) Ak47black - 6.4.2007, 17:43
PM MAIL   Вверх
Yanis
Дата 6.4.2007, 17:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 72
Всего: 111
Цитата(Ak47black @  6.4.2007,  18:36 Найти цитируемый пост)
Код

Там нет таких файлов.


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Ak47black
Дата 6.4.2007, 17:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: 1
Всего: 0
Не ну файл то есть я проверял.
Но SHFileOperation с корзиной нехочет работать.
Yanis, Спасиб за помошь +.
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

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

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


 




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


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

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