[SOLVED] Delete to recycle bin

[pcurtis]

How can I delete to the recycle bin?

[rvk]

Code: Pascal  [Select][+][-]

1. uses ShellApi;
2.  
3. procedure TForm1.Button1Click(Sender: TObject);
4. begin
5.   SHEmptyRecycleBin(Self.Handle, '', SHERB_NOCONFIRMATION);
6. end;

Possible flags:
  SHERB_NOCONFIRMATION
  SHERB_NOPROGRESSUI
  SHERB_NOSOUND

[pcurtis]

How to DELETE TO not empty, but also good to know.

[rvk]

How to DELETE TO not empty, but also good to know.

Ah, ok, I misread.

Code: Pascal  [Select][+][-]

1. uses ShellApi;
2.  
3. procedure DeleteFileToRecycleBin(aFile: PChar);
4. var
5.   fileOpStruct : TSHFileOpStruct;
6. begin
7.   fileOpStruct.Wnd := 0;
8.   fileOpStruct.wFunc := FO_DELETE;
9.   fileOpStruct.pFrom := aFile;
10.   fileOpStruct.fFlags := FOF_ALLOWUNDO + FOF_NOCONFIRMATION;
11.   SHFileOperation(fileOpStruct);
12. end;

[pcurtis]

Thanks.