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 win10系统通知 notificationcenter1 基本用法

Delphi 调用外部程序并等待其运行结束

Delphi idhttp控件的防止异常的处理

Delphi分割字符串的函数--extractstrings

Delphi [fmx]如何使用剪贴板

Delphi 在 api 函数中使用 pchar 参数的几种方法

Delphi开发桌面图标列表查看程序

Delphi 获取当天是星期几，计算两个日期相隔时间

Delphi原生方法取得文件的md5

键盘钩子,鼠标钩子,Delphi环境下编写的键盘鼠标钩子的程序示例

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

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