با این کد میتوانید 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 }