 ::  |
| Autor |
Poruka |
himzo
Banovan!
Odomaćeni član
 |
Godine: 42
Datum registracije: 24 Okt 2005
Poruke: 1390
Mesto: Vojvoda Stepa
|
|
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!
|
|
|
| |
|
 |
crazy dusan
Početnik Domaćeg.de
 |
Datum registracije: 11 Dec 2005
Poruke: 25
|
|
| |
|
|
Zoran_Karavla
~ Beli mišOv ~
 |
Godine: 39
Datum registracije: 18 Avg 2002
Poruke: 661
Mesto: NS
|
|
|
Pa? Ko te je pitao?
|
_________________
 |
|
| |
|
|
excelpagems
Početnik Domaćeg.de
|
Datum registracije: 28 Dec 2005
Poruke: 74
|
|
|
A koji je to jezik? Visual Basic ili... Kako da napravim to u Visual Basic-u?
|
|
|
| |
|
|
Doktor
~Sanjicino*slculence~
 |
Godine: 38
Datum registracije: 17 Nov 2005
Poruke: 4264
Mesto: Novi Sad
|
|
|
To je Delphi (to pise i u naslovu teme), a za Visual Basic otvori novu temu.
|
_________________
~*~Vojim svoje srculence najvise na svetu ~*~ :322:
 |
|
| |
|
|
|
|
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
|
|
