Добавить комментарий

uses
     WinAPI.ShellAPI
    ,WinAPI.Windows
    ;

procedure GetRecycleBinInfo;
var
  rbinfo: SHQUERYRBINFO;
begin
  FillMemory(@rbinfo, SizeOf(rbinfo), 0);
  rbinfo.cbSize := SizeOf(rbinfo);
  SHQueryRecycleBin('', @rbinfo);
  // Теперь: 
  // rbinfo.i64Size - разер элементов в корзине
  // rbinfo.i64NumItems - количество элементов
end;