如何清空回收站

2006 年 07 月 10 日

7230 次浏览

1059字数

{================================================================= &nbsp;功 &nbsp;能: &nbsp;清空回收站 &nbsp;叁 &nbsp;数: &nbsp;无 &nbsp;返回值: &nbsp;无 =================================================================} procedure EmptyRecycleBin; const &nbsp;SHERB_NOCONFIRMATION = $00000001; &nbsp;SHERB_NOPROGRESSUI = $00000002; &nbsp;SHERB_NOSOUND = $00000004; type &nbsp;TSHEmptyRecycleBin = function (Wnd: HWND;LPCTSTR: PChar;DWORD: Word): integer; stdcall; var &nbsp;SHEmptyRecycleBin: TSHEmptyRecycleBin; &nbsp;LibHandle: THandle; begin &nbsp;LibHandle := LoadLibrary(PChar('Shell32.dll')); &nbsp;if LibHandle &lt;&gt; 0 then &nbsp; &nbsp;@SHEmptyRecycleBin := GetProcAddress(LibHandle, 'SHEmptyRecycleBinA') &nbsp;else &nbsp;begin &nbsp; &nbsp;MsgBox('Failed to load Shell32.dll.', mtError, [mbOK]); &nbsp; &nbsp;Exit; &nbsp;end; &nbsp;if @SHEmptyRecycleBin &lt;&gt; nil then &nbsp; &nbsp;SHEmptyRecycleBin(Application.Handle,'',SHERB_NOCONFIRMATION or &nbsp;SHERB_NOPROGRESSUI or SHERB_NOSOUND); &nbsp;FreeLibrary(LibHandle); &nbsp;@SHEmptyRecycleBin := nil; end;

最后修改：2009 年 08 月 16 日

支持就是力量

如何清空回收站

发表评论取消回复
使用cookie技术保留您的个人信息以便您下次快速评论，继续评论表示您已同意该条款

google map 离线地图操作方法

《小猪佩奇、粉红猪小妹、Peppa Pig》高清1080p 中英文原版下载

《Stanley博士的家》高智商游戏

彭丹邓家佳同性恋电影《除却巫山》介绍

设置WebBrowser的Referrer值

Delphi中三种延时方法

偶的彩票终于中奖了,哈哈哈

WordPress已成為全球19%網站基礎平臺

回家

吴尊张韶涵《公主小妹》在线看

如何清空回收站

发表评论 取消回复 使用cookie技术保留您的个人信息以便您下次快速评论，继续评论表示您已同意该条款

如何清空回收站

发表评论取消回复
使用cookie技术保留您的个人信息以便您下次快速评论，继续评论表示您已同意该条款