Code:

type

PSHQueryRBInfo = ^TSHQueryRBInfo;

TSHQueryRBInfo = packed record

   cbSize: DWORD;

   // Size of the structure, in bytes.

   // This member must be filled in prior to calling the function.

   i64Size: Int64;

   // Total size of all the objects in the specified Recycle Bin, in bytes.

   i64NumItems: Int64;

   // Total number of items in the specified Recycle Bin.

end;

 

const

shell32 = 'shell32.dll';

 

function SHQueryRecycleBin(szRootPath: PChar; SHQueryRBInfo: PSHQueryRBInfo): HResult;

stdcall; external shell32 Name 'SHQueryRecycleBinA';

 

function GetDllVersion(FileName: string): Integer;

var

InfoSize, Wnd: DWORD;

VerBuf: Pointer;

FI: PVSFixedFileInfo;

VerSize: DWORD;

begin

Result   := 0;

InfoSize := GetFileVersionInfoSize(PChar(FileName), Wnd);

if InfoSize <> 0 then

begin

   GetMem(VerBuf, InfoSize);

   try

     if GetFileVersionInfo(PChar(FileName), Wnd, InfoSize, VerBuf) then

       if VerQueryValue(VerBuf, '\', Pointer(FI), VerSize) then

         Result := FI.dwFileVersionMS;

   finally

     FreeMem(VerBuf);

   end;

end;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

var

DllVersion: integer;

SHQueryRBInfo: TSHQueryRBInfo;

r: HResult;

begin

DllVersion := GetDllVersion(PChar(shell32));

if DllVersion >= $00040048 then

begin

   FillChar(SHQueryRBInfo, SizeOf(TSHQueryRBInfo), #0);

   SHQueryRBInfo.cbSize := SizeOf(TSHQueryRBInfo);

   R := SHQueryRecycleBin(nil, @SHQueryRBInfo);

   if r = s_OK then

   begin

     label1.Caption := Format('Size:%d Items:%d',

       [SHQueryRBInfo.i64Size, SHQueryRBInfo.i64NumItems]);

   end

   else

     label1.Caption := Format('Err:%x', [r]);

end;

end;

 

{

 

The SHQueryRecycleBin API used in this method is

only available on systems with the latest shell32.dll installed with IE4 /

Active Desktop.

 

}

 

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

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!