Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
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('Neuspesno otvaranje biblioteke Shell32.dll.', mtError, [mbOK], 0); Exit; end; if @SHEmptyRecycleBin <> nil then SHEmptyRecycleBin(Application.Handle, nil, SHERB_N