Текущий архив: 2005.03.20;
Скачать: 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 вся ветка
Текущий архив: 2005.03.20;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.031 c
