unit1.pas

来自「Delphi实效编程百例的随书源代码 这是其中的磁盘文件部分」· PAS 代码 · 共 56 行

unit Unit1;

interface

uses
  Windows, Messages,shellapi, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure MoveFileToDustbin(Filename : string);
//删除文件函数
var
  T : TSHFileOpStruct;
begin
  FillChar(T,SizeOf(TSHFileOpStruct),#0);
  with T do
  begin
    Wnd:=0;           { No owner window }
    wFunc:=FO_DELETE; { Deleting, what else? }
    pFrom:=Pchar(Filename);
    fFlags:=FOF_ALLOWUNDO;
    //设定将文件删除到回收站中
  end;
  SHFileOperation(T); { declared in ShellAPI }
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  filename : string;
begin
  if opendialog1.Execute then
  begin
     filename:= opendialog1.FileName;
     MoveFileToDustbin(filename);
  end;
end;

end.