EmptyRecycle() 清空回收站

最新推荐文章于 2023-04-20 12:05:01 发布

1361976860

最新推荐文章于 2023-04-20 12:05:01 发布

阅读量269

点赞数

原文链接：http://www.cnblogs.com/yzryc/p/6142102.html

版权

//在uses下面引用

function SHEmptyRecycleBinA(Wnd:HWND;str:PChar;WRD:DWORD):Integer;stdcall; external 'SHell32.dll';

{清空回收站}

//调用 EmptyRecycle();

function EmptyRecycle():boolean;
begin
  Result:=true;
  try
    if Application.MessageBox('确定要清空回收站吗？','提示',MB_YESNO) = ID_YES then
       SHEmptyRecycleBinA(Application.Handle,'', $7);
  except
    Result:=false;
  end;
end;

转载于:https://www.cnblogs.com/yzryc/p/6142102.html