سورس کد دیلیت کردن فایل مشخص شده از سطل زباله (دلفی)

کد:
function myDeleteFile(Filename : string; ToRecycle : Boolean) : Boolean;

var

   tempFileOp : TSHFileOpStruct;

begin

   if FileExists(Filename) then

   begin

     with tempFileOp do

     begin

       Wnd:=0;

       wFunc:=FO_DELETE;

       pFrom:=pchar(Filename+#0+#0); // Must be double #0 to terminate the string.

                                    // WARNING: Documented, but UNTESTED by me.

                                    // You can use a single #0 to seperate multiple

                                     // files in a single call.

       pTo:=#0+#0; // Prevents Crash in D5 and maybe beyond

       if ToRecycle then

         fFlags:=FOF_FILESONLY or FOF_ALLOWUNDO or FOF_NOCONFIRMATION or FOF_SILENT 

       else

         fFlags:=FOF_FILESONLY or FOF_NOCONFIRMATION or FOF_SILENT;

       SHFileOperation(tempFileOp);

     end;

   end;

   Result:=not(FileExists(Filename));

end;