On Sun, 1 Oct 2006, Felipe Monteiro de Carvalho wrote:
> On 10/1/06, Arí Ricardo Ody <[EMAIL PROTECTED]> wrote:
> > I'm writting an application that delete files. Instead of delete them I
> > would like to put them in the trash. How can I send files to trash?
>
> I went to www.tamaracka.com and searched for "send file recycle bin"
> after googling didn´t find anything useful, and here is what I found:
>
> You must use SHFileOperation to move a file to the recycle bin. The
> following fragment will do the trick. The example has no error checking, so
> you'll want to beef it up for a real application.
>
> procedure DeleteToBin( aFile : String );
> var
> fileOpStruct : TSHFileOpStruct;
> begin
> fileOpStruct.Wnd := Handle;
> fileOpStruct.wFunc := FO_DELETE;
> fileOpStruct.pFrom := aFile;
> fileOpStruct.fFlags := FOF_ALLOWUNDO or FOF_SILENT or
> FOF_NOCONFIRMATION;
> SHFileOperation( fileOpStruct );
> end;
>
>
> I don´t know in which unit these things are, perhaps ShellAPI }
>
> > If there are differences between windows and linux, please explain both.
>
> On Linux it even isn´t guaranteed that a Trash exists at all, and
> implementations vary from desktop manager to desktop manager.
I don't even have a recycle bin on my windows.
It's one of the first things I disable :-)
Michael.
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
