delphi EmptyRecycle() 清空回收站

本文整理自网络，侵删。

 

 
//在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;
 

相关阅读 >>

Delphi: ttreeview 中禁止双击事件展开或关闭节点

Delphi实现dbgrid全选和反选功能

Delphi enumwindows 获取窗体句柄 进程id 窗体信息

Delphi webbrowser 加载html成web

Delphi设置窗口透明

Delphi 为richedit设置行号

Delphi 解析系统环境变量

Delphi xe8安卓下汉字转gb2312 urlencode代码

Delphi程序在每个windows 会话中只执行一次

Delphi 利用51.la统计程序使用量

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi EmptyRecycle() 清空回收站