Вниз
Скачать: CL | DM;

Ещё раз о корзине.   Найти похожие ветки 

← →
Xmen   (2002-12-29 13:30) [0]

У меня традиционный вопрос. Как можно удалить файл в корзину.
Я много слышал и нашел но не получился. А вы немогли бы посоветат как мне написать код Удаления файла в корзину.
Я восползовался таким кодом из FAQ.
function DeleteFileWithUndo( sFileName : string ) : boolean;
var fos : TSHFileOpStruct;
begin
sFileName:= sFileName+#0;
FillChar( fos, SizeOf( fos ), 0 );
with fos do begin
wFunc := FO_DELETE;
pFrom := PChar( sFileName );
fFlags := FOF_ALLOWUNDO ;
end;
Result := ( 0 = ShFileOperation( fos ) );
end;

здесь sFileName имя файла Но это функция удаляет файл без следа.
Как можно удалит файл в корзину и можно ли с обычним путём (без ShellApi)


← →
Evgeniy_k   (2002-12-29 13:42) [1]

Скачай Helper с http://www.your-helper.narod.ru/ Там про это написано и еще куча всего (107 шт.) Полезная вещь. Еще советую скачать Delphi Hi Tech.


← →
Юрий Зотов ©   (2002-12-29 14:28) [2]

Проверьте, что sFileName содержит ПОЛНЫЙ путь и имя файла.


← →
Suntechnic ©   (2002-12-30 02:35) [3]

Как можно удалит файл в корзину и можно ли с обычним путём (без ShellApi)

Вообще то странно звучит, особенно если учесть что "корзина" это и есть виртуальный объект той самой Shell и без неё существовать ну никак не может. Так что не изобретали бы вы лучше велосипед.



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

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



Память: 0.45 MB
Время: 0.011 c
3-38055
BlackTiger
2003-01-26 20:13
2003.02.13
Как добавить в ExpressQuantumGrid4 сумму по колонке кодом?


14-38558
qwerty1234
2003-01-28 22:36
2003.02.13
генератор псевдослучайных чисел


7-38578
fc
2002-12-09 22:10
2003.02.13
клавиатура


1-38388
archer
2003-02-03 14:29
2003.02.13
Не работает CreateOLEObject( WScript.Shell )


7-38599
X-jedy
2002-12-11 14:01
2003.02.13
глюки с printer.printers под Win98




   Наверх