delphi 删除文件到回收站

在Delphi中，可以使用ShellAPI单元中的SHFileOperation函数来将文件移动到回收站。下面是一个简单的示例代码：

uses
  ShellAPI;

procedure MoveFileToRecycleBin(const AFileName: string);
var
  FileOp: TSHFileOpStruct;
begin
  ZeroMemory(@FileOp, SizeOf(FileOp));
  FileOp.Wnd := 0;
  FileOp.wFunc := FO_DELETE;
  FileOp.pFrom := PChar(AFileName + #0);
  FileOp.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION or FOF_SILENT;

  if SHFileOperation(FileOp) <> 0 then
    ShowMessage('文件移动到回收站失败')
  else
    ShowMessage('文件移动到回收站成功');
end;

// 在需要的地方调用该函数
MoveFileToRecycleBin('C:\example.txt');

在上面的示例中，我们定义了一个MoveFileToRecycleBin函数，它接受文件名作为参数，并使用SHFileOperation函数将文件移动到回收站。FO_DELETE参数指示删除文件，FOF_ALLOWUNDO表示允许撤销操作，FOF_NOCONFIRMATION表示不显示删除确认对话框，FOF_SILENT表示不显示进度对话框。

调用MoveFileToRecycleBin函数并传入文件路径作为参数即可将文件移动到回收站。当文件成功移动到回收站时，将会弹出提示成功的消息框；如果移动失败，则会弹出移动失败的消息框。

这就是如何在Delphi中使用SHFileOperation函数将文件移动到回收站的方法。