Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.045 c
3-1108632194
Rule
2005-02-17 12:23
2005.03.20
Странно необъяснимое поведение хранимой процедуры в Фаерберде ...


4-1108026880
Mac
2005-02-10 12:14
2005.03.20
Есть хендл окна. Как с этого окна (грида) скопировать даные ?


14-1109812430
default
2005-03-03 04:13
2005.03.20
Работа программистом в Иванове для студента


14-1109285890
Vasya.ru
2005-02-25 01:58
2005.03.20
Пятничные задачки или типа того


1-1110285014
Новичек
2005-03-08 15:30
2005.03.20
Посылка сообщения функцией PostMessage().