|
| 盒子资源分类 |
![]() |
|
|
|
|
| 如何使用Delphi清空回收站 |
![]() |
| 关键字：清空回收站 技巧 EmptyRecycleBin |
| 来 自：原创 |
| 平 台：Win2k/XP/NT,Win2003 |
下载所需：0 火柴 |
| 深浅度：初级 |
完成时间：2005/3/11 |
| 发布者：wlqdephi6 |
发布时间：2005/3/11 |
| 编辑器：DELPHI7 |
语 种：简体中文 |
| 分 类：系统 |
下载浏览：0/12699 |
|
|
|
|
|
Procedure EmptyRecycleBin ;
Const
SHERB_NOCONFIRMATION = $00000001 ;
SHERB_NOPROGRESSUI = $00000002 ;
SHERB_NOSOUND = $00000004 ;
Type
TSHEmptyRecycleBin = function (Wnd : HWND ;
LPCTSTR : PChar ;
DWORD : Word ) : Integer ; stdcall ;
Var
SHEmptyRecycleBin : TSHEmptyRecycleBin ;
LibHandle : THandle ;
Begin
LibHandle := LoadLibrary(PChar('Shell32.dll')) ;
If LibHandle <> 0 then
@SHEmptyRecycleBin := GetProcAddress(LibHandle, 'SHEmptyRecycleBinA')
Else
Begin
MessageDlg('Failed to load Shell32.dll.', mtError, [mbOK], 0);
Exit ;
End ;
If @SHEmptyRecycleBin <> nil then
SHEmptyRecycleBin(Application.Handle ,
'' ,
SHERB_NOCONFIRMATION or
SHERB_NOPROGRESSUI or
SHERB_NOSOUND ) ;
FreeLibrary(LibHandle);
@SHEmptyRecycleBin := nil ;
End ; |
| 本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请联系我们！ |
| 相关文章 |
|
![]() |
|
|
| 相关评论 |
![]() |
|
共有评论2条
当前显示最后2条评论
|
| tim001 |
2005/3/22 11:29:13 |
| 谢谢！ |
| wormworm |
2005/4/3 1:44:49 |
| 没必要LoadLibrary('Shell32.dll')吧，它应该在你的进程的adress space里 |
| 我要发表评论 |
查看全部评论 |
|
|
|
