Текущий архив: 2004.01.20;
Скачать: CL | DM;

Вниз

Recycled Bin   Найти похожие ветки 

← →
DDA ©   (2004-01-09 13:17) [0]

не получается удались с папки в карзину



function Recycle(const FileName: string; Wnd: HWND = 0): Boolean;
var
FileOp: TSHFileOpStruct;
begin
FillChar(FileOp, SizeOf(FileOp), 0);
if Wnd = 0 then Wnd := Application.Handle;
FileOp.Wnd:=Wnd;
FileOp.wFunc:=FO_DELETE;
FileOp.pFrom:=PChar(FileName);
FileOp.fFlags:=FOF_ALLOWUNDO or FOF_NOERRORUI or FOF_SILENT;
Result:=(SHFileOperation(FileOp) = 0) and (not FileOp.fAnyOperationsAborted);
end;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Recycle("d:\DownLoad.bak",Application.Handle);
end;



Файлы удаляет как надо а папки не хочет
ничего даже не говорит
проходит до конца и всё

---

← →
[lamer]Barmaglot ©   (2004-01-09 13:23) [1]

Насколько я помню, чтобы удалить папку, она должна быть пустая...

---

← →
DDA ©   (2004-01-09 18:11) [2]

Проводник дак удаляет

спрашивает

Вы действительно хотите удалить папку "DDA" и отправить всё её содержимое в корзину?

---

Страницы: 1 вся ветка

Текущий архив: 2004.01.20;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.03 c