function SHQueryRecycleBin ( pszRootPath:LPCSTR; pSHQueryRBInfo:PSHQUERYRBINFO):HRESULT; stdcall;
指定したドライブのごみ箱にあるファイルのサイズ、数を検索します。
・成功した場合は S_OK を返します。失敗した場合はOLE-definedエラー値を返します。
pszRootPath
PChar型でごみ箱を検索するドライブのパスを指定します。すべてを対象とする場合は指定しなくてもかまいません。
pSHQueryRBInfo
ごみ箱に関する情報を受け取るSHQUERYRBINFO構造体のアドレスを指定します。
このAPIを呼ぶ際は、構造体の中のcbSizeに構造体のサイズを設定しておく必要があります。
SHQUERYRBINFO構造体
TSHQUERYRBINFO = record
cbSize:DWORDLONG;
i64Size:Comp; //ごみ箱にあるファイルのサイズ
i64NumItems:Comp; //ごみ箱にあるファイルの数
end;
|
参考例
procedure TForm1.Button2Click(Sender: TObject);
var
RecycleData:TSHQUERYRBINFO;
begin
RecycleData.cbSize:=sizeof(TSHQUERYRBINFO);
SHQueryRecycleBin(nil,@RecycleData);
Label3.Caption:=Inttostr(Round(RecycleData.i64NumItems));
Label4.Caption:=Inttostr(Round(RecycleData.i64Size));
end;
本文
|