当前位置: 源码素材网 » Delphi源码 » 系统相关 » 详情页

再分享一个简单的Delphi清空回收站源码

Delphi清空回收站源码,之前发过类似的代码,这个清空回收站代码同样超级简单,希望大家喜欢哦。
  procedure TFrmEmpty.BtnEmptyClick(Sender: TObject);
  begin
   if Application.MessageBox('您确定要清空回收站吗?','提示',MB_ICONQUESTION+MB_YESNO) = ID_YES then
   begin
   EmptyRecycle;
   end;
  end;

  • 相关标签:清空回收站
  • 调试环境:Delphi7+
  • 文件大小:4.69K
  • 资源评级:
  • 更新时间:2018-09-28
  • 相关链接:暂无演示

源码测试截图:

再分享一个简单的Delphi清空回收站源码运行截图

相似源码:清空回收站 Delphi源码下载:再分享一个简单的Delphi清空回收站源码 测试截图

下载地址:

暂无相关的Delphi源码!

下载声明:

本站资源仅供学习参考,禁止用于非法途径。若“再分享一个简单的Delphi清空回收站源码”源代码侵犯了您的权益,请尽快告诉我们。