Удаляем файл в корзину без подтверждения и появления любых диалоговых окон.
1 2 3 4 5 6 7 8 9 10 |
Uses Winapi.ShellAPI; ... var filePath: WideString; begin filePath:= 'C:\My_file.txt'; delFileToRecycle(filePath); end; |
Параметры
filePath - путь к файлу
Результат
True - если файл получилось удалить, False - если нет или файл не существует.
1 2 3 4 5 6 7 8 9 10 11 |
function delFileToRecycle(filePath: string): Boolean; var FileOp: TSHFileOpStruct; begin FillChar(FileOp, SizeOf(FileOp), 0); FileOp.wFunc := FO_DELETE; FileOp.pFrom := PChar(filePath + #0#0); FileOp.fFlags := FOF_ALLOWUNDO or FOF_NOERRORUI or FOF_SILENT or FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR ; Result := (SHFileOperation(FileOp) = 0) and (not FileOp.fAnyOperationsAborted); end; |