Chami.com Tips

Home > Tips > Programming > Delete files with the ability to undo or recycle

300+ book mentions, 95% thumbs up, millions of downloads. Get HTML-Kit Tools for $39 (limited time offer)

Web Hosting Web Hosting UK Dedicated Servers Domain Names

Categories

Internet
HTML
JavaScript
» Programming
Windows

Keywords

Delphi
Functions
Windows 95/98/ME
Windows NT/2000/XP
Windows

Delete files with the ability to undo or recycle

Windows will not let the user or your program undo file delete operations that your perform using low-level functions such as DeleteFile() from your program. Following function, however, will delete a file with the ability to undo (recycle) by sending the file to the "Recycle Bin."

uses ShellAPI;

function DeleteFileWithUndo(
  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
              or FOF_NOCONFIRMATION
              or FOF_SILENT;
  end;
  Result := ( 0 = ShFileOperation( fos ) );
end;

To delete a file, simply pass the file name to DeleteFileWithUndo() and it will return True if the operation was successful.

Applicable Keywords : Delphi, Delphi 2.x, Functions, Windows NT, Windows NT 4.x, Windows, Win32, Windows 95

Previous Tip : How to print in a hurry
Random Tip : Be careful about what you click on!
Next Tip : Add documents to "Start | Documents" menu