unit1.pas

来自「这有很多Delphi应用的例子」· PAS 代码 · 共 53 行

unit Unit1;

interface

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

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

var
  Form1: TForm1;
  T:TSHFileOpStruct;
  P:String;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
//单击Button1以后删除一个外部文件
begin
  P:='d:\Text.txt';//指定要删除的文件
  //给SHFileOperation函数的参数赋值
  With T do
  Begin
    Wnd:=0;
    wFunc:=FO_DELETE;//执行删除操作
    pFrom:=Pchar(P);//指定要删除的文件
    fFlags:=FOF_ALLOWUNDO//文件删除以后可恢复，即删除到回收站中
  End;
  SHFileOperation(T);//执行删除操作
end;

procedure TForm1.Button2Click(Sender: TObject);
//单击Button2以后删除一个外部文件且不可恢复
begin
  deletefile('d:\Text.txt');//删除一个外部文件且不可恢复
end;

end.