2012-08-01

【Delphi】清除資源回收筒

Form 放一個 button,然後將 unit1 內程式碼改為如下 ----

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


沒有留言:

張貼留言