Predmet:Procedura za praznjenje Windows Recycle Bin-a
Procedura za praznjenje Windows Recycle Bin-a;
Za ovu proceduru cemo iskoristiti sistemsku DLL biblioteku Shell32.dll, koja dolazi uz stariju verziju Internet Explorer-a (verziju 4.0), tj. vec je ugradjena u Windows 98 i novije verzije ovog operativnog sistema. Morate obratiti paznju na to da starije verzije Windows-a 95 nemaju update-ovanu verziju (tj. verzija koja onemogucava izvoz procedure) ove biblioteke.
Procedura koristi funkciju SHEmptyRecycleBinA koju ?emo pozvati iz Shell32.dll biblioteke. A sada evo i procedure:
PreuzmiIzvorni kôd (Delphi):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_NOCONFIRMATION or
SHERB_NOPROGRESSUI or SHERB_NOSOUND);
FreeLibrary(LibHandle);
@SHEmptyRecycleBin := nil ;
end;
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden
1
puta. Posljednja izmjena 10.11.2010 01:40 od strane zxz.