برنامه نویسان محترم میتوانند توسط این کد کار یک مامور جمع آوری زباله را انجام داده و سطل آشغال ویندوز را خالی کنند :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 }
پاسخ با نقل قول