[SOLVED] Delete to recycle bin
lazarus / 34-Windows

----------------------------------------------------------------------
pcurtis · 2022-02-06 16:25

How can I delete to the recycle bin?

----------------------------------------------------------------------
rvk · 2022-02-06 16:58

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i uses
ShellApi; procedure TForm1.Button1Click(Sender: TObject);begin 
SHEmptyRecycleBin(Self.Handle, '', SHERB_NOCONFIRMATION);end;
Possible flags:
  SHERB_NOCONFIRMATION
  SHERB_NOPROGRESSUI
  SHERB_NOSOUND

----------------------------------------------------------------------
pcurtis · 2022-02-06 17:09

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

----------------------------------------------------------------------
rvk · 2022-02-06 17:14

Quote from: pcurtis on February 06, 2022, 06:09:17 pmHow to DELETE TO
not empty, but also good to know.
Ah, ok, I misread.

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i uses
ShellApi; procedure DeleteFileToRecycleBin(aFile: PChar);var 
fileOpStruct : TSHFileOpStruct;begin  fileOpStruct.Wnd := 0; 
fileOpStruct.wFunc := FO_DELETE;  fileOpStruct.pFrom := aFile; 
fileOpStruct.fFlags := FOF_ALLOWUNDO + FOF_NOCONFIRMATION; 
SHFileOperation(fileOpStruct);end;

----------------------------------------------------------------------
pcurtis · 2022-02-06 17:16

Thanks.