:: |
Autor |
Poruka |
himzo Banovan! Odomaćeni član
![Odomaćeni član Odomaćeni član](/images/ranks/stars_orange.gif)
![](http://www.domaci.de/images/no_avatar.gif) |
Godine: 42
Datum registracije: 24 Okt 2005 Poruke: 1390 Mesto: Vojvoda Stepa
![serbia.gif](images/flags/serbia.gif)
|
|
Pražnjenje korpe za otpatke (Recycle Bin) se radi na sledeći način:
Code: | 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
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; |
Sve što je sada potrebno uraditi je da se pozove procedura EmptyRecycleBin. Ovaj primer takođe prikazuje dinamičko učitavanje DLL-a shell32.dll.
NAPOMENA: Ovaj primer će raditi pod operativnim sistemima Windows 2000/NT/XP/95/98 sa shell32.dll verzija 4.71 ili novija!
|
|
|
|
|
![](templates/subDomaci/images/spacer.gif) |
crazy dusan Početnik Domaćeg.de
![Početnik Domaćeg.de Početnik Domaćeg.de](/images/ranks/rankb1_1.gif)
![](images/avatars/gallery/Korisnicki/garfild.gif) |
Datum registracije: 11 Dec 2005 Poruke: 25
![blank.gif](images/flags/blank.gif)
|
|
|
|
![](templates/subDomaci/images/spacer.gif) |
Zoran_Karavla ~ Beli mišOv ~
![~ Beli mišOv ~ ~ Beli mišOv ~](/images/ranks/stars_orange.gif)
![](http://www.burek.co.yu/mishov.gif) |
Godine: 38
Datum registracije: 18 Avg 2002 Poruke: 661 Mesto: NS
![yugoslavia.gif](images/flags/yugoslavia.gif)
|
|
Pa? Ko te je pitao?
|
_________________
![](http://the-error.net/window_sig.gif) |
|
|
|
![](templates/subDomaci/images/spacer.gif) |
excelpagems Početnik Domaćeg.de
![Početnik Domaćeg.de Početnik Domaćeg.de](/images/ranks/rankb1_1.gif)
![](http://www.domaci.de/images/no_avatar.gif) |
Datum registracije: 28 Dec 2005 Poruke: 74
![serbia.gif](images/flags/serbia.gif)
|
|
A koji je to jezik? Visual Basic ili... Kako da napravim to u Visual Basic-u?
|
|
|
|
|
![](templates/subDomaci/images/spacer.gif) |
Doktor ~Sanjicino*slculence~
![~Sanjicino*slculence~ ~Sanjicino*slculence~](/images/ranks/stars_orange.gif)
![](images/avatars/1176565723449c4a8bc1d54.jpg) |
Godine: 38
Datum registracije: 17 Nov 2005 Poruke: 4264 Mesto: Novi Sad
![blank.gif](images/flags/blank.gif)
|
|
To je Delphi (to pise i u naslovu teme), a za Visual Basic otvori novu temu.
|
_________________ ~*~Vojim svoje srculence najvise na svetu ~*~ :322:
![](http://www.domaci.de/sanjica_021/doktor/banner.gif) |
|
|
|
![](templates/subDomaci/images/spacer.gif) |
|
|
Vi ne možete otvarati nove teme u ovom forumu Vi ne možete odgovarati na teme u ovom forumu Vi ne možete menjati Vaše poruke u ovom forumu Vi ne možete brisati Vaše poruke u ovom forumu Vi ne možete glasati u anketama u ovom forumu Vi ne možete postavljati fajlove u ovom forumu Vi ne možete preuzeti fajlove sa ovog foruma
|
|