Category: Files
Title: Move a file in the recycle bin
Date added: 15.03.2006
Hits: 1911

uses ShellAPI;


function MoveToRecycle(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;

1. How to get all information about file? (2818 Hits)

2. How to convert long filenames in short filenames? (1602 Hits)

3. How to set or change file attributes? (3037 Hits)

4. How to check if a path exists? (2673 Hits)

5. How to detect changings of a directory? (1800 Hits)

For any problems or recommendations about Delphi Tricks site, please

feel free to contact us on that e-mail: support@delphitricks.com.
If you want to advertise on the site use that e-mail: advertise@delphitricks.com.

You can freely use or modify these Delphi source codes for non-commercial use. We are not responsible of any damages that can be caused by the utilisation of that source codes.