Foros Club Delphi - Vaciar papelera de Reciclaje

mete ese codigo luiyi, note que estas haciendo demasiadas preguntas, si no te pones a leer vas a ser un pesimo programador. no es sentarse preguntar y copiar

Código:

void __fastcall TForm1::BitBtn1Click(TObject *Sender)

{

 SHEmptyRecycleBin(NULL,NULL,SHERB_NOCONFIRMATION);

}

y a ver en que lio nos metes la proxima vez
http://www.luds.net/galeries/Joe%20Quimby.gif

fuente : la AYUDA DE BORLAND

Empties the Recycle Bin on the specified drive.
Syntax

HRESULT SHEmptyRecycleBin(
HWND hwnd, LPCTSTR pszRootPath, DWORD dwFlags);

Parameters

hwnd Handle to the parent window of any dialog boxes that might be displayed during the operation. This parameter can be NULL. pszRootPath Address of a null-terminated string of maximum length MAX_PATH that contains the path of the root drive on which the Recycle Bin is located. This parameter can contain the address of a string formatted with the drive, folder, and subfolder names (c:\windows\system . . .). It can also contain an empty string or NULL. If this value is an empty string or NULL, all Recycle Bins on all drives will be emptied. dwFlags One or more of the following values: SHERB_NOCONFIRMATION No dialog box confirming the deletion of the objects will be displayed. SHERB_NOPROGRESSUI No dialog box indicating the progress will be displayed. SHERB_NOSOUND No sound will be played when the operation is complete.

Return Value

Returns S_OK if successful, or an OLE-defined error value otherwise.

Function Information

Minimum DLL Versionshell32.dll version 4.71 or laterCustom ImplementationNoHeadershellapi.hImport libraryshell32.libMinimum operating systemsWindows 2000, Windows NT 4.0 with Internet Explorer 4.0, Windows 98, Windows 95 with Internet Explorer 4.0