[Webinar] Streamline your web hosting managementRegister Today

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 396
  • Last Modified:

Delete files to the Recycle Bin?

how do I delete files to the recycle bin? Does delphi provide a way or do I have to get the recycle bin dir from windows and then just move files there?
0
ripcord
Asked:
ripcord
1 Solution
 
Edo082297Commented:
program del;

uses ShellApi;

//function SHFileOperation(const lpFileOp: TSHFileOpStruct): Integer; stdcall;
Var
  T:TSHFileOpStruct;    
  P:String;
begin  
  P:='C:\Windows\System\EL_CONTROL.CPL';
  With T do  
  Begin    
    Wnd := 0;    
    wFunc := FO_DELETE;    
    pFrom:=Pchar(P);
    fFlags:=FOF_ALLOWUNDO  
  end;  
  SHFileOperation(T);

End.

1) Give the complete path to the file

2) MS has a documentation correction about the pFrom member. It says that for multiple files, each filename is seperated by a NULL (#0) character, and the whole thing is terminated by double NULLs. You need the double NULL whether or not you are passing multiple filenames. Sometimes it will work correctly without them, but often not. That's because sometimes you get lucky and the memory following the end of your string has a NULL there.

An example of how to do this would be:

var
  FileList: string;
  FOS: TShFileOpStruct;
begin
  FileList := 'c:\delete.me'#0'c:\windows\temp.$$$'#0#0;
  { if you were using filenames in string variables: }
  FileList := Filename1 + #0 + Filename2 + #0#0;

  FOS.pFrom := PChar(FileList);

  // blah blah blah
end;


Thanks to Brad Stowers (ZifNab ?) and UDDF for this information, whose help file may be obtained from

http://www.gnomehome.demon.nl/uddf/uddf.arj 


Regards,
Edo


0

Featured Post

[Webinar] Kill tickets & tabs using PowerShell

Are you tired of cycling through the same browser tabs everyday to close the same repetitive tickets? In this webinar JumpCloud will show how you can leverage RESTful APIs to build your own PowerShell modules to kill tickets & tabs using the PowerShell command Invoke-RestMethod.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now