时间: 2021-07-31 作者:daque
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; { emptyrecyclebin }