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根据不同分隔符获取字符串内容

Delphi idftp连接

Delphi 循环 low high 用法

Delphi 关于 array of const

Delphi 一个文件重复生成的小工具[附源码]

Delphi xe [dcc32 fatal error] f2039 could not create output file 问题的解决

Delphi 杨辉三角

Delphi 百万次重复调用字符分割函数，不耗内存用法

Delphi获取身份证号码验证码算法

Delphi中最小化其他程序及所有程序窗口最小化

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

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