win7文件夾目錄

用什么命令清空回收站要可以在命令

本程序演示如何通过程序来清空回收站。向窗体上添加一个组件,它用于激活清空回收站的操作。首先在程序的段中定义3个常数和一个类型声明,代码如下=$;=$;=$;=function(:PChar;):Integer;stdcall;程序运行初期,程序首先会通过LoadLibrary函数加载动态链接库Shell32。dll,并且把加载后的操作句柄存储...全部

本程序演示如何通过程序来清空回收站。向窗体上添加一个TButton组件,它用于激活清空回收站的操作。首先在程序的implementation段中定义3个常数和一个类型声明,代码如下:constSHERB_NOCONFIRMATION=$00000001;SHERB_NOPROGRESSUI=$00000002;SHERB_NOSOUND=$00000004;typeTSHEmptyRecycleBin=function(:PChar;):Integer;stdcall;程序运行初期,程序首先会通过LoadLibrary函数加载动态链接库Shell32。

dll,并且把加载后的操作句柄存储在LibHandle中。然后通过@SHEmptyRecycleBin:=GetProcAddress(LibHandle,'SHEmptyRecycleBinA')语句读取SHEmptyRecycleBinA函数的地址,如果以上语句能够正确执行(也就是@SHEmptyRecycleBin不等于nil),那么就调用SHEmptyRecycleBin完成清空回收站的操作。

最后释放动态链接库。响应代码如下:procedureTForm1。Button1Click();varSHEmptyRbeginLibHandle:=LoadLibrary(PChar('Shell32。

dll'));ifLibHandle

:=GetProcAddress(LibHandle,'SHEmptyRecycleBinA');endelsebeginMessageDlg('FailedtoloadShell32。

dll。',mtError,[mbOK],0)

nilthenbeginSHEmptyRecycleBin(Application。Handle,'',SHERB_NOCONFIRMATIONorSHERB_NOPROGRESSUIorSHERB_NOSOUND);end;FreeLibrary(LibHandle):=nil;end;程序代码如下:unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)Button1:TButton;procedureButton1Click();private{Privatedeclarations}public{Publicdeclarations}end;varForm1:TForm1;implementationconstSHERB_NOCONFIRMATION=$00000001;SHERB_NOPROGRESSUI=$00000002;SHERB_NOSOUND=$00000004;typeTSHEmptyRecycleBin=function(:PChar;):Integer;stdcall;{$R*。

dfm}procedureTForm1。Button1Click();varSHEmptyRbeginLibHandle:=LoadLibrary(PChar('Shell32。dll'));ifLibHandle

:=GetProcAddress(LibHandle,'SHEmptyRecycleBinA');endelsebeginMessageDlg('FailedtoloadShell32。

dll。',mtError,[mbOK],0)

nilthenbeginSHEmptyRecycleBin(Application。Handle,'',SHERB_NOCONFIRMATIONorSHERB_NOPROGRESSUIorSHERB_NOSOUND);end;FreeLibrary(LibHandle):=nil;end;end。

保存文件,然后按F9键运行程序。单击“清空回收站”按钮就会将操作系统回收站中的文件彻底删除。本程序同时也演示了如何调用一个。dll文件中的函数。收起