Показать корзину Windows

uses

   ActiveX, ShlObj, ShellApi;

 procedure
 FreePidl(pidl: PItemIDList);
 var

    allocator: IMalloc;
 begin

   if
 Succeeded(shlobj.SHGetMalloc(allocator)) then

    begin

     allocator.Free(pidl);
     {$IFDEF VER90}
     allocator.Release;
     {$ENDIF}
   end
;
 end
;

 procedure
 TForm1.Button1Click(Sender: TObject);
 var

   exInfo: TShellExecuteInfo;
 begin

   // initialize all fields to 0 
  FillChar(exInfo, SizeOf(exInfo), 0);
   with
 exInfo do

   begin

     cbSize := SizeOf(exInfo); // required! 
    fMask := SEE_MASK_FLAG_DDEWAIT or
 SEE_MASK_IDLIST;
     Wnd := Handle;
     nShow := SW_SHOWNORMAL;
     lpVerb := 'open';
     ShGetSpecialFolderLocation(Handle, CSIDL_BITBUCKET, PItemIDLIst(lpIDList));
   end
;
   ShellExecuteEx(@exInfo);
   FreePIDL(exinfo.lpIDList);
 end
;

Другое по теме:

• Очистка корзины
• Полнофункциональная функция для создания ярлыка с определенными параметрами.
• Регистрация расширений