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

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