Ещё раз о корзине.

← →
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 и без неё существовать ну никак не может. Так что не изобретали бы вы лучше велосипед.

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