Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Ещё раз о корзине. [D5, Win95/98, Win2k]

Xmen © (2002-12-29 13:30:00)
У меня традиционный вопрос. Как можно удалить файл в корзину.
Я много слышал и нашел но не получился. А вы немогли бы посоветат как мне написать код Удаления файла в корзину.
Я восползовался таким кодом из 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)

Suntechnic (2002-12-30 02:35:00) [1]
Как можно удалит файл в корзину и можно ли с обычним путём (без ShellApi)

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

Юрий Зотов (2002-12-29 14:28:00) [2]
Проверьте, что sFileName содержит ПОЛНЫЙ путь и имя файла.

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »