RecycleFile()删除文件到回收站

{删除文件到回收站}
//if fileexists('d:\a.txt') then    RecycleFile('d:\a.txt' + #0);
// uses shellapi;
function RecycleFile(sFileName: string): Boolean;
var
  FOS: TSHFileOpStruct;
begin
   FillChar(FOS, SizeOf(FOS), 0);
   with FOS do
      begin
         wFunc := FO_DELETE;
         pFrom := PChar(sFileName);
         fFlags := FOF_ALLOWUNDO;
      end;
   Result := (SHFileOperation(FOS) = 0);
end;

通过 为知笔记 发布