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

← →
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]

Я серьёзно.

SHGetSpecialFolderLocation

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

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

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