Delete file , sending them to Recycle Bin

 

 

Add 'ShellApi' in the uses of your form :

 

Function SendToRecycleBin ( Files : String ) : boolean ;

Var

   FileOp      : TSHFileOpStruct ;

Begin

   If FileExists ( Files ) Then

   Begin

      FillChar ( FileOp , SizeOf ( FileOp ) , #0 ) ;

      With FileOp Do

      Begin

         Wnd := Application.Handle ;

         wFunc := FO_DELETE ;

         pFrom := PChar ( Files + #0#0 ) ;

         fFlags := FOF_SILENT Or FOF_ALLOWUNDO Or FOF_NOCONFIRMATION ;

      End ;

      Result := ( ShFileOperation ( FileOp ) = 0 ) ;

   End

   Else

      Result := False ;

End ;

 

Exemple :

 

        If Not SendToRecycleBin ( 'c:\Files.txt' ) Then

             ShowMessage ( 'Can not delete file' ) ;