Удаление файла в корзину
Удаление файла в корзину
Удаление файла в корзину 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; Пример вызова функции: RecycleFile(Filename + #0); Либо, если изменить строку pFrom:=PChar(sFileName+#0); то можно вызывать проще: RecycleFile(Filename);
