Очистить корзину

Советы » Другое » Очистить корзину

procedure

EmptyRecycleBin; const

SHERB_NOCONFIRMATION = $00000001; SHERB_NOPROGRESSUI = $00000002; SHERB_NOSOUND = $00000004; type

TSHEmptyRecycleBin = function

(Wnd: HWND; pszRootPath: PChar; dwFlags: DWORD): HRESULT; stdcall

; var

SHEmptyRecycleBin: TSHEmptyRecycleBin; LibHandle: THandle; begin

{ EmptyRecycleBin } 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, nil

, SHERB_NOCONFIRMATION or

SHERB_NOPROGRESSUI or

SHERB_NOSOUND); FreeLibrary(LibHandle); @SHEmptyRecycleBin := nil

; end

; procedure

TForm1.Button1Click(Sender: TObject); begin

EmptyRecycleBin; end

; { Minimum operating systems: Windows XP/2000, Windows NT 4.0 with Internet Explorer 4.0, Windows 98, Windows 95 with Internet Explorer 4.0 (shell32.dll version 4.71 or later) }

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com