删除文件到回收站的源码
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ShellApi, StdCtrls;
type
TfrmMain = class(TForm)
edtPath: TEdit;
Label1: TLabel;
btnDelete: TButton;
procedure btnDeleteClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmMain: TfrmMain;
implementation
{$R *.dfm}
procedure TfrmMain.btnDeleteClick(Sender: TObject);
var
T:TSHFileOpStruct;
P:String;
begin
P:=edtPath.Text;
with T do
begin
Wnd:=0;
wFunc:=FO_DELETE;
pFrom:=Pchar(P);
fFlags:=FOF_ALLOWUNDO
end;
if SHFileOperation(T)=0 then
ShowMessage('删除成功')
else
ShowMessage('删除失败');
end;
end.