程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 用Delphi編寫清空回收站程序(2)

用Delphi編寫清空回收站程序(2)

編輯:Delphi

程序代碼如下:

unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;
type
 TForm1 = class(TForm)
 Button1: TButton;
 procedure Button1Click(Sender: TObject);
private
 { Private declarations }
public
 { Public declarations }
end;
var
 Form1: TForm1;
 implementation
const
 SHERB_NOCONFIRMATION = $00000001 ;
 SHERB_NOPROGRESSUI = $00000002 ;
 SHERB_NOSOUND = $00000004 ;
type
 TSHEmptyRecycleBin=function(Wnd:HWND;LPCTSTR:PChar;DWORD:Word):Integer;stdcall;
 {$R *.dfm}
 procedure TForm1.Button1Click(Sender: TObject);
var
 SHEmptyRecycleBin:TSHEmptyRecycleBin;
 LibHandle:THandle;
begin
 LibHandle := LoadLibrary(PChar('Shell32.dll')) ;
 if LibHandle <> 0 then
 begin
  @SHEmptyRecycleBin := GetProcAddress(LibHandle, 'SHEmptyRecycleBinA');
 end
 else
 begin
  MessageDlg('Failed to load Shell32.dll.', mtError, [mbOK], 0);
  Exit ;
 end ;
 if @SHEmptyRecycleBin <> nil then
 begin
  SHEmptyRecycleBin(Application.Handle,'',SHERB_NOCONFIRMATION or SHERB_NOPROGRESSUI or SHERB_NOSOUND) ;
 end;
 FreeLibrary(LibHandle);
 @SHEmptyRecycleBin := nil ;
end;
end.

保存文件,然後按F9鍵運行程序,程序運行的初始畫面如圖2所示。

圖2 程序運行的初始畫面

單擊“清空回收站”按鈕就會將操作系統回收站中的文件徹底刪除。

本程序同時也演示了如何調用一個.dll文件中的函數。

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved