delphi清空回收站


本文整理自网络,侵删。

 delphi清空回收站

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 ;

相关阅读 >>

crossbow病毒开放源代码-熊猫烧香源始代码

Delphi + word = 数据库 + 公文处理

Delphi apihook createprocess

Delphi 支持通配符删除文件

Delphi firemonkey应用程序取得控制的位置(坐标)的话

Delphi 文件的操作:重命名、复制、移动、删除

Delphi中对url进行编码和解码

Delphi android 安卓中保持屏幕常亮

Delphi 用cxgrid显示联合查询数据和更改数据

Delphi 实现检测线程类tthread是否结束

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...