delphi 检查回收站是否为已清空|笨鱼技术网

中国程序员联盟

正在重新改版中ing 不便之处还请见谅改版后将内容涉及java delphi .net php

| | | |

		当前位置：笨鱼delphi技术网>数据库开发>开发应用>文章内容

delphi 检查回收站是否为已清空

来源：国外关于：轶名发布时间：2007-07-08

[

收藏] [

推荐]

uses
  Activex, ShlObj, ComObj;
function RecycleBinIsEmpty: Boolean;
const
  CLSID_IRecycleBin: TGUID = (D1: $645FF040; D2: $5081; D3: $101B;
    D4: ($9F, $08, $00, $AA, $00, $2F, $95, $4E));
var
  EnumIDList: IEnumIDList;
  FileItemIDList: PItemIDList;
  ItemCount: ULONG;
  RecycleBin: IShellFolder;
begin
  CoInitialize(nil);
  OleCheck(CoCreateInstance(CLSID_IRecycleBin, nil, CLSCTX_INPROC_SERVER or
    CLSCTX_LOCAL_SERVER, IID_IShellFolder, RecycleBin));
  RecycleBin.EnumObjects(0,
    SHCONTF_FOLDERS or
    SHCONTF_NONFOLDERS or
    SHCONTF_INCLUDEHIDDEN,
    EnumIDList);
  Result := EnumIDList.Next(1, FileItemIDList, ItemCount) <> NOERROR;
  CoUninitialize;
end;

[浏览：次]

上一篇：delphi 如何建议快捷方式下一篇：delphi 重命名、COPY、移动文件

[

收藏] [

推荐] [返回顶部] [打印本页] [关闭窗口]


	google adsense热点文章

·delphi Delphi_三谈多态——善用virtua
·delphi 条形码处理
·delphi Delphi_三层开发基本概念介绍
·delphi 汉字转拼音码(上)
·delphi CS构架下的客户端自动更新程序
·delphi Olevariant
·delphi 在Dephi中使用TStream读写数据
·delphi delphi处理流
·delphi 汉字转拼音码(下)
·delphi 关于使用COM对象的方法
·delphi MTS组件——从理论到实践
·delphi 汉字转拼音码(中3)

	Copyright@www.delphichm.com,2006-2009.All Rights Reserved.
	程序员联盟 \| delphi Java .net\|QQ:707102932