Ir al contenido


Foto

[TRUCO DELPHI] Vaciar la papelera de Reciclaje.


  • Por favor identifícate para responder
3 respuestas en este tema

#1 sir.dev.a.lot

sir.dev.a.lot

    Advanced Member

  • Miembros
  • PipPipPip
  • 545 mensajes
  • Location127.0.0.1

Escrito 23 agosto 2016 - 02:05

[TRUCOS DELPHI] Vaciar la Papelera de Reciclaje.


delphi
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. type
  3. TEmptyBin=function(Wnd: hWnd; LpctStr: PChar; DWord: Word): Integer;stdcall;
  4. var
  5. MyHandle: THandle;
  6. RecBin: TEmptyBin;
  7. begin
  8. MyHandle:=LoadLibrary('Shell32.dll');
  9. @RecBin:=GetProcAddress(MyHandle, 'SHEmptyRecycleBinA');
  10. RecBin(Application.Handle, '', 0);
  11. FreeLibrary(MyHandle);
  12. @RecBin:=nil;
  13. end;

Saludos!


  • 2

#2 sir.dev.a.lot

sir.dev.a.lot

    Advanced Member

  • Miembros
  • PipPipPip
  • 545 mensajes
  • Location127.0.0.1

Escrito 31 agosto 2016 - 12:50

[TRUCO DELPHI] Vaciar la papelera de Reciclaje.


delphi
  1. unit Unit1;
  2. interface
  3. uses
  4. Windows, Messages, SysUtils, Classes,
  5. Graphics, ShellApi,Controls, Forms,
  6. Dialogs,StdCtrls, ExtCtrls;
  7. type
  8. TForm1 = class(TForm)
  9. Button1: TButton;
  10. procedure Button1Click(Sender: TObject);
  11. end;
  12.  
  13. var Form1: TForm1;
  14.  
  15. function SHEmptyRecycleBin
  16. (Wnd:HWnd; LPCTSTR:PChar;
  17. DWORD:Word):Integer; stdcall;
  18.  
  19. const
  20. SHERB_NOCONFIRMATION = $00000001;
  21. SHERB_NOPROGRESSUI = $00000002;
  22. SHERB_NOSOUND = $00000004;
  23.  
  24. implementation {$R *.DFM}
  25.  
  26. function SHEmptyRecycleBin; external
  27. 'SHELL32.DLL' name 'SHEmptyRecycleBinA';
  28.  
  29. procedure TForm1.Button1Click(Sender: TObject);
  30. begin
  31. SHEmptyRecycleBin(self.handle,'',
  32. SHERB_NOCONFIRMATION);
  33. end;
  34. end.

Saludos!


  • 2

#3 escafandra

escafandra

    Advanced Member

  • Administrador
  • 4.107 mensajes
  • LocationMadrid - España

Escrito 31 agosto 2016 - 02:05

He unido los dos temas idénticos aunque con soluciones distintas.
 
Aprovecho para dar un enlace de un artículo que usa la segunda versión del código: Vaciar la papelera de reciclaje

 

 

 

Saludos.


  • 0

#4 sir.dev.a.lot

sir.dev.a.lot

    Advanced Member

  • Miembros
  • PipPipPip
  • 545 mensajes
  • Location127.0.0.1

Escrito 31 agosto 2016 - 03:02

Hola, @Escafandra.

 

me gustaria que si tenes por ahi algo parecido a este hilo, me pudieras proveer con esta informacion.

 

http://delphiaccess....rida-en-delphi/

 

Gracias de antemano!.

Saludos!


  • 0




IP.Board spam blocked by CleanTalk.