با این کد میتوانید Recycle Bin را خالی کنید ...

[Keramatifar]

برنامه نویسان محترم میتوانند توسط این کد کار یک مامور جمع آوری زباله را انجام داده و سطل آشغال ویندوز را خالی کنند :D :lol:
Procedure EmptyRecycleBin;
Const
SHERB_NCONFIRMATION = $0000001 ;
SHERB_NOPROGRESSUI = $0000002 ;
SHERB_NOSOUND = $0000004 ;
Type
TSHEmtyRecycleBin = function (Wnd : HWND;
pszRootPath : PChar;
dwFlags : DWORD) : HRESULT; stdcall;
Var
SHEmtyRecycleBin : TSHEmptyRecycleBin;
LibHandel : THandel;
Begin { EmptyRecycleBin }
LibHandel := LoadLibrary(PChar('Shell32.dll'));
if LibHandel <> 0 then
@SHEmptyRecycleBin :=GetProcAddress(LibHandel, 'SHEmptyRecycleBinA')

else
begin
MessageDlg('Failed to load Shell32.dll.',mtError, [mbOK], 0);
Exit;
End;
if @SHEmptyRecycleBin <> nil then
SHEmptyRecycleBin(Application.Handel, nil,
SHERB_NOCONFIRMATION or SHERB_NOPROGRESSUI or
SHERB_NOSOUND);
FreeLibrary(LibHandel);
@SHEmptyRecycleBin :=nil;
End; { EmptyRecycleBin }

[ماریا وکیلی]

کار نمی کنه والا کار نمیکنه

[m-khorsandi]

جناب Wish Master لطفا" کدتون رو در Tag قرار بدید.
ممنون.

[ماریا وکیلی]

tag کجاست ؟

[سید مسعود موحد]

خانم وکیلی به این میگن Tag




Procedure EmptyRecycleBin;
Const
SHERB_NCONFIRMATION = $0000001 ;
SHERB_NOPROGRESSUI = $0000002 ;
SHERB_NOSOUND = $0000004 ;
Type
TSHEmtyRecycleBin = function (Wnd : HWND;
pszRootPath : PChar;
dwFlags : DWORD) : HRESULT; stdcall;
Var
SHEmtyRecycleBin : TSHEmptyRecycleBin;
LibHandel : THandel;
Begin { EmptyRecycleBin }
LibHandel := LoadLibrary(PChar('Shell32.dll'));
if LibHandel <> 0 then
@SHEmptyRecycleBin :=GetProcAddress(LibHandel, 'SHEmptyRecycleBinA')

else
begin
MessageDlg('Failed to load Shell32.dll.',mtError, [mbOK], 0);
Exit;
End;
if @SHEmptyRecycleBin <> nil then
SHEmptyRecycleBin(Application.Handel, nil,
SHERB_NOCONFIRMATION or SHERB_NOPROGRESSUI or
SHERB_NOSOUND);
FreeLibrary(LibHandel);
@SHEmptyRecycleBin :=nil;
End; { EmptyRecycleBin }