| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

rolex ©   (2005-03-04 18:56:00) 

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

---

rolex   (2005-03-04 23:44:00) [1]

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

---

jack128   (2005-03-04 22:17:00) [2]

SHGetSpecialFolderLocation

---

rolex   (2005-03-04 22:09:00) [3]

Я серьёзно.

---

clickmaker   (2005-03-04 21:01:00) [4]

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

korzina@pisem.net

---

rolex   (2005-03-04 20:56:00) [5]

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

---

rolex   (2005-03-04 20:36:00) [6]

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

---

TUser   (2005-03-04 20:05:00) [7]

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

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

---

rolex   (2005-03-04 20:04:00) [8]

Для удаления в корзину использую вот этот код:
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;
Однако если файл невозможно удалить (занят др. приложением), то программа думает несколько секунд. Как сделать, чтобы он быстрее думал?

---

Anatoly Podgoretsky   (2005-03-04 19:41:00) [9]

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

---

clickmaker   (2005-03-04 19:01:00) [10]

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

---

Наверх