把文件放入回收站代码,Delphi代码库,德仔网

代码语言

代码分类

【Delphi】把文件放入回收站

作者:dezai / 发布于2013/12/3/ 384

function DeleteFileWithUndo(const FileName: string): Boolean;
var
 FOS: ShellAPI.TSHFileOpStruct; // contains info about required file operation
begin
 // Set up structure that determines file operation
 FillChar(FOS, SizeOf(FOS), 0);
 with FOS do
 begin
  wFunc := ShellAPI.FO_DELETE;   // we're deleting
  pFrom := PChar(FileName + #0);  // this file (#0#0 terminated)
  fFlags := ShellAPI.FOF_ALLOWUNDO // with facility to undo op
   or ShellAPI.FOF_NOCONFIRMATION // and we don't want any dialogs
   or ShellAPI.FOF_SILENT;
 end;
 // Perform the operation
 Result := ShellAPI.SHFileOperation(FOS) = 0;
end;

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　回收站　

同语言下

可能有用的

dezai贡献的其它代码(1065)