[Delphi] jak opró?żnić kosz

no własnie (jak w temacie) np za pomocą buttona

--
Pozdrowienia [cya]
Waldi Koronowo
[email protected]
Zdarza sie że pisze e przed i nie zwracajcie uwagi na to:-D

:-D Ciekawe czy o to Ci chodziło Waldi?

Właśnie piszę programik w VB 6.0, można oszaleć.

Pozdrawiam

Tak chyba będzie łatwiej ...

procedure OproznijKosz;
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
begin
@SHEmptyRecycleBin :=GetProcAddress (LibHandle, 'SHEmptyRecycleBinA');
SHEmptyRecycleBin(Application.Handle, nil, SHERB_NOCONFIRMATION
or SHERB_NOPROGRESSUI or SHERB_NOSOUND);
FreeLibrary(LibHandle);
end;
end;

Tak chyba będzie łatwiej ...

procedure OproznijKosz;
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
begin
@SHEmptyRecycleBin :=GetProcAddress (LibHandle, 'SHEmptyRecycleBinA');
SHEmptyRecycleBin(Application.Handle, nil, SHERB_NOCONFIRMATION
or SHERB_NOPROGRESSUI or SHERB_NOSOUND);
FreeLibrary(LibHandle);
end;
end;

Z tym że nic się nie dzieje nie opróżnia kosza mam win ME
A pewien gość napisał
<quote>
A mianowiś masz tutaj 2 możliwości:
1)w naturze
-zlokalizuj kosz (podpowiem ze u mnie stoji on w kuchni)
-wyjmij zawartośc
-zlokalizuj śmietnik (u mnie stoji przed blokiem)
-wyrzuć zawartośc kosza do śmietnika
2)w komputerze

• najedz myszą na ikonke o nazwie "kosz"
• naciśnij jej prawy przycisk (lewe oko zwierzęcia)
  -wybierz opcje "opróżnij kosz"

mam nadzieje ze pomogłem 192.168.0.2 :D
pozdrawiam programistów tez sie kiedys tego naucze
[/guote]
To mój sąsiad skasujcie ten post tzne ten co on napisał

--
Pozdrowienia [cya]
Waldi Koronowo
[email protected]
Zdarza sie że pisze e przed i nie zwracajcie uwagi na to:-D

To chyba nie zależy od systremu, między
LibHandle a 0 musisz wstawić "" i powinno zadziałać ...

To znowu ja ... :|
Między LibHandle a 0 musisz wstawić znak różności [niewinnosc]

To znowu ja ... :|
Między LibHandle a 0 musisz wstawić znak różności [niewinnosc]

No właśnie tak miałem bo inaczej nie chciał sie skompilować i też żadnej reakcji.

--
Pozdrowienia [cya]
Waldi Koronowo
[email protected]
Zdarza sie że pisze e przed i nie zwracajcie uwagi na to:-D