Удалить файл в корзину? Запросто!

Советы » Файлы » Удалить файл в корзину? Запросто!

uses

ShellAPI; 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 or FOF_NOCONFIRMATION or FOF_SILENT; end;
Result := ( 0 = ShFileOperation( fos ) ); end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com