Delphi - Kako isprazniti 'Recycle Bin'?

U ovom prilogu ćemo vam prikazati Delphi proceduru za pražnjenje Windows Recycle Bin-a (fajlova smeštenih u ovaj direktorijum). Za ovu proceduru ćemo iskoristiti sistemsku DLL biblioteku Shell32.dll, koja dolazi uz stariju verziju Internet Explorer-a (verziju 4.0), tj. već je ugrađena u Windows 98 i novije verzije ovog operativnog sistema. Morate obratiti pažnju na to da starije verzije Windows-a 95 nemaju update-ovanu verziju (tj. verzija koja onemogućava izvoz procedure) ove biblioteke.
Procedura koristi funkciju SHEmptyRecycleBinA koju ćemo pozvati iz Shell32.dll biblioteke. A sada evo i procedure:

Procedure EmptyRecycleBin ;
      Const
          SHERB_NOCONFIRMATION = $00000001 ;
          SHERB_NOPROGRESSUI = $00000002 ;
          SHERB_NOSOUND = $00000004 ;
      Type
          TSHEmptyRecycleBin = function (Wnd : HWND;                                                            
      pszRootPath : PChar;                                                         
      dwFlags : DWORD                               
      ) : HRESULT; stdcall ;
      Var
          SHEmptyRecycleBin : TSHEmptyRecycleBin;
          LibHandle                 : THandle;
      Begin    { EmptyRecycleBin }
          LibHandle := LoadLibrary(PChar('Shell32.dll')) ;
          if LibHandle <> 0 then
               @SHEmptyRecycleBin := GetProcAddress(LibHandle,
      'SHEmptyRecycleBinA')
          else
          begin
               MessageDlg('Neuspesno otvaranje 
               biblioteke Shell32.dll.', mtError,
      [mbOK], 0);
               Exit;
          end;
      
      
          if @SHEmptyRecycleBin <> nil then
               SHEmptyRecycleBin(Application.Handle,  nil,
      SHERB_NOCONFIRMATION or 
      SHERB_NOPROGRESSUI or SHERB_NOSOUND);
          FreeLibrary(LibHandle);
          @SHEmptyRecycleBin := nil ;
      end;