我需要知道回收站文件夹的名称，以便我可以通过我的 Delphi 西雅图应用程序清空它。我用下面的代码没有任何成功。同样的代码工程的CSIDL_COOKIES，CSIDL_RECENT等其他文件夹，但不知何故CSIDL_BITBUCKET不给予任何输出。

function GetWinSysFolders(FolderTpye:Integer):String;
var
  Allocator: IMalloc;
  SpecialDir: PItemIdList;
  FBuf: array[0..MAX_PATH] of Char;
  PerDir: string;
begin
  if SHGetMalloc(Allocator) = NOERROR then
  begin    // form1.Handle      v
    SHGetSpecialFolderLocation( 0, FolderTpye, SpecialDir);
    SHGetPathFromIDList(SpecialDir, @FBuf[0]);
    Allocator.Free(SpecialDir);
    result:=string(FBuf);
  end;
end;