☆Obaby's H4cking W0rld☆

Hack-Crack==Backdoors - RATs - Trojans // Binders-Packers - Rootkits

破解-黑客-零日漏洞-灰鸽子/上兴/PCShare-木马免杀-网站入侵-信息安全

2009年1月13日星期二

如何清空回收站

如何清空回收站

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 ;

0 评论:

发表评论