Скачать: CL | DM;

Нужны функции Удаления, Удаления в Корзину и перемещения файла!   Найти похожие ветки 

← →
rolex   (2005-03-04 18:56) [0]

Нужны функции Полного удаления, Удаления в Корзину и перемещения файла!

---

← →
clickmaker ©   (2005-03-04 19:01) [1]

SHFileOperation - все 3 в одном флаконе

---

← →
Anatoly Podgoretsky ©   (2005-03-04 19:41) [2]

Там во флаконе еще есть.

---

← →
rolex   (2005-03-04 20:04) [3]

Для удаления в корзину использую вот этот код:
function RecycleFile(sFileName: string): Boolean;
var
FOS: TSHFileOpStruct;
begin
  FillChar(FOS, SizeOf(FOS), 0);
  with FOS do
     begin
        wFunc := FO_DELETE;
        pFrom:=PChar(sFileName+#0);
        fFlags:=FOF_SILENT or FOF_NOCONFIRMATION or FOF_ALLOWUNDO;
     end;
  Result := (SHFileOperation(FOS) = 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
RecycleFile("C:\xxx.doc");
end;
Однако если файл невозможно удалить (занят др. приложением), то программа думает несколько секунд. Как сделать, чтобы он быстрее думал?

---

← →
TUser ©   (2005-03-04 20:05) [4]

> Там во флаконе еще есть.

То не рульный флакон, ноль градусов :)

---

← →
rolex   (2005-03-04 20:36) [5]

Если поставить wFunc:= FO_MOVE то задержки нету когда файл занят!
Вот выход из положения! Только какой адрес имеет корзина?

---

← →
rolex   (2005-03-04 20:56) [6]

Как узнать какой адрес у Корзины?

---

← →
clickmaker ©   (2005-03-04 21:01) [7]

> rolex   (04.03.05 20:56) [6]
> Как узнать какой адрес у Корзины?

korzina@pisem.net

---

← →
rolex   (2005-03-04 22:09) [8]

Я серьёзно.

---

← →
jack128 ©   (2005-03-04 22:17) [9]

SHGetSpecialFolderLocation

---

← →
rolex   (2005-03-04 23:44) [10]

А примерчик можно?

---

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

Скачать: CL | DM;



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