Prikazi cijelu temu 10.11.2010 02:39
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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):
  1. Procedure EmptyRecycleBin ;
  2.       Const
  3.           SHERB_NOCONFIRMATION = $00000001 ;
  4.           SHERB_NOPROGRESSUI = $00000002 ;
  5.           SHERB_NOSOUND = $00000004 ;
  6.       Type
  7.           TSHEmptyRecycleBin = function (Wnd : HWND;                                                            
  8.       pszRootPath : PChar;                                                        
  9.       dwFlags : DWORD                              
  10.       ) : HRESULT; stdcall ;
  11.       Var
  12.           SHEmptyRecycleBin : TSHEmptyRecycleBin;
  13.           LibHandle                 : THandle;
  14.       Begin    { EmptyRecycleBin }
  15.           LibHandle := LoadLibrary(PChar('Shell32.dll')) ;
  16.           if LibHandle <> 0 then
  17.                @SHEmptyRecycleBin := GetProcAddress(LibHandle,
  18.       'SHEmptyRecycleBinA')
  19.           else
  20.           begin
  21.                MessageDlg('Neuspesno otvaranje
  22.               biblioteke Shell32.dll.', mtError,
  23.       [mbOK], 0);
  24.                Exit;
  25.           end;
  26.      
  27.      
  28.           if @SHEmptyRecycleBin <> nil then
  29.                SHEmptyRecycleBin(Application.Handle,  nil,
  30.       SHERB_NOCONFIRMATION or
  31.       SHERB_NOPROGRESSUI or SHERB_NOSOUND);
  32.           FreeLibrary(LibHandle);
  33.           @SHEmptyRecycleBin := nil ;
  34.       end;
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 10.11.2010 02:40 od strane zxz.