本文整理自网络,侵删。
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 ;
相关阅读 >>
Delphi adoconnection1 连接excel 读取数据
Delphi firemonkey处理图形的方式与vcl处理图形的方式大不相同
Delphi sendmessage这个函数有很多奇妙的用途
Delphi webbrowser通过遍历id查找元素是否存在
Delphi 移动windows开始按钮到任务栏中的任何位置
更多相关阅读请进入《Delphi》频道 >>